Excel VBA - For each..... with

请问为何下面D VBA code 只系郁头一张SHEET，而D Code 唔系其他SHEETS 唔行?

For example, 有SHEET 1 ,2 ,3 ,4, 5

佢只系行SHEET 1 而唔行SHEET 2, 3 ,4 ,5? (Hide Column) 点解?


Sub Final_Combine()

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets

Application.Run "Hide_Column"

Next ws

End Sub



Sub Hide_Column()

Dim n As Integer
'Sub_Total = 0
For n = 1 To 1000
x = Cells(1, n).Value

If Cells(1, n).Value = "Hide" Then
Cells(1, n).Select
Selection.EntireColumn.Hidden = True

Else

Range("A1").Select

End If

Next n

End Sub




但当我将 Application.Run "Hide_Column" 改左 ws.Range("B1") = ws.Name
佢又识变行 TAG NAME

我上面有咩错?请指教, 谢谢

点解用 Application.run?

Hide_Column() 冇指明边张ws，咁default咪用activesheet囉

请问我应如何修改?

请赐教! 谢谢

[ 本帖最后由 wawawab 於 2014-1-14 10:26 PM 编辑 ]

只系俾大家易睇D, 冇咩意思. 谢谢

无咩意思不如唔好用啦?

Hide_Column() 变 Hide_Column(ws)
cells/range 之面加返ws变ws.cells/ws.range
当然呢句Application.Run "Hide_Column"都要改，加返ws啦

话说你张ws冇activate，selection系咪真系工作正常架

THANKS! OK NOW
要WS.ACTIVATE