質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
87.20%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

解決済

【ExcelVBA】find関数で平仮名カタカナを判別する方法

gacchi19
gacchi19

総合スコア1

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

2回答

0評価

0クリップ

293閲覧

投稿2022/04/13 05:26

前提

ExcelVBAで文書内で検索ワードを自動検索するマクロを作っています。
VBAの検索様式、find関数に関して、分からないことがあるため教えていただきたいです。

実現したいこと

・平仮名カタカナを識別した検索結果を得る。

現状、「ネジ」で検索すると「ねじ」も識別されており、
正確な「ネジ」の出現件数が分からない。(逆も同様)
「ネジ」の検索結果に「ねじ」が含まれないようにしたい。

該当のソースコード

VBA

' Excel ファイル内の文字検索 Private Sub grepExcel(ByVal searchWord, ByRef myBook As Workbook, ByVal Path As String, ByVal buf As String) Dim filePath Dim wb As Workbook Dim readSheet As Worksheet Dim Rng As Range Dim findResult fullPath = Path & "\" & buf Application.DisplayAlerts = False Application.ScreenUpdating = False Set wb = Workbooks.Open(Filename:=fullPath, UpdateLinks:=0, ReadOnly:=True, IgnoreReadOnlyRecommended:=True, Password:="") If Err.Number = 1004 Then Err.Clear Else For Each mysheet In wb.Worksheets Set findResult = mysheet.Cells.Find(searchWord, LookAt:=xlPart) Dim findCell As Range Set findCell = findResult If Not (findCell Is Nothing) And Not (findResult Is Nothing) Then Do If Not (findCell Is Nothing) And Not (findResult Is Nothing) Then Call writeSheet(myBook, Path, buf, mysheet, findCell) Set findCell = mysheet.Cells.FindNext(findCell) If findCell Is Nothing Then Exit For End If Else Exit For End If Loop While findCell.Row <> findResult.Row End If Next End If wb.Close savechanges:=False Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

gacchi19

2022/04/13 08:31

コメントありがとうございます。 findでは、ふりがなも検索されてしまうため、やはり難しいようですね。 関数を変えて作成してみます。 ありがとうございました。

まだ回答がついていません

会員登録して回答してみよう

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
87.20%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。