如何在符合条件的单元格处插入一个按钮（表单控件）？

作者：绿色风分类：时间：2022-08-17 浏览：93

楼主
biaotiger1

Q：如何在符合条件的单元格处插入一个按钮（表单控件）？
A：ALT+F11→“插入”→“模块”，在代码窗口中输入代码如下

Sub 在指定单元格插入按钮()
Dim Rng As Range
Dim Sht As Worksheet
On Error Resume Next
For Each Sht In Worksheets '工作簿内各工作表间循环
With Sht '在每个工作表内
Set Rng = .Cells.Find(What:="返回附注", LookAt:=xlWhole) '查找文字为“返回批注”的单元格并赋予变量
With Rng
.Clear '清空其内容
.Buttons.Add(.Left, .Top, .Width, .Height).Characters.Text = "返回附注" '在该单元格插入按钮
End With
End With
Next Sht
End Sub

如果一个工作表内有多个满足要求的单元格

Sub test()
Dim Sh As Worksheet
For Each Sh In Worksheets
Do While Not Sh.Cells.Find("返回附注") Is Nothing
With Sh.Cells.Find("返回附注")
.ClearContents
Sh.Buttons.Add .Left, .Top, .Width, .Height
End With
Loop
Next Sh
End Sub

运行以上代码，则程序在每个工作表内查找值为“返回批注”的单元格并清空其内容后，在该单元格上插入按钮。

批量替换单元格.rar

2楼
yehesuifeng

谢谢，学习啦。

3楼
水星钓鱼

学习下

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表