[問題] excel vba

看板Office作者 (假如時光倒流)時間13年前 (2012/08/22 03:03), 編輯推噓0(005)
留言5則, 2人參與, 最新討論串1/4 (看更多)
軟體: excel 2010 版本: 小弟文件中第一排的數據都是數字 例如 20120607 想使用vba轉成日期 我會用函數轉 但是想直接用vba比較方便 Sub 使用() Dim myRng As Range For Each myRng In ActiveSheet.Range("A1:A" & _ ActiveSheet.UsedRange.Rows.Count) myRng = InStr(1, myRng, "/", 4) myRng = InStr(1, myRng, "/", 7) Next End Sub 執行的結果都直接變成0~~~ 怎麼會這樣? 可以請大大幫忙看一下嗎? 感謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.126.27.219

08/22 10:26, , 1F
myRng = Application.Replace(myRng, 7, 0, "/")
08/22 10:26, 1F

08/22 10:26, , 2F
myRng = Application.Replace(myRng, 5, 0, "/")
08/22 10:26, 2F

08/22 10:45, , 3F
或合併寫myRng = DateValue(Format(myRng, "0000-00-00"))
08/22 10:45, 3F

08/22 10:55, , 4F
08/22 10:55, 4F

08/22 11:42, , 5F
感謝大大~~~~~~成功了 第一個REPLACE函數~
08/22 11:42, 5F
文章代碼(AID): #1GCzjiXd (Office)
討論串 (同標題文章)
文章代碼(AID): #1GCzjiXd (Office)