三連休最終日の今日も落ち着いた天気に(^^♪
昨日までの二日間は忙しい感じで過ごしましたので、
今日はとてものんびりとした時間を過ごしていました(^_-)☆
午前中は仕事で使うエクセルファイルで、
必要とするページを指定した印刷作業を少しでも楽にしようと、
VBAによるマクロの研究をびっちりしていました(^_-)☆
最初にマクロを記録してから、コードを編集する方法で作業を。
そのあと作成したマクロをエクセルシート内に配置したコマンドボタンにリンク☆
はじめはなかなか思うような動作をしてくれずアズリましたが、
インターネットで調べて見たりもしながらようやく~(^^)v
結構役に立ってくれそうなマクロが出来ました(^_-)☆
作成したマクロは
============================================================
Sub ページ指定印刷()
'
' Macro1 Macro
' マクロ記録日 : 2008/2/11 ユーザー名 : taisetsu
'
Dim AA, BB As Integer
AA = Range("k1").Value
BB = Range("k2").Value
ActiveWindow.SelectedSheets.PrintOut From:=AA, To:=BB, Copies:=1, Collate _
:=True
End Sub
============================================================
午後からは、家族に付き合って買物のアッシーを。
自分は特別買ったものはありませんが、
今週からの分のロト6を購入してきました~(^_-)☆
そろそろみずほ銀行の窓口にいけないかな~(笑)
昨日までの二日間は忙しい感じで過ごしましたので、
今日はとてものんびりとした時間を過ごしていました(^_-)☆
午前中は仕事で使うエクセルファイルで、
必要とするページを指定した印刷作業を少しでも楽にしようと、
VBAによるマクロの研究をびっちりしていました(^_-)☆
最初にマクロを記録してから、コードを編集する方法で作業を。
そのあと作成したマクロをエクセルシート内に配置したコマンドボタンにリンク☆
はじめはなかなか思うような動作をしてくれずアズリましたが、
インターネットで調べて見たりもしながらようやく~(^^)v
結構役に立ってくれそうなマクロが出来ました(^_-)☆
作成したマクロは
============================================================
Sub ページ指定印刷()
'
' Macro1 Macro
' マクロ記録日 : 2008/2/11 ユーザー名 : taisetsu
'
Dim AA, BB As Integer
AA = Range("k1").Value
BB = Range("k2").Value
ActiveWindow.SelectedSheets.PrintOut From:=AA, To:=BB, Copies:=1, Collate _
:=True
End Sub
============================================================
午後からは、家族に付き合って買物のアッシーを。
自分は特別買ったものはありませんが、
今週からの分のロト6を購入してきました~(^_-)☆
そろそろみずほ銀行の窓口にいけないかな~(笑)