役立つ?表計算ソフト(の怪)その2
デスクノート印刷のマクロの中身は,
①Sub デスクノート印刷()
② For A= 0 To 365 Step 7
③ Cells(2,"C").Value = A
④ Range("E4:G54).Select
⑤ ActiveWindows.SelectedSheets.PrintOut Copies:=1
⑥ Next A
⑦End Sub
書き下し文(?国語の古典の説明のように)
①デスクノート印刷 と言う名前のマクロ と宣言している。
②Aの値を,0〜365まで変化させなさい,ただし,値は「7」ずつ増やしなさい。
③Aの値は,セル番地2Cに入れなさい。
④範囲,E4〜G54を選びなさい。
⑤今使っているシートを選び,1枚印刷しなさい。
⑥次のAに行きなさい。(②に戻って,前回の値「0」を「7」にしなさい。
⑦Aの値が,365以上になったら,デスクノート印刷と言うマクロを終了しなさい。
となります。
①Sub デスクノート印刷()
② For A= 0 To 365 Step 7
③ Cells(2,"C").Value = A
④ Range("E4:G54).Select
⑤ ActiveWindows.SelectedSheets.PrintOut Copies:=1
⑥ Next A
⑦End Sub
書き下し文(?国語の古典の説明のように)
①デスクノート印刷 と言う名前のマクロ と宣言している。
②Aの値を,0〜365まで変化させなさい,ただし,値は「7」ずつ増やしなさい。
③Aの値は,セル番地2Cに入れなさい。
④範囲,E4〜G54を選びなさい。
⑤今使っているシートを選び,1枚印刷しなさい。
⑥次のAに行きなさい。(②に戻って,前回の値「0」を「7」にしなさい。
⑦Aの値が,365以上になったら,デスクノート印刷と言うマクロを終了しなさい。
となります。