Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12304 / 76734 ←次へ　｜　前へ→
【69956】Re:2つの言葉で検索したい
回答  UO3  - 11/9/28(水) 11:55 -
引用なし
パスワード
   ▼ごん さん：

この先、この　検索プロシジャをベースにダイアログと連動させようとした場合、
引数の構えを以下のようにしておいたほうが、使いやすそうです。

Sub Test4()
　　Call 検索("山本", "鈴木")
End Sub

Sub Test5()
　　Call 検索("山本", "")
End Sub

Sub Test6()
　　Call 検索("", "山本")
End Sub

Private Sub 検索(ByVal str1 As String, ByVal str2 As String)
　　Dim c As Range
　　Dim found As Boolean
　　
　　str1 = "*" & str1 & "*"
　　If Len(str2) > 0 Then str2 = "*" & str2 & "*"
　　
　　For Each c In ActiveSheet.UsedRange
　　　　If Len(c.Value) > 0 Then
　　　　　　If c.Value Like str1 Or c.Value Like str2 Then
　　　　　　　　c.Activate
　　　　　　　　If MsgBox("検索を続けますか?", vbYesNo) = vbNo Then Exit For
　　　　　　End If
　　　　End If
　　Next
　　
　　If Not found Then MsgBox "検索対象のものはありません"
　　
End Sub
9 hits
▼ 【69938】2つの言葉で検索したい ごん 11/9/26(月) 9:35 質問
【69939】Re:2つの言葉で検索したい UO3 11/9/26(月) 10:07 回答
【69948】Re:2つの言葉で検索したい ごん 11/9/27(火) 19:34 お礼
【69953】Re:2つの言葉で検索したい ごん 11/9/28(水) 9:41 質問
【69943】Re:2つの言葉で検索したい kanabun 11/9/26(月) 18:44 発言
【69951】Re:2つの言葉で検索したい ごん 11/9/27(火) 20:39 発言
【69952】Re:2つの言葉で検索したい UO3 11/9/28(水) 9:18 発言
【69954】Re:2つの言葉で検索したい ごん 11/9/28(水) 9:48 発言
【69955】Re:2つの言葉で検索したい UO3 11/9/28(水) 11:48 回答
【69956】Re:2つの言葉で検索したい UO3 11/9/28(水) 11:55 回答≪
【69957】Re:2つの言葉で検索したい ichinose 11/9/28(水) 13:42 発言
【69958】Re:2つの言葉で検索したい UO3 11/9/28(水) 14:51 発言
【69959】Re:2つの言葉で検索したい UO3 11/9/28(水) 14:52 発言
【69989】Re:2つの言葉で検索したい ごん 11/10/5(水) 14:56 質問
【69990】Re:2つの言葉で検索したい UO3 11/10/5(水) 16:36 回答
【70027】Re:2つの言葉で検索したい ごん 11/10/11(火) 17:09 お礼
【69997】Re:2つの言葉で検索したい kanabun 11/10/6(木) 12:05 発言
【69998】Re:2つの言葉で検索したい kanabun 11/10/6(木) 13:09 発言
【70026】Re:2つの言葉で検索したい ごん 11/10/11(火) 17:06 発言
【69999】Re:2つの言葉で検索したい UO3 11/10/6(木) 13:53 発言
【70000】Re:2つの言葉で検索したい kanabun 11/10/6(木) 14:55 発言
【70001】Re:2つの言葉で検索したい UO3 11/10/6(木) 17:05 発言
【70002】Re:2つの言葉で検索したい ｍｏｍｏ 11/10/7(金) 15:22 発言
【70003】Re:2つの言葉で検索したい UO3 11/10/7(金) 18:37 発言
【70004】Re:2つの言葉で検索したい ichinose 11/10/7(金) 19:14 発言
【70005】Re:2つの言葉で検索したい ｍｏｍｏ 11/10/7(金) 19:23 発言
【70009】Re:2つの言葉で検索したい kanabun 11/10/8(土) 0:13 発言
【70030】Re:2つの言葉で検索したい ごん 11/10/11(火) 18:00 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12304 / 76734 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free