将文本框值插入公式

Question

我希望你能帮我找到解决宏编码问题的方法。粘贴到活动单元格中时，文本框值未输入到公式中。

这是我的编码：

ActiveCell.Formula = “=“”BOX “”&IF(OR(M3=1,M3=3),N3+TextBox1,N3-TextBox1)”

我希望单元格的最终结果看起来像这样：BOX 20

谢谢

Answer 1

不要使用那些花哨的引号，因为 VBA 不理解它们。

变量不能在引号内，所以用这个代替：

ActiveCell.Formula = "=""BOX ""&IF(OR(M3=1,M3=3),N3+" & TextBox1 & ",N3-" & TextBox1 & ")"

请记住，如果您的文本框中有数字以外的内容，或者它是空白的，您将收到错误消息。

If IsNumeric(TextBox1) Then
  ActiveCell.Formula = "=""BOX ""&IF(OR(M3=1,M3=3),N3+" & TextBox1 & ",N3-" & TextBox1 & ")"
Else
  MsgBox "'" & TextBox1 & "' is not a numeric value."
End If

如果您将我的回答与您的问题进行比较，您是否看到您的公式全是红色的？这意味着它都是文字字符串的一部分，因此其中没有变量，并且由于您的文本框是一个变量，因此它需要在引号之外。

在我的代码中，看到 TextBox1 变量不是红色的吗？

Answer 2

命名范围和控制设置设置

命名范围 • 盒子 • 精选水果 • 水果

设置

• 文本框：
- LinkedCell = 盒子 • 组合框

链接单元格
列表填充范围

诀窍是使用命名范围和控制设置。不需要 VBA！

将文本框值插入公式

Inserting TextBox Values into a Formula

excel

vba

textbox

excel-formula

命名范围和控制设置设置