在活动单元格内加上ROUND函数的VBA代码怎么写

Splendids

工作中，经常使用保留2位或是3位小数的ROUND函数，所以想设置一个自己的工具，点击后，可以直接实现附件的效果。
有谁可以帮我写出这个VBA的代码吗？万分感谢！
有时应用于公式，例：=round(F2/F5,3)
有时应用于数，例：=round(132.4567,3)
且应用时的单元格是随机的

约定的童话

[a1]=format(application.randbetween(1,100),"0.00")

Splendids

约定的童话 发表于 2024-2-17 08:54
[a1]=format(application.randbetween(1,100),"0.00")

这个运行不行。

gwjkkkkk

Sub test()
    strtxt = Mid(ActiveCell.Formula, 2)
    ActiveCell.Value = "=round(" & strtxt & ",3)"
End Sub

Splendids

gwjkkkkk 发表于 2024-2-17 09:46
Sub test()
    strtxt = Mid(ActiveCell.Formula, 2)
    ActiveCell.Value = "=round(" & strtxt & ",3 ...

这个需要定义变量吗？

gwjkkkkk

你的代码中应该强制代码变量定义，那么Dim strTxt$或dim strTxt 均可

Splendids

gwjkkkkk 发表于 2024-2-17 10:11
你的代码中应该强制代码变量定义，那么Dim strTxt$或dim strTxt 均可

问题已解决！非常感谢！

可以追加一个问题吗？
单击一次，增加一个ROUND函证，如果我想，单击一次增加，再单击一次，撤销ROUND函数，第三次单击再增加ROUND这个函数的话应该怎么做呢？

Splendids

gwjkkkkk 发表于 2024-2-17 10:11
你的代码中应该强制代码变量定义，那么Dim strTxt$或dim strTxt 均可

运行时发现一个问题：
如果是公式的话，没有问题。
如果是值的话，运行后的结果会将最左面的1位数字删除

gwjkkkkk

Splendids 发表于 2024-2-17 11:06
运行时发现一个问题：
如果是公式的话，没有问题。
如果是值的话，运行后的结果会将最左面的1位数字删 ...

加个判断
Sub test()
    Dim strTxt$
    strTxt = IIf(InStr(ActiveCell.Formula, "="), _
    Mid(ActiveCell.Formula, 2), ActiveCell.Formula)
    ActiveCell.Value = "=round(" & strTxt & ",3)"
End Sub