Question

我的主要目标是复制一个汽车过滤器的可见电池,随后将可见电池的尺寸复制到新版。我正在使用这一法典:

Sheets(1).AutoFilterMode = False
Sheets(1).Range("A1:A1").AutoFilter Field:=columnaNumeroIntervalo, criteria1:=CDec(paramCantidadCriterio)
Sheets(1).Range("A1:A1").AutoFilter Field:=columnaNumeroIntervaloUnidades, Criteria1:=paramUnidadesCriterio

MsgBox AutoFilter.Range.SpecialCells(xlCellTypeVisible)(2, 11).Value

最后一条线,我要检查一个囚室的价值。如果我使用<条码>Cells(2,11),而不是<条码>。我可以看到,囚室有所有囚室,都看得见,而且看不到。因此,我想使用<代码>特殊产品。

如果我使用特殊牢房,我会发现以下错误:

error -2147417848(80010108)在运行时间。自动配对错误:

在执行类型时,它似乎陷入了 lo,最后造成这一错误。也许,特委会会修改汽车过滤器,然后在每次改装中再次执行汽车过滤器?

Answer 1

如果你正在计划排除负责人,则须使用<>Offset。您正在发现的错误是,你在“密码”之前就失踪了。

 ~~> Remove any filters
ActiveSheet.AutoFilterMode = False

 ~~> Filter, 
With rRange 
  .AutoFilter Field:=1, Criteria1:=strCriteria

   ~~> offset(to exclude headers)
  Debug.Print .Offset(1, 0).SpecialCells(xlCellTypeVisible).Cells(2,11).Value

  Debug.Print .SpecialCells(xlCellTypeVisible).Cells(2,11).Value
End With

 ~~> Remove any filters
ActiveSheet.AutoFilterMode = False

我决定作为这一答复的一部分添加这一内容,以便今后能够帮助其他人。

让我们说,我们的范围是全面的。

A1:F6

“entergraph

When you run the below code, depending on whether you are using Offset or not, you will get these results.

Option Explicit

Sub Sample()
     ~~> Remove any filters
    ActiveSheet.AutoFilterMode = False

    Dim rRange As Range
    Dim Rnge As Range

    Set rRange = Sheets("Sheet1").Range("A1:F6")

     ~~> Filter,
    With rRange
      .AutoFilter Field:=1, Criteria1:="<>2"

       ~~> Offset(to exclude headers)
      Set Rnge = .Offset(1, 0).SpecialCells(xlCellTypeVisible)

      Debug.Print Range(Rnge.Address).Address
      Debug.Print ActiveSheet.Cells(3, 2).Address
      Debug.Print Range(Rnge.Address).Cells(3, 2).Address

      Debug.Print "--------------------------------------------------"

       ~~> To include headers
      Set Rnge = .SpecialCells(xlCellTypeVisible)

      Debug.Print Range(Rnge.Address).Address
      Debug.Print ActiveSheet.Cells(3, 2).Address
      Debug.Print Range(Rnge.Address).Cells(3, 2).Address

    End With

     ~~> Remove any filters
    ActiveSheet.AutoFilterMode = False
End Sub

“enter

HTH

友情链接