|
悩めるマクロ見習い さん
こんばんは
ComBoboxにセットする時と
シートに書き出すのを別にしたらどうでしょうか?
Private Sub UserForm_Initialize()
Dim i As Integer 'ループカウンター
'年コンボボックスに選択範囲をセット
For i = 2004 To CInt(Format(Now, "yyyy"))
Me.cmbYear1.AddItem (Format(i, "0000"))
Next i
'現在年をセット
Me.cmbYear1.Value = Format(Now, "yyyy")
'月コンボボックスに選択範囲をセット
For i = 1 To 12
Me.cmbMonth1.AddItem (Format(i, "00"))
Next i
'現在月をセット
Me.cmbMonth1.Value = Format(Now, "MM")
'年コンボボックスに選択範囲をセット
For i = 2004 To CInt(Format(Now, "yyyy"))
Me.cmbYear2.AddItem (Format(i, "0000"))
Next i
'現在年をセット
Me.cmbYear2.Value = Format(Now, "yyyy")
'月コンボボックスに選択範囲をセット
For i = 1 To 12
Me.cmbMonth1.AddItem (Format(i, "00"))
Next i
'現在月をセット
Me.cmbMonth1.Value = Format(Now, "MM")
End Sub
'------------------------------------------------------------------
Private Sub CommandButton4_Click()
Worksheets("sheet2").Range("C5") = Me.cmbYear1.Value & "年" & _
Me.cmbMonth1.Value & "月" & "〜" & _
Me.cmbYear2.Value & "年" & Me.cmbMonth2.Value & "月"
End Sub
|
|