Dear các Bác,
Hiện em đang tập tành về VBA (Chủ yếu là thử các code xem ứng dụng và hiệu quả của nó ntn) mà các bác đã post lên diễn đàn, vì em thấy có nhiều vd về code rất hay để có thẻ ứng dụng được trong công việc,nhưng vì em không biết VBA nên không biết vận dụng code đó để thử, mà chỉ biết mở excel và xem code (tức là ALT+F11) chứ không biết làm gì khác, nếu có thể mong các bác chỉ giùm em chút, là muốn thực hànhh trên code đó thì làm thế nào? bắt đầu từ mở VBA (ALT+F11) sau đó làm các bước gì tiếp theo. và cuối cùng là làm thế nào để active cái code đó và thấy kết quả của nó.Vì hôm nay em vào mục "trung tâm giải thích code" em thấy có nhiều topic các bác trao đổi rất có ích quản lý trong một số công việc như quản lý nhân sự, hàng hoá.... Mong các bác chỉ giáo giúp em. VD em thấy topic của Thunghi có một code ve tính ngày nghỉ để các bác thí nghiệm của em một file vd nhé (mong bác Thunghi lượng thứ vì đã sử dụng code của bác để hỏi mọi các anh chị em giải thíchh giúp:
Function songay(NgayCuoi As Date, NgayDau As Date, Thu As Integer) As Integer
Dim i As Integer
Dim ThoiGian As Integer
'Cu phap cach dung'=songay'("26/4/2007","2/1/2007",0)
'lay hieu so ngaycuoi-ngaydau, T2 = 2, T3 = 3 v.v.
'neu thu =0, tinh bao nhieu T7+CN, thu=8 tinh bao nhieu ngay le
'Tim bao nhieu ngay T6 giua 1/1/07 - 31/12/7
= songay("31/12/2007","1/1/2007",6)
If NgayCuoi < NgayDau Or Thu > 8 Then
MsgBox ("Ban nhap sai-nhap lai songay(ngaycuoi,ngaydau,thu), thu < 9")
Exit Function
End If
ThoiGian = DateDiff("d", NgayDau, NgayCuoi)
For i = ThoiGian To 0 Step -1
'1 la CN, 2 la thu 2 ....,7 la thu 7
'neu thu =0 tinh bao nhieu thu bay va cn
If Thu = 0 And (Weekday(NgayCuoi - i) = 1 Or Weekday(NgayCuoi - i) = 7) Then
songay = songay + 1
ElseIf Thu = 8 And WorksheetFunction.CountIf(Range("ngayle"), NgayCuoi - i) > 0 Then
songay = songay + 1
ElseIf Weekday(i, vbSunday) = Thu Then
songay = songay + 1
End If
Next i
End Function
Hiện em đang tập tành về VBA (Chủ yếu là thử các code xem ứng dụng và hiệu quả của nó ntn) mà các bác đã post lên diễn đàn, vì em thấy có nhiều vd về code rất hay để có thẻ ứng dụng được trong công việc,nhưng vì em không biết VBA nên không biết vận dụng code đó để thử, mà chỉ biết mở excel và xem code (tức là ALT+F11) chứ không biết làm gì khác, nếu có thể mong các bác chỉ giùm em chút, là muốn thực hànhh trên code đó thì làm thế nào? bắt đầu từ mở VBA (ALT+F11) sau đó làm các bước gì tiếp theo. và cuối cùng là làm thế nào để active cái code đó và thấy kết quả của nó.Vì hôm nay em vào mục "trung tâm giải thích code" em thấy có nhiều topic các bác trao đổi rất có ích quản lý trong một số công việc như quản lý nhân sự, hàng hoá.... Mong các bác chỉ giáo giúp em. VD em thấy topic của Thunghi có một code ve tính ngày nghỉ để các bác thí nghiệm của em một file vd nhé (mong bác Thunghi lượng thứ vì đã sử dụng code của bác để hỏi mọi các anh chị em giải thíchh giúp:
Function songay(NgayCuoi As Date, NgayDau As Date, Thu As Integer) As Integer
Dim i As Integer
Dim ThoiGian As Integer
'Cu phap cach dung'=songay'("26/4/2007","2/1/2007",0)
'lay hieu so ngaycuoi-ngaydau, T2 = 2, T3 = 3 v.v.
'neu thu =0, tinh bao nhieu T7+CN, thu=8 tinh bao nhieu ngay le
'Tim bao nhieu ngay T6 giua 1/1/07 - 31/12/7
= songay("31/12/2007","1/1/2007",6)
If NgayCuoi < NgayDau Or Thu > 8 Then
MsgBox ("Ban nhap sai-nhap lai songay(ngaycuoi,ngaydau,thu), thu < 9")
Exit Function
End If
ThoiGian = DateDiff("d", NgayDau, NgayCuoi)
For i = ThoiGian To 0 Step -1
'1 la CN, 2 la thu 2 ....,7 la thu 7
'neu thu =0 tinh bao nhieu thu bay va cn
If Thu = 0 And (Weekday(NgayCuoi - i) = 1 Or Weekday(NgayCuoi - i) = 7) Then
songay = songay + 1
ElseIf Thu = 8 And WorksheetFunction.CountIf(Range("ngayle"), NgayCuoi - i) > 0 Then
songay = songay + 1
ElseIf Weekday(i, vbSunday) = Thu Then
songay = songay + 1
End If
Next i
End Function
