作者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