標題: 迴圈僅第一筆出問題 [打印本頁]

---

作者: mnsmrtl    時間: 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    時間: 2018-2-4 00:21

不知道為什麼突然好了…我再試試看，謝謝版主

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)