VBAに関して質問です。 【登録】というボタンを3回押すと’設定’の部分のコードを実行したいのですが、通常の動作には問題が無いのですが、"F11"に入力が無い場合メッセージBOXの表示が出ると、その後ボタンをどれだけ押しても’設定’の部分のコードが実行されません。どのような修正をすればいいのかご助力願います。 また、ボタンを3回押すと’設定’の部分のコードが実行できる効率の良い物は無いでしょうか？ Sub 登録() If WorksheetFunction.CountA(Range("C21")) = 0 Then MsgBox ("数値を入力して下さい") Exit Sub End If Range("A4:O4").Select Selection.Copy i = Range("F1") Range(Cells(i, 3), Cells(i, 17)).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False 'クリックカウント Static C As Long C = C + 1 If C = 3 Then ’設定’ If WorksheetFunction.CountA(Range("F11")) = 0 Then MsgBox ("設定値入力してください") Exit Sub End If Range("B3:I3").Select Selection.Copy n = Range("B1") Range(Cells(n, 18), Cells(n, 25)).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False C = 0 End If End Sub
