Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10333 / 13644 ツリー ←次へ | 前へ→

【22429】ユーザーホーム コンボBoxについて グランパ 05/2/19(土) 17:25 質問[未読]
【22430】Re:ユーザーホーム コンボBoxについて ponpon 05/2/19(土) 21:02 回答[未読]

【22429】ユーザーホーム コンボBoxについて
質問  グランパ E-MAIL  - 05/2/19(土) 17:25 -

引用なし
パスワード
   ユーザーホーム上のコンボBox内のデータをシートに作ったセルのデータ範囲から入力し(入力規則のように)、選択したデータを別のセルに貼り付けるイベントプロシージャーの書き方を教えてください

【22430】Re:ユーザーホーム コンボBoxについて
回答  ponpon  - 05/2/19(土) 21:02 -

引用なし
パスワード
   ▼グランパ さん:
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

10333 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free