0

非表示のシートに保存されているクライアント名のリストが入力されたコンボボックスを持つユーザーフォームがあります。ユーザーが名前を選択して、そのクライアントのプロファイル (名前、住所、電話番号など) を表示するボタンをクリックできるようにしようとしています。

他のフィールドを行う前に、名前だけで機能させようとしています。プロファイルを表示すると、名前ラベル (名前name_は ) が空白です。 onでClientBoxある名前を持つコンボボックスの名前であり、 name_ ラベルを持つユーザーフォームの名前です。userform2ClientProfile

コメントアウトされた最後の 2 行は、この方法を試す前に試したものです。どちらの方法も機能しません。

Sub ProfilePopulator()
    Dim index As Integer, str As String
    Application.ScreenUpdating = False
    Sheets("Clients").Visible = True
    Sheets("Clients").Select
    Range("A1").Select
    index = UserForm2.ClientBox.ListIndex
    str = Cells(index + 1, 1)
    ClientProfile.Name_.Caption = str
    'ActiveCell.Offset(index, 0).Select
    'ClientProfile.Name_.Caption = ActiveCell
End Sub
4

1 に答える 1

0

問題は実際にはコードのこの部分ではありませんでした (おっと)。ClientProfile ユーザーフォームを開くボタンのコードにありました。私が持っていた前に：

Private Sub CommandButton2_Click()
UserForm2.Hide
ClientProfile.Show
Call ProfilePopulator
End Sub

ProfilePopulator はClientProfile が表示される前に実行する必要があるため、次のようになり、機能します。

Private Sub CommandButton2_Click()
UserForm2.Hide
Call ProfilePopulator
ClientProfile.Show
End Sub
于 2013-11-15T05:01:42.147 に答える