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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。