Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39385 / 76732

←次へ　｜　前へ→


	【42460】Re:Resetをかけたい

ToShiYo - 06/9/12(火) 18:16 -


	引用なし

	パスワード

▼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 ステートメントでいいかもしれません。
はい、これを使わせていただきました。
ありがとうございました。

質問の説明が不十分でご迷惑をおかけしました。

0 hits

▼

【42429】Resetをかけたい ToShiYo 06/9/11(月) 21:40