痔になりやすい生活習慣とは?

どこかのセルに、そのシートで印刷される
ページ数を表示するような計算式orマクロはありますでしょうか。
質問が分かりにくかったらすみません。

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

A 回答 (3件)

次の方法は如何でしょうか。


(1)挿入→名前→定義で名前欄に任意名(仮にaaa)、参照範囲欄に =GET.DOCUMENT(50) →OK
(2)表示セルを選択→F3キー押下→aaaを選択→OK→enter
    • good
    • 22
この回答へのお礼

すごい!!!
出来ました。ありがとうございました。
本当は、GET~の意味とか
F3キーの意味とかも知りたいですけど、とりあえずはありがとうございました。助かりました。

お礼日時:2008/05/22 17:04

>そのシートで印刷されるページ数を表示するような計算式orマクロはありますでしょうか


シートの印刷範囲を印刷した時の最終ページ数ですか。
これは関数の問題ではありません。セルの値を参照したり計算するもので無いからです。
機会等は良く出てくるエクセル4.0マクロの中の1つです。
15年以上前のエクセルのバージョンのマクロでVBAに当たるようなものです。
その時どきのページ番号数を捉える(セルに入れる)ことは難しいと思います。ヘッダーなどなら自然に入る仕組みがあるのですが。
VBAでHPageBreak,VPageBreakの数やセルを捉えて計算しないと出だせないでしょう。興味があれば、これらの言葉でWEB照会してみてください。
    • good
    • 0

参考ページです。



エクセル技道場-印刷されるページ総数を取得
http://www2.odn.ne.jp/excel/waza/print.html#SEC12

参考URL:http://www2.odn.ne.jp/excel/waza/print.html#SEC12
    • good
    • 0
この回答へのお礼

すばらしいページの紹介ありがとうございました。
ちなみに、印刷範囲を手動で変更したときに、
教えてもらったページ総数所得が、自動で変わってくれるには
マクロにやってもらうのが一番手っ取り早いでしょうかね?

とりあえずは、
お礼申し上げます。

お礼日時:2008/05/22 17:52

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

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

このQ&Aを見た人はこんなQ&Aも見ています

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

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

QEXCELのセルにページ数とページ総数を入力できないです。

こんにちわ。

EXCELのセルにページ数とページ総数を入力する方法がわかりません。

どなたか教えて下さい。

よろしくおねがいします。

Aベストアンサー

VBAを使う方法でしたら、参考URLを調べて貰えれば作れると思います。

参考URL:http://www.hm2.aitai.ne.jp/~naka95/Excel_Note/09-01_insatu.htm

QEXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには

お世話になっております。
タイトルの通りの質問なのですが、
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するにはどうすればよいのでしょうか?

たとえば、A1のセルに「ABC」と入力されていたとします。
その「ABC」をヘッダーに自動的に出力できるようにしたいのです。
できればマクロは使いたくありません。

宜しくお願いします。

Aベストアンサー

「表示」メニューの「ヘッダーとフッター」では、セル参照を指定することはできません。
「行タイトル」や「列タイトル」しか使用できません。
「行タイトル」を使用するには「ファイル」メニューの「ページ設定」で「シート」タグを選択してください。
ここで「行タイトル」にA1でしたら1行目を選択すればOKです。
ただし、行丸ごとですので注意してください。

QA1セルにアクティブセルのページ数を入力したい

A1セルにアクティブセルが(アクティブセルの場所が)、
印刷した時に何ページ目に印刷されるのか
ページ数を入力したいと思っております。

いろいろ調べてみたのですが良い方法が見つかりませんでした。
以下のサイトは参考なり、かなり良いところまでいっており、
自分なりにいろいろ試行錯誤してみたのですが、
実際に動作するところまでは至りませんでした。

すいませんが、A1セルにアクティブセルが印刷した時に
何ページ目に印刷されるのかのページ数を入力する方法を教えて下さい。
方法はリンク先のように関数を利用しても、マクロでもOKです。

すいませんが詳しい方、説明の上手な方で
具体的に関数やマクロのコードで説明できる方、よろしくお願います。

