Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

75705 / 76738

←次へ　｜　前へ→


	【5465】Re:Sendkeysのパラメータに変数を使いたい

ひで - 03/5/15(木) 10:28 -


	引用なし

	パスワード

▼kawata さん　孫悟空さん　こんにちは

横から失礼します。勉強させて頂いてます　(^^; ひさしぶりに・・

SendKeysは初めてなんで、使い方があってるか
どうかはわかりませんが、Microsoft Excel Objects の
Sheet1 (sheet1) に下記コードをかいて
エクセルの画面で他のシート（Sheet1以外）を選択してから
Sheet1 を選択したところ、孫悟空さんのコードで動いてます。
（win98 ｴｸｾﾙ2000）

>
>実行時エラー1004
>Sendkeysメソッドは失敗しました　Applicationオブジェクト
>
>エラーになりました（＾＾；。

*　ちなみに　1　2　が無いときに実行時エラー1004　がでました。　

Private Sub Worksheet_Activate()

Dim Down回数 As Long　・・1

Down回数 = 10　　　　　・・2

MsgBox Down回数

Application.SendKeys "{DOWN " & Down回数 & "}", True

’SendKeys "{DOWN " & Down回数 & "}", True　・・3

End Sub

？？　3　でも動くのですが Down回数＝8176　以上にすると
　　　実行時エラー5　がでました、Application.　を付けないと
　　　いけないということでしょうか？それともApplicationを
　　　つけないものと別ものでしょうか？

6 hits

▼

【5428】Sendkeysのパラメータに変数を使いたい kawata 03/5/13(火) 12:36