| |
▼グランパ さん：
ponponです。こんばんは。
>ユーザーホーム上のコンボBox内のデータをシートに作ったセルのデータ範囲から入力し（入力規則のように）、選択したデータを別のセルに貼り付けるイベントプロシージャーの書き方を教えてください
ユーザーホームにコンボボックス１一つとコマンドボタン二つ（１と２）を貼り付けてください。
シート１のA列にあるデータをコンボボックスに取り込み、コマンドボタン１をクリックすると、シート２の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
|
|
ponpon
- 05/2/19(土) 21:02 -
