
下記のようなマクロを自動記録で制作してみました。一応動くことは動きますが、マクロを実行中に途中で何かボタンをクリックしてマクロを停止させる方法を教えてください。
当方、マクロは全くわかりません、簡単なfor・・・・next 文くらいなら解読できますが・・・全くの素人ですので、そのことを入れてご教授、解説よろしくお願いします。
Sub 位相操作2()
'
' 位相操作2 Macro
' マクロ記録日 : 2012/7/7 ユーザー名 *m**s**
X = Range("M2")
Y = Range("N2")
For n = X To Y Step Range("u7")
Range("J4").Select
ActiveCell.FormulaR1C1 = n
Next n
End Sub
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
止めたいときは『ESCキーを押す』です。
ただし、すぐには止まりませんし、止めたところから再開はできません。
作動確認をしたいということでしたら、VBA編集画面のメニューから『デバッグ』⇒『ステップイン』(F8キーで代用可)で1行ずつ実行させることができます。
No.3
- 回答日時:
ちょっとおまけで、マウスをクリックして止める方法
Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
Sub ボタン1_Click()
X = Range("M2")
Y = Range("N2")
For n = X To Y Step Range("U7")
If GetAsyncKeyState(2) = 0 Then
Range("J4").Select
ActiveCell.FormulaR1C1 = n
Else
Exit For
End If
Next n
End Sub
If GetAsyncKeyState(1) = 0 Then
で、普通のクリック
If GetAsyncKeyState(2) = 0 Then
で、右クリックです。
その他のキー操作にも対応します。
http://www.happy2-island.com/excelsmile/smile04/ …
No.2
- 回答日時:
こんばんは。
ボタンを押して、止めるというのは、VBAのコードでも、めったにしないと思いましたので、手直ししたコードで試してみました。そうすると、フラグのTrue が変えられないので、そのままではマクロは止めた時点でおしまいです。マクロ実行中は、同じエクセルのVBAでは、flg は、False に戻りません。
Dim flg as Boolean
Sub 位相操作2()
'
' 位相操作2 Macro
' マクロ記録日 : 2012/7/7 ユーザー名 *m**s**
X = Range("M2").Value
Y = Range("N2").Value
Z = Range("U7").Value
For n = X To Y Step Z
Range("J4").Value = n
DoEvents
If flg Then Stop '<-このままでは、ループからは抜けない。 :Exit Sub が必要。
Next n
End Sub
Sub ボタン1_Click() 'フォームのボタン
flg = Not flg
End Sub
まお、デバックなら、F8 を押して、ステップマクロを使えばよいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
複数ファイルにある特定のシー...
-
マクロ 実行ボタンを押さずに...
-
【Excel VBA】エラー番号400
-
Accessのクエリを実行するショ...
-
モジュール内のマクロを全て実...
-
Excel VBA のdebug(F8キー) が...
-
エクセルのマクロショートカッ...
-
パワーポイントで、スライドご...
-
powerpointにwebページを挿入
-
エクセルのマクロ機能で前のシ...
-
エクセルを開くときにvisibleが...
-
エクセルで複数のシートをまと...
-
マクロボタンをある条件の時に...
-
TeraTermのマクロについて
-
VBA RemoveDuplicatesが動かない
-
UWSCの簡単なキーマクロなので...
-
ThisWorkbook.Pathを実行すると...
-
EXCELのセルへ、デジタル時計を...
-
テキストボックスに入力したシ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
EXCELのセルへ、デジタル時計を...
-
複数ファイルにある特定のシー...
-
エクセル グラフの軸の最小値最...
-
Excel VBA のdebug(F8キー) が...
-
エラーになってないのにVBA...
-
Wordの画面を左右にスクロール...
-
EXCEL 複数のシートの同一の位...
-
エクセルのマクロ機能で前のシ...
-
Excelを開いた時に表示さ...
-
エクセルで複数のシートをまと...
-
エクセルでマクロ実行中に任意...
-
ワードからエクセルへ貼り付け...
-
VBAでEXCELに埋め込んだPDFを開...
-
Wordで「原稿用紙○枚」を換算す...
-
Excelマクロでオプションボタン...
-
マクロを実行した日付をセルに...
-
TeraTermのマクロについて
-
Accessのクエリを実行するショ...
おすすめ情報