时间戳

首页 > 解决方案 > 如何插入相对于单元格（值）的命令按钮？

excel - 如何插入相对于单元格（值）的命令按钮？

问题描述

我想要一个 VBA 代码来放置这个按钮，让我们说两个单元格（在右侧）远离工作表中名为“hello”的单元格。这是命令按钮代码：

Set objBtn = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
    , DisplayAsIcon:=False, Left:=480, Top:=200, Width:=90, Height:= _
     30)
objBtn.Name = "button1"

我不想使用单元格位置作为参考，而是使用单元格值“你好”。所以也许首先我想查找该值，然后插入相对于它的命令按钮。

标签： excelvba

解决方案

是的，这就是这样做的方式，例如

Sub x()

Dim objBtn As OLEObject, r As Range

Set r = Cells.Find("hello") 'should specify more parameters than this
If Not r Is Nothing Then
    Set objBtn = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, _
                 DisplayAsIcon:=False, Left:=r.Offset(, 2).Left, Top:=r.Top, Width:=90, Height:=30)
    objBtn.Name = "button1"
End If

End Sub

推荐阅读