Excelユーザーフォームで選択したセルにコンボボックスから代入させる方法が知りたいです。

Excelユーザーフォームで選択したセルにコンボボックスから代入させる方法が知りたいです。 カレンダーに予定などを簡単に組み込めるスケジューラのようなものを作ろうとしています。 予定はある程度決まっているためコンボボックスから選択→選択したセルに代入 といった形にしたいと思っています。 コンボボックスから日付を選択し、リンク先のセルに代入というところまで目指していますが、まずは選択されたセルにただ代入する方法まで知れればと思います。 VBAなど詳しい方、どうかご回答をお願いします。

Excel | Visual Basic14閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

アクティブセルに入れるだけなら、代入するだけです。 UserForm に ComboBox1 と CommandButton1 を置いて UserFormのモジュールにコピペします。 Private Sub CommandButton1_Click()   ActiveCell.Value = Me.ComboBox1.Value End Sub Private Sub UserForm_Initialize() Dim i As Long For i = 65 To 90    Me.ComboBox1.AddItem Chr(i) Next i Me.CommandButton1.Caption = "転記" End Sub

画像

ThanksImg質問者からのお礼コメント

ありがとうございます! ファーム内で代入するセルをBOXから選択→そこに代入とするやり方もまた別で質問すると思いますので、もし良ければそちらも教えていただけると有り難いです。

お礼日時:9/25 1:36