在更新数据用户表单后以文本形式存储的值

Question

在用数据更新工作表之后，已通过存储为文本的用户表单输入了值，但是，通过文本框输入了数字，这使依赖于该数字的公式产生错误 发送数据后更改单元格格式，但是每次更新数据时，都将格式更改为数字

Dim ws As Worksheet
Set ws = Worksheets("Module")
ws.Cells(2, 39).Value = TextBox4

Answer 1

我不确定我是否确实遇到了您的问题，但是当您要将文本框值用于函数时，您需要将文本框内容转换为数字格式，否则在Excel中会出现错误-功能。

尝试Worksheets("Module")ws.Cells(2,39).Value=CLng(Textbox4)->长按CLng。

Answer 2

如果是数字则如何控制输入的示例

Dim a ad Variant

a = InputBox("Enter the number")

If Not IsNumeric(a) Then 'a is not a number 

Else 'a is a number and can be converted to Integer 
ws.Cells(2,39).Value= CInt(a) 
End If