原谅我的无知(新手和对VBA知之甚少)......
我开发了一些附加到按钮的宏,并在工作簿中的一个工作表中工作。宏在日历上执行各种工作。医院侧翼的 10 间卧室中的每一间都有一个日历。
我现在想为每个卧室制作具有相同按钮和宏的相同工作表,即 10 个工作表。
但尽我所能,我无法让宏在其他工作表中工作。
宏位于第一个工作表 (Bed1) 的 VBA 代码编辑器中。我已将代码复制到 VBA 编辑器中的“此工作簿”页面中 - 但除了完全阻止它们工作之外,这没有任何效果。
这是一个典型的宏:
'============================================
Private Sub Prevw1_Click()
'============================================
' DAILY PATIENT TIMETABLE
' PRINT PREVIEW
'============================================
ActiveSheet.Select
ActiveSheet.AutoFilterMode = False
Range("_Daily").Select
ActiveSheet.PageSetup.PrintArea = "_Daily"
'
Call page_SetUp
'
' Variations for page setup
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(1.5)
.RightMargin = Application.InchesToPoints(0.9)
.Zoom = 75
End With
ActiveSheet.PrintPreview
ActiveSheet.PageSetup.PrintArea = ""
Range("H126, H126").Select
End Sub
问:我做错了什么,使得它只能在最初开发的 Bed1 工作表中工作?
亲切的问候拉斯