![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
下記のコードを記述しました。
最終行まで[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
となります。
一度、試してみてください。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_14.png?e8efa67)
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
【sendkeysメソッドが動かずに苦慮しております】
Visual Basic(VBA)
-
6
ExcelマクロのSendkeysで処理途中に次のキーが送られる
Excel(エクセル)
-
7
エクセル VBA 正しいマクロを教えてください
Excel(エクセル)
-
8
エクセルVBAで SendKeys {TAB}""
Excel(エクセル)
-
9
VBAで既に開いている別アプリケーションのオブジェクトを得る
Visual Basic(VBA)
-
10
別のシートから値を取得するとき
Visual Basic(VBA)
-
11
vbaから他のアプリを終了
Visual Basic(VBA)
-
12
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
13
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
14
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
15
excelで セルの移動時にマクロ実行を設定したい。
Excel(エクセル)
-
16
メッセージボックスのボタン名変更
Visual Basic(VBA)
-
17
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
18
EXCELのVBAでRange(A1:C4")を変数にする方法を教え"
Visual Basic(VBA)
-
19
ExcelVBAでセルを編集状態にする方法
Excel(エクセル)
-
20
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Application.Runエラー(1004)
-
別シートのマクロを実行する方法
-
シート保護を掛けたまま並べ替...
-
Access終了時にマクロまたはVBA...
-
ExcelのVBAでDisplayalertsで警...
-
Accessからエクセルマクロを起...
-
マクロとモジュールの違いを教...
-
エクセルのマクロボタンが編集...
-
特定マクロが実行されたか確認...
-
ACCESS エラーメッセージ表示...
-
excelで会議室予約表の作成(マ...
-
エクセル VBA SendKeys ループ...
-
エクセルのマクロ名一覧
-
マクロ 戻るボタンを押したらシ...
-
特定のシートだけ印刷はマクロ...
-
エクセルVBAで、ボタンの文字を...
-
InputBox内の表示について
-
RunMacroメソッドではsubプロシ...
-
アクセスのマクロについて
-
Excel VBA サブルーチン関連
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別シートのマクロを実行する方法
-
Application.Runエラー(1004)
-
エクセルのマクロボタンが編集...
-
Access終了時にマクロまたはVBA...
-
エクセルVBAで、ボタンの文字を...
-
InputBox内の表示について
-
access2010 コマンドまたはアク...
-
シート保護を掛けたまま並べ替...
-
今日の日付の範囲を指定して印...
-
マクロ 戻るボタンを押したらシ...
-
エクセル VBA SendKeys ループ...
-
AccessでExcelファイルを印刷
-
ExcelのVBAでDisplayalertsで警...
-
マクロとモジュールの違いを教...
-
ExcelVBAで右クリックメニュー...
-
プロシージャが大きすぎます!
-
エクセルのマクロ
-
アクセス:検索フォームボタンに...
-
特定のシートだけ印刷はマクロ...
-
アクセスのマクロについて
おすすめ情報