リンク1
エクセルで、印刷ページ数を 「セル」に 返す方法はありますか?
http://bit.ly/2pyrIsX

リンク2
http://www2.odn.ne.jp/excel/waza/print.html#SEC12

リンク3
https://oshiete.goo.ne.jp/qa/1467879.html

参考
リンク1の通りに名前の定義を設定し
以下のマクロを実行するとアクティブセルに関数の入ったD1セルを
コピーすることによって、アクティブセルのページ数がわかります。

ですが、、、、アクティブセルに関数がコピーされてしまうし、
A1セルにページ数を表示することも出来ないので、この方法はだめです。

参考になれば幸いです。

---------------------------------------

Sub Macro1()

Range("D1").Copy
ActiveCell.Select
ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

A1セルにアクティブセルが(アクティブセルの場所が)、
印刷した時に何ページ目に印刷されるのか
ページ数を入力したいと思っております。

いろいろ調べてみたのですが良い方法が見つかりませんでした。
以下のサイトは参考なり、かなり良いところまでいっており、
自分なりにいろいろ試行錯誤してみたのですが、
実際に動作するところまでは至りませんでした。

すいませんが、A1セルにアクティブセルが印刷した時に
何ページ目に印刷されるのかのページ数を入力する方法を教えて下さい。
方法はリ...続きを読む

Aベストアンサー

ANo2です。

>やって見ましたがやっぱりダメです。
あらら・・・、これじゃ見えないですね(笑)

というか、シートの内容もあまり見えないような気がしますので、推測するところ、タブレットの利用方法としてはページ検索用のインデックス的な用い方が主で、実際の内容確認は印刷物の方でなさるといった感じなのでしょうか?
いずれにしろ、かなり作り込まれたシートのようですね。

>リンク1が見つかったので もしかしたら何か良い方法があるかと思い~
ご提示の図を見て思ったのですが、S,T,U列が別ページになっていますが、印刷物では同じページに収まっていたりはしませんか?
(普通に考えると妙な切れ方なので…)
そのような場合、(ANo2にも述べましたが)ページ数の計算はその表示状態に基づいてされるので、仮に正確に求めることができたとしても印刷物のページと一致するとは限らない可能性があります。

どうやら、A1セルもいつも見えているとは限らなそうなので、セルに表示するのが良いのかどうかも疑問に感じてしまいました。
上の方にある色付きの四角形が、何らかのコマンドボタン(マクロ処理?)になっているのかと想像しますが、ご質問のページ表示に関しても同様の方法を取るのが良いのではないでしょうか?

勝手な思いつきですが、ユーザーフォーム内またはシート上部に「ページ表示」のようなボタンを追加作成しておいて…
ボタンを押すと、フォーム内のテキストボックスや、または別のフォーム、あるいはテキストボックスコントロールなどにページ数がポップアップするというUIもあるのではないかと思いました。
いちいち表示を消す手間が面倒だというのであれば、1~2秒間表示したら自動で消えるようにしておくというのもありそうに思います。
(多分、目視確認ができさえすれば良いのでしょうから…)
ページの判断基準に用いるセルは、アクティブセル以外にも、表示中の左上のセル(あるいは中央のセルなど)といった方法もありかなと。
(どこを採用するのが適切かは、私にはわかりませんが…)

あるいは、もっとプリミティブな方法として・・
A列の前に細幅の列を追加して、そこにページ数を表示しておくというのもありかと思いました。
行数から計算する方法なら、簡単な関数式でページや行も計算可能ですし、視認性も良さそうに思います。
もちろん、この列は印刷範囲から外しておいて、印刷物はいままで通りで、画面表示だけに出るという考えです。この方法だとマクロ等も不要になりますね。
・・とはいうものの、使い慣れた書式である場合は、(実質的に変わらなくても)変更に抵抗する人が多かったりするケースも多いと思いますので、何とも言えませんけれど・・・

ANo2です。

>やって見ましたがやっぱりダメです。
あらら・・・、これじゃ見えないですね(笑)

