Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как правильно написать код "вставка рисунка в экран" - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как правильно написать код "вставка рисунка в экран" (Макросы/Sub)
Как правильно написать код "вставка рисунка в экран"
Владислав Дата: Среда, 19.04.2017, 20:28 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Привет всем!
если не ошибаюсь что код макроса это здесь
мне нужен код макроса "вставка рисунка (иллюстраций)" в экран, который мы запустили через кнопку.
надеюсь что я написал хорошо
не знаю как правильно это написать код
Заранее благодарен
 
Ответить
СообщениеПривет всем!
если не ошибаюсь что код макроса это здесь
мне нужен код макроса "вставка рисунка (иллюстраций)" в экран, который мы запустили через кнопку.
надеюсь что я написал хорошо
не знаю как правильно это написать код
Заранее благодарен
Автор - Владислав
Дата добавления - 19.04.2017 в 20:28
Владислав Дата: Среда, 19.04.2017, 20:40 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
вот я написал такую структуру

Private Sub ListBox4_Click()
Image1.Clear
Dim i As Integer
Var = ActiveSheet.Range("A1").SpecialCells(xlLastCell).Row

For i = FIRSTROW To Var
If ListBox4.Text = Trim(CStr(Range("F" & i))) And _
ListBox3.Text = Trim(CStr(Range("E" & i))) And _
ListBox2.Text = Trim(CStr(Range("D" & i))) And _
ListBox1.Text = Trim(CStr(Range("C" & i))) And _
ComboBox1.Text = Range("B" & i) Then
IsItem = False
For j = 1 To Image1.ListCount
If Image1.List(j - 1, 0) = Trim(CStr(Range("G" & i))) Then
IsItem = True
Exit For
End If
Next j
If Not IsItem Then
Image1.AddItem Trim(CStr(Range("G" & i)))
End If
End If
Next i

End Sub
 
Ответить
Сообщениевот я написал такую структуру

Private Sub ListBox4_Click()
Image1.Clear
Dim i As Integer
Var = ActiveSheet.Range("A1").SpecialCells(xlLastCell).Row

For i = FIRSTROW To Var
If ListBox4.Text = Trim(CStr(Range("F" & i))) And _
ListBox3.Text = Trim(CStr(Range("E" & i))) And _
ListBox2.Text = Trim(CStr(Range("D" & i))) And _
ListBox1.Text = Trim(CStr(Range("C" & i))) And _
ComboBox1.Text = Range("B" & i) Then
IsItem = False
For j = 1 To Image1.ListCount
If Image1.List(j - 1, 0) = Trim(CStr(Range("G" & i))) Then
IsItem = True
Exit For
End If
Next j
If Not IsItem Then
Image1.AddItem Trim(CStr(Range("G" & i)))
End If
End If
Next i

End Sub
Автор - Владислав
Дата добавления - 19.04.2017 в 20:40
Pelena Дата: Среда, 19.04.2017, 20:45 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19197
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Владислав, оформите код тегами с помощью кнопки # в режиме правки поста

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВладислав, оформите код тегами с помощью кнопки # в режиме правки поста
Автор - Pelena
Дата добавления - 19.04.2017 в 20:45
Владислав Дата: Среда, 19.04.2017, 20:48 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena,
по проще сможете обьяснить я просто не понял что вы сказали
извиняюсь
 
Ответить
СообщениеPelena,
по проще сможете обьяснить я просто не понял что вы сказали
извиняюсь
Автор - Владислав
Дата добавления - 19.04.2017 в 20:48
Pelena Дата: Среда, 19.04.2017, 20:51 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19197
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Нажмите кнопку Правка под своим вторым постом, выделите код и нажмите кнопку # на панели инструментов, затем сохраните изменения

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеНажмите кнопку Правка под своим вторым постом, выделите код и нажмите кнопку # на панели инструментов, затем сохраните изменения
Автор - Pelena
Дата добавления - 19.04.2017 в 20:51
Владислав Дата: Среда, 19.04.2017, 21:05 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena,
я правильно код написал?
есть где то ошибки?
 
Ответить
СообщениеPelena,
я правильно код написал?
есть где то ошибки?
Автор - Владислав
Дата добавления - 19.04.2017 в 21:05
Pelena Дата: Среда, 19.04.2017, 21:19 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19197
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Владислав, сначала оформите свой пост в соответствии с Правилами форума, потом будем обсуждать его правильность

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВладислав, сначала оформите свой пост в соответствии с Правилами форума, потом будем обсуждать его правильность
Автор - Pelena
Дата добавления - 19.04.2017 в 21:19
Владислав Дата: Среда, 19.04.2017, 21:34 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena,
хорошо
 
Ответить
СообщениеPelena,
хорошо
Автор - Владислав
Дата добавления - 19.04.2017 в 21:34
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как правильно написать код "вставка рисунка в экран" (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!