- 帖子
- 315
- 主題
- 51
- 精華
- 0
- 積分
- 367
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-29
- 最後登錄
- 2021-10-12
|
7#
發表於 2018-6-22 05:05
| 只看該作者
回復 5# GBKEE
可否再勞駕您撥冗賜正：
DATA!列70~列94和列97和列100程式碼的錯誤~
UpRow = 填入"1-3"
會多跑出下列2個錯誤的效果檔案~
T49_S欄最後n個值_10_0_200期
T49_S欄最後n個值_10_-1_200期
謝謝您^^
測試檔
 T49_S欄最後n個值.rar (29.67 KB)
'UpRow..............................................................................列69
M3 = 0 ‘列70
sta = 0
For x = 1 To Len(uprowx)
If Mid(UpRow, x, 1) = "," Then
M3 = M3 + 1
ReDim Preserve In3rr(M3 - 1)
In3rr(M3 - 1) = --Mid(uprowx, sta + 1, 2)
sta = x
x = x + 2
End If
If Mid(UpRow, x, 1) = "-" Then
For y = Mid(uprowx, sta + 1, 2) To Mid(uprowx, x + 1, 2)
M3 = M3 + 1
ReDim Preserve In3rr(M3 - 1)
In3rr(M3 - 1) = y
Next
sta = x + 3
x = x + 5
End If
If x = Len(uprowx) Then
M3 = M3 + 1
ReDim Preserve In3rr(M3 - 1)
In3rr(M3 - 1) = --Mid(uprowx, sta + 1, 2)
End If
Next ‘列94
'.................................................................................
For n = 1 To M
For n3 = 1 To M3 ‘列97
NUM = In1rr(n - 1)
UpRow = In3rr(n3 - 1) ‘列100 |
|
發表於 2018-6-13 08:44
| 
