Excel 如何根据日历日期为单元格指定名称？

我使用VBA在Excel中创建了一个日历，我想知道如何根据日历日期为单元格指定特定名称。如果可能，我可以使用与日历日期相关的用户名选择来替换这些名称

---

谢谢，我添加了代码！您基本上是在问如何创建日历？请解释您想要自动化的手动过程-不清楚您想要在这里做什么。

stCol=2+（（工作日（fMOn）-1）*3）

为响应日历日期的单元格指定名称。它用于查看谁在特定日期任职。例如，大卫周一上班的第二周。星期三和星期五，而玛丽星期二、四、五在办公室。此外，如果他们想换班，还可以交换天数。

    Sub CreateCalendar()
Dim csheet As Worksheet
Set csheet = ThisWorkbook.Sheets("Sheet1")

selDate = [b1]
fMOn = DateSerial(Year(selDate), Month(selDate), 1)
lMon = CDate(Application.WorksheetFunction.EoMonth(fMOn, 0))

stRow = 4

'clear last cal
Range("B4:V4").ClearContents
Range("B10:V10").ClearContents
Range("B16:V16").ClearContents
Range("B22:V22").ClearContents
Range("B28:V28").ClearContents
Range("B34:V34").ClearContents


'determine what weekday 1st is. . .
If Weekday(fMOn) = 1 Then
         stCol = 2
ElseIf Weekday(fMOn) = 2 Then
         stCol = 5
ElseIf Weekday(fMOn) = 3 Then
         stCol = 8
ElseIf Weekday(fMOn) = 4 Then
         stCol = 11
ElseIf Weekday(fMOn) = 5 Then
         stCol = 14
ElseIf Weekday(fMOn) = 6 Then
         stCol = 17
ElseIf Weekday(fMOn) = 7 Then
         stCol = 20
End If

For x = 1 To Day(lMon)
       If FirstT = Empty Then