Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Внос данных с листа в массив
 
#1
20.12.2015 15:03:02
Нужно решить задачу (условие ниже).
1 фрейм у меня получилось сделать (вроде как), а вот со 2 проблемы.
Не могу понять, как мне внести данные с листа в массив. Не понимаю, что и куда писать.
Буду благодарна, если подскажете, как сделать всё задание до конца.
Помогите девушке :(

Свой файл так же ниже
 
 
 
#2
20.12.2015 16:07:42
1. Рисунки удалены: превышение максимально допустимого размера файлов.
2. Не нашёл на листе данных, которые нужно забирать в массив.
 
 
 
#3
20.12.2015 16:26:17
Там такая история, что при вводе данных, они выносятся на лист.
И вот уже с листа их нужно забрать в массив.

Без задания трудно понять, прикрепляю его ниже:
 
 
 
#4
20.12.2015 16:27:56
И ещё раз меньшим размером, на всякий случай
 
 
 
#5
20.12.2015 16:29:34
Такая хитрость - разбросать файлы по сообщениям - не пройдёт ))
Неужели трудно НАБРАТЬ с клавиатуры текст задания? И зачем помогающим скрин редактора?
Файл снова удалил.
 
 
 
#6
20.12.2015 16:33:33
Окей, думала файлом будет проще.

Задание:
1-ый фрейм: внесение данных на Лист.
Начальное значение SpinButton задается в процедуре UserForm_Initialize() : например
SpinButton1.Value=3
За то на сколько изменяется это значение при каждом щелчке отвечает свойство SmallChange.

Значения при изменении SpinButton отображаются в текстовом поле.

2-ой фрейм: чтение данных с Листа.
Данные с Листа (при UserForm_Initialize()) заносятся в массив (два столбца: название и стоимость).
В соответствии ComboBox ставится этот массив.
При выборе одного из элементов списка, значение в поле «Стоимость» заказа встает автоматически (Сравниваем значение, полученное из ComboBox с элементом массива, в цикле).
Вносим данные в поля ФИО и количество, поле Сумма заполняется автоматически.

По нажатию кнопки выводим данные на лист, оформленный в виде бланка.
 
 
 
#7
20.12.2015 16:43:28
ekaterinakap, у Вас проблема с тем, чтобы забрать данные с листа в массив? Ну почему не показать в файле эти данные на листе? Почему помогающие Вам, должны эти данные создать сами?
Цитата
ekaterinakap написал:
По нажатию кнопки выводим данные на лист, оформленный в виде бланка.
Где в файле этот бланк?
 
 
 
#8
20.12.2015 16:56:32
Потому что мне абсолютно неважно, какие и сколько данных там будет, хоть набор букв.
Еще проблема с тем, что данные вносятся со второй строчки, а не с первой. Но это не главная проблема.
Я просто не знаю, как сделать 2-ой фрейм задания.
Бланка нет, его надо создать.
Поверьте, если бы я знала, что нужно делать, я бы сделала.
А тут (в файле ниже) максимум того, что я понимаю.

Я не понимаю даже первой строчки из 2-го фрейма:
Цитата
Данные с Листа (при UserForm_Initialize()) заносятся в массив (два столбца: название и стоимость).
 
 
 
#9
20.12.2015 17:19:03
Вот так забираем диапазон в массив, а этот массив в КомбоБокс.
Код
Private Sub UserForm_Initialize()
Dim LastRow As Long, Arr()
    SpinButton1.Value = 1
    SpinButton1.SmallChange = 2
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Arr = Range(Cells(2, 1), Cells(LastRow, 2)).Value
    Me.ComboBox1.List = Arr
'    ComboBox1.AddItem "Хлеб"
'    ComboBox1.AddItem "Шампанское"
'    ComboBox1.AddItem "Колбаса"
End Sub
 
 
 
#10
20.12.2015 17:25:18
Спасибо огромное!

А не подскажете ещё, как сделать так, чтобы значение автоматически вставало в текстбокс?
Цитата
При выборе одного из элементов списка, значение в поле «Стоимость» заказа встает автоматически (Сравниваем значение, полученное из ComboBox с элементом массива, в цикле).
Вносим данные в поля ФИО и количество, поле Сумма заполняется автоматически.

 
 
 
#11
20.12.2015 17:47:32
При выборе в КомбоБокс? В какой ТекстБокс - "Стоимость"?
 
 
 
#12
20.12.2015 17:49:12
Да, в TextBox4
 
 
 
#13
20.12.2015 17:52:22
Код
Private Sub ComboBox1_Change()
    Me.TextBox4 = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub
 
 
 
#14
20.12.2015 17:55:28
Спасибо за помощь!
 
 
 
Страницы: 1
Наверх