|
hine さん: なんとかできました。ありがとうございました。
改めて質問があります。
指定する期間の範囲を6ヶ月以内に設定するにはどうすればよいでしょうか
指定した期間が6ヶ月を超えた場合、msgboxで知らせるようにしたいのですが
よく分かりません。アドバイスをお願いします。
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, "M")
'年コンボボックスに選択範囲をセット
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.cmbMonth2.AddItem (Format(i, "00"))
Next i
'現在月をセット
Me.cmbMonth2.Value = Format(Now, "M")
End Sub
'------------------------------------------------------------------
Private Sub CommandButton4_Click()
Worksheets("sheet2").Range("C5") = Me.cmbYear1.Value & "年" & _
Me.cmbMonth1.Value & "月" & "〜" & _
Me.cmbYear2.Value & "年" & Me.cmbMonth2.Value & "月"
End Sub
|
|