Ещё раз добрый вечер всем!
Появился вопрос. Можно ли избежать многократного вызова 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]
Премного благодарен за все ответы!