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

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

  •  0
  • mostafa  · 技术社区  · 6 年前

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

    Dim ws As Worksheet
    Set ws = Worksheets("Module")
    ws.Cells(2, 39).Value = TextBox4
    
    2 回复  |  直到 6 年前
        1
  •  1
  •   urdearboy    6 年前

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

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

        2
  •  0
  •   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