为什么NumberFormatLocal 可以，NumberFormat不行？

爱疯

Sub test()
    [a1] = "abc"
'    [a1].NumberFormat = "[颜色3]"
    [a1].NumberFormatLocal = "[颜色3]"
End Sub
请问如题？谢谢！

huang1314wei

这个问题解释起来很简单，VBA帮助里面也说的很明白，NumberFormat 和 NumberFormatLocal 属性使用的格式代码字符串不同  两个属性虽然都是格式设置，你自己测试一下就知道了，
[a1].NumberFormatLocal = "[颜色3]"  
这句代码执行之后，你在立即窗口输入 debug.Print Range("A1").NumberFormat  
返回的是  [Color3]General  这个字符串，所以你用 [a1].NumberFormat = "[颜色3]" 是不行的，必须这样输入  [a1].NumberFormat =“[Color3]General” 才不会报错

爱疯

谢谢 huang1314wei！
NumberFormatLocal的帮助多了几个字“以采用用户语言字符串的形式”，现在自己想通了。
不带Local和带Localt的区别仅仅是：前者只能用英文，后者还可“以采用用户语言字符串的形式”。

ning84

录宏，再学习一下Numerformatlocal

    Range("H21").Select
    Selection.NumberFormatLocal = "上午/下午h""时""mm""分""ss""秒"""
    Range("H20").Select
    Selection.NumberFormatLocal = "yyyy""年""m""月""d""日"";@"
    Range("K14").Select
    Dim Rng As Range
        Set Rng = Selection
        Debug.Print TypeName(Rng.NumberFormatLocal("上午/下午h""时""mm""分""ss""秒"""))
        Stop
        Str2 = Format(Rng, "yyyy年m月d日")
        Str = Rng.NumberFormatLocal = "yyyy""年""m""月""d""日"";@"
        Debug.Print Str, Str2 & Str1


***************************************************




代码如下。

1. Sub deldeldelde()
   
2.    Dim Rng As Range
   
3.    Set Rng = Selection
   
4.    Rng.NumberFormatLocal = "[$-409]yyyy年m月d日 h:mm:ss 上午/下午;@"
   
5. End Sub

复制代码

**************************************************************************

ning84

1. Sub ll()
   
2.    Dim Sht As Worksheet
   
3.    Dim Rng As Range, oRng As Range
   
4.    Dim oDate As Date
   
5.        For Each Sht In ThisWorkbook.Sheets
   
6.               Set oRng = Sht.Range("A4:A" & Sht.Range("A65566").End(xlUp).Row)
   
7.               Debug.Print Sht.Name, oRng.Address
   
8.               Stop
   
9.               For Each Rng In Sht.Range("A5:A6000")
   
10.                   
    
11.                    If IsDate(Left(Rng, 11)) Then
    
12.                         Debug.Print Rng, Rng.Address
    
13.                         oDate = Left(Rng, 11)
    
14.                         'Debug.Print Rng.Address
    
15.                         
    
16.                         Rng = oDate
    
17.                    End If
    
18.               Next Rng
    
19.        Next Sht
    
20.       
    
21. End Sub
    
22. 
    

复制代码