| |
見よう見まねで、作成しました。質問もへたですが
ファイル取得というフォルダを作成しました。その中からファイルを取得するコードを作成したして取得する事は出来ました。標準モジュールとしては
sub ファイル一覧取得（）
Sheet1.Range("B:B").Clear
Sheetl.Range("B1")
=
Dim myFile As String, myFolder As String, filepath As String
filepath = ThisWorkbook.Path
myFile = Dir(filepath &
If myFile:
MsgBox
Exit Sub
End If
"' Then
Dim i As Long
¡= 0
With Sheetl
Do
Hyperlinks.Add Anchor:=Cells(3 + i, 2), Address: -ThisWorkbook.Path & ")" & myFile, _
SubAddress:
TextToDisplay:=myFile
¡=i+1
myFile = Dir0
Loop Until myFile = ''"
End With
MsgBox "完了しました。 ''
End Sub
そのあと1エクセルの1業目行頭AからNo.Bに取得名
CにキーワードDにフリガナと作製しました。
フリガナは
標準モジュールに
Function GetPhonetic(cell As Range)
GetPhonetic = Application.GetPhonetic(cell)
End Function
を作成して、エクセルのフリガナの行に=GetPhonetic（B3）などと入力しています。
ここでキーワード検索を作成したいのですが、どのようにすれば良いのでしょうか?
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
