関数設定でデータ参照ができなくなる問題を解決する方法

前へ 次へ
このQ&Aのポイント
  • 別ブックに保存する際に、関数設定が影響してデータ参照ができなくなる問題があります。
  • 元シートをコピーしているため、関数を含んだ参照が破損します。
  • データを正しく保持した状態で別ブックに保存するためには、値にして保存する必要があります。
回答を見る
  • ベストアンサー

別ブックにして保存する際、関数が設定してあるためデータが参照できなくなります。

別ブックにあるシート(元シート)をコピーしていますが、そのシートは他のシートから関数を入れて参照しているため、別ブックにするとデータがおかしくなります。すべて値にして別ブックにするにはどのようにしたらいいでしょうか？ いま書いているコードは次のように書いています。 Sub 保存() Application.ScreenUpdating = False Worksheets("元").Copy ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" _ & Range("A1").Text & "－" & Range("F2").Text & "・" & Range("J2").Text & ".xls" Application.ScreenUpdating = True End Sub

  • wait4u
  • お礼率45% (619/1365)

質問者が選んだベストアンサー

  • ベストアンサー
  • lark_0925
  • ベストアンサー率63% (37/58)
回答No.1

Sub 保存() 　　dim sht as worksheet 　　Application.ScreenUpdating = False 　　Worksheets("元").Copy 　　Set sht = ActiveSheet 　　On Error Resume Next 　　With sht.Cells.SpecialCells(xlCellTypeFormulas) 　　　　.Value = .Value 　　　　End With 　　On Error GoTo 0 　　sht.parent.SaveAs Filename:=ThisWorkbook.Path & "\" _ 　　　　　& Range("A1").Text & "－" & Range("F2").Text & "・" & 　　　　　Range("J2").Text & ".xls" 　　Application.ScreenUpdating = True End Sub

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • ブックを開かずにデータ取得する

    ExecuteExcel4Macroを使いブックを開かずに別ブックのセル内容を 転記する下記のような制御を真似て書きましたが、別ブックにパスワードが設定してあるとセルの個数分パスワードを聞いてきます。 制御の中でパスワードを解除する方法はありますか。 Sub GetFromFile() Application.ScreenUpdating = False Dim FileName, CellName, PathName, SheetName, arg As String Dim result Dim I PathName = "C:\" FileName = "Book1.xls" SheetName = "Sheet1" For I = 1 To 5 CellName = Application.Choose(I, "A", "B", "C", "D", "E") 　　　& "1" arg = "'" & PathName & "[" & FileName & "]" & SheetName 　　　　& "'!" & Range(CellName).Range("A1").Address(, , xlR1C1) result = ExecuteExcel4Macro(arg) Worksheets(1).Cells(1, I).Value = result Next End Sub

  • 複数のシートを別ブックにコピーして保存したい

    毎回、シート数が変動するEXCELファイルの、表示されているシートのみ（非表示シート有）を、 別のブックにコピーして、セルの書式と値を貼付けし、 元ファイルのシート名と同じシート名を付けたいのですが、 どんなVBAを組めば良いでしょうか？ 下記の様に作成してみましたが、ファイル自体がコピペされてしまう様で、 自分のイメージした通りに動きません・・・。 ご教授の程、宜しくお願いいたします。 Sub データ書き出し() Dim ws As Worksheet Dim i As Long With ActiveWorkbook i = Worksheets.Count For j = 1 To i ThisWorkbook.Worksheets(j).Cells.Copy .Worksheets(j).Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next j Application.CutCopyMode = False .SaveAs "月別DATA_" End With End Sub

  • VBAでVBAを削除？

    作業中のブックから一枚のシートを以下のSub 別ファイル保存()プロシージャで別のブックとして保存します。それはうまくいったのですが、この元になるシートには Private Sub Worksheet_SelectionChange(ByVal Target As Range) '途中略 End Sub と Private Sub Worksheet_Deactivate() '途中略 End Sub の二つのVBAが記述してあり、これまで一緒に別のブックに入ってしまいます。 これを防ぐにはどのようにすればよいのでしょうか？ Sub 別ファイル保存() mypath = ThisWorkbook.Path fn = Sheets("Declarations").Range("H15").Value & Format(Date, "yymmdd") ffn = mypath & "\" & fn & ".xls" Sheets("Declarations").Copy ActiveWorkbook.SaveAs Filename:=ffn ActiveWorkbook.Close End Sub

  • Excelシート１シートのみを指定フォルダへ保存

    Excelのシート1のみを、本日の日付と名前の入ったセル（I7）を保存する時の名前にして指定したフォルダへ保存したいと思っています。 1、シートは本日の日付+I7セルに入っている値を名前にする。 2、フォルダはCではなくV:\○○\○○\○○\○○\○○\○○\○○に格納 3、シート1以外のシート2、シート3は保存せず閉じる 4、格納後○○に保存しました。と表示 試行錯誤し、下記のように記述してみたのですが、 Sub Macro1() 'Option Explicit Sub Sample() Dim xSheet As Worksheet Dim myFile As String Dim myName As String Set xSheet = ActiveSheet ThisWorkbook.Worksheets("シート名").Copy 'myName = ActiveWorkbook.Worksheets(1).Name 'myFile = ThisWorkbook.Path & "\" & myName & ".xls" myFile = ThisWorkbook.Path & "\" & xSheet.Range("I7").Value & ".xls" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=myFile Application.DisplayAlerts = True ActiveWorkbook.Close End Sub 日付を指定して保存 Sub test() 　Dim Filename As String 　Filename = Format(Date, "yyyy年mm月dd日") & ".xls" 　ActiveWorkbook.SaveAs "C:\My Documents\" & Filename End Sub 日付とI7セルの名前を合せてブックの名前としたい場合どうVBEで記述すればいいのかわからないので詳しい方がおられましたら、 よろしくお願いいたします。 あまり詳しくないので、そのままコピーできるか、○○の部分を指定フォルダ名に変えてください。等の注釈を付けていただけると助かります。

  • エクセルで置換リストを別ブックにおいたマクロを作りたい

    置換専用につくったワークシートに A列に検索文字 B列に置換文字を入力したリスト（例えば"Book2.xls"の"sheet1"）を作りました。 このリストを使って別のブック内（例えば"Book1.xls"）の複数のシート内を一括して置換えがしたいです。 自分で調べてみて下記で置換えはできたのですが、その都度、各シートを選択しなければだめでした。 一括で同ブック内の複数シート内を置換えさせるには、どこを修正したらいいのでしょうか？ 見よう見まねの初心者です。 どうぞよろしくお願いします。 Sub 置換() 　With ThisWorkbook 　　If ActiveSheet Is .Worksheets(1) Then Exit Sub 　　For i = 1 To .Worksheets(1).Range("A65536").End(xlUp).Row 　　　ActiveSheet.Cells.Replace _ 　　　　 What:=.Worksheets(1).Range("A" & i).Value, _ 　　　　 Replacement:=.Worksheets(1).Range("B" & i).Value, _ 　　　　 LookAt:=xlPart, SearchOrder:=xlByColumns 　　Next 　End With End Sub

  • 部署ごとに分割し、ブックで保存するコード

    部署ごとに分割し、ブックで保存するコードです。 A1、1列目から分割していますが、B2、4列目から分割する方法を教えてください。 A65536をB65536に変えたりなどしていましたが、エラーが出ます。 よろしくお願いします。 Sub macro1() Dim w As Worksheet Dim n As Long Dim r As Long Dim s As String Dim WSH As Variant Dim myPath As String Set w = ActiveSheet n = Worksheets.Count Application.ScreenUpdating = False On Error GoTo errhandle For r = 2 To w.Range("A65536").End(xlUp).Row s = w.Cells(r, "A") w.Rows(r).Copy Worksheets(s).Range("A65536").End(xlUp).Offset(1) Next r On Error GoTo 0 Set WSH = CreateObject("Wscript.Shell") myPath = ThisWorkbook.Path & "\" For r = Worksheets.Count To n + 1 Step -1 Worksheets(Worksheets.Count).Copy ActiveSheet.Columns.AutoFit ActiveWorkbook.SaveAs Filename:=myPath & ActiveSheet.Name ActiveWorkbook.Close False Application.DisplayAlerts = False Worksheets(Worksheets.Count).Delete Application.DisplayAlerts = True Next r w.Select Exit Sub errhandle: Worksheets.Add after:=Worksheets(Worksheets.Count) ActiveSheet.Name = s w.Rows(1).Copy Range("A1") Resume Application.ScreenUpdating = True End Sub

  • 指定セルを別ブックへ貼り付ける作業

    １．現在、見積書.xlsの見積汎用シートで以下の内容で同じブックのデータベース貼付シートに貼り付けています。 Sub データベース貼付() GYOU = Worksheets("データベース").Range("A65536").End(xlUp).Row + 1 Worksheets("データベース").Cells(GYOU, 1).Value = Range("H13").Value Worksheets("データベース").Cells(GYOU, 2).Value = Range("C8").Value Worksheets("データベース").Cells(GYOU, 3).Value = Range("C6").Value Worksheets("データベース").Cells(GYOU, 4).Value = Range("C15").Value Worksheets("データベース").Cells(GYOU, 5).Value = Range("D15").Value Worksheets("データベース").Cells(GYOU, 6).Value = Range("E15").Value Worksheets("データベース").Cells(GYOU, 7).Value = Range("G30").Value Worksheets("データベース").Cells(GYOU, 8).Value = Range("H1").Value ２．これを見積書.xlsの見積汎用シートを別ブックのデータベース.xlsのデータシートに貼り付けたいと思います。 ３．以下の内容で仮に自分で貼り付けてみようとしましたがうまくいきません。 Sub コピーしてすべて貼り付ける() Workbooks("見積書.xls").Worksheets("見積汎用").Range(D6).Copy _ Workbooks("データベース.xls").Worksheets("データ").Range(B4) End Sub どのように、別ブックに指定したセルを貼り付けできるでしょうか？いろいろとサイトを見ましたがどうもうまくできませんでした。 説明がわかりづらく申し訳ないですが、どなたか教えていただけないでしょうか？ よろしくお願い致します。

  • 複数ファイルにある特定のシートを１つにまとめたい

    エクセルで複数ファイルにある特定のシートの特定した範囲を １つのファイルにまとめたいと思っています。 ネットで調べて見て、１つのワークシートしかない場合の 複数ファイルをまとめるマクロは探すことができました。 複数のシートから特定のシートの特定した範囲を１つにまとめる 場合はどこを変えたらいいのでしょうか？ Sub ブック集合() Application.ScreenUpdating = False FN$ = Dir("C:\My Documents\Test\*.xls", vbNormal) i% = 1 Do Until FN$ = "" Workbooks.Open FileName:="C:\My Documents\Test\" & FN$ With ActiveWorkbook .Worksheets(1).Copy After:=ThisWorkbook.Worksheets(i%) .Close SaveChanges:=False End With i% = i% + 1 FN$ = Dir() Loop ThisWorkbook.Worksheets(1).Delete Application.ScreenUpdating = True End Sub

  • マクロ：別ブックのデータの値を転記

    ExcelでVlook関数を使ってデータを検索していたのですが、マスタの件数(15,000件)と数式が多くなってしまいブックの容量が大きくなってしまって動きづらくなってしまったので、マスタと検索のブックに分け、マクロを使おうと思ってます。 簡単にいうと、 【マスタブック】 　　A列　　B列 1　　1　　　あ 2　　2　　　い 【検索ブック】 　　A列　　B列 1　　2　　　い 2 検索ブックA列1行目に、「2」を入力してマクロを実行すると「い」が表示されるようにしたいのです。　　 開いておくのは検索ブックはのみです。 Sub 転記() Dim マスタ As Workbook Dim 検索 As Workbook Dim 行, 数字 As Long Dim Bname As String Bname = ActiveWorkbook.Name Workbooks.Open Filename:="C:\Documents and Settings\mi200274\デスクトップ\\マスタ.xls" Workbooks("マスタ.xls").Activate Set マスタ = Workbooks("マスタxls") Set 検索 = ThisWorkbook Set ws1 = マスタ.Worksheets("Sheet1") Set ws2 = 検索.Worksheets("Sheet1") On Error Resume Next 行 = 1 Do Until ws2.Range("A" & 行).Value = "" 数字 = ws2.Range("A" & 行).Value 対象 = ws1.Range("A:A").Find(数字, lookat:=xlWhole).Row ws2.Range("B" & 行).Value = ws1.Range("B" & 対象).Value 行 = 行 + 1 Loop ActiveWorkbook.Close Workbooks(Bname).Activate End Sub 以上のマクロを知人に教わりながら作ってみたのですが、マスタを一度開かないと検索はできないのでしょうか？ 重たいデータなのでできれば開かずに検索して値を転記したいので、そのようなコマンド等ご存知の方教えてください。 ちなみにマクロは「新しいマクロの記録」から作る程度の初心者です。よろしくお願いします。

  • EXCEL VBA 新規ブック保存について

    フォームで作成したデータから、請求書などの帳票をシートに作成しています。 その請求書シートを、新たなブックを作成し、シートへ貼り付け セルC7（帳票名） 　　　F11（コード１） 　　　J11（コード２） この３つを合わせた名前で任意のフォルダへ保存して、閉じるようにしたいと考えています。 また、ブックの保存先を指定するにあたり 下の指定でコードを書いたのですが 　　　C:\Users\××××××\Desktop\管理システム\帳票 システムを丸ごと違うPCに変えても、エラーが出ないようにするには この指定の書き方でも良いのでしょうか？ まだ初心者なもので 二つのブックを行き来するコードで頭が混乱しています。 まだVBA勉強を始めたばかりで、質問方法も拙いところも多々あると思いますが ご教授いただけます様、どうぞよろしくお願い致します！ 自分で書いたコードですが 考えすぎて、ちょっと支離滅裂になってしまい 恥ずかしいのですが藁にもすがる思いでご質問させていただきました Dim Newbook As Workbook 　　Set Newbook = Workbooks.Add 　　fileName = Range("C7") & "_" & Range("F11") & Range("J11") 　　Newbook.SaveAs fileName:=Worksheets("請求書").Range("C7") & "_" & Worksheets("請求書").Range("F11") & Worksheets("請求書").Range("J11") Windows("管理システム.xls").Activate Worksheets("請求書").Select Cells.Select Selection.Copy Windows("fileName").Activate Cells.Select ActiveSheet.Paste Range("A1").Select 　ブック名　（元データ）　管理システム.Xls 　シート名　　　　　　　　請求書 追記：　本来はフォームから直接印刷を出したいのですが 　　　　　フォームでは対応しきれない部分を、シート上にて必要に応じ手を加えてから、 　　　　　出力したいと考え、今回のシートへの出力を考えています

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する