|
▼kobasan さん:
ありがとうございました。
メンテナンスから考えると確かに、貴兄のコードは分かり
やすと思いました。。
>
>私は、長々としたプログラムは、結構メンテナンスと後からみても分かるという点で>>>は、
>あまり使いません。
部品の管理なども良いアイディアと思います。
私も見習いたいとは思いますが、どのような管理が後で探しやすいか?
でしょうね。分類の仕方の理解(つまり未だマクロの理解度が低いため)を
少しずつ勉強して行きます。
>では、また何かあれば、そのときということで。
ありがとうございます。
又質問があるのですが・・・宜しいでしょうか。
シートの印刷をコードにしたのですが、何故かスピードが遅いような感じが
しますが、一度目を通していただけませんでしょうか。
Sub プリントアウト()
Application.ScreenUpdating = False
Dim i As Integer
Dim ST_Name As String
Sheets("売上一覧").Activate
For i = 3001 To Cells(65536, 26).End(xlUp).Row
Sheets("売上一覧").Activate
Range("E1") = Cells(i, 26).Value
ST_Name = Range("E1")
Sheets(ST_Name).Select
With ActiveSheet.PageSetup
.PrintArea = Range(Range("B2"), Range("B2").CurrentRegion.Offset(2)).Address
End With
' ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
Sheets("売上一覧").Activate
Application.ScreenUpdating = True
End Sub
|
|