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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.04.2011, 14:17   #1
7vlad37
Пользователь
 
Регистрация: 28.01.2011
Сообщений: 21
По умолчанию форма с выпадающими списками и фото

Здравствуйте уважаемые знатоки!!!
Прошу помощи.Создаю таблицу расчетов в Microsoft Excel 2010 и столкнулся с проблемой,все данные для таблицы находятся на
разных листах,а как собрать воедино не получается.
Вопрос: Помогите создать форму с выпадающими списками и фото,
хотелось бы посмотреть примеры.Заранее благодарен.
7vlad37 вне форума Ответить с цитированием
Старый 01.04.2011, 14:20   #2
vikttur
Участник клуба
 
Регистрация: 16.05.2010
Сообщений: 1,249
По умолчанию

Фото в выпадающем списке здесь. Но без формы.
vikttur вне форума Ответить с цитированием
Старый 01.04.2011, 22:47   #3
А)-(дрей
Пользователь
 
Аватар для А)-(дрей
 
Регистрация: 28.02.2011
Сообщений: 42
По умолчанию

До конца не понял что нужно, но как то работал с гороскопом одним, в общем нужна форма с раскрывающимся списком и картинкой, на форме код
Код:
Private Sub ComboBox1_Change()
Dim ArrGor, ArrYear
ArrGor = Array("1001", "1002", "1003", "1004", "1005")
ArrYear = Array(1900, 1901, 1902, 1903, 1904)
Image1.Picture = Nothing
Dim i As Integer
For i = 0 To 4
    If (ComboBox1.Value - ArrYear(i)) Mod 12 = 0 Then
        Me.Caption = ArrGor(i)
        Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Goroskop\" & ArrGor(i) & ".jpg")
        Exit For
    End If
Next
End Sub


Private Sub UserForm_Initialize()
Image1.PictureSizeMode = fmPictureSizeModeZoom
Dim i As Integer
For i = 1 To 5
    ComboBox1.AddItem i
Next
ComboBox1.Value = Year(Now)

End Sub
В принципе можно подогнать под ваши цели. Папка с картинками естественно ваша)
А)-(дрей вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
проблема со списками 4e4en HTML и CSS 1 30.12.2009 09:06
проблема со списками pinch000 Общие вопросы C/C++ 0 18.12.2009 00:51
c++. Работа со списками megavolt91 Помощь студентам 0 14.06.2009 21:31
С++ - задача со списками Галечка Помощь студентам 4 08.11.2007 23:05