|
▼カルーア さん:
こんにちは。
>名簿データから名前を検索する時に読み仮名も合わせて検索したいのですが、方法がわかりません。誰か教ええて下さい。
>ワークシート(名簿)
> A列 NO
> B列 名前
> C列 ヨミガナ
>範囲名 名前(=名簿!$B$2:$B$11)
>マクロ
>UserForm1にCombobox1とTextbox1・CommandButton1・2を設ける
>コード
> Private Sub CommandButton2_Click()
> Me.Hide
> End Sub
>
> Private Sub UserForm_Initialize()
> ComboBox1.RowSource = "名前"
> End Sub
>標準フォーム
> Sub 名前検索()
> UserForm1.Show
> End Sub
>
>Combobox1で目的のデーターをハイライトにしCommandButton1をクリックするとヨミガナが出るようにしたい。
CommandButton1をクリックすると、テキストボックスに「ヨミガナ」が表示される
で、よろしいでしょうか?
'===========================================================
Private Sub CommandButton1_Click()
With ComboBox1
If .ListIndex >= 0 Then
TextBox1.Text = Range("名前").Offset(0, 1).Cells(.ListIndex + 1).Value
End If
End With
End Sub
|
|