donod

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-4-8 12:36 | 只看該作者

[發問] 如何分開日期和時間

test A.rar (14.51 KB)
請問如何改寫，才可得到以下結果:

test5.rar (7.14 KB)
謝謝!

樓主熱帖

donod

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

25^#

發表於 2013-4-15 23:59 | 只看該作者

[版主管理留言]

GBKEE(2013/4/16 13:22): 以上兩個個別情況那如何修改?? 你沒說怎樣修改!!!

回復 24# GBKEE

1)不匯入一組字元
2013/04/02/09/21/00; 22159; 22159; 22131; 22131; 330
2013/04/02/09/22/00; 22133; 22140; 22130; 22140; 153
2013/04/02/09/23/01; 22140; 22148; 22134; 22139; 109

2) 不匯入兩組字元
2013/04/02/09/21/00; 22159; 22159; 22131; 22131; 330
2013/04/02/09/22/00; 22133; 22140; 22130; 22140; 153
2013/04/02/09/23/01; 22140; 22148; 22134; 22139; 109

以上兩個個別情況那如何修改，謝謝!

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兔年全勤獎章

24^#

發表於 2013-4-15 19:01 | 只看該作者

如果是不匯入2013/04/02/09/14/01;中的某個(e.g.2013/04/02/09/14/01;)或某幾個字元(e.g.2013/04/02/09/14/01;)，donod 發表於 2013/4/15 17:56

不解你的意思,請再詳細說明

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

TOP

donod

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

23^#

發表於 2013-4-15 17:56 | 只看該作者

回復 donod
請問 text5的字串,可是全為2013/04/02/09/14/01;
如有 2013/04/02/09/15/00; 2013/04/02/09 ...
GBKEE 發表於 2013-4-15 16:52

版大一語道破，小輩忽略了這點!用版大的 E.Offset(, 1) = Replace(Mid(W, 12, 5), "/", ":") 就不需要理會秒值是否存在有/00或/01以外的組合。明白了，謝謝!
另外，如果是不匯入2013/04/02/09/14/01;中的某個(e.g.2013/04/02/09/14/01;)或某幾個字元(e.g.2013/04/02/09/14/01;)，當然是全部字串中的相同位，那如何修改，再謝謝版大!

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兔年全勤獎章

22^#

發表於 2013-4-15 16:52 | 只看該作者

回復 21# donod
請問 text5的字串,可是全為2013/04/02/09/14/01;
如有 2013/04/02/09/15/00; 2013/04/02/09/15/02; 2013/04/02/09/15/03;
是否要一一去
.Cells.Replace "/00;", " ", xlPart
.Cells.Replace "/02;", " ", xlPart
.Cells.Replace "/03;", " ", xlPart

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

TOP

donod

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

21^#

發表於 2013-4-14 23:08 | 只看該作者

回復 donod
GBKEE 發表於 2013-4-14 14:49

謝謝版大!
以下是小輩之後試的:
.Cells.Replace "/01;", " ", xlPart '用空格代替 "/01;" 作為delete秒值
.Cells.Replace ";", " ", xlPart

如果在 .Cells.Replace ";", " ", xlPart 之前加入.Cells.Replace "/01;", " ", xlPart ，雖然結果與版大的一樣，在運作上實則有什麼分別，謝謝!

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兔年全勤獎章

20^#

發表於 2013-4-14 14:49 | 只看該作者

回復 19# donod

'E.Offset(, 1) = Replace(Mid(W, 12), "/", ":")
E.Offset(, 1) = Replace(Mid(W, 12, 5), "/", ":")
'W這字串從第12個字元起取5個字元

複製代碼

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

TOP

donod

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

19^#

發表於 2013-4-14 10:55 | 只看該作者

回復 17# GBKEE

2013/04/02/09/21/00; 22159; 22159; 22131; 22131; 330
2013/04/02/09/22/00; 22133; 22140; 22130; 22140; 153
2013/04/02/09/23/01; 22140; 22148; 22134; 22139; 109
請問在匯入源檔案時，不匯入屬於時間中的秒值(紅色數字)，可以怎麼寫，再次謝謝版大!

TOP

donod