Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: excel  (Прочитано 8239 раз)
0 Пользователей и 2 Гостей смотрят эту тему.
kirgudu
Гость
« : 12-11-2004 20:14 » new

Подскажите пожалуйста кто знает. Как автоматически занести данные из определенной ячейки в ячейку определенного столбца, определенной строки. Причем номер строки зависит от выбранного значения в поле со списком? Желателен код.
Записан
PSD
Главный специалист

ru
Offline Offline
Пол: Мужской

« Ответ #1 : 15-11-2004 06:13 » 

Извени нет  под рукой машины с XL (переставляюсь)

Делается примерно так

sub Combo1_Click ()
cells(10,combo1.listindex)=cells(1,1)
end sub

Соотвественно перед cells  можешь указать через всю иерархию объектов приложение.книга.лист
Записан

Да да нет нет все остальное от лукавого.
kirgudu
Гость
« Ответ #2 : 15-11-2004 18:40 » 

Спасибо за ответ. Попробую уточнить что-же все таки мне необходимо.
Итак имеем книгу, в ней имеем два листа. На одном приходник, на другом база данных (фамилия, сумма) на 300 человек. На приходнике расположено поле со списком(не элемент Active. x) Необходимо, что бы при выборе фамилии из списка и заполнении ячейки «сумма платежа» это число заносилось в лист базы данных столбец «сумма», в строку той же фамилии.
Желательно сделать это только в Exce.
Записан
PSD
Главный специалист

ru
Offline Offline
Пол: Мужской

« Ответ #3 : 16-11-2004 13:45 » 

Можно сделать по другому но я на вскидку не помню как ...

Сделал следующее на первом листе разместил комбо и кнопку, на втором список фамилий в первом столбце

При активации листа загружаем список фамилив в комбо (можно как-то привязаться к диапозону но я всегда делал ручками)

Private Sub Worksheet_Activate()
ComboBox1.Clear
For i = 1 To 3
ComboBox1.AddItem Ëèñò2.Cells(i, 1)
Next i
End Sub

если тебе нужно перемещать по клику в комбо пишем так

Private Sub ComboBox1_Click()
Лист2.Cells(ComboBox1.ListIndex + 1, 2) = Лист1.Cells(1, 1)
End Sub

если комбо информационный элемент и есть гдето гланая кнопка (ок например)
то пишеш под ней

Private Sub CommandButton1_Click()
Лист2.Cells(ComboBox1.ListIndex + 1, 2) = Лист1.Cells(1, 1)
End Sub

По нажатию на кнопку или по клику в комбо мсодержимое ячейки A1 первого листа копируется в ячейку напртив фамилии выбраной в комбо.
Записан

Да да нет нет все остальное от лукавого.
kirgudu
Гость
« Ответ #4 : 16-11-2004 17:05 » 

Спасибо огромное за помощь. Сейчас буду разбираться.
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines