Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Ввод разной информации через одно диалоговое окно - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод разной информации через одно диалоговое окно (Макросы/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]

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

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

Автор - Siktorovich
Дата добавления - 17.11.2020 в 01:08
Pelena Дата: Вторник, 17.11.2020, 07:51 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16796
Репутация: 3623 ±
Замечаний: ±

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

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


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеInputbox позволяет ввести только одно значение.
Можно в Inputbox перечислить значения через какой-нибудь разделитель (точку с запятой, например), потом разбить на отдельные части по разделителю и записать в разные ячейки.
Можно нарисовать форму с несколькими полями ввода.

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

Автор - Pelena
Дата добавления - 17.11.2020 в 07:51
Siktorovich Дата: Вторник, 17.11.2020, 09:56 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, да. Все значения с клавиатуры. А как сделать форму с несколькими полями ввода?
 
Ответить
СообщениеPelena, да. Все значения с клавиатуры. А как сделать форму с несколькими полями ввода?

Автор - Siktorovich
Дата добавления - 17.11.2020 в 09:56
RAN Дата: Вторник, 17.11.2020, 11:30 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5339
Репутация: 1065 ±
Замечаний: 0% ±

2010


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеДавай я поищу?

Автор - RAN
Дата добавления - 17.11.2020 в 11:30
Siktorovich Дата: Вторник, 17.11.2020, 20:05 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
RAN, Спасибо!
 
Ответить
СообщениеRAN, Спасибо!

Автор - Siktorovich
Дата добавления - 17.11.2020 в 20:05
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод разной информации через одно диалоговое окно (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

jooble Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!