Excel VBA 質問スレ Part83 (611ﾚｽ)
Excel VBA 質問スレ Part83 http://mevius.5ch.net/test/read.cgi/tech/1749348402/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
314: デフォルトの名無しさん [sage] 2025/07/01(火) 00:32:33.67 ID:AnMu1HLz 続き。こういうのも多分いるよね。 指定した行数が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 http://mevius.5ch.net/test/read.cgi/tech/1749348402/314
390: デフォルトの名無しさん [sage] 2025/07/08(火) 17:42:58.67 ID:yBGpSZNW >>389 その論理だとChromeとChrome OSも比較できないことになるが？ 同じモデル使ってても実装・UI・機能が違えば体験は全然違うぞ StudioはAPI統合やパラメータ調整できる開発者向けツール、コンシューマー版Geminiとは設計思想が違う 「中の人が同じ」で比較無意味論は技術理解が浅すぎる 387の解答品質指摘は妥当な比較対象だし、実際のユーザー体験差を無視してる時点で的外れ とAI様が仰せになっている http://mevius.5ch.net/test/read.cgi/tech/1749348402/390
397: デフォルトの名無しさん [] 2025/07/09(水) 10:36:50.67 ID:1h9feY7y 391 x 間違って記憶している o 円形脱毛症でハゲになった http://mevius.5ch.net/test/read.cgi/tech/1749348402/397
421: デフォルトの名無しさん [] 2025/07/17(木) 21:05:30.67 ID:zBpNwhAR >>417 本当に複数の階層で部分一致できますでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1749348402/421
532: デフォルトの名無しさん [sage] 2025/08/01(金) 20:49:06.67 ID:iGmjJYY4 あれ？また低年収がこんな内容でドヤ顔の上から目線じゃん ¥と/の関係性もわからない時点で使用者がトラブルの打ち上げしても僕の処理は綺麗ですと言い張ってそう http://mevius.5ch.net/test/read.cgi/tech/1749348402/532
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.023s