ユーザーフォーム上に社員番号を打つと名前が表示される形の方法はありますか？

ユーザーフォーム上に社員番号を打つと名前が表示される形の方法はありますか？

No.1 回答者： Hypnomatic 回答日時： 2023/02/21 21:21

Private Sub txtEmpNo_AfterUpdate()

Dim empNo As String
Dim empName As String
' 社員番号を取得
empNo = txtEmpNo.Value
' 社員番号に対応する名前を取得
empName = GetEmpName(empNo)
' 名前をラベルに表示
lblEmpName.Caption = empName
End Sub

Function GetEmpName(empNo As String) As String
' 社員番号に対応する名前を取得する処理を実装
' ここでは仮に固定の名前を返す例を示す
Select Case empNo
Case "001"
GetEmpName = "山田太郎"
Case "002"
GetEmpName = "佐藤花子"
Case "003"
GetEmpName = "鈴木次郎"
Case Else
GetEmpName = "該当者なし"
End Select
End Function