會取得代表第二個工作班次的行事曆例外的 day-2、 month、 句點、 weekday、 或整個一年中的 Shift 物件。 唯讀 shift 鍵 。
語法
expression。 Shift2
詞 一個代表 例外 物件的變數。
範例
下面範例會建立一個上午 8 點到中午的班次,以排定星期五為半天工作制。
Sub HalfDayFridays()
With ActiveProject.Calendar.WeekDays(pjFriday)
.Shift1.Start = #8:00:00 AM#
.Shift1.Finish = #12:00:00 PM#
.Shift2.Clear
.Shift3.Clear
End With
End Sub
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。