質問: date end if end with end sub 'この行まで ここまで教えて頂きました。 一つ出来ると、別の欲が沸いてくるもので、次は、特定の月(4月、7月、10月、1月)に1000000ずつ増やしていきたいです。 度々申し訳ございませんが、ご教授頂きたいです。
回答: > 一つ出来ると、別の欲が沸いてくるもので、次は、特定の月(4月、7月、10月、1月)に1000000ずつ増やしていきたいです。 あまりにも正直な気持ちを書かれているのに免じて、これにも回答しましょう。 以下のコードを.range("i19")をdateに置換して使用してください。 .range("i19")としたのはバグがないか確認用に使用しました。 private sub workbook_open() 'この行から with worksheets("sheet1") dim diff as integer ' 前回から今月までの経過月数 diff = (year(.range("i19")) - year(.range("i20"))) * 12 + month(.range("i19")) - month(.range("i20")) if diff > 0 then ' 前回から一月以上経過したか? ' 前回の翌月から今月までにあった1,4,7,10月をカウント dim n as integer select case month(.range("i20")) mod 3 case 0: n = (diff + 2) \ 3 case 1: n = diff \ 3 case 2: n = (diff + 1) \ 3 end select ' 数値の更新 .range("h20") = .range("h20") + n * 1000000 end if .range("i20") = .range("i19") ' 前回の日付を更新 end with end sub 'この行まで 次は、ご自分で少し試行錯誤をしてから質問し、質問には自分で試してみたのは何か、どこが分からないのかを記載しましょう。 そうすれば次の質問にも、私を含めみなさん快く回答するかと思います。