看不懂巨集...

Question

Sub 薪資表()
\'
\' 薪資表 Macro
\' x 在 2003/9/16 錄製的巨集
ActiveSheet.Unprotect
\'
Rows(\"9:11\").Select
Selection.EntireRow.Hidden = True
Rows(\"13:15\").Select
Selection.EntireRow.Hidden = True
Rows(\"17:19\").Select
Selection.EntireRow.Hidden = True
Rows(\"21:23\").Select
Selection.EntireRow.Hidden = True
Rows(\"25:27\").Select
Selection.EntireRow.Hidden = True
Rows(\"29:31\").Select
Selection.EntireRow.Hidden = True
Rows(\"33:35\").Select
Selection.EntireRow.Hidden = True
Rows(\"37:39\").Select
Selection.EntireRow.Hidden = True
Rows(\"41:43\").Select
Selection.EntireRow.Hidden = True
Rows(\"45:47\").Select
Selection.EntireRow.Hidden = True
Rows(\"49:51\").Select
Selection.EntireRow.Hidden = True
Rows(\"53:55\").Select
Selection.EntireRow.Hidden = True
Rows(\"57:59\").Select
Selection.EntireRow.Hidden = True
Rows(\"61:63\").Select
Selection.EntireRow.Hidden = True
Rows(\"65:67\").Select
Selection.EntireRow.Hidden = True
Rows(\"69:71\").Select
Selection.EntireRow.Hidden = True
Rows(\"73:75\").Select
Selection.EntireRow.Hidden = True
Rows(\"77:79\").Select
Selection.EntireRow.Hidden = True
Rows(\"81:83\").Select
Selection.EntireRow.Hidden = True

.
.
.
Rows("141:143").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=15

.
.
.
ActiveWindow.SmallScroll Down:=-102
Range("C7").Select
'
Columns("A:CX").Select
Selection.EntireColumn.Hidden = False
Columns("B:B").Select

Selection.EntireColumn.Hidden = True
Columns("E:CC").Select
Selection.EntireColumn.Hidden = True
Range("A1").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

第一次接觸
可以解釋一下約略再做什麼嗎?
一行行解釋就更好了...
感恩

Answer 1

關於巨集的「逐步執行」，你必須先在VB編輯器中，定好要分段執行的點，接著在呼叫巨集時，點選「逐步執行」。這部分請參考內建的說明或書藉會比較容易上手。個人之能力尚不足以用文字表達如何操作。(也許[牧童叔]可以幫你解答)以下為個人不成熟的解釋方法。 在錄製或編寫巨集時「'」後面所代表的是註解，善用註解，有助於事後了解或更改巨集。 Sub 薪資表()巨集「薪資表」由此開始'就是用註解符號空一行' 薪資表 Macro有時巨集名稱無法完整敘述其功能，可在這裡寫出其使用目的，以版主所提供的範例來看，就是一個不太好的例子，無法由巨集名稱得知其功能。' x 在 2003/9/16 錄製的巨集就是告知此巨集是何人於何時所錄製的巨集，以上皆是在錄製巨集時會自動帶入的部分，若是完全用編寫的方式，則不會出現。個人通常會保留第一個建立日期，並在日後的修改時，加上修改的日期。也可使用註解符號將被更改的部分保留下來(雖然不見得有必要)。ActiveSheet.Unprotect作用中工作表取消保護Rows("9:11").Select選取9到11列Selection.EntireRow.Hidden = True將選取的列隱藏起來，「=True」代表隱藏，「=False」就是取消隱藏。後面接續的動作就是每隔2列再選取3列做隱藏，一直到第141和143列。我就刪掉不解釋了。 ActiveWindow.SmallScroll Down:=15 ActiveWindow.SmallScroll Down:=-102這兩個不要管，這可能是錄製巨集時，忘了刪除的多餘動作，只是用來調整視窗的位置。 Range("C7").Select 選取儲存格[C7]；看不出意義，可能也是選錯。Columns("A:CX").Select 選取A欄到CX欄Selection.EntireColumn.Hidden = False 取消選取欄的隱藏Columns("B:B").Select 選取B欄Selection.EntireColumn.Hidden = True 將選取的欄隱藏起來Columns("E:CC").Select 選取E欄到CC欄Selection.EntireColumn.Hidden = True 將選取的欄隱藏起來Range("A1").Select 選取A1儲存格ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 保護作用中的工作表與儲存格內容End Sub  巨集結束

2006-03-14 00:14:12 補充：
前面不就是每隔兩列就做隱藏嗎？
還要逐行解釋？
你把巨集弄成逐行執行去觀察就可以了。

2006-03-14 11:10:08 補充：
[思緒重壘]，有上線的話，看一下我有沒有那裡寫錯好嗎？

Answer 2

全部都是在隱藏，最後一段是保護..

Answer 3

Elvin
又是你ㄚ...你很熱心耶!!感恩喔!
每隔兩列做隱藏是??
逐行執行又如何弄?
剛想接觸巨集,有更好建議嗎?
用回答的吧!!
想給你最佳解答耶!!