宏自動運行基於特定單元格「值」的多工作表

-1

關於使用VBA代碼基於單元的「值」自動運行宏有很多討論。我需要幫助的是編寫代碼以基於單元格A1（SHEET 2）的「VALUE」（開/關）自動啓動宏。工作表1有一個Active X按鈕，它連接到工作表1上的單元格，然後工作表2使用=Sheet1(cell)公式，然後我使用=if公式將true/false更改爲on/off（工作表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，它工作正常。

P.S.我是VBA的全新品牌（如3天內新品），請耐心等待我的無知。

來源

2016-08-11 Trygve

您可以使用Select ... Case語句，然後調用所需的宏（Sub-ruotine）。 – Trimax

感謝您編輯我的問題。我會盡我所能學習格式化。 – Trygve

'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

來源

2016-08-11 08:02:15

謝謝。經過一番研究才弄清楚了這一切，但現在它已經成功了。 – Trygve

宏自動運行基於特定單元格「值」的多工作表

回答

相關問題