痔になりやすい生活習慣とは?

VBAが初心者で申し訳ありません。


Sub SetValue()

If Month(Date) = 8 Then
Sub ClearCell()
Worksheets("Sheet4").Activate
Worksheets("Sheet4").Range("K15").Clear

End Sub
End If
End Sub

今が8月なら Sheet4 のセルK15 をクリアするものを作ろうとしましたが
上記で Date の部分が反転した状態で End Subが必要です とエラーが出ました。

ネット上の初心者向けサイトの切り張りをした状態で他の部分も間違いがあるかと思いますが
どこがおかしいのでしょうか?
使用しているのはExcel2000です。

A 回答 (1件)

Sub SetValue()


 If Month(Date) = 8 Then
  Worksheets("Sheet4").Activate
  Worksheets("Sheet4").Range("K15").Clear
 End If
End Sub


以下、不要
Sub ClearCell()
End Sub
    • good
    • 0
この回答へのお礼

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

お礼日時:2012/08/17 22:40

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


人気Q&Aランキング