|
▼yuu1 さん パンさん:
こんばんは。色々とアドバイスありがとうございました。
何とかEndで、モジュールレベルの変数がリセットできました。
ありがとうございました。
こんな感じで出来ました。
With Worksheets("Sheet1").Range("F7")
If .Value <> "" Then
.Value = ""
.Offset(1).Value = ""
End
' Reset…は残念ながら使えませんでした
Else
MsgBox "F7に数字がある時に、リセットが出来ます。" & Chr(10) & _
"…Module Lebelの変数の解除が出来ます。"
End If
End With
>VBE-実行-リセット をマクロで行うには
>Application.VBE.CommandBars.FindControl(ID:=228).Execute
上のコードも一度使わせていただきます。
>
>場合によっては、単に End ステートメントでいいかもしれません。
はい、これを使わせていただきました。
ありがとうございました。
質問の説明が不十分でご迷惑をおかけしました。
|
|