Excel2000です。

エクセルの1つのブックの中に複数のシートがあるときに、
エクセルの1つのウィンドウの中に、その同一のブックの複数のシートを同時に表示させたいのですが、
どうすればよいでしょうか。
(?_?)

もちろん、エクセルの1つのウィンドウの中に、同一のブックを二つ以上表示できれば、上記のことは可能ですが、
そのやり方もわかりません。

A 回答 (3件)

Excelのヘルプより



複数のシートまたはブックを並べて表示する

表示するブックを開きます。
作業中のブックの複数のシートを表示するには、[ウィンドウ] メニューの [新しいウィンドウを開く] をクリックします。新しいウィンドウで、表示するシートのシート見出しをクリックします。表示する各シートについてこの操作を繰り返します。

[ウィンドウ] メニューの [整列] をクリックします。


[整列方法] のオプションをクリックします。
作業中のブックのウィンドウだけを整列して表示するには、[作業中のブックのウィンドウを整列する] チェック ボックスをオンにします
    • good
    • 0
この回答へのお礼

[新しいウィンドウを開く] なんですね。ありがとうございました。

お礼日時:2001/11/29 22:14

以下の方法でシートの一部を表示させることも可能です。


一部しか表示できないかわりに、印刷にも対応します。

ツール→ユーザー設定→コマンド→ツール
の中にあるカメラのボタンをツールバーにドラッグして使えるようにします。

別シートに表示させたい範囲を選択してカメラボタンを押し、表示したい場所でマウスクリック。

以上でExcel上の別の場所にある範囲を並べられます。
    • good
    • 0
この回答へのお礼

カメラって知りませんでした。いいことを聞きました。
( ̄ー ̄)ニヤリッ

お礼日時:2001/11/29 22:25

はじめまして。


ご質問の意味を間違えていたらごめんなさい。

1.「ウィンドウ」メニューから、「新しいウィンドウを開く」を選択。
2.同じく「ウィンドウ」メニューから、「整列」を選択。
3.「左右に整列」、「上下に整列」、などを選択してOK。

これで、同一ブック内のシートを複数表示させることができます。
    • good
    • 0
この回答へのお礼

>ご質問の意味を間違えていたらごめんなさい。

だいじょうぶです。間違えていません。

おっしゃるとおりにしたらできました。(●^o^●)

お礼日時:2001/11/29 22:13

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセルでブックを3つ同時に開いて、3つのブックの表示倍率を同時に40%にする事はできますか(?_?)

こんにちは、みなさん!!

【質問】エクセルで、ブックを3つ同時開きます。この3つの
ブックの表示倍率を、同時に40%(任意倍率)にする事は
できますか(?_?)

ご存知の方いらっしゃいましたらよろしくお願いします。

Aベストアンサー

補足要求です
最初に一連の質問を拝見して気になった点を述べます
エクセルでは「ブックを3つ同時に開いて」は意味がないです。操作上は3つまとめて起動したのかもしれませんが、ブックは個々に独立しています。他の回答者さまもこのキーワードに困惑されているようですね。

従って本質問は「同時に開いている3つのブックの表示倍率をいっぺんに40%にすることはできるか?」という意味になりますが、そこで質問です。

それぞれのブックは3枚のシートから構成されているようですね。ズーム倍率はシート毎に設定が必要です。3シート×3ブック=9シートの倍率を40%にしたいのですか?

また3つのブック以外にブックが開いている場合はどうすればよいですか? (開いている全ブックの全シートを40%にするのであれば簡単です。でも指定した3ブックの、特定のシートのみを変倍するのであれば、ブック名、シート名などを補足していただかないとマクロは書けません)

QVBAマスターブックの作成につきまして 質問致します 複数のブックに複数のシートが有ります 保存ファ

VBAマスターブックの作成につきまして
質問致します
複数のブックに複数のシートが有ります
保存ファイルは1つにまとめてあります

マスターブック
セルB5にブック名
セルD5にシート名
を入力して該当するブックのシートを
開くようなマクロを作成したいのですが
上手く行きません

マクロ初心者の為
記入内容をわかりやすく教えて頂けないでしょうか
よろしくお願いします。

Aベストアンサー

