单元格里去文字计算

LIUZHU

附件，WPS测试，谢谢！

LIUZHU

我发现EH论坛上好多人提问的附件都是.xls格式的，这种格式文件太大，占用电脑空间，为什么不另存为.xlsx或者.xlsm格式呢，难道是个人习惯问题？

grf1973

两套代码，两个按钮

xujili

LIUZHU 发表于 2024-2-27 08:54
我发现EH论坛上好多人提问的附件都是.xls格式的，这种格式文件太大，占用电脑空间，为什么不另存为.xlsx或 ...

不好意思,求题心切,软件上导出来就弄来了,

xujili

LIUZHU 发表于 2024-2-27 08:53
附件，WPS测试，谢谢！

谢谢!修改后弄出来了,就是弄得比你复杂了很多.


Sub ProcessData()
    Dim I As Long
    Dim calculation As String

    ' 遍历 J 列的行
    For I = 5 To Range("J" & Rows.Count).End(xlUp).Row
        ' 去除 J 列中的文字
        Dim textFreeCellValue As String
        textFreeCellValue = RemoveTextFromCell(Range("J" & I).Value)
        ' 获取计算操作符
     P = "=" & textFreeCellValue
          Range("p" & I) = P
        ' 将结果显示在 P 列
        Range("q" & I).Value = Range("p" & I).Value - Range("i" & I).Value
    Next I
End Sub

' 定义去除文字的函数
Function RemoveTextFromCell(cellValue As String) As String
    ' 去除指定的文字
    cellValue = Replace(cellValue, "箱", "")
    cellValue = Replace(cellValue, "只", "")
   
    ' 返回去除文字后的结果
    RemoveTextFromCell = cellValue
End Function

xujili

grf1973 发表于 2024-2-27 10:20
两套代码，两个按钮

谢谢!又一次帮我解决了难题,
非常感谢

LIUZHU

grf1973 发表于 2024-2-27 10:20
两套代码，两个按钮

请教下，eval和Evaluate有什么区别？

grf1973

没研究过啊。我以为JS里面就是eval啊