代码之家 › 专栏 › 技术社区 › mostafa

更新数据用户窗体后存储为文本的值

vba excel

mostafa · 技术社区 · 6 年前

用数据更新工作表后,该值已通过存储为文本的用户窗体输入,但是,该数字是通过文本框输入的,这使得依赖该数字的公式出错。单元格式在发送数据后发生更改,但是每次更新数据时都将格式更改为数字。

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

2 回复 | 直到 6 年前

urdearboy 6 年前

我不确定我是否知道你的问题,但是当你想使用你的文本框值作为函数时,你需要将文本框内容转换为数字格式,否则你会在Excel函数中得到一个错误。

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

Ferdinando VISHAL GAIKWAD 6 年前

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

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

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

8 月前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

8 月前

Eric · 我有邮政编码替换问题Excel VBA

8 月前

Chasester · VBA使用嵌套的DIV抓取URL

8 月前

jkp · 特殊字符复选标记

8 月前

Iron Man · 代码插入和复制到错误的工作表

8 月前

NoFafo · 将文本框放入数组进行格式化

8 月前

Smokestack · 过滤器范围C3:G3并粘贴到其他单元格

8 月前

Julie S. · Excel VBA for循环的代码帮助,用于检查多个ListBoxes是否有值?

8 月前

Kram Kramer · 如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

9 月前