Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/24.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
VBA错误1004数字转换_Vba_Excel - Fatal编程技术网

VBA错误1004数字转换

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

说到编码,我是个笨蛋。。。因此,我有一个相当简单的代码,可以将以文本格式输入的原始数据转换为数字。代码一直工作到我从原始数据表切换到“单个KPI”表,所以当我在单个KPI表上运行宏时,我会得到运行时错误

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”'删除“选择”。值=。值以结束子项结束