Excel(エクセル)で非表示シートをVBAで計算するには？

2023/10/15 08:25

このQ&Aのポイント

エクセルで１つのブックにAシート～Fシートまであるとします。再計算させると、すべてのシートを再計算してしまうため時間がかかるので、マクロの自動記録を利用して「Aシート→Bシート→Cシート→Dシート→Eシート」と、必要なシートだけを順番に計算させる事で、処理時間短縮をさせる事をする事ができました。
EシートとFシートは表示させておいて、その他のA～Dシートは非表示にしました。Eシートには、A～Dシートで計算した結果が表示されるようになっています。
A～Dシートを非表示にして作成したマクロを実行すると、エラーが出てしまい上手くできません。A～Dシートを非表示にしていても、ブック全体を再計算させる事はできます。非表示にしたシートをマクロで計算させるには、どのようにしたら良いでしょか？

ベストアンサー

Excel(エクセル)で非表示シートをVBAで計算するには？

2008/03/04 07:04

よろしくお願いします。エクセルで１つのブックにAシート～Fシートまであるとします。再計算させると、すべてのシートを再計算してしまうため時間がかかるので、マクロの自動記録を利用して「Aシート→Bシート→Cシート→Dシート→Eシート」と、必要なシートだけを順番に計算させる事で、処理時間短縮をさせる事をする事ができました。 EシートとFシートは表示させておいて、その他のA～Dシートは非表示にしました。 Eシートには、A～Dシートで計算した結果が表示されるようになっています。ですが、A～Dシートを非表示にして作成したマクロを実行すると、エラーが出てしまい上手くできません。 A～Dシートを非表示にしていても、ブック全体を再計算させる事はできます。非表示にしたシートをマクロで計算させるには、どのようにしたら良いでしょか？アドバイスをお願い致します。登録したマクロは下記のようになっています。 Sub 計算() Sheets("Aシート").Select ActiveWorkbook.PrecisionAsDisplayed = False ActiveSheet.Calculate Sheets("Bシート").Select ActiveWorkbook.PrecisionAsDisplayed = False ActiveSheet.Calculate Sheets("Cシート").Select ActiveWorkbook.PrecisionAsDisplayed = False ActiveSheet.Calculate Sheets("Dシート").Select ActiveWorkbook.PrecisionAsDisplayed = False ActiveSheet.Calculate Sheets("Eシート").Select ActiveWorkbook.PrecisionAsDisplayed = False ActiveSheet.Calculate Sheets("Eシート").Select End Sub

Cuty_Cat
お礼率62% (224/358)

オフィス系ソフト
回答数2
ありがとう数2

みんなの回答 （2）
専門家の回答

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

ベストアンサー

KenKen_SP
ベストアンサー率62% (785/1258)

2008/03/04 08:06 回答No.1

こんにちは。 > A～Dシートを非表示にして作成したマクロを実行すると、エラーが出て > しまい上手くできません。 > A～Dシートを非表示にしていても、ブック全体を再計算させる事はできます。ということは、シートの表示・非表示という状態の差は再計算時に問題にならないということです。また、非表示のシートは Select できません。以上の点から対策は、「Select しなければ良い」となります。　　Sheets("Aシート").Select 　　ActiveSheet.Calculate これを Select を使わずに書けば、　　Sheets("Aシート").Calculate です。

質問者

お礼 2008/03/05 08:33

ご回答ありがとうございます。アドバイスして頂いた通りに修正した所、シートを非表示にしても計算させる事ができるようになりました。的確なアドバイスありがとうございました。

その他の回答 (1)

suz83238
ベストアンサー率30% (197/656)

2008/03/04 08:20 回答No.2

例えば表示しているもののみ再計算は以下でできます。 Sub xxx() For Each sh In ActiveWorkbook.Sheets If sh.Visible = True Then ActiveWorkbook.PrecisionAsDisplayed = True Next End Sub でももっといい方法があるような？

関連するQ&A

