Mindyj

　暱稱: Mindy

帖子: 31
主題: 6
精華: 0
積分: 59
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-4-4
最後登錄: 2013-9-2

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-5-30 09:33 | 只看該作者

EXCEL 日期中的日、月數值讀取相反、如何解決

請問若原始資料4/1/2013的資料為mm/dd/yyyy，

可是一匯入excel卻自動判讀為dd/mm/yyyy，

這種情況該如何解決呢?

謝謝

樓主熱帖

mssiao

小學生 Rank: 1

帖子: 13
主題: 0
精華: 0
積分: 26
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 10
註冊時間: 2013-5-14
最後登錄: 2013-9-26

9^#

發表於 2013-6-3 18:05 | 只看該作者

土法煉鋼喔
先把12/2/2002拆成excel三個儲存格
12 2 2002
將三個儲存格交換位置後
2002 2 12
貼到記事本內
記事本內用/取袋空格
記事本內的資料就會變成
2002/2/12
之後貼回 excel

TOP

Mindyj

　暱稱: Mindy

中學生 Rank: 2

帖子: 31
主題: 6
精華: 0
積分: 59
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-4-4
最後登錄: 2013-9-2

8^#

發表於 2013-5-30 15:16 | 只看該作者

感謝GBKEE版主，這個VBA真的很棒、很省事。只是使用者希望連這個步驟都省略，所以最後我只能另外加一個SHEET來做格式處理，方式如下：
1. 以T()判斷是否為日期格式；
2.1 非日期格式：先用VALUE(MID())選取需要的數字；
2.2 若為日期格式則利用YEAR()、DATE()和DAY()格式進行截取數字；
3. 接著再用CONCATENATE做文字組合；
4. 最後用DATEVALUE()設定為日期格式。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2013-5-30 12:19 | 只看該作者

回復 6# Mindyj

Option Explicit
Sub Ex()
Replace_Format "MM-DD-YYYY"
Replace_Format "dd/mm/yyyy"
End Sub
Sub Replace_Format(M As String)
With Application
'FindFormat 屬性傳回要尋找之儲存格格式類型的搜尋準則。
.FindFormat.Clear
.FindFormat.NumberFormatLocal = M
'ReplaceFormat 屬性設定取代準則用以取代儲存格格式。然後取代準則將會用於 Range 物件中 Replace 方法的後續呼叫。
.ReplaceFormat.Clear
.ReplaceFormat.NumberFormatLocal = "mm/dd/yyyy"
End With
ActiveSheet.Cells.Replace "", "", SearchFormat:=True, ReplaceFormat:=True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

Mindyj

　暱稱: Mindy

中學生 Rank: 2

帖子: 31
主題: 6
精華: 0
積分: 59
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-4-4
最後登錄: 2013-9-2

6^#

發表於 2013-5-30 11:57 | 只看該作者

GBKEE版主、如果希望不要用VBA呢?因為格式中有兩種格式
一種為MM-DD-YYYY、另一種為dd/mm/yyyy，
所以現在要找土法鍊鋼的方式完成這項動作

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2013-5-30 11:29 | 只看該作者

回復 4# Mindyj
也可用VBA 處裡

Option Explicit
Sub Ex()
With Application
'FindFormat 屬性傳回要尋找之儲存格格式類型的搜尋準則。
.FindFormat.Clear
.FindFormat.NumberFormatLocal = "dd/mm/yyyy"
'ReplaceFormat 屬性設定取代準則用以取代儲存格格式。然後取代準則將會用於 Range 物件中 Replace 方法的後續呼叫。
.ReplaceFormat.Clear
.ReplaceFormat.NumberFormatLocal = "mm/dd/yyyy"
End With
ActiveSheet.Cells.Replace "", "", SearchFormat:=True, ReplaceFormat:=True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

Mindyj

　暱稱: Mindy

中學生 Rank: 2

帖子: 31
主題: 6
精華: 0
積分: 59
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-4-4
最後登錄: 2013-9-2

4^#

發表於 2013-5-30 11:02 | 只看該作者

請教、若不使用此方法該如何解決呢? 是否有儲存格format的方式呢?

ex：儲存格A1

D/MM/YYYY
儲存格B1引用A1更改讀取數值方式為:MM/DD/YYYY

TOP

Mindyj

　暱稱: Mindy

中學生 Rank: 2

帖子: 31
主題: 6
精華: 0
積分: 59
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-4-4
最後登錄: 2013-9-2

3^#

發表於 2013-5-30 10:08 | 只看該作者

感謝版主、受益無窮

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2013-5-30 09:48 | 只看該作者

回復 1# Mindyj

學海無涯_不恥下問

TOP