|
ご教授ありがとうございます。
条件1と条件2はクリアーできたのですが、
条件3がどうしてもクリアーできません。
以下に作ったコードのどこに付け加えたらよろしいのでしょうか?
具体的にコードを入力していただけないでしょうか?
Private Sub CommandButton1_Click()
Dim sh As Object
Dim myCnt As Integer
Dim AllSu As Integer
Dim target As Variant
'<検索結果保管先を初期化します。>
AllSu = 0
'<検索する文字列を指定する入力用のダイアログボックスを表示
します。>
target = Application.InputBox(Prompt:="検索する文字を入力
して下 さい。")
'<キャンセルか未入力ではなかったら検索します。>
If target <> False And target <> "" Then '
'<対象のシートを対象に検索を行います。>
For Each sh In ActiveWindow.SelectedSheets
'<使われているセル範囲に含まれるセルのうち、
'検索条件に一致するセルの個数を取得します。>
myCnt = WorksheetFunction.CountIf(sh.UsedRange, target) '
'<検索条件に一致したセルの個数をカウントします。>
AllSu = AllSu + myCnt
Next sh
'<全てのシートの検索が終わったら、結果を表示します。>
If AllSu = 0 Then
MsgBox target & "は見つかりませんでした。"
Else
MsgBox target & "は" & AllSu & "個あります。"
End If
End If
End Sub
以上 よろしくお願いします。
|
|