Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как передать значение нужного листа из одного макроса в другой?
 
#1
02.12.2020 17:53:22
Добрый день!
Как сделать выбор листа, в зависимости от макроса, из которого вызывается vst?

Код
Sub vstavka_na_list_1()
    Call vst
End Sub

Sub vstavka_na_list_2()
    Call vst
End Sub

Sub vst()
    With Sheets(_нужный лист_)
        .Range("A1").Value = 1
    End With
End Sub
 
 
 
#2
02.12.2020 18:17:41
Разобрался, сделал имя листа через переменную Public
 
 
 
#3
02.12.2020 18:35:35
Public - это откушенный кусок оперативки от момента открытия книги и до ее закрытия. Не увлекайтесь без необходимости.
Код
Sub vstavka_na_list_1(): Call vst("Sheet1"): End Sub
Sub vstavka_na_list_2(): Call vst("Sheet2"): End Sub
 
Sub vst(sNameSheet As String)
    With Worsheets(sNameSheet)
        .Range("A1").Value = 1
    End With
End Sub

Бывает необходимость передавать лист как объект. Тоже не проблема:
Код
Sub vstavka_na_list_1()
    Dim vst As Worksheet
    
    Set sht = Worsheets("Sheet1")
    Call vst(sht)
    
    Set sht = Nothing
End Sub
 
Sub vst(MySheet As Worksheet)
    With MySheet
        .Range("A1").Value = 1
    End With
End Sub
 
 
 
#4
03.12.2020 14:31:44
vikttur, Спасибо.
 
 
 
Страницы: 1
Наверх