VBA清空公式栏

北极虎

如题，VBA能否实现对公式栏的操作，如不管工作表在什么状态下（未必是单元格才有公式，也可能是控件指定公式），清空/更换公式栏内的内容？
问了下AI（它也只能联网搜索罢了），除了手动操作外似乎无法实现。

不知 调用API？Send Key？成不成？


补个测试附件吧： VBA修改公式栏内容.rar (39.7 KB, 下载次数: 0)

昨天 21:10 上传

点击文件名下载附件

正阳电脑

你是说保留单元格内的公式，只清除公式栏的文本框吗？

水清木绿

公示栏是什么？编辑栏么？

俯仰斋

是的

橄榄果

不一定是单元格的公式，控件也可指定公式的，只管清除公式栏内的内容，不管清除后的对公式栏对应源对象影响结果

高志辉

单元格公式好解决，cells.value = cells.value就好了
但是对象的话，微软的对象是支持引用单元格的，这个取消然后还要重新设置对象的文本结果

金阿腾

你是要这个隐藏吗

枫落雪飘

没什么意思呀，可能是想要隐藏公式，只显示结果，但有偿的话，可以试试

缺月

词不达意
工作表中插入两个ActiveX 的 Image控件，模块中的测试代码如下：



Sub test()
    ' 测试1 先手动修改公式栏为"=$A$1:$D$7"
    ActiveSheet.Shapes("Image2").Select
    Selection.Formula = "=$A$1:$D$7"    '这里可修改为其他不同单元格区域地址测试
    MsgBox "测试1ok！手动修改公式栏为单元格区域后，再用VBA修改设置运行没问题！"
   
    ' 测试2
    ActiveSheet.Shapes("Image1").Select
    Selection.Formula = "=$A$8:$D$13"
    '但未手动修改过公式栏的话，直接赋公式则出错！
   
    ' 测试3
    '注释上面两行代码，用VBA插入控件测试，同样出错！
    Dim SHP As Shape
    For Each SHP In ActiveSheet.Shapes
        If SHP.Name = "RngImg" Then SHP.Delete
    Next
    With ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, DisplayAsIcon:=False)
        .Name = "RngImg"
        .Left = 260
        .Top = 200
         .Width = 300
         .Height = 200
    End With
    ActiveSheet.Shapes("RngImg").Select
    ActiveSheet.OLEObjects("RngImg").Object.Select
    Selection.Formula = "=$A$1:$D$7"
   
    MsgBox "OK?/NG?"
   
End Sub


一楼已补充测试附件......