函數作用:自動獲取指定月的工作日

'################################################################

?

Sub 自動填充工作日(month1 As Integer)

??? '獲取指定月份天數

??? Dim days As Integer

??? Dim xdate As Date

??? xdate = CDate("2008-" + CStr(month1))

??? '初始化公共變量Col2的值

?? ?col2 = 4

??? '調用自定義Mday()函數獲取指定月份的天數

??? days = MDay(xdate)

??? '循環獲取指定月份的工作日

??? For i = 1 To days

??????? '聲明變量保存指定日期

??????? Dim Curdate As String

??????? Curdate = "2008-" + CStr(month1) + "-" + _

????????????????? CStr(i)

??????? '判斷指定日期是否為工作日

????? ??If Weekday(CDate(Curdate)) <> vbSaturday _

?????????????????? And Weekday(CDate(Curdate)) <> vbSunday Then

??????????? Cells(2, col2) = i

??????????? col2 = col2 + 1

??????? End If

??? Next i

End Sub

?

'獲取指定月份的天數

?

Public Function MDay(Optional xdate _

?? ??????????????????As Variant = 0) As Integer

??? If IsDate(xdate) Then

??????? MDay = Day(DateSerial(Year(xdate), _

?????????????? Month(xdate) + 1, 0))

??? Else

??????? MDay = 0

??? End If

End Function

轉載于:https://www.cnblogs.com/djcsch2001/archive/2011/07/26/2117617.html

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的VBA之六--EXCEL VBA两则的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。