作者nelley (名字：大便王)
看板Visual_Basic
標題[VBA ] 篩選並計算儲存格數目
時間Tue Dec 8 12:18:51 2009
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
1F：推 sueadolph:Set 開始那段都不用了, 直接改成 12/08 18:04
2F：→ sueadolph:mycount = Range(Range("B3"), Cells(myrow, mycol)).Ro 12/08 18:04
3F：→ sueadolph:ws.Count 12/08 18:05
4F：推 sueadolph:沒用過end屬性來取格子0.0 ，感覺還不錯用 12/08 18:08
5F：→ nelley:還是不行ㄟ,變成Rows.Count那邊被框起來說型態不符合= = 12/08 19:19
6F：推 sueadolph:從 myrow=Range("B65536).End(xlUp).Row 12/08 20:07
7F：→ sueadolph:mycol=Range("B3").End(xlToRight).Column 12/08 20:07
8F：→ sueadolph:接上我剛剛上頭打的，是可以執行的 12/08 20:08
9F：→ sueadolph:真的有問題的話，應該是你的AutoFilter那邊的結果 12/08 20:09
10F：→ sueadolph:先用F8看看那結果是不是你想要的吧？ 12/08 20:09
11F：→ nelley:搞定了!!!多謝!!! 12/09 10:21