[[20160824210702]] 『すべてのセルに対する文字列検索』(TK) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『すべてのセルに対する文字列検索』(TK)

「ある特定の文字列がシートに1か所以上存在したら1カウントする」
という条件をすべてのシートに対して行い、特定文字列が存在するシートの数を検出するマクロを作成したいと考えています。

例えば、シートが30あるブックが存在し、1つのシートに"0.01"を含む文字列が1つ以上あった場合は1、2つのシートに"0.01"を含む文字列がそれぞれ1つ以上あった場合は2、30全てのシートに"0.01"を含む文字列が存在した場合は30、というような機能です。
"0.01"という文字列はE7セルに書かれているとします。
"0.01"が全シートになければ0となります。

< 使用 Excel:Excel2010、使用 OS:Windows7 >


 >>1つのシートに"0.01"を含む文字列が1つ以上あった場合

 この記述と

 >>"0.01"という文字列はE7セルに書かれている

 この記述には整合性がありませんが、どのセルに書かれているかは決まっていないとして。

 Sub Sample()
    Dim sh As Worksheet
    Dim f As Range
    Dim x As Long

    For Each sh In Worksheets
        Set f = sh.Cells.Find(What:="0.01", LookAt:=xlPart)
        If Not f Is Nothing Then x = x + 1
    Next

    MsgBox x

 End Sub

(β) 2016/08/24(水) 21:46


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.