چگونه در اکسل تمام روزهای هفته یا روزهای کاری را در محدوده تاریخ مشخص دریافت کنیم

این آموزش به شما یاد می دهد که چگونه می توانید تمام روزهای کاری یا روزهای هفته را در یک محدوده تاریخ مشخص (به استثنای شنبه ها و یکشنبه ها) انجام دهید ، بسیار ساده اما بسیار مفید وقتی که به یک اکسل رسیدید که در آنجا مجبورید با تمام روزهای کاری کاری کار کنید.

بطور مثال اگر محدوده تاریخ بین 8 ژانویه-2014 تا 20 ژانویه-2014 ذکر شده باشد ، روزهای کاری روزهای کاری خواهد بود :

08-01-2014	Wednesday
09-01-2014	Thursday
10-01-2014	Friday
13-01-2014	Monday
14-01-2014	Tuesday
15-01-2014	Wednesday
16-01-2014	Thursday
17-01-2014	Friday
20-01-2014	Monday

Sub FnDateAdd()
   Dim strDate
   Dim mainWorkBook As Workbook
   Dim intCounter
   intCounter = 1
   Set mainWorkBook = ActiveWorkbook
   For i = Date To DateAdd("m", 1, Date)
  strDay = Format(i, "dddd")
     If strDay <> "Saturday" And strDay <> "Sunday" Then
     mainWorkBook.Sheets("Sheet1").Range("A" & intCounter) = i
     mainWorkBook.Sheets("Sheet1").Range("B" & intCounter) = strDay
     intCounter = intCounter + 1
  End If
Next
End Sub

با استفاده از یک حلقه در تمام تاریخها حرکت کنید ، روز هر روز را بررسی کنید و چاپ کنید ، اگر یکی از "شنبه" یا "یکشنبه" باشد ، پس فقط آن را نادیده بگیرید در نهایت خروجی مطابق شکل زیر خواهد بود :

چگونه در اکسل تمام روزهای هفته یا روزهای کاری را در محدوده تاریخ مشخص دریافت کنیم