標題: 程式語法詢問 [打印本頁]

---

作者: hcy_tp    時間: 2010-11-17 14:19     標題: 程式語法詢問

本帖最後由 hcy_tp 於 2010-11-17 14:45 編輯

主程式：
Private Sub CommandButton1_Click()

Dim a As Integer

For a = 57 To a = a + 2 < 72
  Call aa
Next

End Sub




副程式：

Sub aa()      '本國籍一般、外籍國籍-越南、柬普寨、柬普寨、泰國、菲律賓、印尼、其他

Dim strYear As String      '變數-統計的年月

Dim strNo As String      '變數-案號的年月

Dim strCountry As String '變數-國籍

Dim intAmount As Integer      '變數-筆數

Dim i, l, h, b, ii As Integer    '變數-欄 列

Dim j, w As Integer      '變數-統計數



j = 0

w = 0


b = a
c = b + 1
   
    intAmount = Application.CountA(Sheets("受虐者").Range("A2:A65535")) + 1      '取筆數

   For h = b To c
    For l = 12 To 23
   
    Select Case h
        Case Is <= 58
            ii = 37
        Case Is <= 62
            ii = 41
        Case Is <= 64
            ii = 43
        Case Is <= 66
            ii = 45
        Case Is <= 68
            ii = 47
        Case Is <= 70
            ii = 49
        Case Is <= 72
            ii = 51
   
   
    End Select
   
    strYear = Application.WorksheetFunction.Text((Sheets("季統計").Cells(2, 3) & Sheets("季統計").Cells(5, l)), 0)
    strCountry = Application.WorksheetFunction.Text((Sheets("季統計").Cells(h, 3) & "-" & Sheets("季統計").Cells(h, 4)), 0)


      '取年月份-季統計
            
        For i = 2 To intAmount
      
          strNo = Mid(Sheets("受虐者").Cells(i, 1), 3, 4)
            
            If strNo = strYear Then        '年月份-判斷案號是否等於季統計
               
                If Sheets("受虐者").Cells(i, 4) = "成案" Then        '成案-判斷案件是否成案
                    
                    If Sheets("受虐者").Cells(i, h - ii) = strCountry Then      '受虐者本身特殊狀況-判斷受虐者本身特殊狀況是否屬實
                       j = j + 1
                  
                    End If
               
                End If
            
            End If
            
            w = j
            
        Next i
        
          j = 0

          Sheets("季統計").Cells(h, l).Value = w
    Next l
    Next h

End Sub


可以執行，但無法跑出結果值都是，直接卡在a值，煩請各位大大幫忙，感謝。

---

作者: hcy_tp    時間: 2010-11-17 14:50

各位大大..問題大致處理好了，不起意思打擾各位。
主程式
Private Sub CommandButton1_Click()
Dim a As Integer
    Call aa
End Sub

副程式
Sub aa() 'Function aa()      '本國籍一般、外籍國籍-越南、柬普寨、柬普寨、泰國、菲律賓、印尼、其他

Dim strYear As String      '變數-統計的年月

Dim strNo As String      '變數-案號的年月

Dim strCountry As String '變數-國籍

Dim intAmount As Integer      '變數-筆數

Dim i, l, h, b, ii As Integer    '變數-欄 列

Dim j, w As Integer      '變數-統計數



j = 0

w = 0


a = 57

While a < 72

b = a
c = b + 1
   
    intAmount = Application.CountA(Sheets("受虐者").Range("A2:A65535")) + 1      '取筆數

    For h = b To c
    For l = 12 To 23
   
    Select Case h
        Case Is <= 58
            ii = 37
        Case Is <= 62
            ii = 41
        Case Is <= 64
            ii = 43
        Case Is <= 66
            ii = 45
        Case Is <= 68
            ii = 47
        Case Is <= 70
            ii = 49
        Case Is <= 72
            ii = 51
   
   
    End Select
   
    strYear = Application.WorksheetFunction.Text((Sheets("季統計").Cells(2, 3) & Sheets("季統計").Cells(5, l)), 0)
    strCountry = Application.WorksheetFunction.Text((Sheets("季統計").Cells(h, 3) & "-" & Sheets("季統計").Cells(h, 4)), 0)


      '取年月份-季統計
            
        For i = 2 To intAmount
      
          strNo = Mid(Sheets("受虐者").Cells(i, 1), 3, 4)
            
            If strNo = strYear Then        '年月份-判斷案號是否等於季統計
               
                If Sheets("受虐者").Cells(i, 4) = "成案" Then        '成案-判斷案件是否成案
                    
                    If Sheets("受虐者").Cells(i, h - ii) = strCountry Then      '受虐者本身特殊狀況-判斷受虐者本身特殊狀況是否屬實
                       j = j + 1
                  
                    End If
               
                End If
            
            End If
            
            w = j
            
        Next i
        
          j = 0

          Sheets("季統計").Cells(h, l).Value = w
    Next l
    Next h
   
  
  a = a + 2

Wend

End Sub

---

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