为什么我不能设置应用程序。替换格式。数字格式化为某些有效格式?

我找到了部分答案。要使其工作,工作簿中必须已经存在NumberFormat。

解决方法是将单元格的格式设置为“#,##0.0”,然后进行替换:

Worksheets("Sheet1").Range("A1").NumberFormat = "#,##0.0" 
Application.FindFormat.NumberFormat = "#,##0.0000000"
Application.ReplaceFormat.NumberFormat = "#,##0.00"
Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
    xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

似乎没有任何集合允许我使用自定义数字格式( According to this site anyway ).

我在设置应用程序时发现了这一点。FindFormat转换为新格式开始抛出错误!

运行时错误“1004”:应用程序定义或对象定义错误

要避免此错误,您必须至少有一次具有两种使用格式的现有单元格。我有列名的第一行,所以它们只有字符串值,将前两个列名设置为dateformat不会对我的工作表数据产生任何明显的影响。

Sub datum_popravak_rucno()
    ' add find format to cell A1
    ActiveSheet.Range("A1").NumberFormat = "m/d/yyyy"
    ' add replace format to cell B1
    ActiveSheet.Range("B1").NumberFormat = "yyyy-mm-dd hh:mm:ss"
    ' define find format
    Application.FindFormat.NumberFormat = "m/d/yyyy"
    ' define replace format
    Application.ReplaceFormat.NumberFormat = "yyyy-mm-dd hh:mm:ss"
    ' do replace on all cells
    Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByColumns, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub

在Excel 2003、2007、2010中工作!