Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как автоматически из формы из combobox и Label разнести по ячейкам?
 
#1
03.09.2021 13:06:32
Как автоматически разнести из формы из combobox и Label разнести по ячейкам? Например нужно после выбора из списка Combobox3 автоматически перенести на "Лист3!E15", а из Label24 в "Лист3!G17".
Изменено: vikttur - 03.09.2021 19:59:16
 
 
 
#2
03.09.2021 13:23:16
Попробуйте так
Код
Private Sub ComboBox3_Change()
 Select Case ComboBox3.Value
    Case "Яблоко"
        Me.Label24.Caption = "Фрукт"
    Case "Гвоздь"
        Me.Label24.Caption = "Металл"
    Case "Огурец"
        Me.Label24.Caption = "Овощ"
    End Select
    Worksheets("Лист3").Range("E15") = ComboBox3.Value
    Worksheets("Лист3").Range("G17") = Me.Label24.Caption
    
End Sub
 
 
 
#3
03.09.2021 13:33:13
Msi2102, да спасибо огромное  то что нужно.

А можно сделать, чтобы например из ячейки "Лист3!B19" (в которой будет срабатывать формула), автоматически переносились данные в  открытую "Форм"у в "lebel31"???
Изменено: vikttur - 03.09.2021 19:59:38
 
 
 
#4
03.09.2021 13:55:22
Можно
Код
Private Sub ComboBox3_Change()
 Select Case ComboBox3.Value
    Case "Яблоко"
        Me.Label24.Caption = "Фрукт"
    Case "Гвоздь"
        Me.Label24.Caption = "Металл"
    Case "Огурец"
        Me.Label24.Caption = "Овощ"
    End Select
    Worksheets("Лист3").Range("E15") = ComboBox3.Value
    Worksheets("Лист3").Range("G17") = Me.Label24.Caption
    Me.Label31.Caption = Worksheets("Лист3").Range("G19")
End Sub
Изменено: Msi2102 - 03.09.2021 13:56:18
 
 
 
#5
03.09.2021 14:36:59
Msi2102 ОГРОМНЕЙШЕЕ СПАСИБО!!!
 
 
 
Страницы: 1
Наверх