|
兰色校长第16集讲座中,有一个查询的范例如下
Dim c As Integer '号码在库存表中的个数
Dim r As Integer '入库单的数据行数
With Sheets("库存明细表")
c = Application.CountIf(.[b:b], Range("g3"))
If c = 0 Then
MsgBox "该单据号码不存在!"
Exit Sub
Else
r = .[b:b].Find(Range("g3"), , , , , xlNext).Row
Range("c3") = .Cells(r, 3)
Range("e3") = .Cells(r, 1)
Cells(6, 2).Resize(c, 5) = .Cells(r, 4).Resize(c, 5).Value
先是设定了with 对象是Sheets("库存明细表"),但是range("g3")是另一张表的区域,为什么不用在range前输入另一张表的名字了呢?比如 sheets(1).range("g3"). 没弄明白,请大家帮忙说下,谢谢!
|
|