Excelでは画面下にタブ(Sheet1とか)があって、必要なページ(シート)に簡単に飛ぶことができますよね。
Wordでは同じようなページジャンプの機能はないのでしょうか? 画面右のスクロールバーで動かす以外に必要なページにたどり着けないのでしょうか。 1,2ページならまだしも、10、20ページになるとこれがめんどくさいのです。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

見出しマップ([表示]-[見出しマップ])ですかね。


左に見出し単位に文字が出てきます。文字をクリックするとそのページにジャンプします。
ただ、これを使う場合は文書構造がしっかりしていないと使い勝手が悪いです。
最悪、文書と同じ内容が出るかも。

この辺の機能は素晴らしいものを感じるのですが、私自身使い方を把握しきれていません。あぁWordマスターになりたい。。。
    • good
    • 0
この回答へのお礼

なるほど! ありがとうございました。

お礼日時:2001/05/24 10:50

ページジャンプはtelescopeさんの言われる以外に


F5キーやステータスバー(ウィンドウの一番下)の左側のページ番号とセクションの表示されている欄をダブルクリックしても出来ます
    • good
    • 0

画面右のスクロールバーの一番下の下向き矢印で、次のページへジャンプできます(Ctrl+PageDown)。

その上の白い四角いマークで、ジャンプ先の選択が出来ます(Ctrl+Alt+Home)。

「編集」-「ジャンプ」でもジャンプ先を指定できます(Ctrl+G)。
    • good
    • 0

このQ&Aに関連する人気のQ&A

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

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

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

Qsheet1上のマクロでsheet2に画面を切り替えずに行を挿入させたい

Excel2002ユーザーです。

sheet1上で実行するマクロで、画面を切り替えることなく、
いわば水面下でsheet2の行1に空行を挿入させ、常に最新のデータ(Sheet1上にあるセルの値)を書き込んでいく、
ということをしたいのです。
古いデータは順次、下に送られる形です。

まずデータの書き込み以前に、挿入ができないのです。
sheet1上のマクロで、

Worksheets("sheet2").Rows("1:1").Select
Selection.Insert Shift:=xlDown

と書き込みましたがダメでした。
(実行時エラー'1004': RangeクラスのSelectメソッドが失敗しました)

Sheets("sheet2").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown

の場合、行挿入はOKですが、sheet2に画面が切り替わってしまいます。

常にsheet1の画面を表示させたままにしてこのようなことを行いたいのですが、
良きアイデア、アドバイスがありましたら御教授ください。

よろしくお願い致します。

Excel2002ユーザーです。

sheet1上で実行するマクロで、画面を切り替えることなく、
いわば水面下でsheet2の行1に空行を挿入させ、常に最新のデータ(Sheet1上にあるセルの値)を書き込んでいく、
ということをしたいのです。
古いデータは順次、下に送られる形です。

まずデータの書き込み以前に、挿入ができないのです。
sheet1上のマクロで、

Worksheets("sheet2").Rows("1:1").Select
Selection.Insert Shift:=xlDown

