Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)
-   -   Заполнение ячеек из формы макроса Excel (http://forum.oszone.net/showthread.php?t=257803)

zion87 03-04-2013 20:53 2125239
Заполнение ячеек из формы макроса Excel
 
Добрый вечер товарищи...
Помогите пожалуйста, есть UserForm1

ComboBox2 - месяц
ComboBox2 - организ
TextBox1 - год
как сделать заполнение 1 листа exclel A1 - месяц(ComboBox2) A2 - год(TextBox1) 2 лист A1 - организ(ComboBox2) данными из формы после нажатия на клавишу "создать отчет"

okshef 03-04-2013 21:02 2125243
Вам нужно сделать так, чтобы Combobox-ы заполнялись по имеющимся на листах данных?

zion87 03-04-2013 21:09 2125245
нет что бы после выбора данных из комбокса (они там прописаны)
Код:
Sub Отчет()

UserForm2.ComboBox2.AddItem ("янв")
UserForm2.ComboBox2.AddItem ("февр")
UserForm2.ComboBox2.AddItem ("март")

UserForm2.ComboBox1.AddItem ("ДОУ 10")
UserForm2.ComboBox1.AddItem ("ДОУ 11")
UserForm2.ComboBox1.AddItem ("ДОУ 24")


UserForm2.Show

End Sub
надо заполнить ячейки из формы

okshef 03-04-2013 21:39 2125259
Код:
Worksheets(1).[a1] = ComboBox1.Value
Worksheets(1).[a2] = TextBox1.Value
Worksheets(2).[a1] = ComboBox2.Value
Цитата:
Цитата zion87
месяц(ComboBox2) A2 - год(TextBox1) 2 лист A1 - организ(ComboBox2) »
вы уж определитесь :)

zion87 03-04-2013 22:16 2125280
okshef, спасибо разобрался но появился вопрос

можете расшифровать
Код:
Sheets("База").Select 'переходим на лист база и
    Cells.Find(What:=Organiz, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
    xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
    True, SearchFormat:=False).Activate 'ищем организацию
просто мне надо после того как выбрана Организ проверить ее наличие в файле "База учреждение.xls"
формат файла
Код:
СОШ 10        МКОУ "Средняя общеобразовательная школа № 10"        г. Новомосковск, ул. 1-ая Транспортная, д. 3        43523369        80.21.2
затем взять адрес и вставить в ячейку

Iska 03-04-2013 22:28 2125289
Цитата:
Цитата zion87
просто мне надо после того как выбрана Организ проверить ее наличие в файле "База учреждение.xls" »
zion87, правильнее — заполнять сам список из:
Цитата:
Цитата zion87
файле "База учреждение.xls" »

okshef 03-04-2013 22:32 2125292
У вас где-то ранее присваивается значение переменной Organiz, которое потом и ищется. Точнее предположить не могу.

zion87 03-04-2013 22:38 2125297
я не могу понять как начать проверку на соответствие "организации" в закрытом но рядом лежащем файл xls , как вообще начать с ним работать ?????? вот этот код
Код:
Sheets("База").Select 'переходим на лист база и
    Cells.Find(What:=Organiz, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
    xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
    True, SearchFormat:=False).Activate 'ищем организацию
выдает ошибку
Run-time error'9':
Subscript out of range

что делать?


Время: 04:49.

Время: 04:49.
© OSzone.net 2001-