
下記のコードを記述しました。
最終行まで[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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセルVBAでF2(ファンクション2)と同じ処理をしたい
Excel(エクセル)
-
VBAで、なぜかSendkeyが効きません。
PowerPoint(パワーポイント)
-
VBAでの SendKeysの変数指定方法
Excel(エクセル)
-
-
4
ExcelVBAでスペースキー操作したい
Excel(エクセル)
-
5
ExcelVBAでセルを編集状態にする方法
Excel(エクセル)
-
6
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
7
エクセルの関数 ENTERを押さないと反映されない。
Excel(エクセル)
-
8
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
9
【sendkeysメソッドが動かずに苦慮しております】
Visual Basic(VBA)
-
10
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
11
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
12
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
13
Excelで数値→文字列変換で指数表示になったものをいっぺんに直したい
Excel(エクセル)
-
14
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
15
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
16
エクセルVBAが途中で止まります
Visual Basic(VBA)
-
17
VBA .Value=.Value ?
Excel(エクセル)
-
18
VBA public変数はどのようなことをしたら解放されますか?
Visual Basic(VBA)
-
19
VBAでfunctionを利用しようとしたときに「引数は省略できません」というエラーが出ます
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別シートのマクロを実行する方法
-
Application.Runエラー(1004)
-
エクセルのマクロボタンが編集...
-
エクセルVBAで、ボタンの文字を...
-
private sub にしたらマクロが...
-
Access終了時にマクロまたはVBA...
-
マクロが登録できません
-
InputBox内の表示について
-
アクセス:検索フォームボタンに...
-
AccessでExcelファイルを印刷
-
エクセルの右クリックにオートS...
-
シート保護を掛けたまま並べ替...
-
access2010 コマンドまたはアク...
-
マクロ 戻るボタンを押したらシ...
-
Excel起動時に画面表示縮小を自...
-
エクセル VBA SendKeys ループ...
-
ワードでのラベル作成の自動化
-
マクロとモジュールの違いを教...
-
アクセスのマクロについて
-
excelで会議室予約表の作成(マ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別シートのマクロを実行する方法
-
Application.Runエラー(1004)
-
エクセルのマクロボタンが編集...
-
Access終了時にマクロまたはVBA...
-
エクセルVBAで、ボタンの文字を...
-
private sub にしたらマクロが...
-
access2010 コマンドまたはアク...
-
シート保護を掛けたまま並べ替...
-
マクロとモジュールの違いを教...
-
アクセスのマクロについて
-
エクセルのマクロ
-
InputBox内の表示について
-
エクセル VBA SendKeys ループ...
-
マクロ 戻るボタンを押したらシ...
-
特定のシートだけ印刷はマクロ...
-
マクロが登録できません
-
ExcelのVBAでDisplayalertsで警...
-
excelで会議室予約表の作成(マ...
-
Excel起動時に画面表示縮小を自...
-
Excel2002を閉じるときの個人用...
おすすめ情報