麻辣家族討論版版 - Powered by Discuz! Board

標題: 請教各位前輩vba 關於設定句集問題~ [打印本頁]

作者: ii31sakura 時間: 2014-5-9 13:27 標題: 請教各位前輩vba 關於設定句集問題~

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

回復 1# ii31sakura

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

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

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

複製代碼

作者: ii31sakura 時間: 2014-5-9 14:33

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

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