というか、シートの内容もあまり見えないような気がしますので、推測するところ、タブレットの利用方法としてはページ検索用のインデックス的な用い方が主で、実際の内容確認は印刷物の方でなさるといった感じなのでしょうか?
いずれにしろ、かなり作り込まれたシートのようですね。

>リンク1が見つかったので もしかしたら何か良い方法があるかと思い~
ご提示の図を見て思ったのですが、S,T,U列が別ページに...続きを読む

QExcel関数でページを引っ張ってくるものはないですか?

Excelで表を作成し、行指定でタイトルを固定して、複数のページに跨ぐ場合に、表タイトルの最後に(1),(2)・・・とつけて区別できるようにしたいのですが、関数等で表すことはできないのでしょうか。
よろしくお願い致します。

Aベストアンサー

gattuokさん 今晩は!
■Excel(エクセル)基本講座:表引き関数(検索・行列の関数・VLOOKUP関数)↓
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/vlookup.htm
内容:色々関係関数の使用法が図解されています。
■Excel(エクセル)基本講座:Excel(エクセル)関数一覧表↓
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/itiran.html
内容:種類別一覧表・アルファベット順一覧表・機能別一覧表・関数の挿入[fx]ダイアログを使って関数を入力する方法から見付けて下さい。
関数が無ければVBAを組む他有りません。
■エクセルでお仕事!↓
http://www.asahi-net.or.jp/~ef2o-inue/top01.html
内容:全体のメニューで「VBA基本」および「VBA応用」を参考に。
■Excel Tips by pPoy↓
http://www.nurs.or.jp/~ppoy/access/excel/xl001.html
内容:Excel VBA・VBA基礎を参考して下さい。

gattuokさん 今晩は!
■Excel(エクセル)基本講座:表引き関数(検索・行列の関数・VLOOKUP関数)↓
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/vlookup.htm
内容:色々関係関数の使用法が図解されています。
■Excel(エクセル)基本講座:Excel(エクセル)関数一覧表↓
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/itiran.html
内容:種類別一覧表・アルファベット順一覧表・機能別一覧表・関数の挿入[fx]ダイアログを使って関数を入力する方法から見付けて下さい。
関数が無ければVBAを組む他有り...続きを読む

QEXCELで「行のタイトル」に頁と総頁数を表示するには?

WindowsXP、Excel2003を使用しています。
Excelのページ設定の「行のタイトル」を使用して
印刷しています。最近この「行のタイトル」の中に
頁数と総頁数を印刷したくなりました。
何かの関数を使うと出来るのでしょうか?
どなたか教えてください。

Aベストアンサー

#1です。
前回の回答のとおり、「ヘッダーの編集」で「ページ番号」や「総ページ数」を指定し、それが印刷される位置を以下のように調整すればいかがですか?
縦位置:「ページ設定」→「余白」で「ヘッダー」位置を調整(プレビューで余白ボタンを押したあと、ヘッダー位置を示す横線をドラッグしてもOK)
横位置:「ヘッダーの編集」でブランク(空白)を挿入するなどして横位置を調整

ただし、行のタイトルの中の、ページ番号を印刷させたい部分が塗りつぶされていると印刷できない(見えない)と思います。該当のセルは「塗りつぶしなし」にしておく必要があります。

QEXCEL-VBAで印刷時のページ番号を取得したい

EXCEL97です。
ブックの目次を作るマクロを作っています。
ブック内のシート名を目次のシートに縦に並べることはできたのですが、
その横にセットしたページ数をどうやって取得するか悩んでいます。
過去ログも見たのですがHPageBreaks.Countでは
プレビューでは1ページしかないはずのシートで
1が返ってきたりしてどうもうまくいきません。
良い方法があればどなたか教えてもらえないでしょうか。

Aベストアンサー

Application.ExecuteExcel4Macro("get.document(50)")
で、印刷ページ数が取得出来ます。

http://www2.odn.ne.jp/excel/waza/print.html

QエクセルのIF関数で、文字が入力されていたならば~

エクセルのIF関数で文字が入力されていたならば~、という論理式を組み立てたいと思っています。

=IF(A1="『どんな文字でも』","",+B1-C1)

