エクセルで、一連の流れを一括で行うVBA

質問

エクセルVBA初心者です。
色々調べてやっているのですが、どうもうまく動いてくれず・・・質問させて頂きます。

”入力”という名前のシートと、1～12の数字が名前のシート（”1”、”2”・・・・”12”）の合計13個のシートがあります。
実行する事で、以下の操作を一括で実行してくれるVBAを組みたいです。

(1)『入力する月を入力してください。』というダイアログを表示する。
　　『西暦YYYY年MM月』という形で入力できるようにする。
　　『ＯＫ』ボタンを押す事で(2)へ進む。『キャンセル』で実行処理中止。
(2)年と月を入力して『ＯＫ』ボタンを押すと、『『西暦YYYY年MM月でよろしいですか？』の質問を表示する。
　『ＯＫ』ボタンを押す事で(3)へ進む。『キャンセル』で実行処理中止。
　月の入力が1～12以外だった場合は『月は1～12の範囲で入力して下さい。』と表示して(1)へ戻る。
(3)”入力”シートのB4～B503、F4～F503をそれぞれ、(1)で入力した月のシート（(1)で1と入力したら”1”のシートへ）のB4～B503、F4～F503へ形式の値のみコピーする。
(4)ファイル名を『売上集計表YYYY年MM月』という名前で保存する。

大変失礼な質問のしかたとは思いますが、勉強不足かつ急いで作成したいので、分かる方がいましたら是非御伝授頂きたいです。よろしくお願いします。

回答No.5

merlionXX · ベストアンサー

ANo3-4 merlionXXです。
何度もごめん、間違ってました。
再度訂正です。

Sub test01()
　　Dim rtn
　　Dim myD As String, msg As String, fn As String, x As String
　　Dim wb As Workbook, ws As Worksheet
line:
　　rtn = Application.InputBox("入力する月を西暦YYYYMM形式で入力してください。" _
　　& vbNewLine & "例）2011年7月⇒201107", Type:=1)
　　If rtn = False Then Exit Sub
　　myD = Left(rtn, 4) & "/" & Right(rtn, 2) & "/01"
　　If Not IsDate(myD) Then
　　　　MsgBox "存在しない年月です！", vbCritical
　　　　GoTo line
　　Else
　　　　If MsgBox(Format(myD, "yyyy年mm月") & "でよい？", vbYesNo + vbQuestion) = vbNo Then
　　　　　　Exit Sub
　　　　End If
　　End If
　　Set ws = Sheets(CStr(Month(myD)))
　　With Sheets("入力")
　　　　ws.Range("B4:B503").Value = .Range("B4:B503").Value
　　　　ws.Range("F4:F503").Value = .Range("F4:F503").Value
　　End With
　　ws.Copy
　　Set wb = ActiveWorkbook
　　fn = "売上集計表" & Format(myD, "yyyy年mm月")
　　Application.Dialogs(xlDialogSaveAs).Show (fn & ".xls")
　　wb.Close (False)
End Sub

お礼

解決しました。色々ありがとうございました。

回答No.4

merlionXX

ANo3です。
データは値貼り付けするんでしたね、失念してました。
訂正です。

Sub test01()
　　Dim rtn
　　Dim myD As String, msg As String, fn As String, x As String
　　Dim wb As Workbook
line:
　　rtn = Application.InputBox("入力する月を西暦YYYYMM形式で入力してください。" _
　　& vbNewLine & "例）2011年7月⇒201107", Type:=1)
　　If rtn = False Then Exit Sub
　　myD = Left(rtn, 4) & "/" & Right(rtn, 2) & "/01"
　　If Not IsDate(myD) Then
　　　　MsgBox "存在しない年月です！", vbCritical
　　　　GoTo line
　　Else
　　　　If MsgBox(Format(myD, "yyyy年mm月") & "でよい？", vbYesNo + vbQuestion) = vbNo Then
　　　　　　Exit Sub
　　　　End If
　　End If
　　With Sheets("入力")
　　　　Sheets(Month(myD)).Range("B4:B503").Value = .Range("B4:B503").Value
　　　　Sheets(Month(myD)).Range("F4:F503").Value = .Range("F4:F503").Value
　　End With
　　Sheets(CStr(Month(myD))).Copy
　　Set wb = ActiveWorkbook
　　fn = "売上集計表" & Format(myD, "yyyy年mm月")
　　Application.Dialogs(xlDialogSaveAs).Show (fn & ".xls")
　　wb.Close (False)
End Sub

回答No.3

merlionXX

お急ぎとのことなので、とりあえずこんな感じではどうでしょう？
入力形式、保存方法等、不明な点はこっちで適当に解釈してます。
なお、エクセルバージョンは2003までです。
2007以降は fn & ".xls" の拡張子を.xlsxに変えてください。

