●質問の主旨
ワークシートのイベントプロシージャにおいて右クリック
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
を連続で使用するためには以下のコードをどのように書き換えればよいでしょうか？
ご存知の方ご教示願います。
●質問の補足
ExcelのワークシートとVBAでタイムカードを作成しています。
以下のコードでは「出勤打刻」も「退勤打刻」もできません。
「退勤打刻」のコードを削除すると、「出勤打刻」はできます。
「プロシージャ名が適切ではありません」とエラーが返されます。
エラーの意図は分かりますが、「出勤打刻」と「退勤打刻」のクリック方法が違うのも
紛らわしいとも思います。同じクリック方法で統一するにはどうすればよいか悩んでいます。
●コード
'---------------------定数---------------------
Const SYUKIN_DAKOKU_CLMN As Integer = 5 '出勤打刻位置の列番号
Const TAIKIN_DAKOKU_CLMN As Integer = 6 '退勤打刻位置の列番号
Const DAY_CLMN As Integer = 2 '日付欄の列番号
'---------------------出勤打刻---------------------
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = SYUKIN_DAKOKU_CLMN Then '出勤打刻の位置
Cancel = True 'コンテキストメニューの抑制
If IsEmpty(Target.Value) Then 'ターゲットが空白のとき
If Cells(Target.Row, DAY_CLMN).Value = Day(Date) Then '右クリックしたときの日付が日付欄の日付と等しいとき
Target = Time '右クリックしたセルに現在の時間を表示
Target.NumberFormat = "hh:mm" '時間の表示形式は "hh:mm"
Else
MsgBox "打刻位置が間違っています", vbExclamation, "打刻位置の確認" 'メッセージ表示
Cancel = True 'コンテキストメニューの抑制
End If
Else '打刻済みのときはメッセージ表示
MsgBox "すでに打刻しています", vbExclamation, "打刻位置の確認"
End If
End If
End Sub
'---------------------退勤打刻---------------------
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target2.Column = TAIKIN_DAKOKU Then '出勤打刻の位置
Cancel = True 'コンテキストメニューの抑制
If IsDate(Cells(Target.Row, DAY_CLMN)) = True Then '出勤打刻がされていれば
If IsEmpty(Target.Value) Then 'ターゲットが空白であれば
If Cells(Target.Row, DAY_CLMN).Value = Day(Date) Then '右クリックしたときの日付が日付欄の日付と等しい
Target = Time '右クリックしたセルに現在の時間を表示
Target.NumberFormat = "hh:mm" '時間の表示形式は "hh:mm"
Else
MsgBox "打刻位置が間違っています", vbExclamation, "打刻位置の確認" 'メッセージ表示
Cancel = True 'コンテキストメニューの抑制
End If
Else '打刻済みのときはメッセージ表示
MsgBox "すでに打刻しています", vbExclamation, "打刻位置の確認"
End If
End If
End If
End Sub
●質問の主旨
下記コード4行目と添付画像より
Range("B30").ValueとFormat(Day(Date), "d")の戻り値は
等しいように思います。
ですが、E列を右クリックしたときに現在の時間を
入力できません。なぜでしょうか？ご存知の方ご教示願います。
●質問の補足
エクセルでタイムカードを作成しています。
出勤・退勤打刻の列を右クリックすれば
現在の時刻が表記できるようにしたいと考えております。
下記のコードでは2月13日の出勤打刻（E30セル）しか
できないことになりますが、徐々にコードを加筆していくつもりです。
●コード
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 5 Then '出勤打刻の位置
Cancel = True 'コンテキストメニューの抑制
If Range("B30").Value = Format(Day(Date), "d") Then '本日の日付とB30セルの日付が合致すれば
Range("E30").Value = Format(Time, "hh:mm") '出勤打刻の代入値を"hh:mm"でE30に表記する
Else
MsgBox "打刻位置が間違っています", vbExclamation, "打刻位置の確認" 'メッセージ表示
Cancel = True 'コンテキストメニューの抑制
End If
End If
End Sub
●質問の主旨
下記コード4行目と添付画像より
Range("B30").ValueとFormat(Day(Date), "d")の戻り値は
等しいように思います。
ですが、E列を右クリックしたときに現在の時間を
入力できません。なぜでしょうか？ご存知の方ご教示願います。
●質問の補足
エクセルでタイムカードを作成しています。
出勤・退勤打刻の列を右クリックすれば
現在の時刻が表記できるようにしたいと考えております。
下記のコードでは2月13日の出勤打刻（E30セル）しか
できないことになりますが、徐々にコードを加筆していくつもりです。
●コード
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 5 Then '出勤打刻の位置
Cancel = True 'コンテキストメニューの抑制
If Range("B30").Value = Format(Day(Date), "d") Then '本日の日付とB30セルの日付が合致すれば
Range("E30").Value = Format(Time, "hh:mm") '出勤打刻の代入値を"hh:mm"でE30に表記する
Else
MsgBox "打刻位置が間違っています", vbExclamation, "打刻位置の確認" 'メッセージ表示
Cancel = True 'コンテキストメニューの抑制
End If
End If
End Sub
