[VBA ] 篩選並計算儲存格數目

看板Visual_Basic作者 (名字:大便王)時間16年前 (2009/12/08 12:18), 編輯推噓3(308)
留言11則, 2人參與, 最新討論串1/1
Sub 計算格數 Dim i As Integer, mytbl As Range, myfld As Range, mycount As Range Range("資料範圍").AutoFilter 6,">=2006/5/1 08:00",xlAnd_ "2006/5/9 13:00:00" myrow=Range("B65536).End(xlUp).Row mycol=Range("B3").End(xlToRight).Column Set mytbl=Range(Range("B3"),Cells(myrow,mycol)) Set myfld=mytbl.Columns(2) mycount=myfld.Rows.Count MsgBox"產出個數為"& mycount &"" End Sub ------ 想請教一下 我現在想要篩選出固定段時間之後 再用Row.Count計算出裡面包含的儲存格數目 但是每次都跑出來在"mycount=myfld.Rows.Count"這邊會有執行錯誤'91' 沒有設定物件變數或with區塊變數 實在搞不懂是啥意思 還是說整個都寫得不對 有沒有人可以幫忙解惑一下 謝謝!!!!! -- 連跑路都那麼帥 我真幸福 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 122.126.35.18

12/08 18:04, , 1F
Set 開始那段都不用了, 直接改成
12/08 18:04, 1F

12/08 18:04, , 2F
mycount = Range(Range("B3"), Cells(myrow, mycol)).Ro
12/08 18:04, 2F

12/08 18:05, , 3F
ws.Count
12/08 18:05, 3F

12/08 18:08, , 4F
沒用過end屬性來取格子0.0 ,感覺還不錯用
12/08 18:08, 4F

12/08 19:19, , 5F
還是不行ㄟ,變成Rows.Count那邊被框起來說型態不符合= =
12/08 19:19, 5F

12/08 20:07, , 6F
從 myrow=Range("B65536).End(xlUp).Row
12/08 20:07, 6F

12/08 20:07, , 7F
mycol=Range("B3").End(xlToRight).Column
12/08 20:07, 7F

12/08 20:08, , 8F
接上我剛剛上頭打的,是可以執行的
12/08 20:08, 8F

12/08 20:09, , 9F
真的有問題的話,應該是你的AutoFilter那邊的結果
12/08 20:09, 9F

12/08 20:09, , 10F
先用F8看看那結果是不是你想要的吧?
12/08 20:09, 10F

12/09 10:21, , 11F
搞定了!!!多謝!!!
12/09 10:21, 11F
文章代碼(AID): #1B7TEnAQ (Visual_Basic)