![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
セルの先頭から255文字までしか対応しませんが...こんな方法もあります。
「書式」「条件付き書式」で
「数式が」「=COUNTIF(セル,"*言語1*")*COUNTIF(セル,"*言語2*")」
として書式を押して塗りつぶしパターンを選択する。
言語を別セルで用意して
=COUNTIF(セル,"*"&$A$1&"*")*COUNTIF(セル,"*"&$B$1&"*")」
のように参照しても可能です。
※セルは塗りつぶすセルのセル座標を相対参照で入れてください。
教えて下さって本当にありがとうございます。
早速やってみました。
初めて使う機能でしたがいろいろ試しながら、該当するセルの色を変える方法で試してみました。
該当箇所が一目瞭然でとてもわかりやすいです。
No.2
- 回答日時:
こんばんは。
以下をアドインにすることは可能だと思いますが、アドインの場合は、ユーザーフォームを加工したりするほうがよいでしょうね。
ただし、こんな検索は出来ません。第一検索語が「あい」で、第二検索語が「あ」の場合は、重複してしまいますので、出来ません。また、常識的にほとんどすべてのセルに存在するものを、第一検索語には入れないほうがよいです。完全にデバッグが終わったわけではありませんが、一応、こちらではうまく出来ています。
'標準モジュールに入れてください。
'-------------------------------------------------------
Sub FindDoubleWords()
'第一語、第二語検索
Dim c As Range
Dim fstFind As String
Dim sndFind As String
Dim myFadd As String
Dim myAdd As String
Dim u As Range
Dim n As Variant
fstFind = Application.InputBox("第一検索語を入れてください。", Type:=2)
If fstFind = "False" Or fstFind = "" Then Exit Sub
sndFind = Application.InputBox("第一検索語を入れてください。", Type:=2)
If sndFind = "False" Or sndFind = "" Then Exit Sub
If InStr(fstFind, sndFind) > 0 Then
MsgBox "第一検索語: " & fstFind & " が、第二検索語: " & sndFind & vbCrLf & _
" に等しいか、充当される場合、その語の検索は出来ません。", vbInformation, "検索エラー"
Exit Sub
End If
Set c = ActiveSheet.UsedRange.Find( _
What:=fstFind, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext)
If Not c Is Nothing Then
myFadd = c.Address
myAdd = c.Address
Do
Set c = ActiveSheet.UsedRange.FindNext(c)
If c.Address = myFadd Then Exit Do
myAdd = myAdd & "," & c.Address
Loop Until c Is Nothing
End If
On Error Resume Next
For Each n In Split(myAdd, ",")
If u Is Nothing Then
Set u = Range(n)
Else
Set u = Union(u, Range(n))
End If
Next n
If Err.Number > 0 Then MsgBox "エラーが発生していますので検索できません。", vbCritical: Exit Sub
On Error GoTo 0
'第二検索
Set c = u.Find( _
What:=sndFind, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext)
If Not c Is Nothing Then
myFadd = c.Address
c.Activate
If MsgBox("次を検索しますか?", vbOKCancel) = vbCancel Then Exit Sub
Do
Set c = u.FindNext(c)
If c.Address = myFadd Then Exit Sub
c.Activate
If MsgBox("次を検索しますか?", vbOKCancel) = vbCancel Then Exit Sub
Loop Until c Is Nothing
End If
End Sub
教えて下さって本当にありがとうございます。
質問の投稿後、数時間でこんな回答をいただけるなんてビックリです。
VBAというものだと思いますが、どうしていいのか分からない状況で、
すぐにはどうしていいのか分かりませんが、何とか調べて試してみます。
先ずは、お礼まで。
No.1
- 回答日時:
こんばんは~♪
>かなりの文書を入れる場合もあるのですが
1つのセルに、入っているのでしょうか?
その場合の具体例を提示されて
>複数の単語を同時に満たすセルを検索したいのですが
検索して結果をどう表示すれば良いかも
表を提示された方が良いと思います。
回答で無くすみません。。。Rin~♪♪
投稿ありがとうございます。アドバイスありがとうございます。
質問が正確でなくてすいません。
1.文書量についてですが、1案件には、いくつかの項目があり、
「記入者」,「記入日時」等々あって、日報の本文は列幅50のセル
にどんどん文書を入力し、高さが409を超えるようなら、下のセル
に続きを記入しています。
2.検索結果の表示の件ですが、過去に同じような案件があったかどう
かを調べたいケースですので、該当箇所をどんどん探して行ければ
十分です。
「編集→検索」で、空白で区切って複数語の指定が出来て、その語
を全て含むセルを検索出来ればいいのですが・・・。
宜しくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Access(アクセス) Excel や Access のフォームの中でいわゆるインターネットの検索窓のようなものを構築できま 9 2022/05/21 12:39
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) エクセル 条件に合う日付に入力された時間数の合計したい 4 2022/06/17 22:18
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Excel(エクセル) ExcelのVLOOKUP関数 7 2022/08/23 06:46
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Excel(エクセル) マクロVBAのフォルダ階層別で検索の方法 4 2022/04/03 23:23
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Visual Basic(VBA) VBAでPDFのアクティブページ番号取得 1 2023/05/25 12:41
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
DATE関数で現在の年齢を出した...
-
エクセルでCtrl+Tでテーブルの...
-
REGEXREPLACE関数について、
-
エクセルのクイックアクセスツ...
-
在庫管理表に使うエクセルの関...
-
職場の人から聞かれており、こ...
-
下記マクロでMsgBox "空白です...
-
Excel関数-文字列で自動作成さ...
-
エクセルでバーコード作成し使...
-
【マクロ】for next構文について
-
ユーザー定義関数をアドイン登...
-
エクセルの関数について教えて...
-
エクセルで表
-
PDFの請求明細をエクセルにしたい
-
Excelデータをコピペして、ペー...
-
スプレッドシート、Excelでの数...
-
エクセルで特定の範囲内から小...
-
Excelで50個のセルに同じ文字を...
-
エクセルで会社の従業員のデー...
-
【マクロ】関数をセルに入力す...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報