教えて!gooにおける不適切な投稿への対応について

Excelファイルのマクロで、SheetsクラスのSelectメソッドが失敗しましたのエラーが出ます

以下のマクロですが、最初のSheets(Array(................))._Select
でエラーになりますその後は解りませんが...。

原因はSelectしているSheetの中に非表示なシートがあるのが原因ですが、
このマクロが入っているExcelファイルは色々な人が使うので人によって非表示にしたい
シートがまちまちで、限定は出来ません。ただし、非表示にしたものはそのファイルを
使う人はそのシートはなくても構わないですので、使う人によってマクロを修正すれば
動くのですが、ちょっと面倒なのでこのマクロを修正して対応出来ればと思います。

このケースはsheet4~sheet10までのシートを選択して、選択した全てのシートの特定
部分を消去し、選択していないシートに入って選択を解除し基本となるシートに戻る
というマクロです。

マクロの記録で作成して、いらなそうなやつを削除したものです。
ホームページで色々検索しましたが、非表示シートはSelect出来ないと言うことは何となく
解りましたが、マクロの記録で作成した事でも解るように全くの初心者ですので、そこの
ところよろしくお願いします。

Sub クリアー()
'
' クリアー Macro
'
Sheets(Array("sheet4", "sheet5", "sheet6", "sheet7", "sheet8", "sheet9", "sheet10")). _
Select
Sheets("sheet6").Activate
Union(Range( _
"F109:BO109,F112:BO112,F115:BO115,F118:BO118,F121:BO121" _
), Range( _
"FJ225:GS225,FJ228:GS228,FJ231:GS231,FJ234:GS234,FJ237:GS237" _
), Range( _
"OA535:PD535,OA538:PD538,OA541:PD541,OA544:PD544,OA547:PD547")).Select
Selection.ClearContents
Sheets("sheet3").Select
Sheets("sheet6").Select
Range("J1:L1").Select
End Sub

gooドクター

A 回答 (3件)

NO2です。


シート名を以下のコメントコード内の文字列にカンマ区切りで設定して下さい。

Sub sample()
Dim i As Integer, ws
ws = Split("aaa,bbb,ccc,ddd,eee,fff,ggg", ",") 'シート名配列の作成
For i = 0 To UBound(ws)
Debug.Print ws(i)
With Sheets(ws(i))
Union( _
.Range("F109:BO109,F112:BO112,F115:BO115,F118:BO118,F121:BO121"), _
.Range("FJ225:GS225,FJ228:GS228,FJ231:GS231,FJ234:GS234,FJ237:GS237"), _
.Range("OA535:PD535,OA538:PD538,OA541:PD541,OA544:PD544,OA547:PD547")). _
ClearContents
End With
Next
Sheets("sheet6").Select
Range("J1:L1").Select
End Sub
    • good
    • 0
この回答へのお礼

ありがとうございます。

最悪一つ一つシートをActivateして同じ処理をするのかと思っていましたが
これで、簡単にできそうです。

他にもExcelファイルで非表示にしたいのがあったので、これを応用したいと思います。

本当にありがとうございました。

追伸、それぞれの関数の意味はちょっとまだ解りませんが、一つ一つ確認してみたいと思います。

お礼日時:2013/03/12 14:48

NO1です。


環境を間違えましたので訂正です。
ub sample()
Dim i As Integer
For i = 4 To 10
With Sheets("sheet" & i)
Union( _
.Range("F109:BO109,F112:BO112,F115:BO115,F118:BO118,F121:BO121"), _
.Range("FJ225:GS225,FJ228:GS228,FJ231:GS231,FJ234:GS234,FJ237:GS237"), _
.Range("OA535:PD535,OA538:PD538,OA541:PD541,OA544:PD544,OA547:PD547")). _
ClearContents
End With
Next
Sheets("sheet6").Select
Range("J1:L1").Select
End Sub

この回答への補足

早速の回答ありがとうございます。

Dim i As Integer
For i = 4 To 10
With Sheets("sheet" & i)

とは、下記のように変更しても大丈夫ですか?

Dim i As Integer
With Sheets("sheet4","sheet5","sheet6","sheet7",........)

というのも、説明が不足していましたが、シート名規則性がないばらばらなためです。

補足日時:2013/03/12 12:30
    • good
    • 0
この回答へのお礼

補足ではまずかったのかな?
初めて、投稿したのでまだよくわかりません。すみません。

補足では
Dim i As Integer
With Sheets("sheet4","sheet5","sheet6","sheet7",........)
と書き込みましたが、変数を使用しないので
Dim i As Integer
もいらないですね

ほんとに初心者ですみませんです。

お礼日時:2013/03/12 13:23

ご例示のマクロですが、Sheet6しかクリアしないのでは?



一例です。
Sub sample()
Dim i As Integer
For i = 1 To 3
With Sheets("sheet" & i)
Union( _
.Range("F109:BO109,F112:BO112,F115:BO115,F118:BO118,F121:BO121"), _
.Range("FJ225:GS225,FJ228:GS228,FJ231:GS231,FJ234:GS234,FJ237:GS237"), _
.Range("OA535:PD535,OA538:PD538,OA541:PD541,OA544:PD544,OA547:PD547")). _
ClearContents
End With
Next
Sheets("sheet3").Select
Range("J1:L1").Select
End Sub
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング