このマクロはおぼえておかないとだめです。なんて簡単で美しいのでしょう。 Sub 請求書印刷() Dim 番号 As Integer For 番号 = 1 To 69 Sheets("請求書データ").Range("A1").Value = 番号 Sheets("請求書データ").PrintOut Next 番号 End Sub

ドイツラントいきたいな〜 ホーエンツフェスティバルとかってえの SINGENだっけ虹に飛べるはずが、お金がないと飛べないなんて どうしてしまったことか給料がみんな下がってしまって。。。業績が悪いわけじゃないのに！ アルバイトも考えたけど、 空き時間が…