Ｐａｇｅ 867 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼またスマートにしたい 初心者 03/3/12(水) 9:37 ┗Re:またスマートにしたい パピー 03/3/12(水) 11:51 ┗Re:またスマートにしたい 初心者 03/3/12(水) 13:22 ┗Re:またスマートにしたい 初心者 03/3/12(水) 13:40 ─────────────────────────────────────── ■題名 ： またスマートにしたい ■名前 ： 初心者 ■日付 ： 03/3/12(水) 9:37 -------------------------------------------------------------------------
| 何度も申し訳ありませんが、下記をどうしてもスマートに出来ません。。 分かる方御教授くださいませ＜（＿）＞ Sub 一枚目印刷() Sheets("フォーム").Range("B1") = Range("B1") Sheets("フォーム").Range("A2") = Range("A2") Sheets("フォーム").Range("A3") = Range("A3") Sheets("フォーム").Range("A4") = Range("A4") Sheets("フォーム").Range("A5") = Range("A5") Sheets("フォーム").Range("A6") = Range("A6") Sheets("フォーム").Range("A7") = Range("A7") Sheets("フォーム").Range("A8") = Range("A8") Sheets("フォーム").Range("A9") = Range("A9") Sheets("フォーム").Range("B12") = Range("b10") Sheets("フォーム").Range("A13") = Range("A11") Sheets("フォーム").Range("A14") = Range("A12") Sheets("フォーム").Range("A15") = Range("A13") Sheets("フォーム").Range("A16") = Range("A14") Sheets("フォーム").Range("A17") = Range("A15") Sheets("フォーム").Range("A18") = Range("A16") Sheets("フォーム").Range("A19") = Range("A17") Sheets("フォーム").Range("A20") = Range("A18") Sheets("フォーム").Range("B23") = Range("b19") Sheets("フォーム").Range("A24") = Range("A20") Sheets("フォーム").Range("A25") = Range("A21") Sheets("フォーム").Range("A26") = Range("A22") Sheets("フォーム").Range("A27") = Range("A23") Sheets("フォーム").Range("A28") = Range("A24") Sheets("フォーム").Range("A29") = Range("A25") Sheets("フォーム").Range("A30") = Range("A26") Sheets("フォーム").Range("A31") = Range("A27") Sheets("フォーム").Range("U1") = Range("L1") Sheets("フォーム").Range("T2") = Range("K2") Sheets("フォーム").Range("T3") = Range("K3") Sheets("フォーム").Range("T4") = Range("K4") Sheets("フォーム").Range("T5") = Range("K5") Sheets("フォーム").Range("T6") = Range("K6") Sheets("フォーム").Range("T7") = Range("K7") Sheets("フォーム").Range("T8") = Range("K8") Sheets("フォーム").Range("T9") = Range("K9") Sheets("フォーム").Range("U12") = Range("L10") Sheets("フォーム").Range("T13") = Range("K11") Sheets("フォーム").Range("T14") = Range("K12") Sheets("フォーム").Range("T15") = Range("K13") Sheets("フォーム").Range("T16") = Range("K14") Sheets("フォーム").Range("T17") = Range("K15") Sheets("フォーム").Range("T18") = Range("K16") Sheets("フォーム").Range("T19") = Range("K17") Sheets("フォーム").Range("T20") = Range("K18") Sheets("フォーム").Range("U23") = Range("L19") Sheets("フォーム").Range("T24") = Range("K20") Sheets("フォーム").Range("T25") = Range("K21") Sheets("フォーム").Range("T26") = Range("K22") Sheets("フォーム").Range("T27") = Range("K23") Sheets("フォーム").Range("T28") = Range("K24") Sheets("フォーム").Range("T29") = Range("K25") Sheets("フォーム").Range("T30") = Range("K26") Sheets("フォーム").Range("T31") = Range("K27") henji = MsgBox("プリンターの設定はお済ですか？", vbYesNo) If henji = vbNo Then Exit Sub Set hani = Worksheets("フォーム").Range("A1:U31") 'hani.PrintOut hani.PrintPreview End Sub |
| こんにちは。 連続するセルをまとめました。 少しはスマートになったでしょうか？ Sub 一枚目印刷() Sheets("フォーム").Range("B1") = Range("B1") Sheets("フォーム").Range("A2:A9").Value = Range("A2:A9").Value Sheets("フォーム").Range("B12") = Range("b10") Sheets("フォーム").Range("A13:A20").Value = Range("A11:A18").Value Sheets("フォーム").Range("B23") = Range("b19") Sheets("フォーム").Range("A24:A31").Value = Range("A20:A27").Value Sheets("フォーム").Range("U1") = Range("L1") Sheets("フォーム").Range("T2:T9").Value = Range("K2:K9").Value Sheets("フォーム").Range("U12") = Range("L10") Sheets("フォーム").Range("T13:T20").Value = Range("K11:K18").Value Sheets("フォーム").Range("U23") = Range("L19") Sheets("フォーム").Range("T24:T31").Value = Range("K20:K27").Value henji = MsgBox("プリンターの設定はお済ですか？", vbYesNo) If henji = vbNo Then Exit Sub Set hani = Worksheets("フォーム").Range("A1:U31") 'hani.PrintOut hani.PrintPreview End Sub |
| ▼パピー さん： >こんにちは。 >連続するセルをまとめました。 >少しはスマートになったでしょうか？ > >Sub 一枚目印刷() > > Sheets("フォーム").Range("B1") = Range("B1") > Sheets("フォーム").Range("A2:A9").Value = Range("A2:A9").Value ＊ > > Sheets("フォーム").Range("B12") = Range("b10") > Sheets("フォーム").Range("A13:A20").Value = Range("A11:A18").Value ＊ > > Sheets("フォーム").Range("B23") = Range("b19") > Sheets("フォーム").Range("A24:A31").Value = Range("A20:A27").Value ＊ > > Sheets("フォーム").Range("U1") = Range("L1") > Sheets("フォーム").Range("T2:T9").Value = Range("K2:K9").Value ＊ > > Sheets("フォーム").Range("U12") = Range("L10") > Sheets("フォーム").Range("T13:T20").Value = Range("K11:K18").Value ＊ > > Sheets("フォーム").Range("U23") = Range("L19") > Sheets("フォーム").Range("T24:T31").Value = Range("K20:K27").Value ＊ > > henji = MsgBox("プリンターの設定はお済ですか？", vbYesNo) > If henji = vbNo Then Exit Sub > Set hani = Worksheets("フォーム").Range("A1:U31") > 'hani.PrintOut > hani.PrintPreview >End Sub ありがとうございます。 実は＊印つけた行なんですがセルを結合してるためかうまくいきません。 Range("A2:A9")→Range("A2:B9")としてもできないのですがどうすればよろしいのでしょうか？ ちなみにCOPYではRange("A2:B9")にしたらできました。 |
| どうもすみません。 私のミスでした、うまく動きましたのでこの質問は無効にしてください。 大変有難う御座いました。。 |