Sub test01()
　　Dim rtn
　　Dim myD As String, msg As String, fn As String, x As String
　　Dim wb As Workbook
line:
　　rtn = Application.InputBox("入力する月を西暦YYYYMM形式で入力してください。" _
　　& vbNewLine & "例）2011年7月⇒201107", Type:=1)
　　If rtn = False Then Exit Sub
　　myD = Mid(rtn, 1, 4) & "/" & Mid(rtn, 5, 2) & "/" & "01"
　　If Not IsDate(myD) Then
　　　　MsgBox "存在しない年月です！", vbCritical
　　　　GoTo line
　　Else
　　　　If MsgBox(Format(myD, "yyyy年mm月") & "でよい？", vbYesNo + vbQuestion) = vbNo Then
　　　　　　Exit Sub
　　　　End If
　　End If
　　With Sheets("入力")
　　　　.Range("B4:B503").Copy Sheets(Month(myD)).Range("B4:B503")
　　　　.Range("F4:F503").Copy Sheets(Month(myD)).Range("F4:F503")
　　End With
　　Application.CutCopyMode = False
　　Sheets(CStr(Month(myD))).Copy
　　Set wb = ActiveWorkbook
　　fn = "売上集計表" & Format(myD, "yyyy年mm月")
　　Application.Dialogs(xlDialogSaveAs).Show (fn & ".xls")
　　wb.Close (False)
End Sub

回答No.2

kuma56

確かに、これじゃぁ質問じゃなくてVBA作成の丸投げと言われても仕方ないよなぁ・・・・
>色々調べてやっているのですが、どうもうまく動いてくれず・・・質問させて頂きます。
調べた結果、どういうVBAを組んで、どこがうまく動いてくれないのか？
それを書いて初めて質問になるんじゃないのか？
（１）、（２）はinputboxやuserformを使ってIFで条件分岐して処理すれば出来そうだけど、どうやって実行させるつもりなのかな？？そしてどこが上手くいかないのかな？
>『西暦YYYY年MM月』という形で入力できるようにする。
これだって、"西暦"から"月"までをフルで入力するのか？年と月を二つのマスに分けて、それぞれ4ケタ、2ケタで入力するのか？でコードも違ってくるでしょう。
そういう事を質問文に書くことによって質問者のスキルも推測できるだろうから、よりよいアドバイスがもらいやすくなると思うよ・・・・・"初心者"だけじゃただ単に甘えているだけに思われちゃうかもよ。

補足

すいません。他にも色々コマンドあって、できる所はやったんですけど・・・変数が関係する所だけうまく動いてくれなくて。
時間もなかったので、動かない所だけ質問させて頂いたんです。

回答No.1

imogasi

この質問こそ、やりたいことだけ文章で書いているだけで、丸投げで作ってください式の物ではないか。ここは無料のソフト委託コーナーではない。
＞急いで作成したいので
プログラムなど、急に勉強して、短時間で力が付いて、出来るものではない。日頃から訓練しておかないと、仕事などで、あることをやりたい場合に間に合わないものだ。
日頃勉強しておれば、１，２点の絞った点の質問回答で実現できるが。
ーーー
幸い、本件はそんなに複雑なことをやっているわけではないと思う。
一度「入力シート」にデータを入力し（狭いセル範囲でやれば良い）そこから、マクロの記録を取り始め、「入力シート」の入力範囲をコピーし、「質問者がどのシートあてか」を判断して、そのシート名のシートに貼り付けてみて、、マクロの記録がどう
記録されたか、見てみること。
そして
（１）セル範囲が本番では変わる
（２）シート名は入力者が指定する名前にする
ためのコード修正箇所を推測すること。
ーー
シート名をいれる方法はいろいろあるが初者は、Googleででも「VBA Inputbox}で照会し、例題つきのコードを真似せよ。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_inputbox.html
http://officetanaka.net/excel/vba/tips/tips37.htm　など
ーー
保存する操作もも、マクロの記録が取れるのでコードがわかる。
「VBA 　ブックの保存」でGoogle照会。
入力者が入力した年月で「売上集計表YYYY年MM月」の文字列を作ればよいる。
ーー
初心者というからには、マクロの記録やWEB照会を活用してからここへ質問すべきだ。
ーー
他シートへのコピーは（例　Sheet1－－＞Sheet4)
Sub test01()
Worksheets("Sheet1").Range("A2:D6").Copy Worksheets("Sheet4").Range("A2")
End Sub

補足

すいません。他にも色々コマンドあって、できる所はやったんですけど・・・変数が関係する所だけうまく動いてくれなくて。
時間もなかったので、動かない所だけ質問させて頂いたんです。