Excel VBA質問箱 IV

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

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


75698 / 76738 ←次へ | 前へ→

【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では、望む数値が出ているのですが・・・・・・・・・。

よろしくお願いします。
5 hits

【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 お礼

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