EXCEL VBA 參照值複製貼上指令 求救高手大大幫忙

peter3057 wrote:
測試檔為了執行連續複(恕刪)

所以。我每個係數表。都需要”觸發按鈕”（按鈕我會用。我只需要文法..）

misser wrote:
至於B15以後。我可以自行去完善

'程式碼放在ThisWrokbook
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    
    Dim temp As String
    On Error Resume Next
    temp = ActiveSheet.Shapes.Range("我是按鈕").Name
    If temp = "" Then
        Debug.Print "no button"
        
        With ActiveSheet.Buttons.Add(200, 50, 100, 50)
            .Characters.Text = "測試(" & ActiveSheet.Name & ")"
            .Name = "我是按鈕"
            .OnAction = "放在module1要用的副程式"
        End With
        
    Else
        
        Debug.Print "button OK"
        Exit Sub
        
    End If
    
End Sub




'程式碼放在module1模組
Sub 放在module1要用的副程式()

    ActiveSheet.Cells(1, 1) = Format(Now(), "hh:mm:ss")
    
End Sub

snare wrote:
我完全看不懂…但自動(恕刪)

peter3057 wrote:
Range("F36...(恕刪)

peter3057 wrote:
我將你系數工作表改成(恕刪)