vba 函数中如何将工作表作为参数?
1个回答
展开全部
Sub Func1(ThisSheet As Worksheet)
ThisSheet.Cells(1, 1).Value = "A1"
ThisSheet.Cells(1, 1).Select
Selection.Interior.ColorIndex = 33
End Sub
Private Sub Cmd_Test_Click()
Call Func1(ActiveWorkbook.ActiveSheet) '将当前激活的表作为参数
End Sub
ThisSheet.Cells(1, 1).Value = "A1"
ThisSheet.Cells(1, 1).Select
Selection.Interior.ColorIndex = 33
End Sub
Private Sub Cmd_Test_Click()
Call Func1(ActiveWorkbook.ActiveSheet) '将当前激活的表作为参数
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