と書き込みましたがダメでした。
(実行時エラー'1004': Rangeクラス...続きを読む

Aベストアンサー

Sheets("sheet2").Range("1:1").Insert Shift:=xlDown

としてください。

QSheet1に元がありSheet2で分けたものをSheet1で選択する方法がないですか?

またまた、質問させてください。

Sheet1が元ファイルSheet2に分けたものがあります。

-----------------------------------------
Sheet1

  A  B  C  D
1 sb
2 sg
3 sh
4 sm
5 ko

-----------------------------------------
Sheet2

  A  B  C  D
1 sb  sg  sh sm
2 ko
3 
4
-----------------------------------------

Sheet2のA列のものだけSheet1で選択したいのですがなにか方法がないでしょうか?

Aベストアンサー

No.1です。

>コピーして隣のセルに貼り付けすると詰まって貼り付けされてしまいますがそのまま貼り付けすることはできるのでしょうか?

単純にSheet2のA列データをSheet1のA列と一致する行のB列に表示すればよいわけですね?
やり方を全く変えてみました。
今回も標準モジュールです。

Sub Sample3()
Dim i As Long, c As Range, wS As Worksheet
Set wS = Worksheets("Sheet2")
With Worksheets("Sheet1")
For i = 1 To wS.Cells(Rows.Count, "A").End(xlUp).Row
Set c = .Range("A:A").Find(what:=wS.Cells(i, "A"), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
c.Offset(, 1) = wS.Cells(i, "A")
End If
Next i
End With
End Sub

何とかお望みどおりにならないでしょうか?m(_ _)m

No.1です。

>コピーして隣のセルに貼り付けすると詰まって貼り付けされてしまいますがそのまま貼り付けすることはできるのでしょうか?

単純にSheet2のA列データをSheet1のA列と一致する行のB列に表示すればよいわけですね?
やり方を全く変えてみました。
今回も標準モジュールです。

Sub Sample3()
Dim i As Long, c As Range, wS As Worksheet
Set wS = Worksheets("Sheet2")
With Worksheets("Sheet1")
For i = 1 To wS.Cells(Rows.Count, "A").End(xlUp).Row
Set c = ....続きを読む

QMS Word 2003、画面下スクロールバー部分のページ番号表示

MS Word 2003にアップデートしてから、画面下スクロールバー部分に全体のページ数/現在のページ番号、現在の行数等が表示されなくなりました。
ヘルプで見ても表示方法がわかりません。

どうしたら、画面下にページ番号を表示できるようになりますか?

(フッタへのページ番号挿入云々ではなく、単に作業中に今どこのページ、行にいるかを知りたいのです。)

Aベストアンサー

ステータスバーのことだと思います。

ツール→オプション をクリックして、

ダイアログボックスの「表示」タブをクリックして、

表示項目の左端上から4番目のチェックボックスに
□ステータスバーのところにチェックが入っていなければ、
チェックボックスを入れれば解決すると思います。

Q(^・^) デジカメ写真をプリントスクリーンし、貼り付け……ペイント画面ではできても、ワード画面では貼り付けできない?

 パソコン修業中です。
 デジカメで撮った写真を画面に出して、プリントスクリーンをかけ、ペイント画面にきりかえて、編集→貼り付けとクリックしたら、写真が画面に貼り付きますが、同じように写真をプリントスクリーン後、ワード画面で編集→貼り付けとクリックしても、貼り付きません。
 ペイント画面とワード画面では、なにか作りがちがうんでしょうか?

Aベストアンサー

>ワードの画面には細い線の枠(写真の外枠?)が表示されるだけで、なかみの写真はあらわれません。

「ツール」-「オプション」の「表示」タブで[図をイメージ枠で表示する]にチェックが入っていませんか?

QエクセルでSheetからSheetへの飛ばし方

Sheet1、Sheet2、Sheet3、Sheet4それぞれに一覧表データが入っています。(一覧表はすべて同じ様式)
この4つのSheetのデータをSheet5に蓄積させるにはどうすればよいでしょうか。
Sheet5を見れば、Sheet1~Sheet4までの全ての一覧表の合体版が見れるようにしたいのですが・・・。蓄積されるデータの順番は問いません。
セルの端にどのSheetからとんできたかは分かるようにしたいです。
教えて下さい。

Aベストアンサー

もう1点の方が閉じられてしまったのでこちらに。

AdvancedFilterでの一案。

C2~C14の項目をA5~M5に並べ替えて下さい。
注意は、C5~M5の項目名と各学校シートの項目名が一致している事。

検索値の入力は、6行目から10行目まで対応してます。
必ず上の行から入れて下さい。
例)国語 且つ 教材
6行目の該当項目に 国語 と 教材 を入力します。

例)国語 又は 理科
該当する項目に 6行目に 国語  7行目に理科 を入力して下さい

例)国語 又は 教材
6行目に 国語 7行目に 教材 です。

6行目の次に8行目に打ち込んだ場合、8行目は無視されます。
検索に有効だったものについては、薄緑色にセルが塗りつぶされます。
6行目を飛ばした場合は、その場で中断します。

新しくシートを作成して”検索シート2”として、コードに学校名を訂正し、
コマンドボタンを作成してから試してみて下さい。

Private Sub CommandButton1_Click()
Dim WS As Worksheet
Dim r As Range
Dim rr As Range, rs As Range
Dim kr As Range, kk As Range
Dim v As Variant, vv As Variant
Dim i As Integer, j As Integer

Set WS = Worksheets("検索シート2")
Set rr = WS.Range("B21")

Set kr = WS.Range("C5")
kr.Resize(6, 11).Interior.ColorIndex = 0

For Each kk In WS.Range("C6:C10")
If WorksheetFunction.CountA(kk.Resize(, 11)) > 0 Then
Set kr = Union(kr, kk)
Else
Exit For
End If
Next

Set kr = kr.Resize(, 11)
If kr.Cells.Count < 12 Then
MsgBox "検索値の入力でミスがあります" & vbLf & _
"中止します"
WS.Range("A20").CurrentRegion.ClearContents
Exit Sub
End If

kr.Interior.ColorIndex = 35
WS.Range("A20").CurrentRegion.ClearContents
WS.Range("A20").Value = "学校名"
WS.Range("B20").Resize(, 12).Value = _
Worksheets("A").Range("A2:L2").Value

' 上と下の"A","B","C","D"は実際のシート名(学校名)に変更願います。

For Each v In Array("A", "B", "C", "D")
With Worksheets(v)
Set r = .Range(.[A2], .Cells(Rows.Count, "A").End(xlUp)).Resize(, 12)
r.AdvancedFilter xlFilterInPlace, kr, , False
Set rs = .Range(.[A3], .Cells(Rows.Count, "A").End(xlUp)).Resize(, 12).SpecialCells(xlCellTypeVisible)

If rs.Item(1).Row <> 2 Then
rs.Copy rr
rr.Offset(, -1).Resize(rs.Cells.Count / 12).Value = v
Set rr = rr.Cells(rs.Rows.Count, 1).Offset(1)
End If
.ShowAllData
End With
Application.CutCopyMode = False
Next
End Sub
うまくいけばいいですが。

もう1点の方が閉じられてしまったのでこちらに。

AdvancedFilterでの一案。

C2~C14の項目をA5~M5に並べ替えて下さい。
注意は、C5~M5の項目名と各学校シートの項目名が一致している事。

検索値の入力は、6行目から10行目まで対応してます。
必ず上の行から入れて下さい。
例)国語 且つ 教材
6行目の該当項目に 国語 と 教材 を入力します。

例)国語 又は 理科
該当する項目に 6行目に 国語  7行目に理科 を入力して下さい

例)国語 又は 教材
6行目に 国語 ...続きを読む


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

おすすめ情報