overnight_9
strive for mastery
- Tham gia
- 4/7/12
- Bài viết
- 160
- Được thích
- 81
- Nghề nghiệp
- Công nhân
dear thầy NDU & Quanghai & anh chị em.
Trong tuần nay overnight về Đồng Nai chơi và kết họp em mời các thầy & anh chị một bũa cơm bình dân chủ yếu là tâm sự học hỏi, em không biết lịch như thế nào em nhờ thầy NDU giúp em chỉnh lại code dưới đây cho hợp lý, em cám ơn thầy NDU
Cells cho B1:B20 theo mã: [$-42A]dddd, d-mmmm-yyyy
Trong tuần nay overnight về Đồng Nai chơi và kết họp em mời các thầy & anh chị một bũa cơm bình dân chủ yếu là tâm sự học hỏi, em không biết lịch như thế nào em nhờ thầy NDU giúp em chỉnh lại code dưới đây cho hợp lý, em cám ơn thầy NDU
PHP:
Sub Test1()
Dim lYear As Long, lDat As Long, n As Long
For lYear = 1900 To 2012
lDat = DateSerial(lYear, 8, 8)
If Weekday(lDat) = 4 Then
n = n + 1
Cells(n, "B") = lDat
Range("B17").Select
With Selection.Interior
.ColorIndex = 7
.Pattern = xlSolid
End With
With Selection.Font
.Name = "Arial"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Font.Bold = True
Selection.Font.Underline = xlUnderlineStyleSingle
End If
Next
End SubCells cho B1:B20 theo mã: [$-42A]dddd, d-mmmm-yyyy
