Excelでページ番号を指定してそのページにジャンプする方法はありますか?
数十ページにも及ぶシートを作った時、それがあると便利なんですが...

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

A 回答 (3件)

WORDのようにページ数を指定してジャンプする方法はEXCELにはないと思いますので、


(私が知らないだけ?)
セルに名前を付けてジャンプする方法をご紹介します。

1)ページの左上となるセルをアクティブセルにします。
2)名前ボックス内をクリックし、現在表示されている文字(例:A1など)が
  青く選択されたら、任意の名前(例:PAGE1など)を入力し、Enterを押します。
     ・名前ボックスとは、数式バーの左端にある▼付きの白い箱です。
      マウスポインタを合わせると「名前ボックス」と表示されます。
     ・A10やP1など、セル位置を参照するような名前として設定できません。
      (できないというより、その位置に飛んでしまって名前にできません)
3)操作1~2を繰り返し、各ページに名前を付けてゆきます。

以上の操作で名前が付いたら、F5(または名前ボックスの▼)で、ジャンプ先を
選択し、各ページに飛ぶことができるようになります。

ただし、ページの位置が変わったら、そのたびに[挿入]-[名前]-[定義]で
参照範囲を変更する必要があるため、最良の方法とは言えないかも。
    • good
    • 0
この回答へのお礼

みなさん、教えていただきありがとうございました。しかも速攻の回答でこっちが見るほうが遅かったくらい。Excelの技のサイトまで教えていただき、見ましたが、
すごい中身の濃いサイトがあるものなんですね。今後ともよろしくおねがいします。

お礼日時:2001/03/11 09:20

こんにちは



 以下のページもご参考になるのでは?

【エクセル技道場】
-シート-ブック内のシート一覧の表示
http://www2.odn.ne.jp/excel/waza/sheet.html#SEC6

-ツール-マクロでツールバー作成
http://www2.odn.ne.jp/excel/waza/toolbar.html#SE …

-名前定義-名前を定義する利点-ジャンプが簡単にできる
http://www2.odn.ne.jp/excel/waza/name.html#SEC15

参考URL:http://www2.odn.ne.jp/excel/waza/sheet.html#SEC6,http://www2.odn.ne.jp/excel/waza/toolbar.html#SE …
    • good
    • 0
この回答へのお礼

Excelの技のサイトまで教えていただき、見ましたが、
すごい中身の濃いサイトがあるものなんですね。
今後ともよろしくおねがいします。ありがとうございました。

お礼日時:2001/03/11 09:22

ほんと、そうですよね。

忙しいときなどイライラしちゃうんです。

1、シート1に全シートのリストを作ったとします。
2、シート1のA1のセルに「シート2へジャンプ」などと入力。
3、シート1のA1のセルを右クリックで選んで、ハイパーリンクの編集を選ぶ
4、出てきた画面の左側の“リンク先”を、「このドキュメント内」を選ぶ
5、右側の“またはドキュメント内の場所”を、「シート2」を選ぶ
6、すると、“セル参照を入力ください”のところに「A1」と表示されます。
7、これで、シート2のA1へジャンプする設定完了です。

上記4項目の“リンク先”を新しいドキュメントに指定したら、全く別の書類へジャンプもできます。
上記6項目の「A1」を「A100」とすればそこへジャンプします。
同じシート内の200行目へジャンプなどの時も便利ですよ。
もっと便利な方法もあるかもしれませんが、わたしの知る限り以上です。
    • good
    • 0
この回答へのお礼

ご丁寧な回答ありがとうございました。今後ともよろしくおねがいします。

お礼日時:2001/03/11 09:23

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

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

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

Q週刊連載漫画(ヤングジャンプなど)とかのネタバレ画バレってどうやってるの

週刊連載漫画ネタバレ画バレってどうやってるのでしょうか?例えばヤングジャンプだったら木曜日発売なのに前の週の土曜日にもう内容が見れちゃうのはどうしてでしょうか?

Aベストアンサー

コンビニにとかお店に配達される前の配送所や倉庫の積み下ろしなどの段階で
マンガを写真で撮ってWEBにアップしているらしいですよ。

この間も、週刊ジャンプのワンピースでそれをやった人が逮捕されたし、

他にも、週刊誌の記事を発売前に同じようにネットにアップして捕まった人もいました。

Qエクセル2000・シートごとのページ番号とページ数、ブック全体のページ番号と総ページ数

エクセル2000についてお尋ねします。

ヘッダの右側に
   ([シート毎のページ番号]/[シート毎のページ数])
