|
こんにちは
例です
データはSheet1のA列にローマ字,B列に漢字とします
UserForm1にTextBox1と Label1(少しい大きめ)に作成
UserForm2にコマンドボタンを用意
UserForm1のモジュールに記載
Private Sub Label1_Click()
Unload Me
UserForm2.Show
End Sub
Private Sub TextBox1_Change()
Dim Fi As Range, Ad As String, Da As String
With Worksheets("Sheet1")
Set Fi = .Range("A1", .Range("A65536").End(xlUp)) _
.Find(Me.TextBox1.Value, , xlValues, xlPart, , xlPrevious)
If Not Fi Is Nothing Then
Me.Label1.Caption = ""
Ad = Fi.Address
Do
Set Fi = .Range("A1", .Range("A65536").End(xlUp)).FindNext(Fi)
Da = Da & Fi.Offset(, 1).Value & Chr(10)
Loop Until Ad = Fi.Address
Me.Label1.Caption = Da
End If
End With
End Sub
UserForm2のモジュールに記載
Private Sub CommandButton1_Click()
Unload Me
UserForm1.Show
End Sub
動作:
UserForm1をShowさせTextBoxにローマ字を1文字づつ入れ
ラベルに名前が表示される一人になった時点で
ラベルをクリックするとUserForm2が表示される
コマンドボタンをクリックすると再度UserForm1が表示され
同じ事を繰り返すことが出来ます。
まずは、試してみてください。
|
|