|
▼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を
つけないものと別ものでしょうか?
|
|