| |
▼VBA初心者 さん：
>無事完了しましたので、是非とも続きをご教授下さい。
続きは、御自身が考えてください。
コンボボックスには、品種がメンバ登録されていて、
テキストボックスには、日付が入力可能になり、
コマンドボタンも表示されて
ユーザーフォームがめでたく表示されたのですね！！
だったら、コンボボックスで品種を選択し、
テキストボックスに日付が入力されれば、
>シート（日計表）をコピーし、取得した値＋日付をシートネームとする
名前を設定するのは、コマンドボタンをクリックしたら、行うのですよね。
Userform1のモジュールに
Private Sub CommandButton1_Click()
End Sub
上記のイベントプロシジャー内に
>シート（日計表）をコピーし、取得した値＋日付をシートネームとする
を実現するコードを記述します。
シート名は、
Dim newshtnm As String
newshtnm = ComboBox1.Text & Format(TextBox1.Text, "ggge""年""m""月""d""日""")
上記のnewshtnmでよいですか？
特定シートコピーは、最初の投稿で提示された
>Worksheets("日計表").Copy after:=Worksheets("日計表")
これですね！！
シート名の変更は、マクロの記録でシート名の変更をコード化して
見当を付けてください
|
|
ichinose
- 12/3/23(金) 6:39 -
