エクセルVBAにて、個人情報が含まれていないか検索するマクロを作成しています。
複数の文字列のなかから、
「佐藤さん」
などと記入されているセルを検索したいのですが、部分一致で「さん」で検索すると
当然、「さん」を含むすべてのセルが検出されます。
その際に、「たくさん」「社長さん」など除外ワードを検索時に設定することは可能でしょうか。
除外ワードを設定するのが難しいのであれば、「さん」の検索をしたあとに
除外ワードの検索をするようにしようかと考え中です。
別々で検索する方法しかないかどうか、ご教授いただきたいです。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
こんな質問はVBAの問題というより、日本人なのだろうから、文章や語句の洞察力の問題でしょう。
どういうロジックにすれば満足するものが出来るのか、まず文章にでも表現してご覧。それが出来ないならプログラムは組めない。ただし、文章化ができてもプログラムでは難しいことも多かろう。
例えば「さん」を見つける。その前に個人名があれば削除するとする。しかし個人名は沢山あって、個人の力では列挙できないのは常識だろう。質問者は、人名辞書まで当たるコードをつくる力は無いだろう。
だから不可能と思う。普通の人では、「おもちゃ」しか出来ないでしょう。
「さん」がついてない場合も在ろうし、「さま」もあろうし、社長さんもあろう。
こういうのはある程度プログラムにロジックとして組み込んで、あとは、人間が読んで判断するしかないだろう。
エクセルVBAごときが多少出来ても、こういう文章の内容や、文脈まで立ちいったことは出来ないし、エクセルは(VBAは)その道具として適当でない。
文章をセルに入れるのさえ、表計算ソフトの沿革から、当初予想された機能ではないとおもう。
大学院ででも情報処理の研究分野にするならともかく、難しい課題だ。
正規表現などという、概念・ツールがあるが、まだそういうことに近いことを目指しているように思うが(ぴったりというものではなく)、VBAの主流ではないし直ぐには学習が難しい。。
エクセルVBAでは、文章から名詞を抜き出すのさえ難しかろう。
>別々で検索する方法しかないかどうか、ご教授いただきたいです
プログラムのチェックルーチンを書き重ねることで、見かけ上一度にやれる手はありそう。
エクセルの操作を前提にして、囚われているから、「別々」とか言う発想(疑問に)なるのだ。
この回答への補足
現在、作成途中のものです。
Dim C As Range '検索する列
Dim R As Long '検索ワード最終行
Dim i As Long '検索ワード数
Dim W As String '検索ワード
Dim FoundCell As Range '検索結果格納
Dim FirstCell As Range
Dim Target As Range
Dim TargetB As String
Set C = Application.InputBox(Prompt:="チェックしたい列の任意のセルをクリックしてください", Type:=8)
Range(C.End(xlUp), C.End(xlDown)).Select '検索する列を選択
'検索ワードの最終行特定
R = Sheets(2).Cells(Rows.Count, 2).End(xlUp).Row
'検索ワードの数だけ、検索
For i = 2 To R
W = Sheets(2).Cells(i, 2).Value
Set FoundCell = Selection.Find(What:=W, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False)
If FoundCell Is Nothing Then '検索ワードがない場合は、0と入力
Sheets(2).Cells(i, 3).Value = 0
Else
Set FirstCell = FoundCell
FoundCell.Offset(0, 1).Value = Sheets(2).Cells(i, 2)
End If
Do
Set FoundCell = Cells.FindNext(FoundCell)
If FoundCell.Address = FirstCell.Address Then
Exit Do
Else
FoundCell.Offset(0, 1).Value = Sheets(2).Cells(i, 2)
End If
Loop
Next i
Dim cnt As Long 'フラグの数
Dim F As Long
F = ActiveCell.Offset(0, 1).Column
If Sheets(2).Cells(3, 3) = 0 Then
Else
cnt = WorksheetFunction.CountIf(ActiveSheet.Range(Cells(1, F), Cells(65536, F)), Sheets(2).Cells(3, 1))
Sheets(2).Cells(i, 3).Value = Cut
End If
MsgBox " 完了しました。 ", vbOKOnly + vbInformation, ""
End Sub
ご回答ありがとうございます。
私の語彙力が足りず申し訳ありませんでした。
現在、セルの中に「さん」を見つけたら、隣の列に「さん」を書き出すという
プログラムを作成しています。
「さん」を含むセルを特定できたあとは、人の目で判断することを想定しています。
人の目で判断する際に、あきらかに人名ではないワードを設定して除外し、判断の
手間を減らせないかと考えていたのです。
「さん」を見つけたときに、「たくさん」だったら、隣の列に「さん」を書き出さない処理が
できるかということを質問させていただきました。
>プログラムのチェックルーチンを書き重ねることで、見かけ上一度にやれる手はありそう。
ご助言、ありがとうございました。
見かけ上一度にできるよう検討してみます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PICマイコンのコピー(クローン...
-
Excelで4096点以上のFFTの方法
-
Dドライブ、アンインストール
-
VC++コンソールアプリでウイン...
-
Vba UserFormを前面に出す方法...
-
COBOLの連絡領域について
-
あるプログラムのコマンドライ...
-
C言語でのaccess violationに...
-
C#を使って…
-
VB.netで自作プログラムがウイ...
-
VBAにてメール作成した際、一部...
-
ファミコン時代のプログラムに...
-
BC++6.0で暴走
-
turbo cからVisual C++へ
-
XnViewにwebpを「いつも開く」...
-
麻雀のプログラムについて
-
ゲーミングPCに入っているAlris...
-
UWSCで指定のフォルダを開きたい。
-
Windows 2000にて
-
べき乗
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
あるプログラムのコマンドライ...
-
ゲーミングPCに入っているAlris...
-
Excelで4096点以上のFFTの方法
-
PICマイコンのコピー(クローン...
-
自動クエリとはどういうもので...
-
VBAにてメール作成した際、一部...
-
読み込み中にアクセス違反が発...
-
「Outlookが他のプログラムによ...
-
Excelに埋め込んだVBAのプログ...
-
VBAでユーザーフォームが自動的...
-
XnViewにwebpを「いつも開く」...
-
画像を読み込むのと取り込むの...
-
ドロップダウンリストの文字を...
-
CASLIIのプログラム(並び替え...
-
binファイルってiphone専用です...
-
モジュール、アプリケーション...
-
excelのexe化について
-
未使用の変数を一括検索する方法
-
クリックするとページ内で説明...
-
Vba UserFormを前面に出す方法...
おすすめ情報