vbaでのループのやり方について

Question

VBAでのマクロ作成について
現在、マクロを活用し、別アプリケーションに文字を入力するシステムを作りたいと思っています。
下記コードの内"リンゴ"の所をにエクセルシートA行にある文字｛Ａ１：リンゴ、Ａ２：ミカン、Ａ３：ブドウ、Ａ４：ナシ・・・・｝を当てはめていく
処理を行いたいのですが作成方法がわからず困っています。やりたいと思っていることが分かりにくいと思いますので、下記にやりたいことの手順をまとめましたので、参考にしていただければ幸いです。
➀座標185, 196に移動
②座標をクリック
③文字"リンゴ"を入力
④座標 472, 92に移動
⑤座標をクリック
⑥座標185, 196に移動
⑦座標をクリック
⑧文字"ミカン"を入力
④座標 472, 92に移動
⑤座標をクリック
：
：
：

操作内容
SetCursorPos 185, 196
sleep t
mouse_event 2
mouse_event 4
mouse_event 2
mouse_event 4
DoEvents
sleep t
SendKeys "リンゴ"
SetCursorPos 472, 92
sleep t
mouse_event 2
mouse_event 4
mouse_event 2
mouse_event 4

Answer 1

下記コードの内"リンゴ"の所をにエクセルシートA行にある文字｛Ａ１：リンゴ、Ａ２：ミカン、Ａ３：ブドウ、Ａ４：ナシ・・・・｝を当てはめていく

Do Loop を使うコード例

    Dim c As Range
    Set c = Range("A1") '開始セル
    Do until c.Value ="" '空欄になるまで繰り返し
       '略

       SendKeys c.Value
       Set c = c.Offset(1) '次行に移動

       '略
    Loop

For Each ... Next を使うコード例

    Dim c As Range    
    For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
       '略

       SendKeys c.Value

       '略
    Next

Comments

[makamaka]

早々のご回答ありがとうございます。
当方、VBAを学習している段階でして、初歩的な質問になってしまうのですが、'略の部分には私のコードのどこまでを記載したらよいのでしょうか。
また、Do Loopにおいて、sendkeys c.Value　を行うのはなぜなのかご教授いただければ幸いです。

[hatena19]

> '略の部分には私のコードのどこまでを記載したらよいのでしょうか。

➀座標185, 196に移動
②座標をクリック
③文字"リンゴ"を入力
④座標 472, 92に移動
⑤座標をクリック
に相当する部分です。

> また、Do Loopにおいて、sendkeys c.Value　を行うのはなぜなのか

sendkeys "リンゴ"
というコードが質問のコードにあり、
この"リンゴ" の部分を、セルの値をループで順に参照していくということなので、"リンゴ" の部分を c.Value に置き換えました。
c.Value　というのがセルの値です。

自分で書いたコードなら分かるはずだと思いますが。

[makamaka]

ご返信ありがとうございます。
ご指摘いただいたことをもとにコードを下記のように書き直しましたが、
結果は希望していた挙動とは違いました。具体的には、A1のリンゴを入力された後に
マウスカーソルが移動し、最後の列（A4）のブドウが表示されてしまい、間のミカン、ブドウが表示されないという感じです
コードに誤りがあるかと思うのですが、ご教授いただきたく思います。

Sub loop1()
t = 1000
Dim c As Range
Set c = Range("A1") '開始セル
Do Until c.Value = "" '空欄になるまで繰り返し

SetCursorPos 300, 300
sleep t
mouse_event 2
mouse_event 4
mouse_event 2
mouse_event 4
DoEvents
sleep t
SendKeys c.Value
Set c = c.Offset(1) '次行に移動
SetCursorPos 472, 92
sleep t
mouse_event 2
mouse_event 4
mouse_event 2
mouse_event 4

Loop

End Sub

[hatena19]

動作確認用に下記のコードを埋め込んで実行してみてください。

DoEvents
sleep t
Msgbox c.Value
SendKeys c.Value
Set c = c.Offset(1) '次行に移動

A1, A2, A3・・・と順にセルの値がメッセージボックスに表示されるはずです。

[makamaka]

連日のご返信ありがとうございます。
また、返信が遅くなり申し訳ありません

ご指摘いただいたコードを以下のように実行しました。
➀
Sub loop1()
Dim c As Range
Set c = Range("A1") '開始セル
Do Until c.Value = "" '空欄になるまで繰り返し

DoEvents
sleep t
MsgBox c.Value
SendKeys c.Value
Set c = c.Offset(1) '次行に移動

Loop

End Sub

当然メッセージボックスが表示され、対象箇所すべて表示されました。

②
Sub loop1()
Dim c As Range
Set c = Range("A1") '開始セル
Do Until c.Value = "" '空欄になるまで繰り返し

　 SetCursorPos 300, 300
sleep t50
mouse_event 2
mouse_event 4
mouse_event 2
mouse_event 4
DoEvents
sleep t
SendKeys c.Value
SetCursorPos 472, 92
sleep t
mouse_event 2
mouse_event 4
mouse_event 2
mouse_event 4
DoEvents
sleep t
MsgBox c.Value
SendKeys c.Value
Set c = c.Offset(1) '次行に移動

Loop

End Sub

まずリンゴが入力され、続いてメッセージボックスにてリンゴが表示されました。
次に、メッセージボックスにてミカン、ブドウが表示されました。（この時点で対象箇所への入力はされていません）
最後にナシが入力され、メッセージボックスにてナシが表示されました。

[makamaka]

対象箇所に入力されていないわけではなく、もしかしたら入力が速すぎるため表示されていない可能性があります。

[mattuwan]

セルに値を入れるのですよね？
画面上の座標で指定するのではなく、
セルのアドレスで書き込むセルを指定してみてはいかがでしょうか？

[makamaka]

申し訳ありません。
今回はわかりやすくセルに入力しているのですが、本来やりたいこととしては、別アプリケーションの特定の場所に入力したいと思っているため、可能なら座標で指定したいと思っています。

[hatena19]

VBAのループは正常に動作している。
別アプリケーションの操作がうまくいっていない、ということですね。

> もしかしたら入力が速すぎるため表示されていない可能性があります。

だとしたら、Sleep で待機する時間を長くする、DoEvents を挿入する箇所を増やす、
などを試してみては。

それ以上の回答は別アプリケーションが何が分からないので難しいです。
別アプリケーションを操作するのに、SendKeys は不安定なので、別の方法を考えたほうがいいように思います。RPAツールとか。