VBA错误1004数字转换
说到编码,我是个笨蛋。。。因此,我有一个相当简单的代码,可以将以文本格式输入的原始数据转换为数字。代码一直工作到我从原始数据表切换到“单个KPI”表,所以当我在单个KPI表上运行宏时,我会得到运行时错误VBA错误1004数字转换,vba,excel,Vba,Excel,说到编码,我是个笨蛋。。。因此,我有一个相当简单的代码,可以将以文本格式输入的原始数据转换为数字。代码一直工作到我从原始数据表切换到“单个KPI”表,所以当我在单个KPI表上运行宏时,我会得到运行时错误 Sub AccountRecon() Range("Table_ACCTDATA[[ARP Check Project, prep & formatting spreadsheets Volume]:[Review / Approve GL Reconciliations Min
Sub AccountRecon()
Range("Table_ACCTDATA[[ARP Check Project, prep & formatting spreadsheets Volume]:[Review / Approve GL Reconciliations Minutes]]").Select
With Selection
Selection.NumberFormat = "0.0"
.Value = .Value
End With
End Sub
你打字的时候
With Something
这意味着某物在中的每一行前面,带有。。以
结束
纠正这一错误将带来:
Sub AccountRecon()
Range("Table_ACCTDATA[[ARP Check Project, prep & formatting spreadsheets Volume]:[Review / Approve GL Reconciliations Minutes]]").Select
With Selection
.NumberFormat = "0.0" 'Removed "Selection"
.Value = .Value
End With
End Sub
@哦!我的错误(相应地编辑了我的答案)在没有指定工作表的情况下,不要使用Range
etc。否则,当活动工作表不是您计划的工作表时,您会发现代码意外失败。谢谢您的回复Sifu。但我似乎遇到了同样的问题。我试图使用Application.Goto ActiveWorkbook.Sheets(“owssvr(1)”).Range(“Table_ACCTDATA[[ARP检查项目,准备和格式化电子表格卷]:[Review/Approve GL对账分钟]”)指定工作表。选择此选项后,我仍然遇到相同的问题!Sub AccountRecon()表(“owssvr(1)”)。激活ActiveSheet.Range(“表_ACCTDATA[[ARP检查项目,准备和格式化电子表格卷]:[Review/Approve GL对账分钟]])。通过选择进行选择。NumberFormat=“0.0”'删除“选择”。值=。值以结束子项结束