VBA 用户表单。文本框作为单元格的数值

Question

我一直在寻找这个问题的解决方案，但没有成功找到。本质上，我让文档的用户在用户表单中填充字段，然后我的代码将其放入适当的单元格中。这些输入字段之一是数字，但是无论我如何指示 Excel 设置单元格格式，它最终仍然是文本，我无法执行任何计算。我确信这可能是一个非常简单的修复，但到目前为止我还没有成功找到解决方案。一如既往，我们非常感谢任何帮助!

谢谢!

Answer 1

您需要先将值从文本转换为数字类型，然后再将其放入单元格中。

假设您的文本框名为 txtNumber 并且您要输出到单元格 Output!A1，则代码为:

Sheets("Output").Range("A1") = CDbl(txtNumber)

您可能想要使用的其他转换函数有 CLng(转换为 Long)、CInt(转换为 Integer)、CDec(转换到十进制，对于货币值有用)。

如果用户在字段中键入非数字文本值，此代码将引发错误。您应该验证文本框的 Change 事件，并在输入无效数据时禁用“确定”按钮。