Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13428 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5428】Sendkeysのパラメータに変数を使いたい kawata 03/5/13(火) 12:36 質問
【5436】Re:Sendkeysのパラメータに変数を使いたい 孫悟空 03/5/13(火) 21:11 回答
【5463】Re:Sendkeysのパラメータに変数を使いたい kawata 03/5/15(木) 8:25 回答
【5464】Re:Sendkeysのパラメータに変数を使いたい kawata 03/5/15(木) 8:34 回答
【5465】Re:Sendkeysのパラメータに変数を使いたい ひで 03/5/15(木) 10:28 発言
【5466】Re:Sendkeysのパラメータに変数を使いたい kawata 03/5/15(木) 10:34 回答
【5468】Re:Sendkeysのパラメータに変数を使いたい kawata 03/5/15(木) 11:22 回答
【5470】Re:Sendkeysのパラメータに変数を使いたい ひで 03/5/15(木) 12:07 質問
【5472】Re:Sendkeysのパラメータに変数を使いたい kawata 03/5/15(木) 12:29 回答
【5474】Re:かぶってしまった ひで 03/5/15(木) 12:37 発言
【5473】Re:Sendkeysのパラメータに変数を使いたい ひで 03/5/15(木) 12:33 回答
【5476】Re:Sendkeysのパラメータに変数を使いたい kawata 03/5/15(木) 12:50 お礼
【5428】Sendkeysのパラメータに変数を使いたい
質問  kawata  - 03/5/13(火) 12:36 -
引用なし
パスワード
   kawataです、よろしくお願いします。
（Windows2000/Excel2000）

SendKeys "{DOWN 150}", True と記述しているところを、

SendKeys "{DOWN " & Down回数 & "}", True としたいのですが・・・・・。
この記述は有効になってくれません。

コードをどういう風に修正すればいいのでしょうか？。
ぜひ、よろしくお願いします。
【5436】Re:Sendkeysのパラメータに変数を使いたい
回答  孫悟空  - 03/5/13(火) 21:11 -
引用なし
パスワード
   Application.SendKeys "{DOWN " & Down回数 & "}", True
でいけませんか？
【5463】Re:Sendkeysのパラメータに変数を使いたい
回答  kawata  - 03/5/15(木) 8:25 -
引用なし
パスワード
   kawataです、おはようございます。

孫悟空さんどうもありがとうございます。
※昨日は休みでチェックできませんでした、お礼遅くなりまして
　申し訳ございません。

>Application.SendKeys "{DOWN " & Down回数 & "}", True
>でいけませんか？

早速、試してみます、結果ご報告します。
とりあえずお礼まで、ありがとうございました。
【5464】Re:Sendkeysのパラメータに変数を使いたい
回答  kawata  - 03/5/15(木) 8:34 -
引用なし
パスワード
   kawataです、よろしくお願いします。

孫悟空さん

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

実行時エラー1004
Sendkeysメソッドは失敗しました　Applicationオブジェクト

エラーになりました（＾＾；。
記述に工夫しないといけないのでしょうか？。
よろしくお願いします。
【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を
　　　つけないものと別ものでしょうか？
【5466】Re:Sendkeysのパラメータに変数を使いたい
回答  kawata  - 03/5/15(木) 10:34 -
引用なし
パスワード
   kawataです。

ひでさん、こんにちわ、ありがとうございます。

ええ？動きますか？？？。

となると、私のコードでその前後がおかしいのでしょうか？？？。
ちょっと確認してみます。

で、それでもダメな場合は、該当するコードを載せるようにします。
よろしくお願いします。

ありがとうございました。
【5468】Re:Sendkeysのパラメータに変数を使いたい
回答  kawata  - 03/5/15(木) 11:22 -
引用なし
パスワード
   kawataです。

孫悟空さん　ひでさん　どうもありがとうございます。

結果、だめでした・・・・。

　　d回数 = d_cnt()
'　　MsgBox d回数
　　
　　AppActivate "メニュー"
　　Application.SendKeys "{DOWN" & d回数 & "}", True
'　　For i = 1 To d回数
'　　　　SendKeys "{DOWN}", True
'　　Next

コードを書き出しても、大差ないです（＾＾；。
現在はループで回避してます。

なぜなんでしょうね？？？。さっぱりわからないです。
よろしくお願いします。
【5470】Re:Sendkeysのパラメータに変数を使いたい
質問  ひで  - 03/5/15(木) 12:07 -
引用なし
パスワード
   ▼kawata さん　どもっ
質問で〜す


>　　d回数 = d_cnt()
>'　　MsgBox d回数
　　
d_cnt() の数値を決めてるコードを教えてください
【5472】Re:Sendkeysのパラメータに変数を使いたい
回答  kawata  - 03/5/15(木) 12:29 -
引用なし
パスワード
   kawataです。

ひでさん、どうもです。

>d_cnt() の数値を決めてるコードを教えてください

Private Function d_cnt() As String
Dim FoundCell As Range, SearchArea As Range
Dim read_file As String, k_word As String
　　Application.ScreenUpdating = False
　　read_file = "C:\aaa\bbb\ccc.txt"
　　k_word = "キーワード"
　　　　
　　Workbooks.OpenText Filename:=read_file, StartRow:=1, _
　　　　　　　　　　　　　　DataType:=xlFixedWidth,FieldInfo:=Array(0, 2)
　　target_book = ActiveWorkbook.Name
　　target_sheet = ActiveSheet.Name
　　With Workbooks(target_book)
　　　　With .Sheets(target_sheet)
　　　　　　Set SearchArea = .Range("a:a")
　　　　　　Set FoundCell = SearchArea.Find(what:=k_word, lookat:=xlPart)
　　　　　　If Not FoundCell Is Nothing Then
　　　　　　　　d_cnt = FoundCell.Row - 5
　　　　　　End If
　　　　　　Set FoundCell = Nothing
　　　　End With
　　　　.Close False
　　End With
　　Application.ScreenUpdating = True
End Function

というコードで処理してます。
一応、Msgboxでは、望む数値が出ているのですが・・・・・・・・・。

よろしくお願いします。
【5473】Re:Sendkeysのパラメータに変数を使いたい
回答  ひで  - 03/5/15(木) 12:33 -
引用なし
パスワード
   ▼kawata さん わかったかも！

kawata さん のコードそのままコピペ
したところ・・私もエラーでした。
そこでコードを良く見たら

Application.SendKeys "{DOWN" & d回数 & "}", True
　　　　　　　　　　　　　　↑　スペースがないです
Application.SendKeys "{DOWN " & d回数 & "}", True

どうでしょうか・・
【5474】Re:かぶってしまった
発言  ひで  - 03/5/15(木) 12:37 -
引用なし
パスワード
   ▼kawata さん　かぶった上に

コードまでのせて頂き、すいません。

もっチョット早く下の回答乗せればよかったですね。
ごめんなさーい。
【5476】Re:Sendkeysのパラメータに変数を使いたい
お礼  kawata  - 03/5/15(木) 12:50 -
引用なし
パスワード
   kawataです。

孫悟空さん　ひでさん　どうもありがとうございます。

すいませんでした、すいませんでした、すいませんでした（＾＾；。
バッチリです。

しかし、情けないのは私ですね、反省します。
これでモヤモヤが取れて、次へ進むことができます（＾＾；。

ほんとうに、どうもありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13428 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free