Excel VBA質問箱 IV

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

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


13430 / 13646 ツリー ←次へ | 前へ→

【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です。

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

すいませんでした、すいませんでした、すいませんでした(^^;。
バッチリです。

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

ほんとうに、どうもありがとうございました。

13430 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free