返回列表 上一主題 發帖

迴圈僅第一筆出問題

mnsmrtl

帖子
51 
主題
17 
精華
0 
積分
200 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2018-9-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-2-3 13:08 | 只看該作者

迴圈僅第一筆出問題

請問各位高手，程式碼如下：
  1. For i = 2 To 5 'wRow
  2.     With Worksheets("資訊")
  3.         wCode = .Cells(i, "A")
  4.         Set WriteIn = .Range(.Cells(i, 4), .Cells(i, 6)) '寫入資料範圍
  5.     End With
  6.     WriteIn.ClearContents
  7.     For j = 1 To 2
  8.         Set xRng(j) = Sht(j).Range("A1:A2000")
  9.         xmat(j) = WorksheetFunction.Match(wCode, xRng(j), 0)
  10.         Set xMark(j) = Sht(j).Cells(xmat(j), 3)
  11.     Next j
  12.     xx = xDay(xMark(1), 6)
  13.     If xx > 0 And xx <> "" Then
  14.         j = 0
  15.         Cnt = 0
  16.         Do While j + 1 <= xx
  17.             Set Pt = xMark(1).Offset(0, j)
  18.             Set Qt = xMark(2).Offset(0, j)
  19.             yy = xDay(Pt, 7)
  20.             If yy = "" Then Exit Do
  21.             If j = 0 Then Cnt = IIf(yy > 0, 0, 1)
  22.                 If yy > 0 Then
  23.                     With WriteIn.Offset(0, Cnt * 3)
  24.                         .Cells(1) = Prange(Pt, (yy))
  25.                         .Cells(2) = Qsum(Qt, (yy))
  26.                         .Cells(3) = yy
  27.                     End With
  28.                     Cnt = Cnt + 1
  29.                 End If
  30.             j = j + Abs(yy)
  31.         Loop
  32.     End If
  33. Next i
複製代碼
在i=2的時候，應該是cnt出錯，向右一直寫入錯誤資訊
但之後就正常顯示了，請協助看一下，是哪裡出了問題？
只有第一筆這樣，實在搞不懂，感謝
收藏 分享
不進則退

mnsmrtl

帖子
51 
主題
17 
精華
0 
積分
200 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2018-9-19 
2#
發表於 2018-2-4 00:21 | 只看該作者
不知道為什麼突然好了…我再試試看，謝謝版主
不進則退

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題