Как написать условный диапазон для командной кнопки в Excel

Question

Я хочу создать командную кнопку в Excel, которая бы добавила 1 к значению ячейки A1 , если щелкнуть ее в понедельник, добавить 1 кзначение ячейки B1 , если щелкнуть ее во вторник, добавить 1 к значению ячейки C1 , если щелкнуть ее в среду, добавить 1 к значению ячейки D1 , если вы щелкнете по ней в четверг, и, наконец, добавьте 1 к значению ячейки E1 , если вы щелкнете по ней в пятницу,Это вообще возможно? Какой код следует использовать?

Спасибо.

Answer 1

Используйте функцию Weekday для Date (сегодня), причем понедельник указан в качестве первого дня недели.

Sub Test()
    Dim wkDay As Long
    wkDay = Weekday(Date, vbMonday)

    With Cells(1, wkDay)
        .Value = .Value + 1
    End With
End Sub