マクロ もし特定の列が無かったら、何もしないが、有った場合は、マクロを

マクロ　もし特定の列が無かったら、何もしないが、有った場合は、マクロを実行したいです。
Excel2003です。

Sub a5_Click()

Dim Koumoku(6) As String
Dim i As Long

Koumoku(0) = "日時"
: (省略)
Koumoku(6) = "submit2"

For i = 0 To 6
Cells.Select
Selection.Find(What:=Koumoku(i), MatchCase:=False).Select
Selection.EntireColumn.Delete Shift:=xlToLeft
Next i

と入力し、マクロを実行させています。
マクロを実行し、列を削除させてはいますが、再度マクロを実行すると、実行時エラーが表示されます。すでに、その列が無い為だと思いますが、
「「日時」という列が存在しなかった場合、何もしない
だけど、あったら‥‥先ほど書きましたマクロを実行させたいと思っていますが、そのコードをどう書いたら良いでしょうか？

No.2 ベストアンサー 回答者： Wendy02 回答日時： 2010/06/09 14:01

Select は、この場合必要ありません。

Find メソッドは、あまり省略をしないほうがよいです。
Ubound を使って、上限のIndex を取るのが良いです。

'//
Sub a5_Click()
　
　Dim Koumoku(6) As String
　Dim i As Long
　Dim r As Range
　
　Koumoku(0) = "日時"
　'・
　'・
　'・
　Koumoku(6) = "submit2"
　
　For i = 0 To Ubound(Koumoku)
　　Set r = Cells.Find(What:=Koumoku(i), MatchCase:=False)
　　If Not r Is Nothing Then
　　　r.EntireColumn.Delete Shift:=xlToLeft
　　End If
　Next i
End Sub

この回答へのお礼

＞Select は、この場合必要ありません。
そうだったのですか。

教えてくださったコードで無事出来ました。

こちらのコードのほうが分かりやすいですね。Selectに拘ってましたが、必要が無いと知りました。

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

お礼日時：2010/06/09 14:16

No.1 回答者： D-Matsu 回答日時： 2010/06/09 13:49

Findの戻り値を使って存在有無の判断をします。

詳しくは参考URLでどうぞ。

参考URL：http://officetanaka.net/excel/vba/cell/cell11.htm

この回答へのお礼

同じ現象のHPありがとうございました。

＞失敗が許されない検索など、検索とは呼べません。
確かに・・・と納得です。

検索の型なども詳しく記載されていまして、大変参考になりました。

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

お礼日時：2010/06/09 14:12