Excel VBA質問箱 IV

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

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


54511 / 76732 ←次へ | 前へ→

【27011】Re:文字列検索・判断
回答  ちくたく  - 05/7/26(火) 15:53 -

引用なし
パスワード
   こんにちは。

あまり上手ではないのと、
質問の意味を完全に理解できなかったのですが、
役にたてばと。

現在開いている全てのブックの全てのシートを調べ、
その中に「test」という文字列があったら、その場所を示します。
示すのは現在アクティブなブックのシートに書き出します。

Sub 複数のブック検索()

  Dim myWBook As Workbook
  Dim myWSheet As Worksheet
  Dim findStrings As String
  Dim myRange As Range
  Dim checkWSheet As Worksheet
  Dim checkCellNum As Integer
  
  '結果を書き出すシートはそのときにアクティブなやつ。
  Set checkWSheet = ActiveWorkbook.ActiveSheet
  checkCellNum = 1
  
  '検索したい文字列
  findStrings = "test"
  
  For Each myWBook In Workbooks
    For Each myWSheet In myWBook.Worksheets
      
      myWSheet.Activate
      myWSheet.Range("A1:IV65536").Select
      Set myRange = Selection.Find _
      (What:=findStrings, LookAt:=xlWhole)
      
      If myRange Is Nothing Then
        
      Else
        checkWSheet.Range("A" & checkCellNum).Value = _
        myWBook.Name & myWSheet.Name & CStr(myRange.Address)
        checkCellNum = checkCellNum + 1
      End If
      
    Next myWSheet
  Next myWBook
  
  checkWSheet.Activate
  
End Sub

▼mam さん:
>はじめまして。VBAの勉強中ですが、わからないことだらけ行き詰っております。つたない説明になりますが、何卒ご教授願います。
>
>複数のWorkbookを順次読込み、その中のあるシートのあるセルにある文字列がなんであるかを判断させたいのですが、上手くいきません。
>詳細:シート上の文字列が入力されているセル位置は不定。
>   シート上の文字列を検出してその文字は「AAA」か「BBBB」か「CC」判断する。
>   1シート上に文字列は1個以上あるが検出すべき文字列は1一つ。
>
0 hits

【27008】文字列検索・判断 mam 05/7/26(火) 14:13 質問
【27011】Re:文字列検索・判断 ちくたく 05/7/26(火) 15:53 回答
【27015】Re:ちくたく さんへ mam 05/7/26(火) 16:42 お礼
【27016】Re:ちくたく さんへ ちくたく 05/7/26(火) 16:50 発言
【27012】Re:文字列検索・判断 IROC 05/7/26(火) 16:03 回答
【27018】IROC さんへ mam 05/7/26(火) 16:54 お礼
【27020】Re:IROC さんへ IROC 05/7/26(火) 17:02 回答
【27024】解決 mam 05/7/26(火) 17:48 お礼
【27025】Re:解決 IROC 05/7/26(火) 18:38 回答
【27049】Re:解決 mam 05/7/27(水) 9:25 お礼

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