[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『すべてのセルに対する文字列検索』(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.