質問: "1" then range("c1:g1").clear end if と、やってみましたが、できませんでした。 宜しくお願い致します。
回答: >a1セルに、 1 と入力した際に 入力があった際に実行したかったのではないのでしょうか? 計算結果はa1セルに入力とはいえません。 どこで入力があってもその行のa列の値で判断したい場合は以下のような感じです。 private sub worksheet_change(byval target as range) if range("a" & target.row).value = 1 then range("c1:g1").offset(target.row - 1).clear end if end sub