こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBAにてリストボックスに表示された文字をエクセルのセルにコピペするには

先日、ここで教えてもらった以下の内容で、幾つかのテキストボックスに表示された内容のうち、電話番号をエクセルのセルに転記する方法が、上手くいきません。”検索"名のシート上で実行します。
過去のログを参考にしましたが、解決できませんでした。
またお世話になりますが、だれか教えてください。


Private Sub CommandButton1_Click()
Dim Namae As String
Dim MeNamae As UserForm
Dim ken As String

Namae = TextBox1.Text
Set MeNamae = UserForm1
Call 検索(Namae, MeNamae)

End Sub

Public Sub 検索(ByVal Namae As String, ByRef MeNamae As UserForm)
Dim Nagasa As Integer
Dim i As Long
Dim MaxRows As Long
Dim kensaku As Worksheet
Dim KensakuChar As String
Dim ListNamae As String
Dim ListChar As String
Dim KBanme As Integer
Dim LBanme As Integer

Set kensaku = Worksheets("顧客データ")
MaxRows = kensaku.UsedRange.Rows.Count
Nagasa = Len(Namae)

MeNamae.ListBox1.Clear

For i = 3 To MaxRows
ListNamae = kensaku.Cells(i, 3)
KBanme = 0
LBanme = 0
Do
Do While Nagasa >= KBanme
KBanme = KBanme + 1
KensakuChar = Mid(Namae, KBanme, 1)
If KensakuChar <> " " Then
Exit Do
End If
Loop
Do While Nagasa >= LBanme
LBanme = LBanme + 1
ListChar = Mid(ListNamae, LBanme, 1)
If ListChar <> " " Then
Exit Do
End If
Loop

If KensakuChar = ListChar Then
If Nagasa = KBanme Then
With MeNamae
.ListBox1.AddItem (ListNamae)
.ListBox1.List(.ListBox1.ListCount - 1, 1) = i
End With
End If
Else
Exit Do
End If
Loop Until Nagasa <= KBanme
Next

End Sub

Private Sub ListBox1_Click()
Dim r As Long
With ListBox1
If .ListIndex > -1 Then
r = .List(.ListIndex, 1) '選択した名前の行
TextBox6.Value = Worksheets("顧客データ").Cells(r, 3) 'カタカナ名
TextBox2.Value = Worksheets("顧客データ").Cells(r, 5) '漢字名
TextBox3.Value = Worksheets("顧客データ").Cells(r, 7) '住所
TextBox4.Value = Worksheets("顧客データ").Cells(r, 1) '電話番号
TextBox5.Value = Worksheets("顧客データ").Cells(r, 2) '顧客番号
End If
End With
End Sub

Private Sub CommandButton3_Click() 'クリックすると


 Worksheets("検索").Cells(, 2) ’このシートの(G2)に上記の電話番号が入力される


End Sub

投稿日時 - 2008-05-08 10:12:45

QNo.4006155

すぐに回答ほしいです

質問者が選んだベストアンサー

Private Sub CommandButton3_Click() 'クリックすると
 ’このシートの(G2)に上記の電話番号が入力される
 ' Cellsは 行、列の順に指定します
 Worksheets("検索").Cells(2, 7).Value = TextBox4.Value
End Sub

投稿日時 - 2008-05-08 11:41:54

お礼

本当に初心者の質問をお答えいただきありがとうございました。
お手数をおかけいたしました。

投稿日時 - 2008-05-09 13:12:33

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問