Giúp Gọi Hàm trong Excel sử dụng biến trong VBA

[kidera]

Mình có 1 biến x trong VBA.
Ví dụ côt thứ 2 tính tuần trong năm phụ thuộc vào cột thứ 3. Mình dùng hàm WEEKNUM(B + biến x)
Cho mình hỏi phải dùng như nào cho đúng.
Xin cảm ơn

 

[SA_DQ]

Bạn thử con macro này:

Sub TinhTuanTrongNam()
  'Tìm Tuân Cua 1 Ngày Tuong Úng O Côt C        '
   Dim WF As Object, J As Long
   Set WF = Application.WorksheetFunction
   For J = 2 To 65500
        With Cells(J, "C")
            If .Value = "" Then
                Exit For
            Else
                .Offset(, -1).Value = WF.WeekNum(.Value)
            End If
        End With
  Next J
End Sub

 

[VetMini]

Mình có 1 biến x trong VBA.
Ví dụ côt thứ 2 tính tuần trong năm phụ thuộc vào cột thứ 3. Mình dùng hàm WEEKNUM(B + biến x)
Cho mình hỏi phải dùng như nào cho đúng.
Xin cảm ơn

Public bienX As Long ' biến trong VBA
' biến này được một sub hay function nào đó gán trị

' Hàm sau đây lấy biến
Public Function TriBienX()
TriBienX = bienX
End Function

Dùng hàm:
WEEKNUM(B + TriBienX())

 

[kidera]

Bạn thử con macro này:

Sub TinhTuanTrongNam()
  'Tìm Tuân Cua 1 Ngày Tuong Úng O Côt C        '
   Dim WF As Object, J As Long
   Set WF = Application.WorksheetFunction
   For J = 2 To 65500
        With Cells(J, "C")
            If .Value = "" Then
                Exit For
            Else
                .Offset(, -1).Value = WF.WeekNum(.Value)
            End If
        End With
  Next J
End Sub

Public bienX As Long ' biến trong VBA
' biến này được một sub hay function nào đó gán trị

' Hàm sau đây lấy biến
Public Function TriBienX()
TriBienX = bienX
End Function

Dùng hàm:
WEEKNUM(B + TriBienX())

Ok thanks 2 bạn. Mình đã hiểu!