[發問] 有關資料剖析

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

2^#

發表於 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

複製代碼

學習才能提升自己

帖子: 24
主題: 6
精華: 0
積分: 35
點名: 0
作業系統: WIN7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2012-3-19
最後登錄: 2015-1-8

3^#

發表於 2012-3-27 11:48 | 只看該作者

回復 2# hugh0620

檔案已上傳

TextToColumn.zip (6.88 KB)

hugh0620

　暱稱: VBA向前衝

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

4^#

發表於 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

複製代碼

學習才能提升自己

帖子: 24
主題: 6
精華: 0
積分: 35
點名: 0
作業系統: WIN7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2012-3-19
最後登錄: 2015-1-8

5^#

發表於 2012-3-27 13:04 | 只看該作者

可以了...Thanks lots..不過看不懂語法

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

6^#

發表於 2012-3-27 13:35 | 只看該作者

本帖最後由 mark15jill 於 2012-3-27 13:36 編輯

回復 5# tommy.lin
直接把程式丟進VBA內..

sub xxg
      Columns("a:a").Select
Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
      Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
      :="/", FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2)), _
      TrailingMinusNumbers:=True
end sub

作用：用 / 為判斷符號加以切割

帖子: 24
主題: 6
精華: 0
積分: 35
點名: 0
作業系統: WIN7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2012-3-19
最後登錄: 2015-1-8

7^#

發表於 2012-3-27 13:52 | 只看該作者

我有試著用巨集錄製成上面這樣子但實際執行時會出現error....

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

8^#

發表於 2012-3-27 15:41 | 只看該作者

本帖最後由 mark15jill 於 2012-3-27 15:49 編輯

回復 7# tommy.lin

麻煩貼圖看哪邊有錯..

Sub xyw()
Columns("g:g").Select
Selection.TextToColumns Destination:=Range("m1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
      Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
      :="/", FieldInfo:=Array(Array(3, 2), Array(2, 2), Array(1, 2)), _
      TrailingMinusNumbers:=True

sy = Columns("o:o").Value
Columns("t:t") = sy
sm = Columns("n:n").Value
Columns("u:u") = sm
sd = Columns("m:m").Value
Columns("v:v") = sd
Columns("m:o").Clear
End Sub

帖子: 24
主題: 6
精華: 0
積分: 35
點名: 0
作業系統: WIN7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2012-3-19
最後登錄: 2015-1-8

9^#

發表於 2012-3-28 10:10 | 只看該作者

問題好像解開了...原本我有四個日期欄位需要資料剖析原本錄製的方式是一次全部做完
但是好像會有錯亂的現象(執行到一半卡住或是後面的插入欄位錯位)我的步驟如下
在每個日期欄位後面插入五個空白欄位資料剖析後刪除最後兩個預留欄位.以上步驟重覆四次
後來我分四次錄製在串接起來沒有錯誤發生.anyway 感謝板上高手協助

freeffly

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

10^#

發表於 2012-3-28 16:47 | 只看該作者

回復 4# hugh0620

　大大下面兩的可以解釋一下嗎
vbDatabaseCompare &　columnoffset
不太曉得用法

字典兩各字還真難理解