Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


22754 / 76732 ←次へ | 前へ→

【59355】入力日の自動セット
質問  MM  - 08/12/8(月) 12:42 -

引用なし
パスワード
   EXCELである処理の実行結果を管理しており、実行結果を確認して、
例えば"H72"に署名(名前入力)すると、"H71"に署名した日付(MM/DD)が入るように
下記関数を作成してみたのですが、署名欄を選択して複数のセルを変更すると、
エラーが発生してしまいます。
(例)
   月曜日 火曜日 水曜日 木曜日 金曜日 土曜日 日曜日 月曜日 ・・・
結 果 ○   ○   ○   ○   ○   ○   ○   ○
確認日 12/01  12/02  12/03  12/04  12/05  
署 名 MM  MM  MM  MM  MM

金曜日の署名欄 MM をマウスで選択して、月曜日まで右に名前をコピーすると
エラーとなってしまう(土曜日から月曜日まで日付がセットされない)のですが、
回避する方法をご教示戴けますと幸いです。

尚、日付を自動セットしているのは、改ざん防止の為となっております。


Private Sub Worksheet_Change(ByVal Target As Range)
  
If Target.Row < 72 Then Exit Sub
If Target.Row = 73 Then Exit Sub
If Target.Row > 74 Then Exit Sub

If Target.Value = "" Then
  ActiveSheet.Unprotect
  Application.EnableEvents = False
  Target.Offset(-1, 0).Value = ""
  Application.EnableEvents = True
  ActiveSheet.Protect
ElseIf Target.Offset(-1, 0).Value <> "" Then Exit Sub
Else
  ActiveSheet.Unprotect
  Application.EnableEvents = False
  Target.Offset(-1, 0).Value = Format(Date, "mm/dd")
  Application.EnableEvents = True
  ActiveSheet.Protect
End If
   
End Sub
0 hits

【59355】入力日の自動セット MM 08/12/8(月) 12:42 質問
【59357】Re:入力日の自動セット Jaka 08/12/8(月) 13:53 発言
【59361】Re:入力日の自動セット MM 08/12/8(月) 14:51 質問
【59363】Re:入力日の自動セット Jaka 08/12/8(月) 15:21 発言
【59366】【解決】Re:入力日の自動セット MM 08/12/8(月) 16:48 お礼

22754 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free