Excel-VBA erhalten Sie einen Bereich Wert von sichtbaren Zellen nach autofilter anwenden

Ist es nicht möglich, etwas einfaches zu machen, wie diese, um den range-Wert von B2? 

crdata.Range("B2").SpecialCells(xlCellTypeVisible).Value

Ich habe die autofilter-filter mit gegebenen Kriterien aus und versucht, zurück Bereich von B2 als Funktion.

  • was ist crdata? Wenn B2 sichtbar ist, konnte Sie es nicht unterlassen specialcells Teil?
InformationsquelleAutor De De De De | 2014-10-30
  1. 2

    Legen Sie die .SpecialCells(xlCellTypeVisible) auf einen Bereich, dann verwenden Sie Cells(row, column) auf diesem Bereich herausgreifen, den Wert, den Sie benötigen. Wenn Sie Header in der Folge können Sie dann auch verwenden müssen Offset(1,0) zu Adresse Ihre Daten. Also, wo 'MySheet' wurde definiert als ein Worksheet-Objekt, smething wie:

    Set rsltRng = MySheet.Autofilter.Range.SpecialCells(xlCellTypeVisible)
msgbox rsltRng.cells(2,2)
    InformationsquelleAutor barryleajo
Schreibe einen Kommentar