- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：マクロ）
マクロの月変更時の問題
このQ&Aのポイント
- マクロで月が変わると使えなくなる問題についての質問です。
- 「頭取用紙」のブック名と「日報」のブック名が月ごとに変わると、マクロが使えなくなることについての質問です。
- 月ごとにブック名が変わる場合、マクロの記述をどう変更すればいいかわからない問題を解決したいです。
- samohankin
- お礼率88% (15/17)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
ワークシート名は1～３０とした場合なら、 Sub ブック2() Dim wb As String Dim ws As String wb = Application.InputBox("何年何月ですか？" & vbLf & "例）200808", Type:=2) ws = Application.InputBox("何日のシートですか？" & vbLf & "例）1", Type:=2) On Error Resume Next Workbooks("頭取用紙" & wb & ".xls").Worksheets("データ").Range("a1:ac32").Copy _ Workbooks("日報" & wb & ".xls").Worksheets(ws).Range("a40") If Err = 0 Then Exit Sub On Error GoTo 0 MsgBox "エラーが発生しました。もう一度作業をお願いします。" End Sub と言う感じの入力作業で回避するとか？
お礼
n-jun さん、速効で解決しました。思い通りの結果で求めていた もの以上です。大変有難うございます。時間は費やしているのですが 進歩しません。深すぎて理解に苦しんでいる私です。感謝いたします。
補足
n-jun さん有難うございます。前回のラベルコントロールの時も お世話になっています。書き換えに時間を要しますので後ほど 結果を報告します。