マクロ実行時、非表示シートを表示させたくない
ファイル[testBOOK]の中に(sheet1)(sheet2)があり (sheet2)は非表示,ブック保護されています。 (sheet1)にあるマクロAAボタンで・[図A]を非表示・[図B]を表示・マクロBBを実行するようになっています。 --------------------------------------- Sub AA() '≪非表示≫ ActiveSheet.Shapes("図A").Visible = False '≪表示≫ ActiveSheet.Shapes("図B").Visible = True 'ブック保護解除 ActiveWorkbook.Unprotect 'マクロBB実行 Sheets("sheet2").Visible = True Sheets("sheet2").Select Application.Run "testBook.xlsm!BB" ActiveWindow.SelectedSheets.Visible = False 'ブック保護 ActiveWorkbook.Protect End Sub ---------------------------------------- マクロBBとは[sheet2]の中にある・[図A]を非表示・[図B]を表示です。上記のマクロを実行させると(sheet2)が瞬間的に表示されてしまうのですが、これを表示させないようにすることはできないでしょうか？
- ベストアンサー
- オフィス系ソフト
エクセル９８　シート再計算のVBAについて
シート再計算のマクロを作成しようと思っています。「新しいマクロの記録」を選択して、適当な名前をつけてから、初期設定から「シート再計算」のボタンを押した後に、マクロの記録を終了させました。そして、記録したマクロを実行しようとしたのですが、エラーが出てしまいます。 Sub 再計算() Application.MaxChange = 0.001 ActiveWorkbook.PrecisionAsDisplayed = False ActiveSheet.Calculate End Sub この中の「Application.MaxChange = 0.001」に異常があると出てしまいます。そこで、この部分を削除したら上手く動作するようになったのですが、VBAのことについては良く分からないので、この部分を削除しても良かったのかどうか不安です。アドバイスを御願い致します。
- ベストアンサー
- オフィス系ソフト
エクセル２００７マクロ　シート間のセルコピー
[Sheet1]にあるデータを[Sheet2]にコピーするマクロボタンを[Sheet2]に作りたいのですが、マクロがよく分からないので、「マクロの記録」で作成してみました。 Sub siken() ' ' siken Macro ' ' Sheets("Sheet1").Select Range("A1").Select Selection.Copy Sheets("Sheet2").Select Range("A1").Select ActiveSheet.Paste Sheets("Sheet1").Select Range("B3").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("B3").Select ActiveSheet.Paste Sheets("Sheet1").Select Range("B6:D6").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("B6").Select ActiveSheet.Paste End Sub （実際はもっと多くのセルをコピーします）マクロを実行すると、ちゃんとコピーできるのですが、セルをコピーする都度[Sheet1]と[Sheet2]が交互に表示されます。コピー元の[Sheet1]を表示させずにマクロを実行させるにはどのようにしたらよいのでしょうか？よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
エクセル2007VBAで新規ファイルを作る場合
現在Ａ社というファイルのsheet1に電気代と名前を付けたデータ、sheet2にガス代という名前を付けたデータがあり電気代のブックからコピーして新規ファイルに貼り付けをしたいと思い下記のとおりマクロがありますが、新規ブックを開いた時常に1ではなく他に新規ブックを開いていたら２とか３になってしまいます。すると再度新規ブックに戻ってガス代を貼り付ける時２とか３ｔｐか４とかでしたらエラーになってしまいます。こういう場合どのように書いたら良いのでしょうか？それから最後に新規ファイルで名前を付けて保存のところまでダイアログ出すところまで教えていただきたいのですが。マクロ勉強始めたばかりでよろしくお願います。 Sub DGCopy() Cells.Select Selection.Copy Workbooks.Add Cells.Select ActiveSheet.Paste Sheets("Sheet1").Select Sheets("Sheet1").Name = "電気代" Windows("A社.xls").Activate Sheets("電気代").Select Cells.Select Application.CutCopyMode = False Selection.Copy Windows("Book1").Activate Sheets("Sheet2").Select Cells.Select ActiveSheet.Paste Sheets("Sheet2").Select Sheets("Sheet2").Name = "ガス代" Application.CutCopyMode = False End Sub
- ベストアンサー
- その他MS Office製品
エクセル　ＶＢＡ　繰り返し　コピー貼り付け
以下を繰り返し作業をOffsetを使用して行いたいのですがどうすればいいでしょうか？ Sheets("Sheet1").Select Range("A1:C1").Select　のA1:C1以下へA1000:C1000ぐらいあります。 Sheets("Sheet2").Select Range("G1").Select　は貼り付けたセル3つの数字の組み合わせで公式に使う計算期間がまちまちですので公式を張り付けたり出来ません。 D1の解を heets("Sheet1").Select Range("D1").Select　に貼り付けてA1:C1以下1000までの結果を評価出来るようにしたいのですが！ ' Macro1 Macro Sheets("Sheet1").Select Range("A1:C1").Select Selection.Copy Sheets("Sheet2").Select Range("D1").Select ActiveSheet.Paste Range("G1").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet1").Select Range("D1").Select ActiveSheet.Paste Range("A2:C2").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("D1").Select ActiveSheet.Paste Range("G1").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet1").Select Range("D2").Select ActiveSheet.Paste Range("A3:C3").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("D1").Select ActiveSheet.Paste Range("G1").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet1").Select Range("D3").Select ActiveSheet.Paste End Sub よろしくおねがいします。
- ベストアンサー
- オフィス系ソフト
エクセル2000　VBA
ウィンドウズ2000　エクセル2000です。ブックの中のシートを一枚だけコピーして別のブックに名前を付けて保存したいと思っています。「'コピーするシートを選ぶ Sheets("概要表").Select '全部選んでコピー Cells.Select Selection.Copy '新しいブックを選ぶ Workbooks.Add Cells.Select '新しいブックにコピーを貼り付ける。 ActiveSheet.Paste Application.CutCopyMode = False」ここまでは順当に動いています。質問はアクティブになった新しいブックを保存したいです。一行から二行目にかけて設定しているファイルネームを、メッセージボックスを表示させてそこに入力した文字列をファイルネームとして（現在****）保存したいのですが。 ActiveWorkbook.SaveAs Filename:= _ "**********.xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False どなたかよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
複数のシートにまたがり、フィルタオプションの設定から値を抽出するマクロ
複数のシートにまたがり、フィルタオプションの設定から値を抽出するマクロを組んでおります。表示したくないシート（data,output)を非表示にしたら、エラーが出てしまいました。非表示シートの状態で処理することはできませんでしょうか。 Sub Macro7() Application.ScreenUpdating = False Sheets("data").Select Columns("A:J").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Sheets("マップ").Range("E2:N3"), Unique:=False Columns("A:J").Select Selection.Copy Sheets("output").Select Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Copy Sheets("マップ").Select Range("E5").Select ActiveSheet.Paste Range("H4").Select Sheets("data").Select Application.CutCopyMode = False ActiveSheet.ShowAllData Sheets("マップ").Select End Sub
- ベストアンサー
- オフィス系ソフト
ＥＸＣＥＬのＶＢＡについて
マクロのボタンで内容を削除する様に設定した所、 Dim re As Integer Sheets("投入シート").Select re = MsgBox("入力データをクリアします。" & vbCrLf & vbCrLf & "よろしいですか？", vbOKCancel, "クリア確認") If re <> vbCancel Then Sheets("投入シート").Select ActiveSheet.Unprotect Range("a1:c30").Select Selection.Copy Application.CutCopyMode = False Selection.Copy Sheets("work").Select Range("A1").Select ActiveSheet.Paste Sheets("投入シート").Select ActiveSheet.Unprotect Range("c4:c30").Select Selection.ClearContents Range("f31").Select Selection.Copy Range("c9").Select ActiveSheet.Paste Range("f33").Select Selection.Copy Range("c11").Select ActiveSheet.Paste Range("f32").Select Application.CutCopyMode = False Selection.Copy Range("c14").Select ActiveSheet.Paste Range("c4").Select Application.CutCopyMode = False 'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End If Sheets("投入シート").Select Range("c4").Select End Sub この様に入力したのですがセルのＣ１１の計算式だけセル番号が消えてしまいます。どうしてでしょうか？ご指導をお願いします。
- ベストアンサー
- その他MS Office製品
Excel エクセルマクロ VBA
エクセルマクロで指定したシート(2シート目)から末尾のシートまで印刷したい場合、下記のようなコードで良いでしょうか？ Sub Sample1() Dim i As Long For i = 2 To Sheets.Count ActiveWorkbook.Sheets(i).Select (Replace:= False) Next i Activesheet.PrintOut Preview:=True End Sub
- ベストアンサー
- Excel（エクセル）
エクセルで繰り返し同じ作業をしたい
仕事でDドライブの中のフォルダにエクセルのシートが１００種類位入っています。それらのエクセルシートに毎日同じ作業をしなければならないのですが、（エクセルを開いて行う作業は各シート共通です）そのマクロの作り方を教えていただけないでしょうか？ちなみに Workbooks.Open Filename:="D:\業務\あ.xls" Range("D9").Select Selection.Copy Range("E9").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Save ActiveWindow.Close Workbooks.Open Filename:="D:\業務\い.xls" Range("D9").Select Selection.Copy Range("E9").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Save ActiveWindow.Close Workbooks.Open Filename:="D:\業務\う.xls" Range("D9").Select Selection.Copy Range("E9").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Save ActiveWindow.Close 　　　　その後もまだまだ続きます。というマクロの記録を使って作ってはいるものの、やたらと長くなってしまいます。VBAの知識がない初心者なのですが、いい方法があれば教えていただけないでしょうか？
- 締切済み
- オフィス系ソフト