ﾚｽ書き込み

ｽﾚへ戻る 写 ﾚｽ栞 ﾚｽ消

---

VBAなんでも質問スレ Part3

PC,ｽﾏﾎ,PHSは ULA べっかんこ 公式(ｽﾏﾎ) 公式(PC) で書き込んでください｡

名前
ﾒｰﾙ
引用切替：ﾚｽｱﾝｶｰのみ
>>7 > 超初心者です > すみません、他スレでもきいたのですが > > 以下の対応をさせたいです > ?シートを支店分だけ増やす > ?シート名をそれぞれ「支店一覧」A2〜A18の支店名にする > ?作成したシートのB5に支店名を入れる > ?作成したシートの表のA列が"0"になっている行を削除する > ?作成したシートのオートフィルタを解除する > > 以下のものではエラーになりますが、どこが悪いのでしょうか > > Sub シート作成 > Dim 支店名 As Range > For Each 名前 In Worksheets("支店一覧").Range("A2：A18") > Worksheets("原本").Copy After:=Worksheets(Worksheets.Count) > With ActiveSheet > .Name = 支店名.Value > .Range("B5") = 支店名.Value > End With > 　 Range("B3").AutoFilter 1, "0" > With Range("B3").CurrentRegion.Offset(1, 0) > .Resize(.Rows.Count - 1).EntireRow.Delete > 　　Range("B3").AutoFilter > End With > Next 支店名
ﾛｰｶﾙﾙｰﾙ SETTING.TXT

---

他の携帯ﾌﾞﾗｳｻﾞのﾚｽ書き込みﾌｫｰﾑはこちら｡書き込み設定で書き込みｻｲﾄの設定ができます｡
・ULA
・べっかんこ(身代わりの術)
・べっかんこ(通常)
・公式(ｽﾏﾎ)
・公式(PC)[PC,ｽﾏﾎ,PHS可]

---

書き込み設定(板別)で板別の名前とﾒｰﾙを設定できます｡

---

ﾒﾓ帳

(0/65535文字)

---

上下板覧索設栞歴

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.006s