病院で処方された薬や病気についてわかりやすく解説します

VBA講座3-7 一般名で検索するコードを書く

ノートパソコンとハーブ

さて今回は一般名で検索するコードを書いていきましょう。医薬品名で検索するコードをこの前書きましたよね。あれを一部変えるだけなので、めちゃくちゃ簡単です。では早速いきましょう。

スポンサーリンク

一般名で検索するコード

 

vba3-7-1まずは一般名検索の右にある検索ボタンをダブルクリック。または右クリックからコードを表示。

 

vba3-7-2このような感じになりました。

 

vba3-7-3医薬品名で検索するコードを見て下さい。これをほぼそのまま使えますので、医薬品名検索のコードを上の画像のように丸々コピーして下さい。

 

vba3-7-4そして上の画像のように、先ほどのPrivate Sub btnGSearch_Click()の下に貼り付けます。赤で囲った部分です。

 

それでは順番に見て行きましょう。訂正する部分は赤字で表示します。

「txGSearch = “”」 → 「 txDSearch = “”」

今回は一般名で検索するので、医薬品名と識別記号のテキストボックスは空欄にします。

 

If txGSearch.Text = “” Then
MsgBox “一般名を入力して下さい”, vbExclamation
txGSearch.SetFocus
Exit Sub
End If

「txDsearch」→「txGSearch」へ変更。「医薬品名」→「一般名」へ変更。

 

Dim Kensaku As String
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

「field:=1」→「field:=2」フィールドを1から2へ変更。今回は一般名検索なので2列目で検索をかけるためです。

 

If Worksheets(“医薬品検索結果”).Range(“A2”) = Empty Then
MsgBox “その医薬品の採用はありません。”, vbExclamation, “確認”
txGSearch.SetFocus
Exit Sub
End If

「txDsearch」→「txGSearch」に変更。それ以降は弄らなくてOKです。

 

これで一般名を部分一致検索できるようになりました。実際に起動して一般名で検索できることを確認して下さい。

 

それでは今回はここで終了です。お疲れ様でした。次回は識別記号で検索するコードについて解説します。
次の講座

スポンサーリンク

こちらの記事もおすすめです

関連記事

サイト内検索