Я пытаюсь взять число, данное пользователем через окно ввода ввода и использовать его, чтобы поместить «X» в число ячеек на основе ввода пользователя

Question

Я пытаюсь в Excel создать расписание, в которое пользователь может ввести количество отработанных дней, а затем макрос поместит X в соответствующее количество ячеек, начиная с определенной ячейки. и в конечном итоге пропуская определенные клетки. Я могу заставить его поместить X в ячейки в указанном диапазоне, но не в определенном пользователем диапазоне. Вот где я сейчас нахожусь:

Sub WorkDays()

    Dim days As String

    days = InputBox(Prompt:="How Many Days Worked", Title:="Days Worked", Default:="Enter Number of Days Worked")

    Dim number As Range

End Sub 

Буду признателен за любую помощь и совет. Я просто пытаюсь автоматизировать уникальные расписания наших компаний для нетехнических людей в компании.

Редактировать: Вот код с включенным материалом, который помещает X в несколько ячеек, в которые я их хочу. проблема в том, что я хочу, чтобы переменная «days» была диапазоном ячеек, в которые помещаются буквы X.

Sub WorkDays()

Dim days As String

days = InputBox(Prompt:="How Many Days Worked", Title:="Days Worked", Default:="Enter Number of Days Worked")
days = "X"
Range("D11:D15").Value = days

End Sub

Вот снимок экрана рабочего листа.

Answer 1

В вашем втором подпрограмме второй days = означает, что первый бесполезен, поскольку "X" заменяет любое значение, которое days имело раньше.

Попробуйте:

Dim days As Long

days = InputBox(Prompt:="How Many Days Worked", Title:="Days Worked", Default:="Enter Number of Days Worked")

Range("D11:D" & 10 + days).Value = "X"

Примечание: Проблема кажется более сложной, чем заявлено. Откуда вы знаете, что кто-то работал с понедельника по пятницу, а не с субботой (у обоих пять дней). Вам может потребоваться более одного поля ввода, чтобы определить начальный день чьей-либо недели.