有關資料剖析 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 有關資料剖析

返回列表下一主題上一主題發帖

[發問] 有關資料剖析

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 554
主題: 57
精華: 0
積分: 620
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-5-9

1^# 跳轉到 »

發表於 2012-3-27 11:42 | 顯示全部帖子

本帖最後由 hugh0620 於 2012-3-27 11:47 編輯

回復 1# tommy.lin

A欄位是日期格式~ 代表的就是年月日
你要拆解的BCD欄位也就是年月日~
用一般最簡單的方式~來拆解就可以了~
若你A資料是從資料庫倒出來的~ 可能會是文字格式~有可能要修改一下~
如果可以~ 請提供資料的範例~

Sub EX_1()
For Each a In Range("A:A")
If a <> "" Then
a.Offset(0, 1) = Year(a)
a.Offset(0, 2) = Month(a)
a.Offset(0, 3) = Day(a)
End If
Next
End Sub

複製代碼

學習才能提升自己

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 554
主題: 57
精華: 0
積分: 620
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-5-9

2^#

發表於 2012-3-27 12:03 | 顯示全部帖子

本帖最後由 hugh0620 於 2012-3-27 12:17 編輯

回復 3# tommy.lin

B欄位~ 請改成數值格式~
題供兩種方式給你參考~

Sub EX_1()
For Each a In Range("A2:A65536")
If a <> "" Then
a.Offset(0, 1) = Year(a)
a.Offset(0, 2) = Month(a)
a.Offset(0, 3) = Day(a)
End If
Next
End Sub

複製代碼

Sub xx() '將字串分割成子字串
For Each a In Range("A:A")
h = Split(a, "/", 3, vbDatabaseCompare)
i = 1
For Each b In h
a.Offset(columnoffset:=i) = b
i = i + 1
Next
Next
End Sub

複製代碼

學習才能提升自己

靜思自在 : 願要大、志要堅、氣要柔、心要細。

返回列表下一主題上一主題