Excel VBA 質問スレ Part83

1 名前：デフォルトの名無しさん mailto:sage [2025/06/08(日) 11:06:42.20 ID:j4jIPbHU.net] ExcelのVBAに関する質問スレ コード書き込みや作成依頼もOK 次スレは>>980が立てること 無理なら細かく安価指定 ※前スレ Excel VBA 質問スレ Part82 https://mevius.5ch.net/test/read.cgi/tech/1737657075/1 237 名前：デフォルトの名無しさん mailto:sage [2025/06/25(水) 09:42:40.32 ID:dAAz2sjl.net] いやさ、一枚に収めなさい、って上から言われたのやら自ら率先して｢俺なら一枚に収められるッ！｣と 奮起してるのかわからんけど、効率化を図るための道具でムダな苦労して余計な時間を費やしてどうすんだ、と なにをっ？と疑問に思うことは無いんか？　うるさい上司向けにはB4で作ってA4へ縮小印刷しろと応じて じぶんの指示が理不尽なことに気付かせる気概ってもんは無いのか、と 社内で保管するための資料とかかも知らんが、どーせそれを見返すのは十年後にあるかないかレベルなんだろ？ 隅々まで文字やデータで埋め尽くされた一枚と、見やすい二枚　十年後の部下が感心するのはどっちなんだ？ まあ、そんなつまらんことに拘ってる職場が、十年後にも存在するかどうかの方が気に成るが 238 名前：デフォルトの名無しさん mailto:sage [2025/06/25(水) 10:25:19.18 ID:UBgfv4fR.net] シートを1ページに収めるで印刷すればいいじゃん 少しは縮小率や余白量が変わるかもしれないけど、どうせ気が付かねぇよ 239 名前：デフォルトの名無しさん mailto:sage [2025/06/25(水) 10:55:49.89 ID:0adLFZoS.net] いやいや、フォーマットに仕事生命を懸けてる奴はどこの職場にもいるもので、彼らは驚くべき観察力で僅かな変化を発見し指摘してくる ビジネス的には明らかに無意味で周囲にとってはむしろ有害ですらあるが、 いわゆるブルシットジョブと違って本人はそれを有意義と信じて疑わない点が異なり、むしろタチが悪い ネット上での正義中毒による誹謗中傷と同じ構造を持っており、日本の終身雇用制度と相まって非常に根深い問題なのです 240 名前：デフォルトの名無しさん mailto:sage [2025/06/25(水) 11:26:50.75 ID:dAAz2sjl.net] 失われた40年の根源みたいな奴だと、もっと上に指摘してそいつを追放しろ A4用紙と人件費とどっちに重きを置いてンだっつーの A4一枚1円未満だろ　おまえらの単価はそれより安いと言われてるようなもの じぶんで告げ口するのが怖かったらZ世代にやらせろ　あいつら怖いモン知らずだから つか、Zなら他人から言われずとも自ら言いそうか 241 名前：デフォルトの名無しさん mailto:sage [2025/06/25(水) 12:39:04.86 ID:KtEcq9H9.net] 内心では自分に価値がないと思っている人ほど他人の時間を奪うことを過剰に恐れる 他人の数秒のために自分や部下の数時間をドブに捨てることを厭わない フォーマットに固執することで目を背けているが、実は彼らは心の一番深いところでは自分が無価値であることを理解しているのだ そう考えれば君も彼らに対して少しは寛容になれるだろう 242 名前：デフォルトの名無しさん mailto:sage [2025/06/25(水) 13:16:16.31 ID:ShvH3cc3.net] このスレってスレ違いの話になると生き生きして他人に説教し出す奴いるよな 拘ってるかどうかなんて元の質問から読み取れないはずなのに想像であれこれ語る マンスプレイニングみたいなもんかね 243 名前：デフォルトの名無しさん mailto:sage [2025/06/25(水) 14:19:49.61 ID:dAAz2sjl.net] 言いたいことは判らんでも無いが、一行目と二行目でもはや矛盾の域をはるかに超越してる そして、妄想だと言い切る君　この商売にとって想像力ほど重要なものは無いのも事実 一を聞いて三を知る　要求する側が言葉や文字にしてない部分までちゃんと捉える能力もだいじ ｢言われた事だけやりました｣は、これっぽっちもカスタマーの要望を満たしていない事実を知らないと 例えば家を建てようという時、顧客は各部屋各所各設備デザイン材質色調えｔｃ全部把握なんかしてない 事前サンプルがあっても常に同じでも無い　建てる方は一を聞いて十を知るぐらいの熟練度が求められる そうでないと引き渡し後｢こんなはずじゃ、、｣とひと悶着の元を作る仕事をしてるだけに成り果てる 幸いそこまで高額な仕事を請け負ってる様子でも無いが、それはそれで次は頼まれない　に繋がるだけ ｢使えない奴｣烙印捺されて除け者にされる　上を目指すなら邪魔な奴等はむしろ積極的に排除してかないと 上から｢よく指摘してくれた｣と、功績をZに盗られてこんどはそのZに顎でコキ使われる羽目に陥る 244 名前：デフォルトの名無しさん [2025/06/25(水) 14:37:28.50 ID:SG2L+6I2.net] 年収低い奴は無駄なコードを長々と書く 応用性なくがあまり感謝されないから出世もせず年収も低い loop 245 名前：デフォルトの名無しさん mailto:sage [2025/06/25(水) 15:04:19.03 ID:NJkCtRzJ.net] な？ >>241なんて生き生きしてるだろ？ スレタイ読んだ上でこれ このスレに書くより先にやるべきことがいくらでもあるだろｗ 246 名前：デフォルトの名無しさん mailto:sage [2025/06/25(水) 19:22:57.79 ID:ewEuQKq0.net] もう１ミリもスレと関係ない話。 語るならリアルで語ればいいのに。 他所の仕事のやり方なんてどうでもよくない？ 247 名前：デフォルトの名無しさん [2025/06/25(水) 19:59:58.21 ID:0+WqyKmk.net] >>237 😰 248 名前：デフォルトの名無しさん [2025/06/25(水) 20:01:19.80 ID:0+WqyKmk.net] あらかじめ仮想プリンターで調整しておくのが無難なのですね 249 名前：デフォルトの名無しさん [2025/06/26(木) 05:57:38.60 ID:YNappLwR.net] Power Automate Desktopのブラウザ操作ですが、要素の選択、クリックは、spanやaの様な最下層よりその上の部分クリックの方がいいでしょうか？ 250 名前：デフォルトの名無しさん [2025/06/26(木) 06:07:54.20 ID:Xqu0aFx/.net] >>247 馬鹿は死ね 251 名前：デフォルトの名無しさん [2025/06/26(木) 07:39:27.79 ID:ibHy7HYF.net] >>248 ハゲないで 252 名前：デフォルトの名無しさん mailto:sage [2025/06/26(木) 08:34:27.18 ID:TtUYsrfQ.net] 下から上にはイベントが伝搬するけど、上から下にはしなくね？ Excel関係なくね？ 253 名前：デフォルトの名無しさん mailto:sage [2025/06/26(木) 09:03:49.51 ID:zNLvgnZA.net] 上か下かではなく、特定しやすく変化しにくそうな要素を狙うのがスクレイピングの基本 一般的には、idが付いている要素が最優先、次点で特徴的なclass こんな教科書的な答えはAIに聞いた方が早いし丁寧な回答貰えるよ 254 名前：デフォルトの名無しさん mailto:sage [2025/06/26(木) 09:07:17.62 ID:JeZUwFBH.net] >>247 スレタイを声に出して3回読んで、 その後何を思ったか書き込んでみて 255 名前：デフォルトの名無しさん [2025/06/26(木) 10:15:53.01 ID:ctCA7frU.net] どうやって無能上司を追い出すかの方がみんな興味も需要もあってスレに合ってるんじゃね 256 名前：デフォルトの名無しさん mailto:sage [2025/06/26(木) 11:06:57.56 ID:2t9X8EDi.net] >>253 そういうスレを然るべき板に立ててきてくれよ 257 名前：デフォルトの名無しさん [2025/06/26(木) 12:21:33.40 ID:Wq1YkDfN.net] 次の選挙でわかる 258 名前：デフォルトの名無しさん [2025/06/26(木) 12:54:13.79 ID:/pIBx/RP.net] 以前から報じられていたけど、シートに配置したActiveXコントロールが既定で機能しなくなったね 259 名前：デフォルトの名無しさん [2025/06/26(木) 13:54:18.86 ID:/pIBx/RP.net] バージョンによるけど 260 名前：デフォルトの名無しさん [2025/06/26(木) 23:09:29.85 ID:YNappLwR.net] 沢山の回答、本当にありがとうございます🐜 大量の業務を指示されるにも関わらず、肝心のやり方は誰も何にも教えてくれないので困っていました。 261 名前：デフォルトの名無しさん mailto:sage [2025/06/26(木) 23:27:04.86 ID:IUW/I0xf.net] 自分が出来ますって嘘ついて入社したからでしょ？ 262 名前：デフォルトの名無しさん [2025/06/27(金) 00:06:22.99 ID:CrrZSRDf.net] >>258 死ねよ 263 名前：デフォルトの名無しさん mailto:sage [2025/06/27(金) 01:32:00.89 ID:wO5i3kHK.net] フォーマットに固執する人には一度Accessのレポートを触らせてデータ本体と閲覧用のフォーマットを分離する概念を身に着けさせたいな Excelはそこら辺をごっちゃに出来るのが強みでもあり欠点でもあるよね 264 名前：デフォルトの名無しさん mailto:sage [2025/06/27(金) 04:12:57.30 ID:VhPWe6GM.net] まだ印刷してる会社があるのか。 VBAをAIに相談しながら作ってたらどんどん破壊された。 VBAのバージョン管理ってどうやってますかお前ら。前のに戻す機能ってありますか？orz 265 名前：デフォルトの名無しさん [2025/06/27(金) 04:31:43.59 ID:NUAImJKB.net] >>260 ハゲるな🦲 266 名前：デフォルトの名無しさん [2025/06/27(金) 05:10:19.38 ID:Xt6WxpXP.net] >>262 どんどん破壊される要素ありますか？ 267 名前：デフォルトの名無しさん [2025/06/27(金) 05:11:58.20 ID:Xt6WxpXP.net] >>259 言ってないです HTMLは一切知らないです 一言も喋っていない せいぜいタグがあって、直書きするくらいですね 動的なサイトとか言われたらアウトです 268 名前：デフォルトの名無しさん [2025/06/27(金) 05:34:45.13 ID:Xt6WxpXP.net] >>251 私は本当に全くの無知だからAIに聞くこともできなければ回答の正誤の判断もできないんです 例えばXpathが出てきますが、PADでどうやれば使えるのか知りません。 IDも動的なのであまり使えなさそうな 269 名前：デフォルトの名無しさん mailto:sage [2025/06/27(金) 06:13:21.76 ID:h5r1gWAT.net] >>265 スレチって言われてるのに居続けるあたり、 無能な上人の話聞かないのがよく分かる 270 名前：デフォルトの名無しさん mailto:sage [2025/06/27(金) 06:15:32.61 ID:h5r1gWAT.net] >>262 そりゃあるよ 常に電子機器を前にできる仕事だけじゃない 271 名前：デフォルトの名無しさん [2025/06/27(金) 06:32:19.98 ID:Xt6WxpXP.net] >>267 私は人の要望しか聞いていないです 自分がこうしたいと言う話はしていない 272 名前：デフォルトの名無しさん [2025/06/27(金) 06:42:55.07 ID:/UgvnTX2.net] >>269 死ねよ 273 名前：デフォルトの名無しさん mailto:sage [2025/06/27(金) 08:31:17.40 ID:qG+K/EXj.net] わたしたちもあなたの不平不満愚痴ボヤキを読んでるだけで 解決策を提示できる・答えを知ってるとはひとことも言ってませんが悪しからず 274 名前：デフォルトの名無しさん mailto:sage [2025/06/27(金) 08:31:36.13 ID:Jv1SL4G2.net] 無知を全面に出す人苦手 だから何？ 君の親でもないけどって内心モヤッとしてる スレチですまん 275 名前：デフォルトの名無しさん mailto:sage [2025/06/27(金) 09:13:02.10 ID:H+pgJuGy.net] 最近はここに質問された内容をAIに聴いて AIの返事をまたここにpostする行為が流行ってる 276 名前：デフォルトの名無しさん mailto:sage [2025/06/27(金) 09:46:35.02 ID:zT4r2O1m.net] そのAIの解答を評価してみりゃいいんでね？ 277 名前：デフォルトの名無しさん [2025/06/27(金) 10:25:38.18 ID:w4/N1gL5.net] >>269 私も人の要望をよく聞きます 聞くだけなので答えませんがね 278 名前：デフォルトの名無しさん mailto:sage [2025/06/27(金) 10:28:46.75 ID:xoohJecr.net] AIと喧嘩したいんだけど 許可されたら死んでしまうかもしれないからここで加減を調節している段階にいるんだけど 279 名前：デフォルトの名無しさん mailto:sage [2025/06/27(金) 10:45:24.90 ID:cNRA8cKF.net] >>273 マトモな回答だとつまんないからズレた面白いAI回答を選んで貼ってください 280 名前：デフォルトの名無しさん mailto:sage [2025/06/27(金) 12:38:13.98 ID:Jv1SL4G2.net] >>277 ChatGPTに大喜利を考えてもらってみた。 なんか微妙 【大喜利 お題】「エクセルがついに自我を持った！さて、最初に言ったひと言とは？」 【回答】 Sub ExcelNoJiga() MsgBox "ねぇ、また無駄な関数使ってるよね？" End Sub 281 名前：デフォルトの名無しさん [2025/06/27(金) 17:23:06.62 ID:o1sxBVxM.net] chatGPTでもcopilotでもいいけどまともなコードが返ってこないなら自分のブロンプトが絶望的なのを認識したほうがいい そう言い切っていいほど精度高いわ 282 名前：デフォルトの名無しさん mailto:sage [2025/06/27(金) 18:10:56.90 ID:hBRiuDb/.net] 検索したら出てくるレベルの質問なら確実に答えてくれるが、どこにも例題がないやつは嘘しか言わない 結局はGoogle代行でしかない 283 名前：デフォルトの名無しさん mailto:sage [2025/06/27(金) 18:55:03.45 ID:O2xo65Fk.net] かつて誰も考えなかったすごい質問する俺様にAIはついてこれない マッタク使えないZE 284 名前：デフォルトの名無しさん mailto:sage [2025/06/27(金) 20:46:54.00 ID:Jv1SL4G2.net] 例えばどんなこと？ 285 名前：デフォルトの名無しさん [2025/06/27(金) 21:38:05.72 ID:1l5DAmC+.net] >>280 おい言ってみろよ それっぽいこと適当に言ってると低年収バレバレで失禁するぞ？ 286 名前：デフォルトの名無しさん [2025/06/28(土) 10:20:06.70 ID:2ZQiHrFF.net] 逃げたな 287 名前：デフォルトの名無しさん mailto:sage [2025/06/28(土) 10:56:57.35 ID:3Um/1PXm.net] >>280 ほんそれ 回答の末尾にしらんけど付けてくれ 知らないなら答えないで下さいうざいだけです 288 名前：デフォルトの名無しさん mailto:sage [2025/06/28(土) 15:34:30.03 ID:OhpHj5Et.net] 会話の終わりに知らんがななんか付けたら関西人に成ってしまうだろ そう言えば、関西系のシステムって見たことも触ったことも無いけど やっぱあれかな？　[はい][いいえ]ボタンなんか配置したら｢何東京人ぶってんねん！｣とか 罵られるから[そうでおま][ちゃいまんねん]とかなのかな？　キャンセルは[やめときますｂ�]とか いっぺん見てみたい 289 名前：デフォルトの名無しさん [2025/06/28(土) 16:39:30.47 ID:IggLVQ8p.net] VBAスレ史上でもワースト3に入るつまらなさ 290 名前：デフォルトの名無しさん [2025/06/28(土) 17:20:22.34 ID:uA5FL7Cc.net] >>286 昔々IT企業の同期のコンピューターに疎いやつ（文系）が言ってたことに似てる プログラムの命令って何でIFとかなん JKの日本語で「もし～"だったら～"xxする」（"ら～"と伸ばすのまでが語w）とか書ければいいのにとw バカにしたけどまあ文系の素朴な疑問なんやろなとは思った 日本語BASICとかがこの命令体系だったら、一部のマニアに流行ったのかもしれんなと思ったり ちなみに大阪にある有名企業（の開発現場）で「もし」とかプログラム書いてたとこは存在した。そこで仕事したことある 今そう書いてるかは不明 291 名前：デフォルトの名無しさん mailto:sage [2025/06/28(土) 18:58:07.89 ID:vnGwMlU1.net] 日本語のようなハイコンテキスト言語はプログラミング言語に向かない 292 名前：デフォルトの名無しさん mailto:sage [2025/06/28(土) 19:31:48.97 ID:LhFbdsON.net] 形式言語としてのプログラミング言語の記号列に用いる記号をどのような記号集合から取ってくるかというだけの話で、ASCIIが便利だったってだけだと思うけど。 だから、自然言語としての日本語・英語の性質はあんまり関係ないと思う。構文論・意味論は個々のプログラミング言語で定義されるわけだし。仮に「もし〜だったら」みたいに書けたとしても、期待に反して大して書きやすくはならないはず。 293 名前：デフォルトの名無しさん mailto:sage [2025/06/28(土) 19:52:26.97 ID:2qq3obCO.net] なでしこ言語（泣） 294 名前：デフォルトの名無しさん [2025/06/28(土) 20:13:15.90 ID:Me3Cyfy2.net] もしも あしたが晴れならばの歌詞は色々と論理が破綻してる 295 名前：デフォルトの名無しさん mailto:sage [2025/06/28(土) 20:35:26.86 ID:uZ2SW2TW.net] 財源が無いはずなのに消費税で上振れしている税収の財源があるのも論理破綻している 296 名前：デフォルトの名無しさん [2025/06/28(土) 20:44:32.94 ID:uA5FL7Cc.net] >>290 その通り 普通にIF書いてたプログラマーからしたら全然書きやすくはない しかし当時プログラマーなんて少ない時代に、わかりやすく書ける、読めることはメリットあった 例えば東京特許許可局という変数があったとき、これを英字にしたら読みやすさが激減する 苦肉の策な時代でした （省略英字の日本語辞書を使って、ソースを読みやすくする現場もあった。SYH-ZEIを消費税とするような） 297 名前：デフォルトの名無しさん [2025/06/28(土) 20:45:50.18 ID:nr2U5Q2u.net] 俺は変数の宣言は日本語にしてる ひらがな、カタカナ、漢字 それでトラブったことがないの 298 名前：デフォルトの名無しさん mailto:sage [2025/06/28(土) 21:46:41.03 ID:IE4mXjww.net] だが日本語変換の切替えがだるい 299 名前：デフォルトの名無しさん [2025/06/28(土) 22:01:41.58 ID:uA5FL7Cc.net] >>296 変換をon、無変換をoffにしておくと楽 300 名前：デフォルトの名無しさん [2025/06/28(土) 22:05:51.33 ID:sSoEJ15o.net] 一応こんなのはある C++言語によるお嬢様コーディングがブームの兆し!? https://forest.watch.impress.co.jp/docs/serial/yajiuma/1419370.html 301 名前：デフォルトの名無しさん [2025/06/29(日) 02:34:13.89 ID:712DhJe3.net] こんなのも https://eetimes.itmedia.co.jp/ee/articles/2506/27/news072.html 302 名前：デフォルトの名無しさん [2025/06/29(日) 08:26:19.87 ID:MOD8edIy.net] 改ページの点線を手動で移動させて1ページに収まる様に指定するのと（実はこれが自動改ページ） 横1ページ指定するのと（全列を1ページに収まる様に指定） 印刷した時の文字の大きさに差はありますか？ 303 名前：デフォルトの名無しさん mailto:sage [2025/06/29(日) 12:48:03.11 ID:9LXkiqZz.net] シート上で指定した改ページはデータをページで区切るための指定 プリンター設定で拡大縮小できるし、紙が数ミリずれることもあるのでギリギリを狙うと失敗する 304 名前：デフォルトの名無しさん [2025/06/29(日) 17:00:44.93 ID:MOD8edIy.net] >>301 プリンターの設定で必ずこの行から2ページ目にする という設定ができるのでしょうか？ とりあえず今日調べてなんとなく挙動がわかった様な気がします 考えれば当たり前の話ですが、行を追加すると余分なページが挟まれる可能性があるのと、空白だけど（何かしら書式設定された痕跡があるからか）印刷対象になってしまっている行を削除しないといけない 305 名前：デフォルトの名無しさん [2025/06/29(日) 18:14:38.13 ID:jfS/ezr/.net] 印刷画面で1ページだけを5枚印刷とか 3,5～7ページだけを印刷とか指定できるので好きなページだけ印刷すればいいんじゃね 306 名前：デフォルトの名無しさん [2025/06/29(日) 18:29:48.73 ID:jfS/ezr/.net] 印刷すること自体をマクロでやったこと無いが プレビューを確認してよければ印刷するくらいにしないと インクや紙が無駄になるぞ 1万件のデータ印刷したら100ページとかw 307 名前：デフォルトの名無しさん [2025/06/29(日) 18:43:03.87 ID:MOD8edIy.net] マクロから直接印刷はさすがにしてないです pdf出力するのをしています ちなみにどうしても縮尺指定にこだわりたい人の為に、縮尺指定→印刷プレビュー→印刷プレビュー閉じる→左右のページ数確認→ループのコードを書きました。 308 名前：デフォルトの名無しさん [2025/06/30(月) 06:28:01.78 ID:m9Iz5ero.net] Excelの知識がなさすぎるひと向けに作るのはやめた方がいい 309 名前：デフォルトの名無しさん [2025/06/30(月) 11:45:51.43 ID:jH/JIj4s. ] [ここ壊れてます] 310 名前：net mailto: つかExcelVBAは使うのやめた方がいい トラブルの元 [] [ここ壊れてます] 311 名前：デフォルトの名無しさん mailto:sage [2025/06/30(月) 11:49:50.48 ID:JQmVBSaF.net] このスレで言うことか？ 312 名前：デフォルトの名無しさん [2025/06/30(月) 18:11:33.26 ID:CUdrd9La.net] 印刷やろうとしてる人に向けてだろ… でも明らかにセンスも作り込みスキルもなさそうだから同意 313 名前：デフォルトの名無しさん [2025/06/30(月) 20:01:12.87 ID:9Mnf4Vk7.net] >>309 センスも作り込みスキルも無さそうでしょうか？ 314 名前：デフォルトの名無しさん [2025/06/30(月) 20:48:43.72 ID:XO4EHMtF.net] >>310 ごめん、そんなことはないけど 印刷のVBA化に無理に固執するもんじゃない マジで 昔経験したからわかる 315 名前：デフォルトの名無しさん [2025/06/30(月) 20:54:02.73 ID:9Mnf4Vk7.net] >>311 ありがとうございます vbaで直接プリンターに飛ばすわけではありません とりあえず改ページの仕様はいくらか理解できたと思います 316 名前：デフォルトの名無しさん mailto:sage [2025/07/01(火) 00:25:06.97 ID:AnMu1HLz.net] Chatさんに聞いてみたけど面倒くさそう。 ' 例：20行目の上に改ページ（21行目から新しいページ） 余白2cm Sub 印刷設定サンプル() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") With ws .ResetAllPageBreaks .HPageBreaks.Add Before:=.Rows(21) With .PageSetup .PrintTitleRows = "$1:$3" .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = False .Orientation = xlPortrait .PaperSize = xlPaperA4 .LeftMargin = Application.CentimetersToPoints(2) .RightMargin = Application.CentimetersToPoints(2) .TopMargin = Application.CentimetersToPoints(2) .BottomMargin = Application.CentimetersToPoints(2) .CenterHorizontally = True End With End With MsgBox "印刷設定を適用しました。" End Sub 317 名前：デフォルトの名無しさん mailto:sage [2025/07/01(火) 00:32:33.67 ID:AnMu1HLz.net] 続き。こういうのも多分いるよね。 指定した行数がA4印刷1ページに収まるかを調べ収まらない場合は改ページを設定する 各行の高さを合計して、ページ内に収まるかを判定。A4の印刷可能範囲の高さ（ポイント単位）と比較。オーバーするならその直前に 改ページを入れる。 A4用紙の印刷可能な高さ（おおよそ） A4縦の高さ：29.7 cm = 約842 pt 上下余白（例）：2cm + 2cm ≒ 113 pt（計） ⇒ 実質印刷可能範囲：約729 pt ※余白・ヘッダー・フッターにより変動 コード例 Sub 自動改ページ_行数と印刷高さを基準に() Dim ws As Worksheet Dim i As Long Dim rowHeightSum As Double Dim printHeightLimit As Double Dim lastRow As Long Set ws = ThisWorkbook.Sheets("Sheet1") ws.ResetAllPageBreaks ' 印刷可能な高さを計算（A4縦：842pt - 上下余白 約113pt） printHeightLimit = 842 - 113 rowHeightSum = 0 lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row For i = 1 To lastRow rowHeightSum = rowHeightSum + ws.Rows(i).RowHeight If rowHeightSum > printHeightLimit Then ' この行の直前で改ページを入れる ws.HPageBreaks.Add Before:=ws.Rows(i) rowHeightSum =ws.Rows(i).RowHeight ' 次ページの高さリセット End If Next i MsgBox "改ページを設定しました。" End Sub 318 名前：デフォルトの名無しさん [2025/07/01(火) 07:51:53.41 ID:hLMayhbM.net] >>313 このコードは何をしているかというと、 21行目の上　つまり20行目と21行目に改ページを設定して 上にヘッダー？を設定して 縮尺解除 全列を1ページに収める 行のページ数は自動 用紙サイズはA4 という設定をしています しかし、改ページの設定は 改ページビューの青い点線（実はこれが自動改ページ）ではないから 1ページと2ページに余分な空白のページが挟まる 319 名前：デフォルトの名無しさん mailto:sage [2025/07/01(火) 12:47:55.21 ID:cyOlFSbV.net] インスパイアされて作ってみた 関西のコミュニケーションの多様性にはリスペクトしか無い https://89.gigafile.nu/0706-cf0368763b1caf00c266d1efc563aea36 ネィティブでは無いので誤りが有ったら指摘もらえば改良もやぶさかではない Captionだけじゃ物足りないので喋らせてみたが、これが結構ドツボ ExcelでのSpeakは、まだまだ途上らしい 320 名前：デフォルトの名無しさん [2025/07/01(火) 21:04:55.51 ID:hLMayhbM.net] >>316 何をお作りになられたのでしょうか？ 321 名前：デフォルトの名無しさん [2025/07/01(火) 23:30:56.43 ID:uDpPxP0Z.net] 俺氏、VBAで去年社内最優秀賞30万 今年はちょびちょび改善で出して1万6500円 抜群のセンスだわさ 322 名前：デフォルトの名無しさん mailto:sage [2025/07/02(水) 00:01:46.59 ID:0vwAlXoU.net] そう思うならさっさと転職して本職のITエンジニアになった方が稼げるよ 323 名前：デフォルトの名無しさん mailto:sage [2025/07/02(水) 02:51:17.71 ID:g2KaZT8X.net] AI時代にここの質問スレは盛況なのは何故だ 324 名前：デフォルトの名無しさん mailto:sage [2025/07/02(水) 03:40:33.29 ID:fiQBdOaz.net] AIがイマイチだから 325 名前：デフォルトの名無しさん mailto:sage [2025/07/02(水) 07:59:03.99 ID:02hJ4H7c.net] AIに書かせることはできても、それの検証はどのみち必要だから 326 名前：デフォルトの名無しさん [2025/07/02(水) 08:13:15.57 ID:h5Fr+SaE.net] ガイジだけど質問ある？ 死にたいガイジ…空気読めないガイジ…死にたいガイジ… 327 名前：デフォルトの名無しさん mailto:sage [2025/07/02(水) 08:19:12.11 ID:q22wzhF/.net] AIはうそつきだし 適度に事実も混ぜてくるから一番やっかい 328 名前：デフォルトの名無しさん mailto:sage [2025/07/02(水) 08:29:36.52 ID:8Lvzc6gd.net] やっかいだと思うなら使わなけりゃ良いだけなのに、 他人にもそうさせようとするのはなんで？ 329 名前：デフォルトの名無しさん mailto:sage [2025/07/02(水) 08:36:59.95 ID:QMHVqlVc.net] >>317 [はい][いいえ]を関西弁で、という話題にインスパイアされて ･一つのユーザーフォームを使い回しできる方法 ･セルの文字をボタンやラベルのキャプションにしてしまう方法 ･何ならしゃべらせる方法 関西弁に限らず、広島弁でも博多弁でもかごんま弁でもとーほぐ弁でもご随意に リンク先の[ダウンロード開始]ボタンで落とせる うかつに開くといきなりダイアログが出てきてしゃべりだすので音量注意 OSに入ってるナレーターは、Haruka、Ayumi、Sayaka、Ichiroと選べるはずが Wordと違ってExcelだとデフォルトのHaruka限定にされて変えられないとのことで そこがドツボだった　まぁ幸い解決方法を指南してくれてるサイトに辿り着けた 喋ってる間は全リソース奪われて他の操作は一切出来なくなるのは、如何ともし難いのか 330 名前：デフォルトの名無しさん mailto:sage [2025/07/02(水) 08:47:20.48 ID:q22wzhF/.net] 関西弁のyes/no それはええ／それはええ 331 名前：デフォルトの名無しさん mailto:sage [2025/07/02(水) 08:49:18.32 ID:q22wzhF/.net] >>325 個人の中で完結ならいいけど、AIの嘘回答でドヤってくるのが迷惑 332 名前：デフォルトの名無しさん mailto:sage [2025/07/02(水) 08:52:51.46 ID:8Lvzc6gd.net] >>328 嘘回答でドヤってきた奴に言えよ 十把一絡げに迷惑って言い散らかすのも充分迷惑だと気付かないのか？ 333 名前：デフォルトの名無しさん [2025/07/02(水) 09:23:01.60 ID:IvKsZJU4.net] AIにも種類あるからなぁ 問い方にもよるし 334 名前：デフォルトの名無しさん mailto:sage [2025/07/02(水) 09:28:17.31 ID:sOTx1Ysw.net] AIにテストとバグ取りまでやらせろ 335 名前：デフォルトの名無しさん mailto:sage [2025/07/02(水) 11:09:29.63 ID:QMHVqlVc.net] >>327　ww 336 名前：デフォルトの名無しさん [2025/07/02(水) 12:42:29.90 ID:PqQB+KG0.net] AIに作らせて出来てなかったら投げかけるだけだろ こんなIT音痴な奴がVBA触ってる事にビビる大木 337 名前：デフォルトの名無しさん mailto:sage [2025/07/02(水) 19:40:08.71 ID:WTqAcEsV.net] AI使って嘘の回答だったら質問変えたりコード直せばいいだけでしょ。 実際自分で調べるよりもめちゃくちゃ早いし便利に使えてるよ。 人間は平気で嘘つくのにAIに嘘つくなって求めるのはおかしいでしょ。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef