12
返回列表 上一主題 發帖

[發問] 有關資料剖析

tommy.lin

帖子
24 
主題
6 
精華
0 
積分
35 
點名
0  
作業系統
WIN7 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
來自
Taipei 
註冊時間
2012-3-19 
最後登錄
2015-1-8 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-3-27 11:23 | 只看該作者

[發問] 有關資料剖析

想要教Column A(整欄位)的資料分割到B/C/D 欄位
A欄位資料內容為日期格式 使用VB寫的話應該怎麼寫?分割依據為"/" 但是沒法順利切割開
不知道我寫的是否正確想請教板上專家

Sub AA()
Range("A:A").TextToColumns Destination:=Range("B"), OtherChar _
        :="/"

End Sub
收藏 分享

freeffly

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

熱烈參與勳章好學求知勳章
12#
發表於 2012-3-28 17:36 | 只看該作者
回復 11# GBKEE


    謝謝版主解釋
   好像還要花點時間理解
  先收下來慢慢品嚐一下
字典兩各字 還真難理解

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11#
發表於 2012-3-28 17:09 | 只看該作者
回復 10# freeffly
VBA 的說明
Split 函數 傳回一個陳列索引從零開始的一維陣列，它包含指定數目的子字串。
語法
Split(expression[, delimiter[, limit[, compare]]])
Split 函數語法有如下幾個指名引數： 請查看VBA 的說明

Offset 屬性   傳回 Range 物件，用以代表某個指定區域以外的範圍。唯讀。
expression.Offset(RowOffset, ColumnOffset)
expression     必選。該運算式傳回 Range 物件。
RowOffset      選擇性的 Variant。用列數表示的區域位移 (正值、負數或零 (0))。正值表示向下位移，負值表示向上位移。預設值為 0。
ColumnOffset      選擇性的 Variant。用欄數表示的區域位移 (整數、負數或 0 (零))。正值表示右位移，負值表示左。預設值為 0。
  1. Option Explicit
  2. Sub Ex()  '將字串分割成子字串
  3.     Dim A As Range
  4.     'SpecialCells 方法 此物件代表與指定型態及值相符合的所有儲存格。Range 物件。
  5.     For Each A In Range("A:A").SpecialCells(xlCellTypeConstants) 'xlCellTypeConstants。包含常數的儲存格
  6.         'If IsDate(A) Then     '是日期型態
  7.         If InStr(A, "/") Then  '字串中有 "/"
  8.         'InStr 函數 傳回在某字串中一字串的最先出現位置，此位置為 Variant (Long)。
  9.             With A.Offset(, 1).Resize(, 3)
  10.             '以A.Offset(, 1):[B欄],Resize(, 3):擴充3欄的Range範圍
  11.                 .Value = Split(A, "/")   '以 "/" 分割字串
  12.                 .Value = .Value          '變更為數字
  13.             End With
  14.            'Split 函數 傳回一個陳列索引從零開始的一維陣列 , 它包含指定數目的子字串
  15.         End If
  16.     Next
  17. End Sub
複製代碼

TOP

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
    不太曉得用法
字典兩各字 還真難理解

TOP

tommy.lin

帖子
24 
主題
6 
精華
0 
積分
35 
點名
0  
作業系統
WIN7 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
來自
Taipei 
註冊時間
2012-3-19 
最後登錄
2015-1-8 
9#
發表於 2012-3-28 10:10 | 只看該作者
問題好像解開了...原本我有四個日期欄位需要資料剖析原本錄製的方式是一次全部做完
但是好像會有錯亂的現象(執行到一半卡住或是後面的插入欄位錯位)我的步驟如下
在每個日期欄位後面插入五個空白欄位資料剖析後刪除最後兩個預留欄位.以上步驟重覆四次
後來我分四次錄製在串接起來沒有錯誤發生.anyway 感謝板上高手協助

TOP

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

高中生Rank: 3Rank: 3

帖子
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

TOP

tommy.lin

帖子
24 
主題
6 
精華
0 
積分
35 
點名
0  
作業系統
WIN7 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
來自
Taipei 
註冊時間
2012-3-19 
最後登錄
2015-1-8 
7#
發表於 2012-3-27 13:52 | 只看該作者
我有試著用巨集錄製成上面這樣子但實際執行時會出現error....

TOP

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

高中生Rank: 3Rank: 3

帖子
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

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

TOP

tommy.lin

帖子
24 
主題
6 
精華
0 
積分
35 
點名
0  
作業系統
WIN7 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
來自
Taipei 
註冊時間
2012-3-19 
最後登錄
2015-1-8 
5#
發表於 2012-3-27 13:04 | 只看該作者
可以了...Thanks lots..不過看不懂語法

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
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欄位~ 請改成數值格式~
題供兩種方式給你參考~
  1. Sub EX_1()
  2. For Each a In Range("A2:A65536")
  3.     If a <> "" Then
  4.        a.Offset(0, 1) = Year(a)
  5.        a.Offset(0, 2) = Month(a)
  6.        a.Offset(0, 3) = Day(a)
  7.     End If
  8. Next
  9. End Sub
複製代碼
  1. Sub xx()  '將字串分割成子字串
  2. For Each a In Range("A:A")
  3. h = Split(a, "/", 3, vbDatabaseCompare)
  4.     i = 1
  5.     For Each b In h
  6.     a.Offset(columnoffset:=i) = b
  7.     i = i + 1
  8.     Next
  9. Next
  10. End Sub
複製代碼
學習才能提升自己

TOP

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
12
返回列表 上一主題