質問: now end sub
回答: private sub workbook_sheetchange(byval sh as object, byval target as range) application.enableevents=false target.offset(0, 1).value = application.username target.offset(0, 2).value = now application.enableevents=true end sub eventを受けた時、続くeventを無効にします。1つのevent処理をしたら、event処理を有効にします。