Помогите, пожалуйста, создать заливочную базу в Excel - Программирование

28.04.2009, 15:48

Проблема в том, что я с Excelем почти никогда не работала. А тут дали задачу на 10 дней. Нужно создать базу в Excel, которая потом будет заливаться в Service Manager. Нужно поработать с ячейками и управлением информацией. Как и что делать - представления не имею. Думаю сделать всё в несколько шагов, если вы поможете.

добавлено через 56 минут
http://s45.radikal.ru/i110/0904/3b/4166518dae1d.jpg
http://s53.radikal.ru/i140/0904/08/88e61f214c0a.jpg
http://s54.radikal.ru/i144/0904/87/a3d23deccc6f.jpg
http://s50.radikal.ru/i127/0904/35/9764082a267c.jpg
Нужно для начала сделать ячейки дропдауны в колонках Типы КЕ и Подтипы КЕ и связать их.

zip.gif Загрузка.zip

28.04.2009, 17:38

Первое задание выполнено, сложнее второе.
Дропдауны в колонке Местоположение остаются неприкаянными, нужно сделать дропы в организации и отделы и связать их. Но тут возникает проблема: надо сделать это так, чтобы выбрал организацию или отдел в дропдауне, кликнул по ней и ячейка выдала номер отдела или организации. Такое возможно?

EvroStandart · 29.04.2009, 10:35

гдето в таблице должны быть номера с названиями. Тогда можно написать простой код чтобы найти название, взять номер и вписать в ячейку.

29.04.2009, 10:54

а как это сделать я в программировании не бум-бум, я всего лишь разработчик...((((????

EvroStandart · 30.04.2009, 13:21

Ну я там никаких дропдаунов ненашёл.

поиск по таблице пишется так:

Код:

Sub test()

nr = 160 ' ishem po nomeru

x = Range("A1").CurrentRegion.Rows.Count

For i = 1 To x
   If Range("B" & i).Value = nr Then
      MsgBox Range("A" & i).Text  ' polu4aem nazvanie
   End If
Next i

End Sub

Это работает с активным листом и с таблицей которая начинается от адреса A1

05.05.2009, 14:47

Тема закрыта.

30.04.2009, 13:21	# 5
EvroStandart Full Member Регистрация: 20.01.2004 Адрес: Таллинн Пол: Male Сообщения: 623	Ну я там никаких дропдаунов ненашёл. поиск по таблице пишется так: Код: Sub test() nr = 160 ' ishem po nomeru x = Range("A1").CurrentRegion.Rows.Count For i = 1 To x If Range("B" & i).Value = nr Then MsgBox Range("A" & i).Text ' polu4aem nazvanie End If Next i End Sub Это работает с активным листом и с таблицей которая начинается от адреса A1

28.04.2009, 17:38	# 2
lisaniel Guest Сообщения: n/a	Первое задание выполнено, сложнее второе. Дропдауны в колонке Местоположение остаются неприкаянными, нужно сделать дропы в организации и отделы и связать их. Но тут возникает проблема: надо сделать это так, чтобы выбрал организацию или отдел в дропдауне, кликнул по ней и ячейка выдала номер отдела или организации. Такое возможно?

29.04.2009, 10:35	# 3
EvroStandart Full Member Регистрация: 20.01.2004 Адрес: Таллинн Пол: Male Сообщения: 623	гдето в таблице должны быть номера с названиями. Тогда можно написать простой код чтобы найти название, взять номер и вписать в ячейку.

29.04.2009, 10:54	# 4
lisaniel Guest Сообщения: n/a	а как это сделать я в программировании не бум-бум, я всего лишь разработчик...((((????

05.05.2009, 14:47	# 6
lisaniel Guest Сообщения: n/a	Тема закрыта.