返回列表 上一主題 發帖

[發問] 如何區別NumberFormat及NumberFormatLocal使用方式呢？

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-10-2 20:37 | 顯示全部帖子

[發問] 如何區別NumberFormat及NumberFormatLocal使用方式呢？

各位大大好：

請問對於數字格式的用法
應使用NumberFormatLocal或是
使用NumberFormat呢？
以下列的語法使用二者都得到
相同的結果。


Sub mm()
   
    Dim aa As Range
    Dim bb As Range
   
    Set aa = Range("a1")
    Set bb = Range("b1")
    aa.NumberFormatLocal = "#,##0"   
    bb.NumberFormat = "#,##0"

    aa.Value = "123456789"
    bb.Value = "123456789"   
        
End Sub

謝謝各位大大。
收藏 分享

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
2#
發表於 2010-10-3 05:43 | 顯示全部帖子
謝謝版主大大的說明。

小弟也有利用help說明先了解其含意。
只是其說明還真有點難以理解。
小弟會再慢慢領會其含意了！

感恩大大！

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
3#
發表於 2010-10-3 12:33 | 顯示全部帖子
謝謝版主大大：

小弟試著改變下列語法
所得到的會有二種結果。

語法如下：
Sub Ex()
    Dim a As CommandBar
    Set a = Application.CommandBars(1)
    MsgBox "功能表1 名稱: " & a.Name & Chr(10) & "功能表1 地區名稱:  " & a.NameLocal
    With Range("a1")
        .Value = Date
        .NumberFormat = "m/d/yyyy"
        MsgBox "Range(""a1"") 顯示為: " & .Text & Chr(10) & "NumberFormat:" & Space(10) & .NumberFormat & Chr(10) & "NumberFormatLocal:  " & .NumberFormatLocal
    End With
   
   
     With Range("b1")
        .Value = Date
        .NumberFormatLocal = "m/d/yyyy"
        MsgBox "Range(""b1"") 顯示為: " & .Text & Chr(10) & "NumberFormat:" & Space(10) & .NumberFormat & Chr(10) & "NumberFormatLocal:  " & .NumberFormatLocal
    End With
   
     With Range("c1")
        .Value = Date
        .NumberFormatLocal = "mm/dd/yyyy"
        MsgBox "Range(""c1"") 顯示為: " & .Text & Chr(10) & "NumberFormat:" & Space(10) & .NumberFormat & Chr(10) & "NumberFormatLocal:  " & .NumberFormatLocal
    End With
   
   
    With Range("d1")
        .Value = Date
        .NumberFormat = "mm/dd/yyyy"
        MsgBox "Range(""d1"") 顯示為: " & .Text & Chr(10) & "NumberFormat:" & Space(10) & .NumberFormat & Chr(10) & "NumberFormatLocal:  " & .NumberFormatLocal
    End With
   
End Sub

第一個 ：2010/10/3
第二個 ：10/3/2010
第三個 ：10/03/2010       
第四個 ：10/03/2010

這真正的差異為何
小弟目前尚在
揣測之中。

謝謝版主大大。

TOP

        靜思自在 : 人事的艱難與琢磨，就是一種考驗。
返回列表 上一主題