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

Question

我一直在寻找解决方案一段时间，但一直没有成功找到。 基本上，我让我的文档的用户在用户表单中填充字段，然后我的代码放入适当的单元格中。 其中一个输入字段是一个数字但是，无论我如何指示excel格式化单元格，它仍然是文本到底，我无法执行任何计算。 我相信这可能是一个非常简单的修复，但到目前为止我找不到解决办法。 一如既往，任何帮助表示赞赏！

谢谢！

Answer 1

在将值放入单元格之前，需要将值从文本转换为数字类型。

假设你的文本框被称为txtNumber并且你输出到单元格Output!A1 ，代码将是：

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

您可能要使用的其他转换函数是CLng （转换为Long）， CInt （转换为Integer）， CDec （转换为十进制，对货币值有用）。

如果用户在字段中键入非数字文本值，则此代码将引发错误。 您应该对文本框的Change事件进行验证，如果输入了无效数据，则禁用OK按钮。