我看到过可以根据插入的文本运行宏,但是宏必须嵌入在工作表中,即:Private Sub Worksheet_Change(ByVal Target As Range)
。
我想做的是从用户的工作簿中调用宏,该工作簿不会在工作表级别上已经嵌入“Worksheet_Change...”。有什么办法可以做到这一点吗?
至于额外的背景知识,我知道可以从加载项中运行宏,但我希望使用条形码扫描来激活它,而不是从按钮或其他接口调用宏。
我的条形码读取为Make Landscape 1 pg
。希望使用以下修改:
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Value) = "Make Landscape 1 pg" Then
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
Application.ScreenUpdating = False
'ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.Select
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.ScreenUpdating = True
End If
End Sub