下記のコードを記述しました。
最終行まで[F2〕→〔Enter]をループ
※やりたいことが不明だとは重々承知ですが、目的があり、
質問させていただいております。
その後にメッセージBOX or 他ボタンの呼び出しをしたいのですが、
メッセージボックス or Call ボタン名 を記述しても実行されません。
改善策が分かる方いましたら、ご教授いただければ幸いです。
宜しくお願い致します。
Sub ボタン1_Click()
Dim i As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Range("A2").Activate
SendKeys "{F2}"
SendKeys "{Enter}"
Next i
MsgBox "TEST"
End Sub
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
こんにちは。
ふつう、
SendKeys "{F2}"
SendKeys "{Enter}"
それが、ワークシート上というのでしたら、F2 を押せば、セルへの入力状態になり、通常はマクロは命令待ち状態になってしまいます。したがって、行ったきりのマクロになります。
こういうスタイルは、外部オブジェクト(例えば、VBScript)からSendKeyを使わないと意味がなかったはずです。#1さんのご指摘は、正しいのですが、今回は、特例で、Return とセットとして扱うから抜けられるのだと思いました。
>やりたいことが不明だとは重々承知ですが、目的があり、
別に秘密にしなくても、この場合は、例えば、外部データをインポートした後に、データが不活性化して、文字でも数字でもない状態の時に、そのデータをExcelデータに落ち着かせるために行なう方法です。他には、IMEの変換を利用する方法なども出ているようです。
そうはいうものの、以前、そういう場合は、以下ようなマクロを使っていましたが、今は、いろんな状況が考えられますから、必ずしも正解とはいえなくなりました。
'1234 というように、プレフィックス付きの文字列 を、数値の1234に変える場合には、有効です。
Sub ボタン1_Click()
Dim rng As Range
Set rng = Range("A2", Cells(Rows.Count, 1).End(xlUp))
With rng
.Value = .Value
End With
End Sub
区切り位置オブジェクトを使ってデータを変更させるとか、手段はいくつかあります。
'//ふだん、このようなマクロは書きません。
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Sub ボタン1_Click()
Dim i As Long
Application.ScreenUpdating = False
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
Cells(i, 1).Activate
Application.SendKeys "{F2}{Enter}", True
Sleep 200 '*
DoEvents 'これを入れないと戻れない。
Next i
Application.ScreenUpdating = True
MsgBox "TEST"
End Sub
* この部分は、抜いても大丈夫か、試験してください。確実生を高めるために入れているだけです。あまりSleep は意味がありません。
最初の、.Value = .Value を、手動式で行った場合。
Application.SendKeys "{F2}{F9}{Enter}", True
となります。
一度、試してみてください。
No.3
- 回答日時:
以下のようにしてください。
------------------------------------
Sub ボタン1_Click()
Dim i As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Range("A2").Activate
SendKeys "{F2}"
SendKeys "{Enter}"
Next i
DoEvents
MsgBox "TEST"
End Sub
-----------------------
MsgBox "TEST"の前の行にDoEventsを追加します。
No.2
- 回答日時:
何をやっているか全く判らないのですが、「SendKeys "{Enter}"」と「Next i」の間に「DoEvents」を入れてみたらいかがですか?
ちなみにA列のデータは内容とは関係なくループの回数にしか使われていないようですがそれで良いのですか?
No.1
- 回答日時:
SendKeys "{F2}"
この F2を 閉じるコマンドが無いから
ループ抜けても コードは F2表示で止まってる。
手動で F2閉じたら、msgbox に進むけど・・・
F2以外で やったら??
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) ExcelVBAで、index、match関数を使用して、指定範囲に出力したい 3 2022/10/18 21:53
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルVBAでF2(ファンクション2)と同じ処理をしたい
Excel(エクセル)
-
VBAで、なぜかSendkeyが効きません。
PowerPoint(パワーポイント)
-
VBAでの SendKeysの変数指定方法
Excel(エクセル)
-
-
4
ExcelVBAでスペースキー操作したい
Excel(エクセル)
-
5
ExcelマクロのSendkeysで処理途中に次のキーが送られる
Excel(エクセル)
-
6
【sendkeysメソッドが動かずに苦慮しております】
Visual Basic(VBA)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
エクセルVBAで SendKeys {TAB}""
Excel(エクセル)
-
9
VBA ポップアップが表示されたら常に「はい」を選択したい
Access(アクセス)
-
10
VBAでエクセル内の情報を他のアプリケーションへ自動入力したいです
Visual Basic(VBA)
-
11
エクセル VBA 正しいマクロを教えてください
Excel(エクセル)
-
12
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
13
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
14
Excel で、値貼り付けをF9でする場合複数選択ができますか?
Excel(エクセル)
-
15
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
16
マクロ 実行ボタンを押さずに常に実行
Excel(エクセル)
-
17
「選択範囲を解除してアクティブセルを選択」をマクロで行うにはどうすればよいでしょうか
Excel(エクセル)
-
18
エクセルでマクロを作成してますが、バックスラッシュが入力出来ません。 設定方法等教えて頂けないでしょ
Excel(エクセル)
-
19
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
20
エクセル2010 グラフの軸の最大値最小値をセル参照する
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Application.Runエラー(1004)
-
エクセルのマクロボタンが編集...
-
access2010 コマンドまたはアク...
-
別シートのマクロを実行する方法
-
マクロ 戻るボタンを押したらシ...
-
エクセルVBAで、ボタンの文字を...
-
エクセルのマクロ
-
シート保護を掛けたまま並べ替...
-
マクロが登録できません
-
エクセル VBA SendKeys ループ...
-
excelで会議室予約表の作成(マ...
-
InputBox内の表示について
-
特定のシートだけ印刷はマクロ...
-
Access終了時にマクロまたはVBA...
-
private sub にしたらマクロが...
-
AccessマクロをVBAを使ってデザ...
-
EXCEL2010でxltmにxlsmは必要?
-
アクセスの更新クエリをフォームで
-
Excel2003でシート保護(オート...
-
プロシージャが大きすぎます!
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのマクロボタンが編集...
-
別シートのマクロを実行する方法
-
Access終了時にマクロまたはVBA...
-
Application.Runエラー(1004)
-
シート保護を掛けたまま並べ替...
-
エクセルVBAで、ボタンの文字を...
-
access2010 コマンドまたはアク...
-
マクロ 戻るボタンを押したらシ...
-
InputBox内の表示について
-
特定のシートだけ印刷はマクロ...
-
ExcelのVBAでDisplayalertsで警...
-
エクセル VBA SendKeys ループ...
-
マクロが登録できません
-
今日の日付の範囲を指定して印...
-
AccessでExcelファイルを印刷
-
プロシージャが大きすぎます!
-
エクセルのマクロ
-
Workbook_Openを起動時以外に呼...
-
アクセス:検索フォームボタンに...
-
特定マクロが実行されたか確認...
おすすめ情報