写一段vba程序,在所有工作表中插入一个按钮

写一段vba程序,在所有工作表中插入一个名为“返回目录”的按钮,单击该按钮时转到本工作簿中的“目录”工作表,

按Alt+F11,打开VBA编辑器,插入一个模块,把下面的代码贴进去,返回Excel按Alt+F8运行t3即可实现
Sub tt()
Sheets("目录").Select
End Sub
Sub t3()
Dim s As Worksheet
Set os = ActiveSheet
Application.ScreenUpdating = False
For Each s In ActiveWorkbook.Worksheets
If s.Name <> "目录" Then
s.Select
b = s.Buttons.Add(145.5, 25.5, 72, 72).Name
s.Shapes(b).OnAction = "tt"
s.Shapes(b).Select
Selection.Characters.Text = "返回目录"
Selection.Height = 20
Selection.Width = 50
End If
Next
os.Select
Application.ScreenUpdating = True
End Sub
温馨提示:内容为网友见解,仅供参考
无其他回答

如何在Excel 里用VBA代码为多个工作表中增加一个返回主页按键?
Dim SheetName as String n = ActiveWorkbook.Sheets.Count For i = 1 To n SheetName =ActiveWorkbook.Sheets(i).Name if SheetName <> "主页界面" then Call Worksheets(SheetName ).OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False , DisplayAsIcon:=False, Left:=108....

...使用VBA插入一个按钮,使其点击按钮实现在表格中单元格输入的功能...
MsgBox "第:" & [AA1] & "次"Sheets("查询").[E1] = Cells([D1], "a")End Sub

excel中怎么使用VBA插入一个按钮 使其点击按钮实现在某单元格输入的功能...
1.开发工具,插入,按钮 2.拖动绘制按钮,在弹框中选择,新建 3.在新界面中输入如下代码 4.这样,每次点击按钮,就会在选中单元格中输入内容了

VBA怎么在一个工作表创建一个按钮去控制其他工作表上的按钮?
只在Sheet3放一个按钮就行。按钮指定到SUB Sub 清空数据()Sheet1.[A1:A5].ClearContents Sheet2.[A1:A5].ClearContents End Sub 补充说明:工作表名Sheet1是指工作表的大名,不一定与左下角看到的工作表名相同,工作表的大名是不能更改的,平时咱们对工作表重命名,是改的小名。在VBA编辑器的左侧...

excel设置一个按钮,求一个编程VBA代码
sub rndd() j=0 do while j=0 for i=1 to 32 range("AH" & I).value=int(2*rnd) j=range("AH" & I).value if j=0 then exit for next i loop range("AH33")=j end sub '将以上代码复制给按钮即可 ...

如何使用VBA在其他工作簿中插入控件并写入代码
End With With TempForm.Designer.Controls.Add("forms.CommandButton.1") '创建一个按钮 .Left = 10 .Top = 45 .Caption = "输入当前日期" End With With TempForm.CodeModule ' 为窗体添加代码 .InsertLines .CountOfLines + 1,...

...只想要隐藏的工作表,比如:在sheet1中添加一个按钮
Sheet1.Activate Sheet2.Visible = xlSheetHidden End Sub Sub 激活隐藏()Dim St As Worksheet Dim Sht As Worksheet Dim arr, i Set St = Sheets("目录")arr = St.Range("B2:C6")For i = 2 To UBound(arr)Set Sht = Sheets(arr(i, 1))If arr(i, 2) = "是" Then Sht.Visible...

...使用VBA插入一个按钮,使其点击按钮实现在表格中单元格输入的功能...
Sub 按钮1()Cells(Range("a65536").End(xlUp).Row + 1, 1) = 1 End Sub Sub 按钮2()Cells(Range("a65536").End(xlUp).Row + 1, 1) = 2 End Sub 插入一个按钮控件,把下面的代码贴进去,注意你的button的名字替换掉Private Sub CommandButton1_Click()中的CommandButton1 Option ...

...了一个窗体UserForm1,需要在菜单栏添加一个按钮,单击按钮就弹出UserF...
=1, Temporary:=True)NewItem.Caption = "Function 1"NewItem.OnAction = "模块1.function1"Exit Sub End Sub 以上代码放到thisworkbook里,然后在模块1里添加function1 sub function1()UserForm1.show end sub 这样excel启动后会在excel的菜单上新增个菜单Function,点击里边的Function1就可以了。

excel表格 用vba写代码。插入按钮后,点击会在单元格输入字母
Cells(R, C).Font.Bold = 1 GoTo oT01 End If Next Next oT01:End Sub 上述是两段宏,可以复制在一起,先在编辑模式下的“属性”下查看按钮Name属性,修改第一句Sub和 _Click之间为按钮名字(默认一般不用改)保存后重新启动,同意运行宏,就可以随便操作了。(有问题细节或不太清楚的地方可追问...

相似回答