Results of 0 - 1 of about 0 (0.000 sec.)
- [[20020905123741]]
- @digest: 6c13b4d4229e8cac00c39abfc54dbce4
- @id: 487
- @mdate: 2003-04-29T06:44:00Z
- @size: 2186
- @type: text/plain
- #keywords: dialog5 (38421), dialogsheets (22706), optionbuttons (18040), machine (12960), ズa3 (7055), 向横 (7005), 向縦 (6466), ズa4 (6024), ムポ (5390), editboxes (5365), プ作 (5138), 囲ク (4741), papersize (4512), 刷方 (4390), xlpapera3 (4265), ーサ (3596), 白設 (3324), xlportrait (3317), ポジ (3088), xllandscape (2935), zoom (2834), ジシ (2805), rightfooter (2779), xlpapera4 (2738), 時使 (2694), pagesetup (2524), グシ (2399), printarea (2149), ーパ (2064), 括処 (1657), orientation (1328), 括変 (1277)
- 『印刷設定をすべてのシート一括変更』（802）
複数のシートを編集するには、グループ作業で編集しますが印刷の余白設定などの一括処理は出来ませんか? ---- Excelのバージョンはいくつですか? 自分も95だったか97を使っているとき、 ページ設定が一括してできなくてマクロを作ったことがあるんだけど、 2000ではグループ作業で出来ますね。 知りませんでした（汗）。 その時使っていたマクロで、修正しないと使えないと思いますけど、 参考になれば見てみてください。 この時代、ダイアログシートなんて使ってたんだなぁ（懐かしい） （ramrun） Sub Print_Set() Dim Machine_Number As String Dim start_cell, end_cell As String Delete_Sheets Machine_Number = DialogSheets("Dialog5").EditBoxes(1).Text Worksheets(1).Select With ActiveSheet.PageSetup 'OptionボタンはTrue,Falseが使えない If DialogSheets("Dialog5").OptionButtons(1) > 0 Then 'ペーパーサイズ A3 .PaperSize = xlPaperA3 If DialogSheets("Dialog5").OptionButtons(2) > 0 Then .Zoom = 100 Else .Zoom = 97 End If Else 'ペーパーサイズ A4 .PaperSize = xlPaperA4 If DialogSheets("Dialog5").OptionButtons(2) > 0 Then .Zoom = 70 Else .Zoom = 67 End If End If End With 'ホームポジション For n = 1 To Worksheets.Count Worksheets(n).Select If Worksheets(n).Name = Load_Stop Then Exit For With ActiveSheet.PageSetup '印刷範囲 If DialogSheets("Dialog5").OptionButtons(2) > 0 Then Range("a1:w50").Select Else Range("a1:y50").Select End If .PrintArea = Selection.Address Range("A1").Select '工番設定 .RightFooter = Machine_Number '印刷方向 横 .Orientation = xlLandscape '印刷方向 縦（参考） '.Orientation = xlPortrait '印刷範囲クリア 'ActiveSheet.PageSetup.PrintArea = "" End With Next n End Sub... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200209/20020905123741.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97049 documents and 608241 words.
訪問者：