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