小编use*_*305的帖子

是否有可能有多个按钮,让"按钮1"和"按钮2"运行相同的VBA代码,但根据按下的按钮产生不同的结果？

例如,当我按下按钮1时,我希望它转到一个网站,加载数据并将其放到工作表1上.但是当我按下按钮2时,它会转到同一个站点并将其加载到工作表2.

我知道我可以拥有相同VBA代码的多个实例(具有不同的名称)但是我希望简化代码并防止它过于复杂.

我想根据单元格值删除工作表。

例如，我希望单元格“T3”具有我要删除的工作表的值。有 50 多张纸，并且全部都有 4 位数字的数值 (1234)。

Sub Rectangle2_Click()
'deactivate alerts - stop 'are you sure you want to delete pop up'
Application.DisplayAlerts = False

'set worksheet you want to delete
sheettodelete = Range("T3").Value

'deletes sheet
Worksheets(sheettodelete).Delete

're-enable alerts
Application.DisplayAlerts = True
End Sub

上面的代码是我发现应该运行宏的代码，但是，它在“Worksheets(sheettodelete).delete”处出错，并出现错误 Run-tim Error '9': Subscript out of range。我检查并确认工作簿中确实存在该工作表。