| |
ご教授ありがとうございます。
条件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
以上 よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
