回答編集履歴
1
誤記修正
test
CHANGED
|
@@ -4,7 +4,7 @@
|
|
|
4
4
|
|
|
5
5
|
```VBA
|
|
6
6
|
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
|
|
7
|
-
If Target.Value = "登録1"
|
|
7
|
+
If Target.Value = "登録1" Then
|
|
8
8
|
' 日本人
|
|
9
9
|
MsgBox "「日」登録しました "
|
|
10
10
|
ElseIf Target.Value = "登録2" Then
|