エクセルの学校：全文検索：Hyper Estraier：関数

Results of 1 - 1 of about 33540 for 関数 (0.006 sec.)

[[20240513040624]]: #score: 2646; @digest: 3d03ff1f41dcd9c7da87a8763098b7f2; @id: 96723; @mdate: 2024-05-14T11:34:41Z; @size: 12109; @type: text/plain; #keywords: writing (26088), cubepdf (26027), leftside (23246), 屋[ (20803), inchestopoints (17583), 用紙 (10707), 半分 (9282), ジ目 (8570), 千行 (6566), 左右 (5864), ジ1 (5605), 紙を (5469), 数千 (5441), ペー (5316), 印刷 (5137), 2024 (5129), 余白 (4465), ジ分 (4449), 数百 (4443), プリ (4204), ンタ (3927), ージ (3576), の半 (3392), 側が (3288), 紙の (3267), 改ペ (3143), 居z (3094), 右側 (2468), ジ設 (2430), usedrange (2180), リン (2141), を横 (2093); 『A4を横にして左右で用紙を分割し2ページ印刷する方法』（さいど）
ExcelでA4縦のレイアウトで表をつくりました。 A4印刷範囲（点線があるところ）の半分も使っていないので、用紙を横にすると、その表を2つ並べることができそうです。印刷とPDF出力するときにに、 A4横で左半分に1ページ目、右半分に2ページ目、 2枚目も左右に3ページ、4ページと印刷していくにはどうしたらよいですか? 印刷の場合はプリンタによるそうでプリンタは JUSTIO MFC-L2860DWです。 PDFの場合はどうしたらよいでしょうか? なお過去に、他所で同じような質問をしましたが回答がつかず削除もできないので、質問させていただきますマルチ投稿のような形になりますことご容赦ください＜使用 Excel:Microsoft365、使用 OS:Windows10 ＞ ---- おはようございます。。。^^ 普通に表を二つ横に並べ、印刷設定でA4横置きに設定してマイクロソフトPDFプリンターに切り替えて印刷すると。出来ましたですよ。。。。^^; 作表から全て自動でエクセル様にお仕事をしていただくなら。。。VBA がありますよ。 VBAでも仰せの様にプリンター設定は絶対とは申しませんがハードルが高い[プリンターメーカー様しか解らない事もあるかも^^;]ので専用のプリンタドライバを手動でコピーしておけば簡単ですよ。でわ m(__)m （隠居Z） 2024/05/13(月) 07:12:55 ---- ↑ 試してませんが用紙設定だけならVBAだけで出来るのかも。。。多分m(__)m いい加減な事であい済みません。m(__)m ちょっと後学のため後ほど確認して見ます。。。何時になるやらわかりませんので他の方のご回答をお待ちくださいませ。（隠居Z） 2024/05/13(月) 07:20:52 ---- 印刷の場合プリンタのプロパティから「複数ページを1枚で印刷」みたいなのがあると思います。2ページを1枚にして出力用紙をA4横にすればいいでしょう。その点はプリンタのマニュアルでご確認を。 pdfはエクセルのエクスポートでは出来なさそうですね。自分はCubePDFってのを使ってますが、それだと PDF化のときに2ページ1枚の設定があります。（くー） 2024/05/13(月) 13:38:44 ---- 確認なんですけど、「2ページ分を1枚にまとめて印刷したい」んじゃなくて「0.5ページを1枚に2回分印刷したい」んですか? 前者であればプリンターの設定でできると思いますが、後者は多分無理だと思います。あれこれ考えずに表を2つ分作って範囲指定で印刷したほうが早いです。（傘） 2024/05/13(月) 13:46:35 ---- プリンタでは横にして2枚を1枚のようにすると、A4を横にした状態で上側が1ページ目、下側が2ページ目という結果になってしまいましたプリンタではうまくできなかったので、一度PDFにしてから印刷しようと思います CubePDFを入れたのですが、2ページを1枚にして出力する設定を見ましたが、プリンタと同じように用紙を縦にしないと左右に並べることができません A4を横にして、1ページ目を左側、2ページ目を右側とするのは難しいでしょうか? A5サイズ2枚を、横にしたA4の左右に並べるといった感じです（さいど） 2024/05/13(月) 18:02:39 ---- 追記です印刷したいものは日々増えるデータで数百〜数千行あり、単純に上から下に続いていますその表はA4の半分もない表なので、そのまま印刷すると用紙の半分以上が余白となってしまいます視認性目的や用紙を節約するために左右に並べて余白と印刷用紙を減らしたいですよって傘さんからアドバイス頂いた方法ですと、その表をページを想定して切ったり貼ったりして並べる必要があり、作業量や人的ミスが多くなるだろうと思い、印刷時にページ設定をしたいです少なくて固定のものであればとても有用だと思いますが、今回は少しむずかしそうです（さいど） 2024/05/13(月) 18:09:14 ---- ＞数百〜数千行あり＞A4の半分もないどういう関係ですか。半分もないということは20〜30数行ということですか（わからん） 2024/05/13(月) 19:46:08 ---- ＞印刷したいものは日々増えるデータで数百〜数千行あり、単純に上から下に続いています＞その表はA4の半分もない表なので、そのまま印刷すると用紙の半分以上が余白となってしまいます＞視認性目的や用紙を節約するために左右に並べて余白と印刷用紙を減らしたいです・数百〜数千行あり、単純に上から下に続いていますといことと・その表はA4の半分もない表なのでというのが、どう両立するのですか。説明下さい。半分にも満たないということは、途中で空白が大量に入っているか、改ページ設定を入れているからでしょう? 単純に上から下に続く表なら、普通に1ページにもっとたくさん表示すれば済む話では? 希望しているのは、（傘）さんがおっしゃるように、「0.5ページを1枚に2回分印刷したい」ということですよね。そうしたものは、「合成印刷」とか「重ね合わせ印刷」などと呼ばれるものでしょう。プリンターにそうした機能が無ければ、それは無理な話です。図形化して切り貼りするとかの工夫はあるかもしれませんが、手数がかかるのは同じです。頁設定を工夫して、「半分に満たない表」ということを解消しない限り難しいと思います。表のレイアウトを変更するという基本に立ち戻ることを推奨します。（xyz） 2024/05/13(月) 19:49:32 ---- >ExcelでA4縦のレイアウトで表をつくりました。 >A4印刷範囲（点線があるところ）の半分も使っていないので、今ひとつレイアウトが理解できないので教えてください。 1.自動の改ページのみで構成されているのですか? それとも手動で改ページ設定されているのですか? 2.奇数・偶数ページで行の高さが異なる場合は有りますか? 例えば1ページ目の1行目は行の高さ13.5 だが、2ページ目の1行目は行の高さ20 のようなことです。（kazuo） 2024/05/13(月) 20:05:29 ---- 恐怖と憶測の仮定表 (*^^*) Sheet1 |[A] |[B] |[C] |[D]|[E]|[F] |[G] |[H] [1] |日付 |商品|単価|税 |数 |売上 |ID |顧客名 [2] |2018/1/1|X1 | 500| 50| 1| 550|10009|氷屋 [3] |2018/1/1|X2 | 450| 40| 1| 490|10016|自動車屋 [4] |2018/1/1|X3 | 900| 80| 1| 980|10008|スーパ [5] |2018/1/1|X4 | 600| 50| 1| 650|10012|本屋 [6] |2018/1/1|X5 | 500| 50| 7|3,850|10017|肉屋 [7] |2018/1/1|X6 | 500| 50| 1| 550|10007|百貨店 [8] |2018/1/1|X7 | 600| 50| 1| 650|10018|自転車店 [9] |2018/1/1|X8 | 900| 80| 1| 980|10001|病院 [10]|2018/1/1|X9 | 500| 50| 1| 550|10008|スーパ ↓ 続く。。。。^^; 出力 Sheet2 Option Explicit Sub OneInstanceMain() Dim i As Long Dim y As Long Dim x As Long Dim cnt As Long Dim lC As Long Dim MaxR As Long Dim v() As Variant Dim w() As Variant Dim md As Variant Dim wS2 As Worksheet With Worksheets("Sheet1") If .Cells(1) = "" Or .Cells(2, 1) = "" Then MsgBox "情報がない可能性が有ります" End End If v = .Cells(1).CurrentRegion.Value lC = UBound(v, 2) End With MaxR = 25 Set wS2 = Worksheets("Sheet2") md = Application.Index(v, 1, 0) With wS2 .UsedRange.Clear For i = 1 To lC * 2 Step lC + 1 .Cells(i).Resize(, UBound(md)) = md Next i = 2: y = 1 ReDim w(1 To MaxR, 1 To 8) Do For x = 1 To lC w(y, x) = v(i, x) Next y = y + 1 i = i + 1 If i > UBound(v, 1) Then Exit Do If y > UBound(w, 1) Then cnt = cnt + 1 If cnt = 2 Then Ws_RightSide_Writing wS2, w .UsedRange.Columns.AutoFit .PrintPreview Intersect(.Range(.Rows(2), .Rows(.UsedRange.Rows.Count + 1)), .UsedRange).Clear cnt = 0 Else Ws_LeftSide_Writing wS2, w End If ReDim w(1 To MaxR, 1 To lC) DoEvents y = 1 End If Loop If w(1, 1) <> "" Then If cnt > 0 Then Ws_RightSide_Writing wS2, w Else Ws_LeftSide_Writing wS2, w Intersect(.UsedRange, .Range("I:Z")).Clear End If .UsedRange.Columns.AutoFit .PrintPreview End If End With Erase v, md, w End Sub Private Sub PrintWsPageSetup(ByVal wS As Worksheet) With wS Application.PrintCommunication = False With .PageSetup .Zoom = 100 .Orientation = xlLandscape .PaperSize = xlPaperA4 .LeftMargin = Application.InchesToPoints(0.1) .RightMargin = Application.InchesToPoints(0.1) .TopMargin = Application.InchesToPoints(0.1) .BottomMargin = Application.InchesToPoints(0.1) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) End With Application.PrintCommunication = True End With End Sub Private Sub Ws_RightSide_Writing(ByVal wS As Worksheet, w()) With wS .Cells(2, 10).Resize(UBound(w, 1), UBound(w, 2)) = w End With End Sub Private Sub Ws_LeftSide_Writing(ByVal wS As Worksheet, w()) With wS .Cells(2, 1).Resize(UBound(w, 1), UBound(w, 2)) = w End With End Sub こんな感じなのでせうかね。。。印刷範囲による抜け落ちフォント等による型崩れ、整形処理、エラー処理etcはございません。流れだけ確認できたらと思いまして。。。相違点等ありましたら、教えて下さるとうれしいです。←ただうれしいだけですが。(￣▽￣;) m(__)m （隠居Z） 2024/05/13(月) 23:34:01 ---- 単純化して書かせていただきますが 0001 0002 0003 0004 0005 0006 ・・ 1111 1112 1113 ・・と続いていきますこれをA4に印刷するときに用紙を横にして用紙の左側が1ページ目で、右側が2ページ目として 0001 0002 0003 0050 0051 0052 ・・ 0047 0048 0049 （ここで自動改ページ）としたいです（さいど） 2024/05/14(火) 00:43:32 ---- ＞用紙の左側が1ページ目で、右側が2ページ目として＞0001 0002 0003 0050 0051 0052 49行を1ページとするんですか。（わからん） 2024/05/14(火) 08:11:35 ---- 印刷時は縦のままでよく、プリンタによっては2ページ1枚にするときに自動で横向きに印刷するものとそのまま印刷してしまうものがあります。マニュアルをよく見て試行錯誤してください。なお、CubePDFでも同じだと思います。私が試したときはうまくできましたよ。（くー） 2024/05/14(火) 08:38:09 ---- おはようございますぅ^^ www、前回の↑プロシジャー名。。。右と左!。。。間違えてますね中身は問題ないとは思いますが。。。はずかし。。。m(__)m 早速のご返信、有難う御座います。私の理解では、さいどさんの仰せのようになっているとおもうのですが。。。なにせ、右と左、間違うようなありさまなので(*^ ^*)。。。^^; 私が何か勘違いしているのかもしれません。引き続き他の回答者様のアドバイスをお待ちくださいませ。でわ（隠居Z） 2024/05/14(火) 08:52:28 ---- PDF編集ソフトのプリンタードライバーを使えば、は2ページ1枚印刷はたいていできます。 Adobe Acrobat でもできます。私は、PDF XChange を使ってますが、印刷プレビュー画面から、プリンターのプロパティを開いて設定できました。用紙の向き「縦」レイアウトで「シートごとに複数ページ」を選択シート当たりのページ「2ページ」上記の設定で、1ページ縦が、用紙の左右に並びました。ソフトによって設定が異なると思いますが、できないはずはないので、いろいろ試してみてください。（hatena） 2024/05/14(火) 09:40:34 ---- 今、CubePDFをダウンロードして試してみましたが、下記の設定で、1ページ縦が用紙の左右に並ぶようにできました。レイアウト用紙の向き「縦」シートごとのページ数「2」（hatena） 2024/05/14(火) 09:47:27 ---- なんとなく状況はわかりました。縦に細長い表で、普通のA4縦印刷だと右側が半端に空いてしまうってことですよね? だとすると、印刷するならエクセルではなくプリンターの設定から、 PDFなら一度PDFに出力してから他の方が挙げているような別のソフトを使ってPDFファイルを加工する必要があるでしょうね。ただ、どちらの方法にしろそのままでは「1ページ分右側の空白」が残ったまま2ページ分の印刷になってしまうと思うので普通にA4縦印刷した時に右側に空白が残らない程度に"エクセルの"ページ設定から印刷を拡大してやる必要があるでしょう。 (1ページ幅に縮小は自動でできるけど拡大の方は手動拡大しか無いはず…) （傘） 2024/05/14(火) 11:45:27 ---- できました! そもそも印刷プレビューの段階では表示されなかったのですね用紙を横向きにしないと行けないと思い込んでいましたがご指摘の方法でやったら縦のまま左右にできましたありがとうございました（さいど） 2024/05/14(火) 18:10:14 ---- 縮小印刷ということだったのですか。余白を圧縮するという話だったように思いましたが。まあ、議論しているうちに変わることもあるということですか。 # さらに余白を詰めれば、1ページの記載量は4倍になりますが手間はかかります。（xyz） 2024/05/14(火) 20:34:41 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202405/20240513040624.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