|
▼グランパ さん:
ponponです。こんばんは。
>ユーザーホーム上のコンボBox内のデータをシートに作ったセルのデータ範囲から入力し(入力規則のように)、選択したデータを別のセルに貼り付けるイベントプロシージャーの書き方を教えてください
ユーザーホームにコンボボックス1一つとコマンドボタン二つ(1と2)を貼り付けてください。
シート1のA列にあるデータをコンボボックスに取り込み、コマンドボタン1をクリックすると、シート2のA1に選択したデータを入力します。
ユーザーフォームにコピペしてください。
Private Sub UserForm_Initialize()
Dim A As Long
Dim i As Long
A = Sheets("sheet1").Range("A65536").End(xlUp).Row
For i = 1 To A
ComboBox1.AddItem Sheets("sheet1").Cells(i, 1).Value
Next
End Sub
'*************************************************************
Private Sub CommandButton1_Click()
Sheets("sheet2").Range("A1").Value = Me.ComboBox1.Value
End Sub
'*************************************************************
Private Sub CommandButton2_Click()
Unload Me
End Sub
コンボボックスのデータを選択しただけで入力するようにするには、
Private Sub UserForm_Initialize()
Dim A As Long
Dim i As Long
A = Sheets("sheet1").Range("A65536").End(xlUp).Row
For i = 1 To A
ComboBox1.AddItem Sheets("sheet1").Cells(i, 1).Value
Next
End Sub
'*****************************************************************
Private Sub ComboBox1_Change()
Sheets("sheet2").Range("A1").Value = Me.ComboBox1.Value
End Sub
'******************************************************************
Private Sub CommandButton1_Click()
Unload Me
End Sub
|
|