Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.08.2011, 16:57   #1
social
Новичок
Джуниор
 
Регистрация: 09.08.2011
Сообщений: 2
По умолчанию Перенос информации из таблицы в программу

Добрый день, есть необходимость написать небольшую программку на vba.
Есть таблица с 3 колонками, в 1 колонке название деталей, во второй колонки ссылки, в третий краткое описание данных деталей.

Нужна следующая программка.
combobox (название деталей)
Код:
Private Sub UserForm_Initialize()
    Me.ComboBox1.RowSource = Range([A2], Cells(Rows.Count, 1).End(xlUp)).Address
End Sub
textbox(в него выносить следующие:
Название деталиназвание детали в зависимости выбора в combobox)
Краткое описаниекраткое описание в зависимости выбора в combobox)
Ссылка на каталогссылка в зависимости выбора в combobox)

Вроде должен получиться совсем небольшой код.
social вне форума Ответить с цитированием
Старый 09.08.2011, 17:46   #2
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Ну так нарисуйте форму с контролами в файле с данными и выложите сюда, а мы код напишем
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 09.08.2011, 22:09   #3
social
Новичок
Джуниор
 
Регистрация: 09.08.2011
Сообщений: 2
По умолчанию

смог почти всё сам сделать, только такой вопрос у меня:
Код:
Me.Label3.Text = "[сenter][iмg]" + Лист.Cells(Выбранный, 6).Value + "[/сenter]" + Лист.Cells(Выбранный, 5).Value
Тут получается ссылка на картинку + текст описания, как мне между ними перенос строк сделать в textbox c MultiLane True ( в красном плюсе)

Последний раз редактировалось social; 09.08.2011 в 22:12.
social вне форума Ответить с цитированием
Старый 09.08.2011, 22:17   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

попробуйте так:
Код:
Me.Label3.Text = "[сenter][iмg]" & Лист.Cells(Выбранный, 6).Value & "[/сenter]" & vblf & Лист.Cells(Выбранный, 5).Value
EducatedFool вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перенос данных из таблицы в таблицу Kisma БД в Delphi 7 22.10.2010 12:09
работа с массивом. перенос с таблицы sn00p Microsoft Office Excel 7 30.09.2010 13:13
авт. перенос данных из нескольких столбцов одной таблицы в один столбец другой таблицы A_ALL Microsoft Office Access 7 24.08.2009 21:13
Автоматический перенос информации из Листов... belarusone Microsoft Office Excel 5 06.08.2009 12:39
перенос данных из таблицы 1 в таблицу 2 AndreyZeus Microsoft Office Excel 1 20.03.2009 16:02