A1セルに『どんな文字でも』入っていたならば、空白に。
文字が入っていなければB1セルからC1セルを引く、という状態です。

この『どんな文字でも』の部分に何を入れればいいのか教えてください。

またIF関数以外でも同様のことができれば構いません。

宜しくお願いします。

Aベストアンサー

=IF(ISTEXT(A1),"",B1-C1)

でどうでしょうか?

QExcel2003で、現在のページ数を表示する関数はありますか?

こんにちは。
Excel 2003を使用しています。

ある一覧表の項目見出し部分を、[ページ設定]-[印刷タイトル]に設定し、全てのページに項目見出しを表示するようにしています。

そこで質問なのですが、その項目見出し部分に、現在のページ数を表示させたいのです。

セルに入力できる関数で、現在のページ数がわかる関数などがありましたら、教えてください。
宜しくお願いします。

Aベストアンサー

行見出しに設定したセルに印刷時に自動的にページ番号を採番するのは、一般機能
ではできませんので、マクロを利用することになります。

以下は、セルF1にページ番号を印刷する例です。
[Alt]+[F11]で Visual Basic Editor を起動し、[挿入]-[標準モジュール]で開か
れるウィンドウに、下記のように入力します。(コピペで可)
'
Sub PagePrt()
  Dim PG, i
  PG = ActiveSheet.HPageBreaks.Count
  For i = 1 To PG + 1
    Range("F1") = i
    ActiveSheet.PrintOut From:=i, To:=i ' , Preview:=True
  Next
End Sub

印刷前にプレビューされる場合は、下から3行目のアポストロフィ( ' )を削除
してください。

マクロ使用を避けたい場合は、ヘッダを用いるほかないと思います。

Qチェックボックスの箱のサイズとフォントサイズは変更できるの?

こんにちわ。

エクセル2000でチェックボックスを作成したのですが、
やや、小さいのでサイズを大きくしたいのです。
ボックスサイズ、ボックスの横に入れる文字の
フォントサイズは大きくできるのでしょうか?
もし、できるのなら方法を教えてください。

よろしくおねがいします。

Aベストアンサー

コントロールツールボックスのチェックボックスならプロパティにFontがあるので変更できます。

フォームのチェックボックスやオプションボタンのフォントサイズは変更できなかったと思いますが、変更したように見せかけはできます。使用上、特に問題はないと思います。(だからダイアログにフォントがない?)

チェックボックスの位置によって、
(1)チェックボックス(四角)がセルの中央にある場合
 チェックボックスのテキストを必要な長さの空白にしてしまいます。
 チェックボックス(四角)の右横のセルにチェックボックスの説明のテキストを入れます。
 セルの書式設定でフォントが変更できます。
(2)チェックボックス(四角)をセルの境目などにセットする場合
 チェックボックスのテキストを必要な長さの空白にしてしまいます。
 図形描写からテキストボックスを選択し、チェックボックスの説明のテキストを入れます。
 テキストボックスは『線なし』にしておきます。2行で表示したりもできます。
 チェックボックスとテキストボックスを重ねて、見た目を調節します。
 テキストボックスを選択し、右クリック→順序→最背面へ移動 とします。

ご参考に。

コントロールツールボックスのチェックボックスならプロパティにFontがあるので変更できます。

フォームのチェックボックスやオプションボタンのフォントサイズは変更できなかったと思いますが、変更したように見せかけはできます。使用上、特に問題はないと思います。(だからダイアログにフォントがない?)

チェックボックスの位置によって、
(1)チェックボックス(四角)がセルの中央にある場合
 チェックボックスのテキストを必要な長さの空白にしてしまいます。
 チェックボックス(四角)の右横のセ...続きを読む

QExcel 書式を関数で判断。

Excelで、「もしA1が緑色ならば」などと、書式を関数で判断させるにはどうすればよいのでしょうか。

Aベストアンサー

#1の回答通り関数はありません。マクロでなら可能です。

ここでは「色の付いたセルを合計」という質問が結構出ています。
http://okwave.jp/kotaeru.php3?q=2000523


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング