質問: true end with end sub 宜しくお願い致します。
回答: こんばんは、 >ボタンを作り使用したく ボタンイベントか新たにプロシージャを作りボタンに登録し with target >>> with activecell changeイベントをボタンにすると言う事は、 >if .row < 4 or .column <> 5 then exit sub e列4行目からe列最終行までを纏めて処理する事がご希望ですか? ならこんな感じでしょうか。 dim i as long with activesheet application.enableevents = false for i = 4 to .cells(rows.count, 5).end(xlup).row if time < timeserial(12, 0, 0) then .cells(i, day(date) * 2 + 9).value = .cells(i, 5).value else .cells(i, day(date) * 2 + 10).value = .cells(i, 5).value end if next application.enableevents = true end with worksheetイベントもしくはシートに設置したボタンのみからの実行で、実行(設置)されているシートを処理する場合activesheetを省略しても構いません。念のためシートオブジェクトをactivesheetとしていますが、明示した方が良いと思います。