Board logo

標題: 整欄用VB 改日期格式 [打印本頁]
作者: t8899    時間: 2017-6-22 21:26     標題: 整欄用VB 改日期格式

106年07月03日 ===>  2017/7/3
[attach]27369[/attach]
作者: Hsieh    時間: 2017-6-23 10:57

回復 1# t8899
  1. Sub ex()
  2. Dim a As Range
  3. With Columns("A")
  4.   .Replace "年", "/"
  5.   .Replace "月", "/"
  6.   .Replace "日", ""
  7.   For Each a In .SpecialCells(xlCellTypeConstants)
  8.     a.NumberFormat = "yyyy/mm/dd"
  9.     If Len(Split(a, "/")(0)) = 3 Then a.Replace Val(a), 1911 + Val(a)
  10.   Next
  11. End With
  12. End Sub
複製代碼
作者: t8899    時間: 2017-6-23 15:11

回復  t8899
Hsieh 發表於 2017-6-23 10:57


謝謝指導



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)