請問各位大大小弟的問題是：
測試程式碼的功能答案是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 |
發表於 2014-5-9 13:27
| 
發表於 2014-5-9 14:08
| 