0

【ExcelVBA】コンボボックスの月に0を入れたい 【ExcelVBA】コンボボックスの月に0を入れたい

コンボボックスの月の表示が現在1,2,3,4,5,6,7,8,9,10,11,12になっています。
これを01,02,03,04,05,06,07,08,09,10,11,12にするか、Excelのセルに入れる時に1桁の月の場合は0を追加したいのです


Private Sub UserForm_Initialize()
Dim i As Integer
Dim k As Integer

'開始月用
'年のコンボボックスのリスト準備
For i = -3 To 2
k = Year(Date) + i
If k >= 1900 And k < 2000 Then
k = k Mod 100
cmbYY.AddItem k
Else
cmbYY.AddItem k
End If
If i = 0 Then cmbYY.Value = k
Next i
For i = 1 To 12
'月のコンボボックスのリスト準備
If i <= 12 Then cmbMM.AddItem i
If i = DatePart("m", Date) Then cmbMM.Value = i
Next i


これで年月のコンボボックスを用意しています。


Private Sub cmbYY_Change()

'開始年月を環境設定シートに入れる

Sheets("環境設定").Range("C2") = cmbYY & cmbMM

End Sub


もしも年が変化された場合、環境設定シートのセル2に年月を表示するようにしています。

現状だとC2セルには20131,20132....201310,201311,201312と表示されます。
これを201301,201302...201310,201311と表示するにはどうしたらいいでしょうか？


If Mid(Sheets("環境設定").Range("C2"), 6) = 1 Or 2 Then

Else

Sheets("環境設定").Range("C2") = cmbYY & 0 & cmbMM

End If

こんな感じで、もしも6文字目がなければ月の前に0を追加する処理を入れてみましたがうまく動きません・・・。
何かおかしいのでしょうか？

質問者が選んだベストソリューション

Yahoo!知恵袋 4099日前