首页 文章

基于特定单元格“值”的多工作表工作簿上的宏自动运行

提问于
浏览 次
-1

关于使用VBA代码基于单元格的"value"自动运行宏有很多讨论 . 我需要帮助的是编写代码以基于单元格A1（SHEET 2）（开/关）的"VALUE"自动启动宏 . 工作表1有一个活动X按钮，链接到工作表1上的单元格，然后工作表2使用 =Sheet1(cell) 公式，然后我使用 =if 公式将真/假更改为开/关 . （工作表2）当单元格"A1"之间发生变化时我希望宏启动 .

Sub H1TL0()
'
' 
H1TL0 Macro
'

'


Sheets("LASER LOG").Select
Rows("5:5").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets(" LASER WORKSHEET").Select
Range("G78").Select
Selection.Copy
Sheets("LASER LOG").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
Sheets(" LASER WORKSHEET").Select
Range("G80").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LASER LOG").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
Sheets(" LASER WORKSHEET").Select
Range("G83").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LASER LOG").Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
Range("F14").Select
Sheets(" LASER WORKSHEET").Select
End Sub

我运行了宏H1TL0，它工作正常 .

附：我是VBA的新手（就像3天新的一样）所以请忍受我的无知 .

excel excel-vba macros vba

1 回答

  • 0
    'Place below sub in [ThisWorkbook] code pane  
 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
     If StrComp(ActiveSheet.Name, "Dashboard") = 0 Then

       If ActiveSheet.Cells(1, 1).Value = "Cell Value" Then
       'Put Condition here. if there are multiple then add elsif
        End If
     End If
    End Sub
    回复于

相关问题