マクロの月変更時の問題
- マクロで月が変わると使えなくなる問題についての質問です。
- 「頭取用紙」のブック名と「日報」のブック名が月ごとに変わると、マクロが使えなくなることについての質問です。
- 月ごとにブック名が変わる場合、マクロの記述をどう変更すればいいかわからない問題を解決したいです。
- ベストアンサー
マクロ
いつも参考にさせていただいています。初歩的すぎてとは思いますが 宜しくお願いします。 Sub ブック2() Workbooks("頭取用紙200808.xls").Worksheets("データ").Range("a1:ac32").Copy _ Workbooks("日報200808.xls").Worksheets("1").Range("a40") End Sub 上記のように組んで、月が変わりとブック名も頭取用紙200809.xlsと 日報200809.xlsに変更したらマクロが使えなくなりました。当然なの でしょうが、記述も変更するしかないでしょうか？ Worksheetsは30(1か月分)あります。どうしてもわかりません。 宜しくお願いします。
- 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 と言う感じの入力作業で回避するとか？
関連するQ&A
- エクセルマクロ if文を繰り返したい
マクロ初心者です。 以下のようなマクロを作ったのですが、 これをE34まで繰り返しの処理をしたいです。 どこにどんな文章を挟んでいいのかわかりません。 Sub けいさん() If Workbooks("日報.xls").Worksheets("お手本").Range("O22") = "A" Then Workbooks("test.xls").Worksheets("II-1(1)").Range("E11") = "" ElseIf Workbooks("日報.xls").Worksheets("お手本").Range("O22") = "B" Then Workbooks("test.xls").Worksheets("II-1(1)").Range("E11") = "" ElseIf Workbooks("日報.xls").Worksheets("お手本").Range("O22") = "D" Then Workbooks("test.xls").Worksheets("II-1(1)").Range("E11") = "" ElseIf Workbooks("日報.xls").Worksheets("お手本").Range("C22") = "" Then Workbooks("test.xls").Worksheets("II-1(1)").Range("E11") = "" Else Workbooks("日報.xls").Worksheets("お手本").Range("C22").Copy Workbooks("test.xls").Worksheets("II-1(1)").Range("E11").PasteSpecial End If End Sub
- ベストアンサー
- オフィス系ソフト
- WorkbookのCopyについて
Workbookのコピーについて教えてください。 下記のマクロにセル内の数式もコピーしたいのですが、出来ないで困ってます。 値と数式をコピーする、マクロを入れると指定した範囲にコピーされません。 Sub CopyWorkbookToWorkbook() Windows("sheet2.xls").Activate Workbooks.Open Filename:="D:\book1.xls" Workbooks("book1.xls").Worksheets("sheet1").Range("A6:k1000").Copy Workbooks("book2.xls").Worksheets("sheet1").Range("A6").PasteSpecial Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False,Transpose:=False Workbooks("book1.xls").Close End Sub よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- マクロを教えてください
同じフォルダ内にあるXlsブックのあるSheetのデータを他のBookにコピーして貼り付けて貼り付けた側のBookで加工したいのですがうまくマクロが組めません。 Bookを共有で使っているので困っています。 Sub ワードアート1_Click ' ActiveWindow.ScrollWorkbookTabs sition:=xlLast Workbooks.Open ("販売管理表み.xls") Sheets("在庫一覧").Select Cells.Select Range("A1").Activate Selection.Copy Windows("完成在庫.xls").Activate Sheets("完成在庫一覧").Select Range("A1").Select ActiveSheet.Paste End Sub って書いてみましたが、Workbooks…のところでエラーになってしまいました。(TOT)初心者ですみません。教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセル 特定のシートを異なるブックの指定したシートにコピーするマクロ
エクセルの"貼り付け先.xls"の(シート名＝"集計")を開いている状態で、 別の異なるブックの"貼り付け元.xls"の（シート名＝"sheet1"）の内容を全部コピーして "貼り付け先.xls"の(シート名＝"集計元データ")へ貼り付けるマクロは どのようになりますでしょうか？ いろいろ調べて下記のように書きましたが、 インデックスが有効範囲にありませんというメッセージが出て、 デバッグを確認すると Workbooks("貼り付け元.xls").Worksheets("Sheet1").Range("A1").Copy_の部分が黄色く表示されてきます。 (１) "貼り付け先.xls"と"貼り付け元.xls"は同じパソコンのマイドキュメントに保存されています。 (２)"貼り付け元.xls"の"Sheet1"はセルA1から入力されていて、 内容は毎日変わります。 (３)Range("A1")や("A1:IV65536")のセル番地をいろいろ変えたりしても同じでした。 Sub クリップボードを経由せずにコピー貼り付けする_異なるブック() Workbooks("貼り付け元.xls").Worksheets("Sheet1").Range("A1").Copy_ Workbooks("貼り付け先.xls").Worksheets("集計元データ.xls").Range ("A1:IV65536") End Sub
- 締切済み
- オフィス系ソフト
- VBA初心者です。値を貼り付け について質問です。
ＶＢＡ初心者です。 値を貼り付け について教えてください。 Sub test() With Workbooks("A.xls").Worksheets("sheet1") .Range("A1").Copy Workbooks("Bxls").Worksheets("sheet1").Range("B2") .Range("A2").Copy Workbooks("B.xls").Worksheets("sheet1").Range("B4") End With End Sub コピーする方に計算式が入っているので 値を貼り付け したいのですが、どうすればいいのでしょうか？ PasteSpecial Paste:=xlPasteValues を使ったらよいというところまではわかったのですが・・・。 教えてください！よろしくお願いします！
- 締切済み
- Visual Basic
- エクセル2007のマクロについて
実践で学ぶ Office Excel 2007 VBAというマクロの学習サイトで Sub Macro実践1() 'ブック シート セルアドレスを指定すればブック シートをアクティブにする必要はない Workbooks("転記.xlsx").Worksheets("転記シート1").Range("A1").Value = _ Workbooks("データ.xlsx").Worksheets("データ1").Range("A1").Value End Sub と入力すると「インデックスが有効範囲にありません」となってしまいます。なにか間違っているのでしょうか？
- 締切済み
- Visual Basic
- VBA＿マクロ内でマクロ実行
独学でVBAをやってる初心者です。 よろしくお願いします。 EXCEL2003を使ってます。 例） ＜A.xlsファイル＞ Sub File_A () Workbooks.Open Filename:="B" Call File_B Range("A1").Select Selection.Paste End Sub ＜B.xlsファイル＞ Sub File_B () Range("A2:T5").Select Selection.Copy End Sub A.xlsファイルを開きマクロFile_Aを実行させると B.xlsファイルのマクロFile_Bを実行することができません。 どうしたらうまく実行できますか？ 教えてください。
- ベストアンサー
- その他（プログラミング・開発）
- Excel マクロ 別ブックの情報をコピーする方法
他のブックの情報をコピーして貼り付けるマクロを作成しています。 2種類のブックから情報をコピーして貼り付けます。 Sub MailTemp() Dim myCellall As Range Dim myCellyoso As Range Dim myCellfor As Range Set myCellall = Sheets("すべて").Range("A3") With Workbooks.Open("\") With .Worksheets("すべて") .Range(.Range("A3"), .Cells.SpecialCells(xlCellTypeLastCell)).Copy myCellall End With .Close False End With Set myCellyoso = ThisWorkbook.Worksheets("予測").Range("A3") Set myCellfor = ThisWorkbook.Worksheets("結果").Range("A3") With Workbooks.Open("\別ブック") With .Worksheets("予測") .Range(.Range("A3"), .Cells.SpecialCells(xlCellTypeLastCell)).Copy myCellyoso End With With .Worksheets("結果") .Range(.Range("A3"), .Cells.SpecialCells(xlCellTypeLastCell)).Copy myCellfor End With .Close False End With End Sub 下記の箇所でエラーが発生して、先に進みません。 原因を調べていましたが、わかりません。 Set myCellfor = ThisWorkbook.Worksheets("結果").Range("A3") エラーメッセージ 実行時エラー'9' インデックスが有効範囲にありません。 アドバイスを頂けますでしょうか。 よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- Excel マクロ 他ブックのシートの範囲選択した内容を別ブックのシートにコピーする方法
他ブックのシートの範囲を選択しコピーした内容を、別ブックのシート に貼り付けするマクロを作成しています。 現在の情報であれば、下記のマクロで解決できます。 Sub Test1() Dim myCellall As Range Dim myCellsom As Range Dim myCelluri As Range Set myCellall = Sheets("すべて").Range("A1") Set myCellsom = Sheets("総務").Range("A1") Set myCelluri = Sheets("売上").Range("A1") With Workbooks.Open("\") .Worksheets("すべて").Range("A1:K17").Copy myCellall .Worksheets("総務").Range("A1:K88").Copy myCellsom .Worksheets("売上").Range("A1:K81").Copy myCelluri .Close False End With End Sub ただ、他ブックのシートのデータは変動するため、行と列の変更を行わなければいけません。行と列の増減があっても、自動的に対応できるマクロを書きたいと思います。 どのようなマクロを追加すればよろしいでしょうか。 よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- マクロ EXCELの範囲をコピーして貼付け
『End(xlDown).Row』で取得した値を使ってセルの範囲指定＆コピーを行い、 新しく追加したシートに貼り付けたいのですがうまくいきません。 Sub attendanceJoin() Dim MaxRow As Integer 'シートの最終行の値 Workbooks("test.xls").Activate Dim NewWorkSheet As Worksheet Set NewWorkSheet = Worksheets.Add() '新しいシートを追加する MaxRow = Worksheets(2).Range("M1").End(xlDown).Row 'A列の最終行を取得 NewWorkSheet.Name = "統合" '新しく追加したシートの名前を変更 With Workbooks("test.xls") .Worksheets(2).Range("A1:M&MaxRow").Copy 'コピーするセルの範囲を指定 '↑ここでエラー。.Worksheets(2).Range("A1:M38").Copy を指定するイメージです。 .Worksheets("統合").Range("A1").PasteSpecial End With End Sub どなたか間違っている箇所のご教示お願い出来ますでしょうか。 どうぞよろしくお願い致します。
- ベストアンサー
- その他MS Office製品
お礼
n-jun さん、速効で解決しました。思い通りの結果で求めていた もの以上です。大変有難うございます。時間は費やしているのですが 進歩しません。深すぎて理解に苦しんでいる私です。感謝いたします。
補足
n-jun さん有難うございます。前回のラベルコントロールの時も お世話になっています。書き換えに時間を要しますので後ほど 結果を報告します。