エクセルの学校：全文検索：Hyper Estraier： IF

Results of 1 - 1 of about 37699 for IF (0.008 sec.)

[[20181205154637]]: #score: 1591; @digest: ffc920e3b5d839ea9c07a2021f1af35e; @id: 78018; @mdate: 2018-12-06T06:13:00Z; @size: 6115; @type: text/plain; #keywords: 索ワ (25392), 切可 (14877), 問in (14647), 問. (13442), 索画 (10578), ド, (9849), 地図 (8712), 問) (7335), ド= (6434), ス区 (5509), 索機 (3085), instr (3008), アメ (2940), hidden (2850), 検索 (2454), union (2432), ip (2339), ワー (2243), リカ (2107), specialcells (2074), split (2026), entirerow (1947), str (1903), 日本 (1863), 解読 (1557), メリ (1537), ドボ (1249), nothing (967), コマ (916), 画面 (907), トボ (903), 質問 (881); 『エクセルの検索機能』（しのみや）
教えてください A 1 日本の地図 2 アメリカと世界 3 インドとアメリカ地図エクセルの検索機能で、「日本地図」とスペースで区切って検索すると「日本」が入っているものと「地図」が入っているものと「日本」と「地図」どちらも入っているものを拾ってくるようにしたい（上記のデータですと、A1とA3）調べていると * を使う方法があがってきましたが、これだと検索のときに「地図日本」と指定すると拾わなくなりますほかに方法はあるのでしょうか? ＜使用 Excel:Excel2010、使用 OS:Windows10 ＞ ---- Sub main() Dim c As Range, r As Range, ip As String, i As Long ip = InputBox("検索ワードを入力（スペース区切可）") If ip = "" Then Exit Sub ip = Replace(ip, " ", " ") If WorksheetFunction.CountA(Cells) = 0 Then Exit Sub If InStr(ip, " ") > 0 Then For Each c In Cells.SpecialCells(2) For i = 0 To UBound(Split(ip, " ")) If InStr(c.Value, Split(ip, " ")(i)) > 0 Then If r Is Nothing Then Set r = c Else Set r = Union(r, c) End If End If Next i Next c Else For Each c In Cells.SpecialCells(2) If InStr(c.Value, Split(ip, " ")(i)) > 0 Then If r Is Nothing Then Set r = c Else Set r = Union(r, c) End If End If Next c End If r.Select MsgBox "該当セルを選択しました。" End Sub （mm） 2018/12/05(水) 16:21 ---- mmさんありがとうございますさっそく確認させていただいたところ、指定したセルがきちんと選択されるようになりましたただ…結果を書いておかなくて申し訳ないのですがその行のみを表示させるようにしたいのですせっかく頂いたのにすみません頂いたマクロで作ってみようとしましたが、まったく違う作り方にしないといけないのかなと思って止まっておりますイメージとしては、インターネットの検索画面で検索をしてあがってくるような画面が出来ればと思っています（しのみや） 2018/12/05(水) 16:51 ---- Sub main() Dim c As Range, r As Range, ip As String, i As Long ip = InputBox("検索ワードを入力（スペース区切可）") If ip = "" Then Exit Sub ip = Replace(ip, " ", " ") If WorksheetFunction.CountA(Cells) = 0 Then Exit Sub If InStr(ip, " ") > 0 Then For Each c In Cells.SpecialCells(2) For i = 0 To UBound(Split(ip, " ")) If InStr(c.Value, Split(ip, " ")(i)) > 0 Then If r Is Nothing Then Set r = c Else Set r = Union(r, c) End If End If Next i Next c Else For Each c In Cells.SpecialCells(2) If InStr(c.Value, Split(ip, " ")(i)) > 0 Then If r Is Nothing Then Set r = c Else Set r = Union(r, c) End If End If Next c End If Rows("1:" & Rows.Count).EntireRow.Hidden = True r.EntireRow.Hidden = False End Sub （mm） 2018/12/05(水) 17:03 ---- mmさんありがとうございます頂いた記述をもとに解読 & 対応をさせてもらっております考えていることは、Sheet2（シート名検索画面）にテキストボックスとコマンドボタンを置き [ ] 検索検索ワードを入力して、検索ボタンを押すと Sheet1（シート名 Q&A）にある質問内容の行を表示させるようにしようと考えていますただいま解読に精一杯なのでシートを分ける対応は少し置いときます… 今は、検索画面のシートにテキストボックスとコマンドボタンを置き A B C D 1 質問回答 2 サービスとは何ですか? AAAAAAAAAAAA 3 利用するには? BBBBBBBBBBBB 4 [ ] 検索 ←この辺りに置いています試しております最後の方の Rows("1:" & Rows.Count).EntireRow.Hidden = True で、「RangeクラスのHiddenプロパティを設定できません」のエラーで止まります Rows.Countは1048576です行の非表示のところとはわかるのですが、どういう対応をすればよいでしょうか? **** 頂いた記述はわかりやすいように、文字にしていますが… わかりにくかったらすみません Private Sub Cmd検索_Click() Dim 質問 As Range, r As Range, i As Long Dim Str検索ワード As String Str検索ワード = Sheet2.Txt検索ワード.Text If Str検索ワード = "" Then Exit Sub Str検索ワード = Replace(Str検索ワード, " ", " ") ' If WorksheetFunction.CountA(Cells) = 0 Then Exit Sub '検索ワードが複数の場合 If InStr(Str検索ワード, " ") > 0 Then For Each 質問 In Cells.SpecialCells(2) For i = 0 To UBound(Split(Str検索ワード, " ")) If InStr(質問.Value, Split(Str検索ワード, " ")(i)) > 0 Then If r Is Nothing Then Set r = 質問 Else Set r = Union(r, 質問) End If End If Next i Next 質問 '検索ワードがひとつの場合 Else For Each 質問 In Cells.SpecialCells(2) If InStr(質問.Value, Split(Str検索ワード, " ")(i)) > 0 Then If r Is Nothing Then Set r = 質問 Else Set r = Union(r, 質問) End If End If Next 質問 End If Rows("1:" & Rows.Count).EntireRow.Hidden = True ←ここでエラーになります r.EntireRow.Hidden = False End Sub *** （しのみや） 2018/12/06(木) 15:00 ---- すみません検索画面のシートにテキストボックスとコマンドボタンを置いているからですね失礼しました（しのみや） 2018/12/06(木) 15:13 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201812/20181205154637.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