Excel2007(エクセル2007)基本講座:ActiveXコントロールの例(ユーザーフォームを利用する)

• このページはActiveXコントロールをユーザーフォームで利用する例を説明しています。
• ワークシートへ配置する例はExcel2007(エクセル2007)基本講座:ActiveXコントロールの例(ワークシートに配置する)をご覧ください。
• フォームコントロールの使い方はExcel2007(エクセル2007)基本講座:フォームコントロールの使い方をご覧ください

各コントロールのコードなど　　　Topへ

• 各コントロールの初期設定をします。

  • Private Sub UserForm_Initialize() 　　OptionButton1 = True　　'オプションボタン1をONにします 　　OptionButton3 = True　　'オプションボタン3をONにします 　　CheckBox1 = False　　　　'チェックボックス1をOFFにします 　　SpinButton1.Value = Month(Date)　　'スピンボタンの値を日付の月数にします 　　TextBox1.Value = SpinButton1.Value & "月"　'スピンボタンの値に「月」を繋げた文字列をテキストボックス1の値にします 　　SpinButton1.Min = 1　　'スピンボタン1の最小値を1にします。 　　SpinButton1.Max = 12　　'スピンボタン1の最大値を12にします。 　　ComboBox1.RowSource = "Sheet1!H13:H20"　'コンボボックス1にSheet1のH13:H20の値を入れます 　　ComboBox1.Value = Worksheets("Sheet1").Range("H13").Value　'コンボボックス1の値をSheet1のH13にします 　　ListBox1.RowSource = "Sheet1!H13:H20"　　'リストボックス1にSheet1のH13:H20の値を入れます 　　ListBox1.ColumnWidths = 20　　　'コンボボックス1の幅を20にします End Sub

  • Private Sub SpinButton1_SpinUp() 　　TextBox1.Value = SpinButton1.Value & "月" End Sub

  • Private Sub SpinButton1_SpinDown() 　　TextBox1.Value = SpinButton1.Value & "月" End Sub

• コマンドボタン1をクリックするとシートへ入力します。
  • 各コントロールの値を文字列などに変更してシートへ書き込みます。

  • Private Sub CommandButton1_Click() 　　Dim LastRow As Long, ListNo As Integer 　　With Worksheets("Sheet2") 　　　　LastRow = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1 　　　　If OptionButton1 = True Then .Range("A" & LastRow).Value = "男性" 　　　　If OptionButton2 = True Then .Range("A" & LastRow).Value = "女性" 　　　　If OptionButton3 = True Then .Range("B" & LastRow).Value = "10〜19歳" 　　　　If OptionButton4 = True Then .Range("B" & LastRow).Value = "20〜39歳" 　　　　If OptionButton5 = True Then .Range("B" & LastRow).Value = "40歳以上" 　　　　If CheckBox1 = True Then .Range("C" & LastRow).Value = "済" 　　　　If CheckBox1 = False Then .Range("C" & LastRow).Value = "未" 　　　　.Range("D" & LastRow).Value = TextBox1.Value 　　　　ListNo = ComboBox1.ListIndex 　　　　.Range("E" & LastRow).Value = ComboBox1.List(ListNo) 　　　　ListNo = ListBox1.ListIndex 　　　　.Range("F" & LastRow).Value = ListBox1.List(ListNo) 　　End With End Sub

• コマンドボタン2をクリックするとユーザーフォームを消します。

  • Private Sub CommandButton2_Click() 　　Unload UserForm1 End Sub

• 標準モジュールにユーザーフォームを開くコードを書いています。

  • Sub 入力2() 　　Load UserForm1 　　UserForm1.Show End Sub