Как использовать inputbox для ввода значений в ячейку

[light26]

Доброго времени суток, уважаемые форумчане.
Смотрел на просторах интернета возможность применения inputbox, но конкретного примера для своего случая не нашел.
Помогите изменить код макроса так, чтобы при открытии файла запрашивался ввод месяца и этот месяц вносился в ячейку В1 при нажатии ОК, а далее выполнялся остальной код. При нажатии Отмена - должен просто открыться файл.

Вот мой код

Sub Данные()
' Данные Макрос
       ActiveSheet.Unprotect
    Range("B1").FormulaR1C1 = "=TODAY()"
    Range("B1").NumberFormat = "[$-419]mmmm yyyy;@"
    ActiveSheet.Protect
    Range("C4").Select
Dim reply As Integer
    reply = MsgBox("Месяц расчетного периода указан верно?", vbYesNo, "Запрос на продолжение")
        If reply = vbYes Then
        Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    Range("G4:G11").Copy
    Range("H4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C4:C8").Copy
    Range("B4").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("C4:C8").ClearContents
    Range("C4").Select
       ActiveSheet.Protect
    Application.ScreenUpdating = True
        ElseIf reply = vbNo Then
       MsgBox "Укажите месяц отчетного периода в формате ДД-ММ-ГГ, например, 11-10-15"
       ActiveSheet.Unprotect
        Range("B1").Locked = False
        ActiveSheet.Protect
        Range("B1").Select
        End If
        End Sub

[Stilet]

Ну отличный пример: https://msdn.microsoft.com/ru-ru/lib...=vs.90%29.aspx

Sub Данные()
' Данные Макрос
       ActiveSheet.Unprotect
    Range("B1").value = InputBox("", "Введите номер месяца", Month(Date()), 100, 100)
  ...

[light26]

Сообщение от Stilet

Ну отличный пример: https://msdn.microsoft.com/ru-ru/lib...=vs.90%29.aspx

Sub Данные()
' Данные Макрос
       ActiveSheet.Unprotect
    Range("B1").value = InputBox("", "Введите номер месяца", Month(Date()), 100, 100)
  ...

Простите за нескромный вопрос: а что значит 100, 100 после Month(Date()) ? И что за кавычки ""? Это обязательный аргумент?
А страничку, на которую Вы даете ссылку, я посещал. Только мой мозг не в состоянии оценить полезность изложенной там информации, т.к. мои познания VBA очень недалеко ушли от нулевых...

[Stilet]

Не прощу )
Я же ссыль дал на описание, чего туда заглянуть не хочешь?
Это координаты окна на экране. Можно вообще не писать ничего кроме первого параметра, остальные необязательные.

[light26]

Спасибо. Щас буду экспериментировать

А если мне нужно только кнопку ОК оставить, то также как в msgbox написать , vbYes или в inputbox по-другому?

[Казанский]

Никак. Создавайте форму, похожую на Inputbox, но без кнопки Cancel.

[light26]

Сообщение от Казанский

Никак. Создавайте форму, похожую на Inputbox, но без кнопки Cancel.

Даже не знаю стоит ли пытаться Форму можно создать везде, даже в "Эта книга"?

[Stilet]

стоит ли пытаться

Я бы не пытался, нет смысла стандарты перекраивать.

[light26]

Сообщение от Stilet

Я бы не пытался, нет смысла стандарты перекраивать.

Я уже понял

[light26]

Код дописал. Спасибо за помощь