質問: 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です。
回答: sub setvalue() if month(date) = 8 then worksheets("sheet4").activate worksheets("sheet4").range("k15").clear end if end sub 以下、不要 sub clearcell() end sub