人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルVBAの質問です。

「For」「Next」で繰り返し作業を行う際、
繰り返した回数を3桁の数字にしてSendKeyで送るというマクロを作る場合、
「SendKeys "★"」の★には何をいれたら良いのでしょうか?

例えば1回目の作業の場合
SendKeys "001"
22回目の作業の場合
SendKeys "022"
としたいです。

具体的なマクロが必要な場合は
下記のページの回答者1の方のマクロを使用してください。
http://q.hatena.ne.jp/1159013585

以上よろしくお願いします。

●質問者: taroemon
●カテゴリ:コンピュータ
✍キーワード:NeXT VBA エクセル マクロ 回答者
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● Mook
●35ポイント

どこに送られるかが不定ですが、必要な処理は前後にあるとすると、

For i=1 To Worksheets.Count

        :

    SendKeys Right( "000" & i, 3 )

        :

Next

といった感じでしょうか。

http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja...

◎質問者からの返答

ご回答ありがとうございます。

完璧です。


2 ● llusall
●35ポイント

こちらでいかがでしょうか?

Format関数で"000"のフォーマットにして送信文字列を作成します。

    Dim i As Integer

    Dim sNo As String

    '1?999回繰り返す

    For i = 1 To 999

        '000 のフォーマット整形

        sNo = Format(i, "000")

        'キーの送信(Wait:True)

        SendKeys sNo, True

    Next i

◎質問者からの返答

いつもご回答ありがとうございます。

参考になりました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