Ввод данных в диапазон ячеек

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод данных в диапазон ячеек (Макросы/Sub)

krest

Дата: Среда, 18.01.2017, 16:00 | Сообщение № 1

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

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

Сообщений: 18

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

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

Excel 2013

Добрый день! Маленькая проблема. В поле InputBox копируются номера
00000043335
00000043040
00000040560
00000036138

Количество их может быть от 3 до 40. Эти номера должны попасть в Range("A2:A40"). Т.е. 00000043335 - в A2, 00000043040 - в А3 и т.д. Подскажите как это сделать, а то меня всё в одну ячейку попадает)

Ответить

Manyasha

Дата: Среда, 18.01.2017, 16:10 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

krest, покажите пример в файле.

ЯД: 410013299366744 WM: R193491431804

Ответить

krest

Дата: Среда, 18.01.2017, 16:23 | Сообщение № 3

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

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

Сообщений: 18

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

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

Excel 2013

[vba]

Код

Dim Заказ As String
Dim Модель As String
Dim Код_компоненты As String

Private Sub CommandButton1_Click()

Заказ = InputBox("Введите заказ")
Модель = InputBox("Введите модель")
Код_компоненты = Application.InputBox(Prompt:="Введите номер", Type:=2)

Sheets("Лист1").Range("A2").Value = Заказ
Sheets("Лист2").Range("B2").Value = Модель

Sheets("Лист3").Range("A2:A30").Value = Код_компоненты

End Sub

[/vba]

т.е. нужно на Лист3 раскидать введенные данные по ячейкам А2-А40