返回列表 上一主題 發帖

[發問] format西元轉民國

reangame

帖子
66 
主題
16 
精華
0 
積分
99 
點名
0  
作業系統
Win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-12 
最後登錄
2023-10-26 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2020-4-21 16:27 | 只看該作者

[發問] format西元轉民國

程式碼如下：
if format(工作表1.cells(r,2).value,"e年mm月")<>ym then
ym=format(工作表1.cells(r,2),"e年mm月")
AAA.comboBox1.AddItem ym
end if
其中.cells(r,2).value為西元，如2020/4/21
在2003 excel正常執行轉民國年
在2010 excel仍顯示西元年
系統win10也安裝中華民國曆更新
請問大大這該如何修正？
收藏 分享
我是斯多

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2020-4-24 13:54 | 只看該作者
回復 3# reangame

Format(Date, "E年MM月")  2010版可顯示民國年度
Excel 修復或重灌 試試看
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-26 
4#
發表於 2020-4-21 20:05 | 只看該作者
用這試試:
Application.Text([D2].Value, "e年mm月")

再不行用這:
d = [D2].Value
dt = Year(d) - 1911 & "年" & Format(d, "mm月")

TOP

reangame

帖子
66 
主題
16 
精華
0 
積分
99 
點名
0  
作業系統
Win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-12 
最後登錄
2023-10-26 
3#
發表於 2020-4-21 18:48 | 只看該作者
回復 2# Baracuda


   您的意思是： format(cstr(.cells(r,2)),"e年mm月")嗎？
我是斯多

TOP

Baracuda

帖子
132 
主題
25 
精華
0 
積分
199 
點名
0  
作業系統
window XP 
軟體版本
Excel 2010 
閱讀權限
20 
性別
男 
來自
台灣 新竹 
註冊時間
2010-6-1 
最後登錄
2022-7-14 

2013蛇年全勤獎章論壇榮譽勳章論壇贊助勳章
2#
發表於 2020-4-21 16:44 | 只看該作者
我有遇過類似情形，但不完全相同。
用 CStr 轉成字串，另外套用 Format ，可以解決數字的問題。
試試看，這樣能否解決日期的間題。

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
返回列表 上一主題