Excel VBA 質問スレ Part83 (861ﾚｽ)
上下前次1-新
302: 06/29(日)17:00 ID:MOD8edIy(2/3) AAS
>>301
プリンターの設定で必ずこの行から2ページ目にする
という設定ができるのでしょうか？
とりあえず今日調べてなんとなく挙動がわかった様な気がします
考えれば当たり前の話ですが、行を追加すると余分なページが挟まれる可能性があるのと、空白だけど（何かしら書式設定された痕跡があるからか）印刷対象になってしまっている行を削除しないといけない
303: 06/29(日)18:14 ID:jfS/ezr/(1/2) AAS
印刷画面で1ページだけを5枚印刷とか
3,5～7ページだけを印刷とか指定できるので好きなページだけ印刷すればいいんじゃね
304: 06/29(日)18:29 ID:jfS/ezr/(2/2) AAS
印刷すること自体をマクロでやったこと無いが
プレビューを確認してよければ印刷するくらいにしないと
インクや紙が無駄になるぞ
1万件のデータ印刷したら100ページとかw
305: 06/29(日)18:43 ID:MOD8edIy(3/3) AAS
マクロから直接印刷はさすがにしてないです
pdf出力するのをしています
ちなみにどうしても縮尺指定にこだわりたい人の為に、縮尺指定→印刷プレビュー→印刷プレビュー閉じる→左右のページ数確認→ループのコードを書きました。
306: 06/30(月)06:28 ID:m9Iz5ero(1) AAS
Excelの知識がなさすぎるひと向けに作るのはやめた方がいい
307: 06/30(月)11:45 ID:jH/JIj4s(1) AAS
つかExcelVBAは使うのやめた方がいい
トラブルの元
308: 06/30(月)11:49 ID:JQmVBSaF(1) AAS
このスレで言うことか？
309(1): 06/30(月)18:11 ID:CUdrd9La(1) AAS
印刷やろうとしてる人に向けてだろ…
でも明らかにセンスも作り込みスキルもなさそうだから同意
310(1): 06/30(月)20:01 ID:9Mnf4Vk7(1/2) AAS
>>309
センスも作り込みスキルも無さそうでしょうか？
311(1): 06/30(月)20:48 ID:XO4EHMtF(1) AAS
>>310
ごめん、そんなことはないけど
印刷のVBA化に無理に固執するもんじゃない
マジで
昔経験したからわかる
312: 06/30(月)20:54 ID:9Mnf4Vk7(2/2) AAS
>>311
ありがとうございます
vbaで直接プリンターに飛ばすわけではありません
とりあえず改ページの仕様はいくらか理解できたと思います
313(1): 07/01(火)00:25 ID:AnMu1HLz(1/2) AAS
Chatさんに聞いてみたけど面倒くさそう。
' 例：20行目の上に改ページ（21行目から新しいページ）
余白2cm
Sub 印刷設定サンプル()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
With ws
.ResetAllPageBreaks
.HPageBreaks.Add Before:=.Rows(21)
With .PageSetup
省15
314: 07/01(火)00:32 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
省20
315: 07/01(火)07:51 ID:hLMayhbM(1/2) AAS
>>313
このコードは何をしているかというと、
21行目の上 つまり20行目と21行目に改ページを設定して
上にヘッダー？を設定して
縮尺解除
全列を1ページに収める
行のページ数は自動
用紙サイズはA4
という設定をしています
しかし、改ページの設定は
省2
316(1): 07/01(火)12:47 ID:cyOlFSbV(1) AAS
インスパイアされて作ってみた
関西のコミュニケーションの多様性にはリスペクトしか無い
外部ﾘﾝｸ:89.gigafile.nu
ネィティブでは無いので誤りが有ったら指摘もらえば改良もやぶさかではない
Captionだけじゃ物足りないので喋らせてみたが、これが結構ドツボ
ExcelでのSpeakは、まだまだ途上らしい
317(1): 07/01(火)21:04 ID:hLMayhbM(2/2) AAS
>>316
何をお作りになられたのでしょうか？
318: 07/01(火)23:30 ID:uDpPxP0Z(1) AAS
俺氏、VBAで去年社内最優秀賞30万
今年はちょびちょび改善で出して1万6500円
抜群のセンスだわさ
319: 07/02(水)00:01 ID:0vwAlXoU(1/2) AAS
そう思うならさっさと転職して本職のITエンジニアになった方が稼げるよ
320: 07/02(水)02:51 ID:g2KaZT8X(1) AAS
AI時代にここの質問スレは盛況なのは何故だ
321: 07/02(水)03:40 ID:fiQBdOaz(1) AAS
AIがイマイチだから
322: 07/02(水)07:59 ID:02hJ4H7c(1) AAS
AIに書かせることはできても、それの検証はどのみち必要だから
323: 07/02(水)08:13 ID:h5Fr+SaE(1) AAS
ガイジだけど質問ある？
死にたいガイジ…空気読めないガイジ…死にたいガイジ…
324: 07/02(水)08:19 ID:q22wzhF/(1/3) AAS
AIはうそつきだし
適度に事実も混ぜてくるから一番やっかい
325(1): 07/02(水)08:29 ID:8Lvzc6gd(1/2) AAS
やっかいだと思うなら使わなけりゃ良いだけなのに、
他人にもそうさせようとするのはなんで？
326: 07/02(水)08:36 ID:QMHVqlVc(1/2) AAS
>>317
[はい][いいえ]を関西弁で、という話題にインスパイアされて
･一つのユーザーフォームを使い回しできる方法
･セルの文字をボタンやラベルのキャプションにしてしまう方法
･何ならしゃべらせる方法
関西弁に限らず、広島弁でも博多弁でもかごんま弁でもとーほぐ弁でもご随意に
リンク先の[ダウンロード開始]ボタンで落とせる
うかつに開くといきなりダイアログが出てきてしゃべりだすので音量注意
OSに入ってるナレーターは、Haruka、Ayumi、Sayaka、Ichiroと選べるはずが
Wordと違ってExcelだとデフォルトのHaruka限定にされて変えられないとのことで
省2
327(1): 07/02(水)08:47 ID:q22wzhF/(2/3) AAS
関西弁のyes/no
それはええ／それはええ
328(1): 07/02(水)08:49 ID:q22wzhF/(3/3) AAS
>>325
個人の中で完結ならいいけど、AIの嘘回答でドヤってくるのが迷惑
329: 07/02(水)08:52 ID:8Lvzc6gd(2/2) AAS
>>328
嘘回答でドヤってきた奴に言えよ
十把一絡げに迷惑って言い散らかすのも充分迷惑だと気付かないのか？
330: 07/02(水)09:23 ID:IvKsZJU4(1) AAS
AIにも種類あるからなぁ
問い方にもよるし
331: 07/02(水)09:28 ID:sOTx1Ysw(1) AAS
AIにテストとバグ取りまでやらせろ
上下前次1-新書関写板覧索設栞歴
あと 530 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.023s