請教各位前輩vba 關於設定句集問題~

ii31sakura

請問各位大大小弟的問題是：
測試程式碼的功能答案是ok的，但小弟卻只能在分頁("異常批統計" or "批異常Data")下去Run，
如果想要新開一個分頁去Run 程式碼" 異常批統計_1判定，它都不會去理小弟、動也不動…(例：附件中的分頁"總控制")
請問小弟該如何去設定或是呼叫"異常批統計_1判定"可以讓它在其它分頁都可以Run呢？
感謝大家~



測試程式碼： 問題：(功能在Worksheets("異常批統計")&Worksheets("批異常Data") ，皆可執行，但在其它分頁一動也不動..)
Public Sub 異常批統計_1判定()
Dim ARR
Dim ARR1
Dim arr2
Dim arr3 'test
Dim arr4 ' test1
Dim c As Integer

    For i = 2 To [h65536].End(3).Row
    Set findvalue = Worksheets("批異常Data").Columns("O").Find(What:=Worksheets("異常批統計").Cells(i, 8))
   
    If findvalue.Row = 1 Then
     'With Worksheets("批異常Data") (目前不需使用)
'       arr2 = Worksheets("批異常Data").Range("b" & 1, "g" & findvalue.Row + 1) 'index (目前不需使用)
'       ARR = Worksheets("批異常Data").Range("O" & 1, "O" & findvalue.Row + 1) 'match (目前不需使用)
        Else
      
       arr2 = Worksheets("批異常Data").Range("H" & findvalue.Row - 1, "I" & findvalue.Row)
       ARR = Worksheets("批異常Data").Range("O" & findvalue.Row, "O" & findvalue.Row + 1)
       c = Application.Match(findvalue, ARR, 0)
                          
       Worksheets("異常批統計").Range("L" & i, "M" & i) = Application.Index(arr2, c + 1)
      Worksheets("異常批統計").Cells(i, 12) = Worksheets("異常批統計").Cells(i, 12) / Worksheets("異常批統計").Cells(i, 10)
       Worksheets("異常批統計").Cells(i, 13) = Worksheets("異常批統計").Cells(i, 13) / Worksheets("異常批統計").Cells(i, 10)
   
    End If

Next
End Sub

GBKEE

回復 1# ii31sakura
   

如果想要新開一個分頁去Run 程式碼" 異常批統計_1判定，它都不會去理小弟、動也不動…(例：附件中的分頁"總控制")

例：附件中的分頁"總控制"

1. Public Sub 異常批統計_1判定()
   
2. Dim ARR
   
3. Dim ARR1
   
4. Dim arr2
   
5. Dim arr3 'test
   
6. Dim arr4 ' test1
   
7. Dim c As Integer
   
8.     MsgBox [h65536].End(3).Row
   
9.     For i = 2 To [h65536].End(3).Row  
   
10.     ' *** 當[h65536].End(3).Row  小於 2 這 For的迴圈是不會執行的 ***
    
11.     Set findvalue = Worksheets("批異常Data").Columns("O").Find(What:=Worksheets("異常批統計").Cells(i, 8))
    
12.    
    
13.     If findvalue.Row = 1 Then

複製代碼

ii31sakura

GBKEE 大大真是太感謝了~原來問題點出在這邊，小弟再來重設看看、感謝你~