Ввод разной информации через одно диалоговое окно

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Ввод разной информации через одно диалоговое окно (Макросы/Sub)

Siktorovich

Дата: Вторник, 17.11.2020, 01:08 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Ещё раз добрый вечер всем!
Появился вопрос. Можно ли избежать многократного вызова InputBox и реализовать ввод разной информации через одно диалоговое окно в коде ниже?

[vba]

Код

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Integer
Dim col As Integer

If Not Intersect(Target, Range("$B$12:$B$340")) Is Nothing Then

    r = ActiveCell.Row
    col = ActiveCell.Column

      h = InputBox("Ввод")
      Cells(r, col).Value = h

      h = InputBox("Ввод")
      Cells(r, col+1).Value = h

      h = InputBox("Ввод")
      Cells(r, col+2).Value = h

      h = InputBox("Ввод")
      Cells(r, col+3).Value = h

      h = InputBox("Ввод")
      Cells(r, c + 5).Value = h

      Cells(r, col - 1).Select
  End If
End Sub

[/vba]

Премного благодарен за все ответы!

Ответить

Pelena

Дата: Вторник, 17.11.2020, 07:51 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19515

Репутация: 4632 ±

Замечаний: ±

Excel 365 & Mac Excel

Inputbox позволяет ввести только одно значение.
Можно в Inputbox перечислить значения через какой-нибудь разделитель (точку с запятой, например), потом разбить на отдельные части по разделителю и записать в разные ячейки.
Можно нарисовать форму с несколькими полями ввода.

Вы бы описали цель этих манипуляций. Все значения надо с клавиатуры вводить?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816