EXCEL2019です 1ページあたりP列68行の セルO3に “P. ページ数/総ページ数”を表示させるため
EXCEL2019です 1ページあたりP列68行の セルO3に “P. ページ数/総ページ数”を表示させるため =INT((ROW()-1)/68)+1&"/"&IF(O71="",INT((ROW()-1)/68)+1,RIGHT(O71,(LEN(O71))-(FIND("/",O71)))) セルの書式設定にユーザー定義として "P. "@" " 以上の1ページ目をページごとコピーして一気にいっぱい貼り付けても いい感じに 【P.＿＿〇〇/〇〇＿＿】 ↑ ※ただし【】内は全て下線付き と表示されるようにはなりました が、なにせ文字列なので セルO3に準じるセルをクリックしてしまうと 見事に関数がまるごと表示されるので、毎度毎度 Ctrl＋ｚを押しています あんまりなので、改修を考えているのですが 書式をいじると勝手に 日付になっちゃうし… 数値にするとP.が出ないし… 分数にすると約分されるし… あ、一応私にはVBAを描く技量はございません 何かいい案をお持ちの方はいらっしゃいませんか？ ご回答お待ちしています よろしくお願いします
Excel・35閲覧・50
ベストアンサー
="P. "&INT((ROW()-1)/68)+1&"/"&IF(O71="",INT((ROW()-1)/68)+1,RIGHT(O71,(LEN(O71))-(FIND("/",O71))))&" " でセル書式は標準、じゃダメなんかな
1人がナイス！しています
回答ありがとうございます ちょっと手を加えたら出来ました！ 実はこの質問をするだいぶ前、 元々私が作っていたのは 現ページ数にINT((ROW()-1)/68)+1を使わず 単純に1を足していく関数だったので "Ｐ.Ｐ.Ｐ.…1/○○ ”(Pが○○ページ分いっぱい) と表示 それで"P."は書式設定に…という経緯があります 回答頂いた関数で動作確認したら P.は大丈夫 でも○/○の後の下線が 超＿＿＿＿＿ 長い状態に… ここで今回はTRIM関数に気付けたのでちょっと改造を… ="P.＿＿＿"& INT((ROW()-1)/68)+1 &"/"& IF(O71="",INT((ROW()-1)/68)+1,TRIM(RIGHT(O71,(LEN(O71))-(FIND("/",O71))))) &"＿＿＿" (※ただし＿＿＿は空白) これで解決しました♪ ありがとうございます
質問者からのお礼コメント
例えば…ですが クイズの超難問に絶妙なヒントを頂いた感じで、 だからこそ自分で解いた感じも味わえて頭の中が超スッキリ！ 今、私の心はそんな気分でいっぱいです！ とにかく 解決いただきありがとうございました
お礼日時：5/23 10:16
