エクセルVBAのユーザーフォームのコンボボックス
エクセルVBAのユーザーフォームのコンボボックスの入力と
ファイルの保存で質問です。
エクセルVBAで
ユーザーフォームのコンボボックスを使用して
1月から12月までを選択してもらい、
選択した月を
コマンドボタン押した際に、
セルにその値を入力するような
マクロを作成しようとしています。
またコンボボックスは標準で6月が表示されるようにしたいと思います。
ユーザーフォームのコードの一部です。
Private Sub UserForm_Initialize()
Dim m As Integer
For m = 1 To 12
UserForm1.ComboBox1.AddItem m
Next
ComboBox1.ListIndex = 6
Private Sub CommandButton1_Click()
'ユーザーフォームを閉じる
Unload UserForm1
mold
'↑フォームを閉じた後に実行される標準モジュールのマクロ名です
End Sub
標準モジュールのコード 名称 「mold」
Sub mold()
ActiveWorkbook.SaveAs _
Filename:="C:\_" & UserForm1.ComboBox1.Text & "月", _
FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
ThisWorkbook.Activate '
End Sub
の様に作成して実行してみたのですが、
コンボボックスで11月を選択しても
6月のままのファイルになってしまいます。
どのようにしたら、
コンボボックスで選択した値を
ファイル名として保存できるでしょうか？
全部のコードを記載しますと
長くなってしまうと思い、
関連するコードを記載して質問しました。
分かりづらい所もあるかと思いますが
よろしくお願いします。
お礼
簡潔なお答えありがとうございました。 大変わかりやすかったです。