以下のマクロを標準モジュールへ登録してください。
----------------------------
Public Sub 検索処理()
Dim sh As Worksheet
Dim dir_name As String
Dim book_name As String
Dim sheet_name As String
Dim book_path As String
Set sh = Worksheets("検索")
dir_name = sh.Range("B3").Value
book_name = sh.Range("B5").Value
sheet_name = sh.Range("D5").Value
book_path = dir_name & "\" & book_name
If dir(dir_name, vbDirectory) = "" Then
MsgBox (dir_name & "は存在しません。")
Exit Sub
End If
If dir(book_path) = "" Then
MsgBox (book_name & "は存在しません。")
Exit Sub
End If
Workbooks.Open book_path
Workbooks(book_name).Activate
If ExistsWorkSheet(sheet_name) = False Then
MsgBox (book_name & "中に" & sheet_name & "は存在しません")
Workbooks(book_name).Close
Exit Sub
End If
Worksheets(sheet_name).Activate
Range("A1").Activate
MsgBox ("検索完了")
End Sub

'ワークシートの存在チェック
Public Function ExistsWorkSheet(ByVal sheetName As String) As Boolean
Dim ws As Worksheet
ExistsWorkSheet = False
For Each ws In Worksheets
If UCase(ws.name) = UCase(sheetName) Then
ExistsWorkSheet = True
Exit Function
End If
Next ws
End Function
------------------------------------
添付の図のようにセルに検索条件が設定されていることが前提です。
B3:フォルダ名
B5:ファイル名(ブック名)
D5:シート名

以下のマクロを標準モジュールへ登録してください。
----------------------------
Public Sub 検索処理()
Dim sh As Worksheet
Dim dir_name As String
Dim book_name As String
Dim sheet_name As String
Dim book_path As String
Set sh = Worksheets("検索")
dir_name = sh.Range("B3").Value
book_name = sh.Range("B5").Value
sheet_name = sh.Range("D5").Value
book_path = dir_name & "\" & book_name
If dir(dir_name, vbDirectory) = "" Then
Msg...続きを読む

Qエクセルで3つのブック(中は3つのシート)を同時に開いた時に常に2番目のシートが開いているようにするには?

こんにちは、みなさん!!

【質問】エクセルの3つのブックがあります。中身は3つのシート
があり、全て同じフォームのシートです。

そこで、同時に3つのブックがを開いた時に、ブックの中の1つめのシートではなく、2つ目のシートが常に表示されるようにする事はで
きますか?

ご存知の方いらっしゃいましたらよろしくお願いします。

Aベストアンサー

3つのブックのそれぞれに対して以下のことをしてください

(1)ブックを開き、ALT+F11でVBE画面を開く
(2)画面左上のVBAProjectエクスプローラのThisWorkBookを右クリック→コードの表示
(3)以下のマクロを右側に開いた画面に貼り付ける
Private Sub Workbook_Open()
Worksheets("Sheet2").Activate
End Sub
(4)2行目のシート名を表示したい実際のシート名に書き換える
(5)シート画面に戻り、Bookを保存する

これで次にBookを開くと二番目のシートが最初に表示されます

Q【エクセル】複数シートの同一セルの内容を別のシートに自動反映させたい

エクセルについて教えてください。エクセル初心者なので、説明がうまくできないのですが、やりたいことを汲み取っていただけると助かります。

現在複数シートのシートの同一セル上に数字が記入されています。
新たに別シートを作成し、その表に数字が自動入力されるように
したいのですが、何か方法はありますでしょうか。
例)(1)シート1~12のA10セルに4月-3月までの支出合計が
   記入されている。
  (2)別シートに縦罫4月-3月、横罫支出合計とした表を作成。
  この表に月ごとの支出合計が自動的に反映されるように
  したいのですが、今はセル一つずつに"=シート1のセルA10"を
  入力しています。
  この方法以外に便利な方法があったら教えてください。

  説明下手で申し訳ございませんが、宜しくお願い致します。

Aベストアンサー

>>=INDIRECT("支出"&A2&"!A10")
上記の計算式でやってみたのですが、#REF!となってしまいます。

A2セルに「4月」などの月がシート名と同じフォント(数字が半角で月が全角など)で入力されているのでしょうか?

