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

Question

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

谢谢!

Answer 1

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

假设您的文本框已被调用txtNumber并且您正在输出到单元格Output!A1,则代码将为:

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

您可能想要使用的其他转换函数是CLng(转换为Long),CInt(转换为Integer),CDec(转换为十进制,对货币值有用).

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