Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4438 / 76735

←次へ　｜　前へ→


	【77920】Re:検索

佐藤 - 16/2/7(日) 10:08 -


	引用なし

	パスワード

ご教授ありがとうございます。
　条件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

以上　よろしくお願いします。

0 hits

▼

【77917】検索 佐藤 16/2/6(土) 14:22