Sheet hay worksheets

[vumian]

hi,
Minh code cái này

sub ham(sh as sheet) hoặc worksheets
sh.select
end sub

ham (sheet1)
hay call ham (sheet1)

đều bị báo lỗi, hichic

Cám ơn giúp dỡ

 

[SoiBien]

Chắc bác phải dùng thế này

[color=darkblue]Sub[/color] ham(sh [color=darkblue]As[/color] Worksheet)
    sh.Select
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[color=darkblue]Sub[/color] test()
    ham sh:=Sheet2
[color=darkblue]End[/color] Sub

 

[Mr Okebab]

hi,
Minh code cái này

sub ham(sh as sheet) hoặc worksheets
sh.select
end sub

ham (sheet1)
hay call ham (sheet1)

đều bị báo lỗi, hichic

Cám ơn giúp dỡ

Hoặc (tiếp của SoiBien):

Sub ham(sh As Worksheet)
    With sh
        .Visible = xlSheetVisible
        .Select
    End With
End Sub
'-------------------------------------------
Sub test()
    ham Sheet1
End Sub

Thân!

 

[vumian]

Cám ơn 2 bác nhiều, cứ nghĩ nó đơn giản, thì ra nó phải đi vòng vòng, thanks

 

[nvson]

Thêm một cách nữa!

Public Sub ham(sh)
Worksheets(sh).Select
End Sub

Public Sub Chon_sheet()
ham ("sheet2")
End Sub