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

Question

前提

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

実現したいこと

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

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

該当のソースコード

' 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

Comments

[kikukiku]

きちんと検証していませんが、Findでは難しそう（無理みたい）。
Matchとかにした方が良いかも。
http://excel-ubara.com/excelvba4/EXCEL225.html

[gacchi19]

コメントありがとうございます。

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

Answer 1

mysheet.Cells.Find(searchWord, LookAt:=xlPart)
を
mysheet.Cells.Find(searchWord, LookAt:=xlPart,LookIn:=xlValues, MatchCase:=True, matchbyte:=True)
に変えれば良いかと思います。（こちらのあなたのソースの動作確認は行っていません）

Comments

[gacchi19]

回答ありがとうございます。

ご提示いただいたコードで実装してみましたが、残念ながら結果変わらずでした。
findでは難しいようなので違う関数でやってみます。ありがとうございました。

Answer 2

Findメソッド（Find,FindNext,FindPrevious）｜VBA入門

まずはこれをどうぞ

Comments

[gacchi19]

回答ありがとうございます。

find関数を使用して部分一致検索をする場合、ふりがなも検索されてしまうのですね。
ふりがなを削除・非表示する方法もあるようですが、それによる影響が未知な為、その方法は避けたいと考えています。
そうなりますと、他の方から質問への追記でも頂きましたが、findでは難しく、違う関数を使用することで解決できるかなと考えております。
参考になるサイトをご提示いただきありがとうございました。