フッタの中央に
   ([ブック全体の通しページ番号]/[ブック全体の総ページ数])
を入力・印刷したいのです。

今までは手入力でフッタのページ番号のうしろに「+前のシートまでのページ数」、[ブック全体の総ページ数]の代わりに数値を直接入力していたのですが、1つのブックにつきシート数が20~60程度ある上にページの追加・削減があるので、もっと簡単なやり方があったら教えてほしいです。

VBAは、まだ勉強を始めたばかりで、ネット上で使えそうなVBAをコピーして自分のエクセルに貼ることしか出来ません^^;
どうか、よろしくお願いします。

Aベストアンサー

こんにちは。

こんな感じでしょうか?
必ずコピー等を取ったテスト用ブックで試して下さい。

ページ数によって、結構処理時間が掛かります。

'---------------------------------------------------------------------
Sub Test()
Dim ws As Worksheet
Dim AllCnt As Integer, pCnt As Integer

 AllCnt = 0
 For Each ws In Worksheets
   AllCnt = AllCnt + PageCnt(ws)
 Next ws

 pCnt = 0
 For i = 1 To Worksheets.Count
  Set ws = Worksheets(i)
  ws.PageSetup.RightHeader = "&P / &N "
  If i = 1 Then
    ws.PageSetup.CenterFooter = "&P / " & AllCnt
  Else
    pCnt = pCnt + PageCnt(Worksheets(i - 1))
    ws.PageSetup.CenterFooter = "&P+" & pCnt & " / " & AllCnt
  End If
 Next i
 Set ws = Nothing
End Sub
'---------------------------------------------------------------------
Function PageCnt(ws As Worksheet) As Integer
Dim h As Integer, v As Integer
  PageCnt = 0
  If ws.UsedRange.Address = "$A$1" Then
    If IsEmpty(ws.Range("A1").Value) Then
      Exit Function
    End If
  End If
  h = ws.HPageBreaks.Count
  v = ws.VPageBreaks.Count
  If v = 0 Then
    PageCnt = h + 1
  Else
    PageCnt = (h + 1) * (v + 1)
  End If
End Function
'---------------------------------------------------------------------

こんにちは。

こんな感じでしょうか?
必ずコピー等を取ったテスト用ブックで試して下さい。

ページ数によって、結構処理時間が掛かります。

'---------------------------------------------------------------------
Sub Test()
Dim ws As Worksheet
Dim AllCnt As Integer, pCnt As Integer

 AllCnt = 0
 For Each ws In Worksheets
   AllCnt = AllCnt + PageCnt(ws)
 Next ws

 pCnt = 0
 For i = 1 To Worksheets.Count
  Set ws = Worksheets(i)
  ws.PageSetup.Right...続きを読む

Qジャンプ誌上販売 「BLEACH」DVDのラスト(ネタバレ)について

先日、ジャンプ誌上販売で申し込んだ「BLEACH-The Sealed Sword Frenzy」(DVD)が届き、見たのですが、内容に疑問を感じました。

エンディングで、現世を満喫する死神たちの姿がでます。その後に、藍染や市丸たちも登場します。
登場した時、これもサービスなのかな?と思いました。(原作には関係なく、この人達も現世を満喫しているのかと…)

だが、市丸が最後、「気ぃつけて帰りや」と言って終わる所を見たら、「梅針の封印をといたのは、藍染達?!」Σ(゜д゜;)と感じてしまいました。
(結局、梅針の封印が解けた原因がわからないし…。)

DVD、もしくはジャンプフェスタで見た人達に聞きます。このラストの藍染達の登場はどのように感じましたか?

お教え下さい。

Aベストアンサー

エンディングが終わって「終わりか」と思っていたら、藍染たちが出てきて驚きましたね。正直「いたの?こいつら?」と思いました。

私は梅針の封印を解いた人はいなくて、梅針が自分で解いたと感じました。

Qエクセルで指定したセルにページ番号を表示して印刷する方法

エクセルで1枚のシートを複数枚印刷時に指定したセルにページ番号を表示させるにはどのようにしたら宜しいのでしょうか?
使用目的は、印刷されたプリントに『11-001』や『11-112』と表示したいと考えてます。
ここで『11』はそのプリントを使用する月で『001』や『002』は使用したプリントを把握する為につけた通し番号としたいと考えてます。
可能であれば併せて途中の番号からの印刷方法もご教示頂けますと幸いです。
また、恥ずかしながらVBAの使用環境はありますが、未経験です。
可能でしょうか?

