今回は一般名で検索するコードを書いていきましょう。
医薬品名で検索するコードをVBA講座3-6で書きましたよね。あれを一部変えるだけなので、めちゃくちゃ簡単です。
スポンサーリンク
一般名で検索するコードを書く
まずは一般名検索の右にある検索ボタンをダブルクリック。または右クリックからコードを表示。
このような感じになりました。
VBA講座3-6で書いた医薬品名で検索するコードを見て下さい。
これをほぼそのまま使えますので、医薬品名検索のコードを上の画像のように丸々コピーして下さい。
そして上の画像のように、先ほどのPrivate Sub btnGSearch_Click()の下に貼り付けます。赤で囲った部分です。
これで準備は整いました。
スポンサーリンク
医薬品名検索コードの一部を変更するだけでOK
それでは順番に見て行きましょう。訂正する部分は赤字で表示します。
「txDSearch = “”」 → 「 txGSearch = “”」
今回は一般名で検索するので、医薬品名と識別記号のテキストボックスは空欄にします。「D」を「G」に変更してください。
If txGSearch.Text = “” Then
MsgBox “一般名を入力して下さい”, vbExclamation
txGSearch.SetFocus
Exit Sub
End If
MsgBox “一般名を入力して下さい”, vbExclamation
txGSearch.SetFocus
Exit Sub
End If
「txDsearch」→「txGSearch」へ変更。「医薬品名」→「一般名」へ変更。
Dim Kensaku As String
Kensaku = txGSearch.Value
Kensaku = txGSearch.Value
「txDsearch」→「txGSearch」に変更。
Worksheets(“医薬品検索結果”).Activate
ActiveSheet.Range(“A1”).CurrentRegion.Clear
With Worksheets(“医薬品マスタ”)
.Range(“A2”).AutoFilter field:=2, Criteria1:=”=*” & Kensaku & “*”
.Range(“A1”).CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Worksheets(“医薬品検索結果”).Range(“A1”)
End With
ActiveSheet.Range(“A1”).CurrentRegion.Clear
With Worksheets(“医薬品マスタ”)
.Range(“A2”).AutoFilter field:=2, Criteria1:=”=*” & Kensaku & “*”
.Range(“A1”).CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Worksheets(“医薬品検索結果”).Range(“A1”)
End With
「field:=１」→「field:=2」
フィールドを１から２へ変更します。今回は一般名検索なので、2列目で検索をかけるためです。
If Worksheets(“医薬品検索結果”).Range(“A2”) = Empty Then
MsgBox “その医薬品の採用はありません。”, vbExclamation, “確認”
txGSearch.SetFocus
Exit Sub
End If
MsgBox “その医薬品の採用はありません。”, vbExclamation, “確認”
txGSearch.SetFocus
Exit Sub
End If
「txDsearch」→「txGSearch」に変更。それ以降は弄らなくてOKです。
これで一般名で部分一致検索できるようになりました。実際に起動して一般名で検索できることを確認して下さい。
それでは今回はここで終了です。お疲れ様でした。
次回は識別記号で検索するコードについて解説します。基本的に今回と同じなのでサクッといきましょう。
