A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
こんにちは。
やっと出来ました。ただ、Wordのようには、リアルタイムで表示することは出来ません。標準モジュールに登録して、mySettingKey で、{F3}のキーにショートカットを組み込みました。なお、ステータスバーにも出せるようにしてみました。
Sub mySettingKey()
Application.OnKey "{F3}", "Page_And_Line"
End Sub
Sub Page_And_Line()
'現在の行とページ数と総ページ数を出すマクロ
Dim lngPageTotal As Long
Dim intPrintDirection As Integer
Dim intHorizontalPage As Integer
Dim intVerticalPage As Integer
Dim intLocationVerticalPage As Integer
Dim intLocationHorizontalPage As Integer
Dim lngLocationRow As Long
Dim intLocationColumn As Integer
Dim intPresentPage As Integer
On Error Resume Next
With Application
lngPageTotal = .ExecuteExcel4Macro("GET.DOCUMENT(50)") '総ページ
intPrintDirection = .ExecuteExcel4Macro("GET.DOCUMENT(61)") '印刷方向
intHorizontalPage = .ExecuteExcel4Macro("COLUMNS(GET.DOCUMENT(64))") + 1 '水平改行数
intVerticalPage = .ExecuteExcel4Macro("COLUMNS(GET.DOCUMENT(65))") + 1 '垂直改行数
'現在の水平ページ
intLocationHorizontalPage = .ExecuteExcel4Macro("MATCH(ROW(ACTIVE.CELL()),GET.DOCUMENT(64))")
intLocationHorizontalPage = intLocationHorizontalPage + 1
'現在の垂直ページ
intLocationVerticalPage = .ExecuteExcel4Macro("MATCH(COLUMN(ACTIVE.CELL()),GET.DOCUMENT(65))")
intLocationVerticalPage = intLocationVerticalPage + 1
lngLocationRow = .ExecuteExcel4Macro("LOOKUP(ROW(ACTIVE.CELL()),GET.DOCUMENT(64),TRUE)") 'ページライン位置
If lngLocationRow = 0 Then
lngLocationRow = ActiveCell.Row
Else
lngLocationRow = ActiveCell.Row - lngLocationRow
End If
End With
If intPrintDirection = 1 Then
If intVerticalPage > 1 Then
intPresentPage = (lngPageTotal \ intVerticalPage) * (intLocationVerticalPage - 1) + intLocationHorizontalPage
Else
intPresentPage = intLocationHorizontalPage
End If
Else
intPresentPage = (lngPageTotal \ intHorizontalPage) * (intLocationHorizontalPage - 1) + intLocationVerticalPage
End If
MsgBox lngLocationRow & "行 " & intPresentPage & " / " & lngPageTotal
'Wordのように、ステータスバーには表示できても時間が掛かります。
'Application.StatusBar = lngLocationRow & "行 " & intPresentPage & " / " & lngPageTotal
End Sub
No.3
- 回答日時:
[表示]→[改ページプレビュー]コマンドを実行すると、シートの背景にページ数が表示されるようになります。
あらかじめ、[ファイル]→[ページ設定]コマンドを実行して、用紙サイズや余白の設定などを行ってから実行するといいでしょう。なお、[改ページプレビュー]モードを実行すると、ちょっと縮小して表示されますが、表示倍率は自分で任意に変更することができます。また、[改ページプレビュー]モードでも通常通り作業できますので、目的の状況に合っていると思うのですが。
お試しください。
No.2
- 回答日時:
こんにちは
ご質問の趣旨は「印刷したら何ページになるか」って理解でいいですよね。その前提で・・・
総ページ数はちょっと難しいですね。マクロ組む必要があります。
今が何ページかということだけでしたら「改ページプレビュー」を使うというのはどうでしょうか?メニューバーの「表示」をクリックすると出てきます。
No.1
- 回答日時:
カーソル位置というのは、現在選択中のセルの位置という意味でしょうか。
(マウスカーソルは自由に動くのでカーソル位置の意味がよく分かりません。)それであれば左上の名前ボックスに、選択したセル地番が常に表示されているとと思いますが……。
また総ページ数は出ませんが、表示→改ページプレビューにすると、ページ番号を表示した画面が出ます。
範囲が多すぎて全体表示が出来ないときは、表示→ズームで画面を小さくすればあるていどは分かります。
この程度で我慢するしかないように思いますが、ご質問の趣旨がこれとと違っていればごめんなさい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- プリンタ・スキャナー 印刷ができない 6 2022/04/01 20:47
- 年賀状作成・はがき作成 ワード・エクセル2007で印刷 2 2023/05/12 05:40
- オープンソース OpenOffice Calc basic で印刷プレビューを表示する方法 1 2023/04/15 12:43
- プリンタ・スキャナー ワードやエクセルで印刷をデフォルトで片面印刷にする方法 4 2023/08/10 16:55
- Excel(エクセル) Excelであるシートだけ印刷できない 1 2022/04/01 09:04
- 年賀状作成・はがき作成 はがき作家 2 2023/05/12 06:00
- プリンタ・スキャナー WPS Writerで文章を作り、下側にノンブルを設定したのですが印刷されません。 1 2022/08/04 18:57
- Excel(エクセル) 【Excel】エクセルの1シートが2枚に分割されてしまうので印刷プレビューを押して閉 4 2022/12/13 13:12
- その他(Microsoft Office) エクセルで差し込み印刷する方法 1 2022/05/14 18:40
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのグレーの部分を戻したい
-
エクセルのA3横一枚のデータをA...
-
エクセルの縦の幅だけ拡大したい。
-
ページが増える
-
YMM4 で MOV ファイルが読み込...
-
エクセルでA4 2枚をA3 1枚で印...
-
EXCEL改ページプレビューのペー...
-
改ページの2ページ目の作り方
-
エクセルでページのど真ん中に...
-
Thunderbirdで印刷およびページ...
-
プリンターが突然1部しか印刷...
-
エクセル上に貼り付けた画像が...
-
EXCELで1行の内容を1枚の紙に印...
-
Excelで縦を拡大、横を縮小する...
-
Excel2013印刷範囲の青枠線を消...
-
Excelで改ページのラインが解除...
-
エクセルでの印刷時に変な線や...
-
エクセルのマクロで印刷プレビ...
-
エクセルで印刷範囲以外を灰色...
-
【Excel】エクセルの1シートが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのグレーの部分を戻したい
-
ページが増える
-
エクセルの縦の幅だけ拡大したい。
-
エクセルでA4 2枚をA3 1枚で印...
-
EXCEL改ページプレビューのペー...
-
改ページの2ページ目の作り方
-
YMM4 で MOV ファイルが読み込...
-
EXCELで1行の内容を1枚の紙に印...
-
余分なEXCELファイルに印刷され...
-
エクセルで点線を引き、印刷す...
-
エクセルのA3横一枚のデータをA...
-
エクセル上に貼り付けた画像が...
-
Excelで特定の文字・記号のとこ...
-
エクセルのマクロで印刷プレビ...
-
印刷範囲がこまぎれになる
-
Excelの改ページ印刷についての...
-
Excelで縦を拡大、横を縮小する...
-
エクセルのセルの枠線の点線に...
-
エクセルでページのど真ん中に...
-
Excelで全ての行単位で改...
おすすめ情報