念のため、「=INDIRECT("支出4月!A10")」と数式を使わずに文字列でそのまま参照したときに正しい値が返るか調べてみてください。

Q複数エクセルブックのそれぞれシートごとを1つに合体

同項目で、それぞれ入力内容の違う複数のエクセルファイル「A店」「B店」「C店」「D店」・・・と複数店分あります。
各々のファイル内に、Aマスタ、Bマスタ、Cマスタと3シートあります。(これも同項目で入力内容が違う)
これをAマスタ、Bマスタ、Cマスタというそれぞれのファイルに分けて、全店分を1つのシートに合体させたいのですが、かなりのファイル数があるので1つ1つのファイルを開き、コピー&ペーストすると、かなりの時間が必要になります。
マクロを利用した方法はございませんでしょうか?

シートの内容詳細としては、
・各シート1~9行目までは、シートの記入方法の説明がある。
・10行目にヘッダー
・Aマスタ、Bマスタ、Cマスタすべてヘッダーは同じ項目。

そのため、11行目からのデータを、「A店」「B店」「C店」「D店」・・・全店分を合体させ1つのファイルにしたものを作成したいと思っています。
何かいいマクロがございましたら教えていただけますでしょうか。
マクロに関してあまり知識がございませんので、よろしくお願いいたします。

Aベストアンサー

マージ(単純結合)対象ファイル(ブック)とマクロブックは、全て同じフォルダにある。
対象シートの形式も全て同じ。
対象シートは、xFromとxToに連続したシート番号で設定する。
マージ結果は、マクロブックの同じ並びにあるシートに出力。(最初に空きのシートを用意する必要がある)

Option Explicit
Sub MergeBooksEachSheets()
Const xFileSelector = "\*.xls*"
Const xKey_Col = "A"
Const xFrom = 1
Const xTo = 3
Const xNum = xTo - xFrom + 1
Const xHeads = 10
Dim xPath As Variant
Dim xFileName As Variant
Dim xName As Variant
Dim xBook As Workbook
Dim xSheet As Worksheet
Dim xNoData As Boolean
Dim nn As Long
Dim xLast As Long
Dim zLast As Long
'Application.ScreenUpdating = False
Application.DisplayAlerts = False
xNoData = True
Set xBook = ThisWorkbook
xPath = xBook.Path & "\"
xName = xBook.Name
xFileName = Dir(xPath & xFileSelector, vbNormal)
Do Until xFileName = Empty
If (xFileName <> xName) Then
With Workbooks.Open(xPath & xFileName)
If (xNoData) Then
For nn = xFrom To xTo
xBook.Sheets(nn).UsedRange.Clear
Application.CutCopyMode = False
.Sheets(xFrom).Rows("1:" & xHeads).Copy
xBook.Sheets(nn).Range("A1").PasteSpecial Paste:=xlPasteValues '値だけを貼付け
Next
End If
For nn = xFrom To xTo
Application.CutCopyMode = False
Set xSheet = .Sheets(nn)
xLast = xSheet.Cells(Rows.Count, xKey_Col).End(xlUp).Row
xSheet.Rows(xHeads + 1 & ":" & xLast).Copy
zLast = xBook.Sheets(nn).Cells(Rows.Count, xKey_Col).End(xlUp).Row
xBook.Sheets(nn).Range("A" & zLast + 1).PasteSpecial Paste:=xlPasteValues '値だけを貼付け
Next
Application.CutCopyMode = True
.Close
End With
xNoData = False
End If
xFileName = Dir
Loop
If xNoData = True Then
MsgBox ("No Data Found!!")
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

マージ(単純結合)対象ファイル(ブック)とマクロブックは、全て同じフォルダにある。
対象シートの形式も全て同じ。
対象シートは、xFromとxToに連続したシート番号で設定する。
マージ結果は、マクロブックの同じ並びにあるシートに出力。(最初に空きのシートを用意する必要がある)

Option Explicit
Sub MergeBooksEachSheets()
Const xFileSelector = "\*.xls*"
Const xKey_Col = "A"
Const xFrom = 1
Const xTo = 3
Const xNum = xTo - xFrom + 1
Const xHeads = 10
Dim xPath As Variant
Dim xFileName ...続きを読む


このカテゴリの人気Q&Aランキング

おすすめ情報