こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

添削お願いします

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です。

投稿日時 - 2012-08-17 22:17:15

QNo.7649435

すぐに回答ほしいです

質問者が選んだベストアンサー

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


以下、不要
Sub ClearCell()
End Sub

投稿日時 - 2012-08-17 22:34:08

お礼

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

投稿日時 - 2012-08-17 22:40:03

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問