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
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
Bạn thử con macro này:
PHP: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
Ok thanks 2 bạn. Mình đã hiểu!Mã: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())
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2