VBAなんでも質問スレ Part3 (137ﾚｽ)
VBAなんでも質問スレ Part3 http://mevius.5ch.net/test/read.cgi/tech/1631184381/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
7: デフォルトの名無しさん [] 2021/10/20(水) 22:37:31.96 ID:mCILNp7G 超初心者です すみません、他スレでもきいたのですが 以下の対応をさせたいです ?シートを支店分だけ増やす ?シート名をそれぞれ「支店一覧」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 支店名 http://mevius.5ch.net/test/read.cgi/tech/1631184381/7
8: デフォルトの名無しさん [] 2021/10/20(水) 22:49:26.57 ID:mCILNp7G ?作成したシートの表のB列が"0"になっている行を削除する の誤りです コードの3行目は For Each 支店名 In Worksheets("支店一覧").Range("A2：A18") の誤りです http://mevius.5ch.net/test/read.cgi/tech/1631184381/8
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.017s