Aベストアンサー

セルに「月-通番」を入力して印字するマクロサンプルです。
以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はワークシート画面に戻ってALT+F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。

一見長いですが、実は最後の4行だけが印刷する実体で、それより前は部数、通番の開始番号を入力+チェックするロジックです。

このマクロではA1セルに「月-通番」をセットしますが5行目を変更すれば好きなセルにできます。また通番を3桁に整形しているため、通番が1000以上になると桁あふれしますのでご承知おきください。

なお下記では「月」は印刷当日の月になります。
これを変更したい場合は勉強のためご自身でマクロをいじってみてください。ヒントは書いたつもりです。

Sub Macro1()
Dim cnt, num
Dim psw As Boolean
Dim idx As Integer
Const trg As String = "A1" '通し番号を入れるセル
Dim dt As Date
 dt = Date '今日の日付を代入。これをDateValue関数にすると…
 Do
  cnt = Application.InputBox("印刷部数を入力してください", "部数", Type:=1)
  If TypeName(cnt) = "Boolean" Then
   Exit Sub
  Else
   If cnt >= 1 Then
    cnt = Int(cnt)
    psw = True
   Else
    MsgBox "入力できるのは1以上の数字です"
   End If
  End If
 Loop Until psw = True
 psw = False
 Do
  num = Application.InputBox("通番は何番からですか?", "通番", Type:=1)
  If TypeName(num) = "Boolean" Then
   Exit Sub
  Else
   If num >= 1 Then
    num = Int(num)
    psw = True
   Else
    MsgBox "入力できるのは1以上の数字です"
   End If
  End If
 Loop Until psw = True
 For idx = 1 To cnt
  Range(trg).Value = Format(dt, "MM") & "-" & Format(num + idx - 1, "000")
  ActiveSheet.PrintOut
 Next idx
End Sub

セルに「月-通番」を入力して印字するマクロサンプルです。
以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はワークシート画面に戻ってALT+F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。

一見長いですが、実は最後の4行だけが印刷する実体で、それより前は部数、通番の開始番号を入力+チェックするロジックです。

このマクロではA1セルに「月-通番」をセットします...続きを読む

Qジャンプ

ジャンプ
ネタバレサイトって
すごくジャンプ手に入れるの早いですよね
あれってどんなルートで入手しているのですか?
ネタバレしないと誓うので教えて下さい

Aベストアンサー

普通は日曜の夜~朝方までに入荷して、月曜の朝までに陳列となります。

よく夜中にコンビニに行くと、次の日に発売される雑誌なんかが運送業者が運んできてどさっとおいてあったりします。(もっと早い場合もあるでしょうが、在庫をあまり持てませんから、前日入荷という状態が多いと思われます。)

ただ、一般的な書店は、フライング販売を禁止されており、最悪の場合は取引停止などの処分もありますから、書店では購入出来ません。

ところが、酒屋さんであるとか、酒を扱っている比較的規模の小さいコンビニ等では、流通ルートが違うのか、フライング販売している店もあります。その様な所で入手しているのではないでしょうか?

ちなみに、私がジャンプを購入していた頃は、土曜日の夜に店に入荷して来てすぐ売ってくれた為、土曜日に購入していました。

なので、書店やコンビニ以外で、雑誌を取り扱っている店を周囲で探してみれば、アナタの家の近くにもあるかもしれませんね。

Qvbaで.top/.leftで指定する数値と列の幅/行の高さで指定する数値の関係

エクセルでシートの枠線を方眼紙代わりにし、シート上に図形を並べてさまざまなことをしたいと思っています。
図形の位置をvbaで操作していきたいのですが、枠線の位置ときっちりあわせたいと思います。
そこでお尋ねしたいのですが、vbaで.top/.leftで指定する数値と、列の幅/行の高さで指定する数値の関係はどうなっているのでしょうか。
画面のサイズとも関係があるのでしょうか。

Aベストアンサー

Cells(r,c).Left + Cells(r,c).Width と Cells(r,c+1).Left が同じ値になり、
Cells(r,c).Top + Cells(r,c).Height と Cells(r+1,c).Top が同じ値になります。

画面のサイズは関係ないと思います。

Qネタバレ、

質問していいことか、悪いことか。
誰か漫画(ジャンプ)とアニメのNARUTOとBLEACHのネタバレサイト知りませんか?

Aベストアンサー

BLEACHはこことかどうでしょうか。
http://inubros.net/bleach/

参考URL:http://inubros.net/bleach/

