Question

我使用下面的vba代码将单元格值从一个工作表复制到另一个工作表。该值始终为数字。我已将源和目标单元格格式化为数字。但是每当vba运行时，即使单元格格式没有变化，我也会收到消息" Number stored as text"。我该如何解决这个问题？ VBA代码：

    Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    Set mw = Workbooks("StockScreen.xlsm").Sheets("MW")
    Set ws = Workbooks("StockScreen.xlsm").Sheets("TimeStampWork")
     If Value <> mw.Range("A2").Value Then
        Range("A2,E2").Copy
        ws.Range("B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row + 1).PasteSpecial xlPasteValues
        Dim Max
        Dim Min
       Max = Application.WorksheetFunction.Max(ws.Range("b:b"))
       Min = Application.WorksheetFunction.Min(ws.Range("b:b"))


    Sheets("TimeStampWork").Range("F2") = Max
    Sheets("TimeStampWork").Range("G2") = Min
End If
End Sub

Answer 1

可以代替

size_t

试

  Test Plan 
  |_Login 
  |_Create 
  |_Read 
  |_Update 
  |_Delete

使用vba更改单元格的格式

1 个答案: