Question

如何用vba编写如下情况：当前激活的sheet为sheet1如何修改sheet2中文本框的内容

Answer 1

Sub a()
Worksheets("Sheet2").Shapes(1).DrawingObject.Caption = "新的文本框内容"
Worksheets("Sheet2").Shapes("TextBox 1").DrawingObject.Caption = "新的文本框内容2"
End Sub

Answer 2

这个不难，就是不会

Answer 3

首先使用Worksheets("sheet2").Select
这里用的是select ，也可以用Worksheets("sheet2").active , 用select可以同时选择多个sheet.

Answer 4

Sub 数据恢复_手续()
Worksheets("Sheet2").[b12:r20].Copy
Worksheets("Sheet1").[a2].Select
Worksheets("Sheet1").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
End Sub

使用 选择性粘贴.贴上数值