- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
20#
發表於 2011-9-29 16:42
| 只看該作者
回復 19# herhsiu - Sub 第一列()
- Dim Str, A, i, Ar
- Str = "00:10:56 TR4A-9.01 A80168.5 V81_79 OL1 AH_H 1 parentLotId_1A80168.1 0.000 0.000 0.299 -0.058 0.052 -0.035 -0.155 0.004 0.001 0.000 -0.037 0.071 +00035-00006+00000+00700"
- ReDim Ar(0) '重新宣告陣列維度
- Ar(0) = Mid(Str, 1, 8) '將值指定給陣列
- A = InStr(Str, "parentLotId_") + Len("parentLotId_") ' 傳回數字 -> SYSDATE,'N 在 Str字串的位置
- For i = A To Len(Str)
- If Mid(Str, i, 1) = "." Then Exit For
- Next
- Str = Split(Mid(Str, i + 3), " ")
- For i = 0 To UBound(Str)
- ReDim Preserve Ar(UBound(Ar) + 1)
- Ar(UBound(Ar)) = Str(i) '最後的數字指定給 ->陣列的最大維數
- Next
- A = 0
- For i = 1 To Len(Ar(UBound(Ar))) Step 6 'Step 6 ->每隔6字元
- A = A + Val(Mid(Ar(UBound(Ar)), i, 6))
- Next
- Ar(UBound(Ar)) = A
- [A1].Resize(, UBound(Ar) + 1) = Ar '陣列 放置於列
- [A3].Resize(UBound(Ar) + 1) = Application.WorksheetFunction.Transpose(Ar) '陣列 放置於欄
- End Sub
|
|
發表於 2011-9-22 16:55
| 
