如何根据按钮位置获取wb.sheetname与wb.name并实现工作簿及工作表名称变量自动更新？

当然可以搞定！这其实是VBA里非常实用的一个小技巧，能让你的宏彻底摆脱硬编码的限制，变得灵活又省心。下面给你几种不同场景的实现方法，你可以根据自己用的按钮类型来选：

不管你用的是表单控件按钮还是ActiveX按钮，都能直接通过按钮的关联对象，拿到它所在的工作表和工作簿，完全不用硬编码名称。

方法1：适配表单控件按钮（最常用的普通按钮） #

表单控件绑定宏时，你可以给宏加个参数，让它接收按钮对象作为输入，这样就能直接定位按钮所在的位置：

Sub YourMacroName(ByVal btn As Button)
    ' 获取按钮所在的工作表
    Dim targetSheet As Worksheet
    Set targetSheet = btn.TopLeftCell.Worksheet
    
    ' 获取工作表所属的工作簿
    Dim targetWB As Workbook
    Set targetWB = targetSheet.Parent
    
    ' 接下来就用这两个变量代替硬编码的名称就行啦
    MsgBox "当前按钮在工作簿：" & targetWB.Name & vbCrLf & "工作表：" & targetSheet.Name
End Sub

小提醒：绑定宏的时候，要选带参数的那个选项（显示为YourMacroName(Button)），别选不带参数的版本哦。

方法2：适配ActiveX控件按钮 #

如果你用的是开发工具里的ActiveX命令按钮，直接在按钮的点击事件里就能轻松获取：

Private Sub CommandButton1_Click()
    ' Me在这里直接代表按钮所在的工作表
    Dim targetSheet As Worksheet
    Set targetSheet = Me
    
    ' 获取对应的工作簿
    Dim targetWB As Workbook
    Set targetWB = targetSheet.Parent
    
    ' 举个例子：在当前工作表A1单元格写入位置信息
    targetSheet.Range("A1").Value = "当前工作簿：" & targetWB.Name
End Sub

方法3：通用兜底方案（不用改宏参数） #

如果你的宏已经写好了，不想调整参数，也可以用Application.Caller来捕捉触发宏的按钮对象：

Sub YourMacroName()
    Dim callerObj As Object
    Set callerObj = Application.Caller
    
    Dim targetSheet As Worksheet
    ' 兼容不同类型的触发对象（表单按钮、形状按钮等）
    Select Case TypeName(callerObj)
        Case "Button", "Shape"
            Set targetSheet = callerObj.TopLeftCell.Worksheet
    End Select
    
    Dim targetWB As Workbook
    Set targetWB = targetSheet.Parent
    
    ' 这里放你的业务逻辑代码
End Sub

• 这样修改后，不管你把按钮复制到同文件的其他工作表，还是把宏和按钮一起迁移到新工作簿，代码都会自动识别按钮当前所在的位置，完全不用手动修改工作簿或工作表名称。
• 别随便用ThisWorkbook哦！它指的是宏代码所在的工作簿，如果你的宏存在加载项里，按钮在另一个文件，ThisWorkbook就会指向加载项文件，而不是你操作的目标文件，这时候上面的方法就靠谱多了。

内容的提问来源于stack exchange，提问作者akh275