Qエクセル番号記入で別シートへ記入。(注文番号ごとに)

エクセル番号記入で別シートへ記入。(注文番号ごとに)

注文番号ごとに伝票のようなものを作りたいです。
シート1に基本データ(注文番号、工事名、工事店名、設計担当、その他等)を記入します。
シート2を伝票のような感じとして行B4からB10、列B4からH10(行、列番は参考)を使って、シート2のB4に注文番号記入すると、各項目をシート1を参照に必要項目へ記入、印刷したいです。
参考ですが、
C4に現場名、E5に工事店名、E6に設計担当者名、F7に完成予定日、F8に完成日(キーボード記入)等々。
B4に注文番号を記入すると、それぞれのセルの下に関係する内容を自動記入します。
1個の注文番号記入は出来ましたが、注文番号がいくつもある場合の対応ができ、例えば5つの注文番号があればそれらを記入したいです。(最初に作ったセルをコピー等。1日に何カ所もあるのでファイル保存しておきたい)
よろしくお願いいたします。

Aベストアンサー

Sheet1を参照するので、下記の通り整備されているとします。
1列(A:注文番号/B:工事名/C:現場名/D:工事店名/E:設計担当/F:完成予定日/G:備考)
実際のデータは2行目からスタートし、注文番号1つにつき1行の一覧とします。

で、問題のSheet2ですね。
おそらく、B4~H10の範囲に1つ定型を作成して、コピーできれば良いのだと推測しています。

B4 : 注文番号手を入力するところ
C4 : 現場名を出力するために下記を入力
=IF(ISERROR(VLOOKUP($B4,Sheet1!$A$2:$G$100,3)), "",VLOOKUP($B4,Sheet1!$A$2:$G$100,3))
E5 : 工事店名を出力するために下記を入力
=IF(ISERROR(VLOOKUP($B4,Sheet1!$A$2:$G$100,4)), "",VLOOKUP($B4,Sheet1!$A$2:$G$100,4))



というわけで、VLOOKUPでSheet1の一覧から注文番号を探して、その一行に設定されている値を持ってくるということをそれぞれ出力したいセルに記載します。

あとは、これらを成型したB4~H10を注文番号のセルがB列にくるようにコピーしして使い回せばよいかと思います。

言葉足らずなので申し訳ないですが、画像をご参照いたただきたく。

Sheet1を参照するので、下記の通り整備されているとします。
1列(A:注文番号/B:工事名/C:現場名/D:工事店名/E:設計担当/F:完成予定日/G:備考)
実際のデータは2行目からスタートし、注文番号1つにつき1行の一覧とします。

で、問題のSheet2ですね。
おそらく、B4~H10の範囲に1つ定型を作成して、コピーできれば良いのだと推測しています。

B4 : 注文番号手を入力するところ
C4 : 現場名を出力するために下記を入力
=IF(ISERROR(VLOOKUP($B4,Sheet1!$A$2:$G$100,3)), "",VLOOKUP($B4,Sheet1!$A$2...続きを読む

Q22号のジャンプ

22号のジャンプは5月9日発売のはずなのにもうネタバレしている人がいます。何故ですか?

Aベストアンサー

ジャンプは発売の1週間前から10日前には、既に製本が完了していて、後は発送、発売を待つだけになってます。
  
以前にも問題になったように、その時点で手に入れることが可能な人もいますので、そういった人たちが関与していると思われます。

Qエクセルのマクロで範囲指定をセルに番号を入れて、範囲指定したセルの字の

エクセルのマクロで範囲指定をセルに番号を入れて、範囲指定したセルの字の色を白にして消したいのですが、番号を入れるマクロがわかりません。マクロに記録でA2からB12までのセル内の字の色を白

にする方法は

Sub 字を消す()
'
' 字を消す Macro
'

'
Range("A2:B11").Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
End SubでできるのですがD3に開始番号、E3に終了番号を指定する方法がわかりません。ご教授お願いします

Aベストアンサー

>D3に開始番号、E3に終了番号を指定する方法がわかりません。
 ⇒マクロ記録でD3、E3を選択すればコード化されますが、開始/終了番号での振舞はご自身でコード化しない限り、マクロ記録では設定できません。 
  多分、D3、E3に入力される情報によって、対象範囲の該当セルフォント色を変更したいという事ではないでしょうか。
  ならば、D3,E3セルに入力する情報と対象範囲との関連付けを明示しないと問題解決しませんのでこの質問は一旦締めて、再質問しては如何でしょうか。


人気Q&Aランキング

おすすめ情報