none
AutoFilter - je zapnutý? RRS feed

  • Dotaz

  • Ahoj,

    pokuším se napsat kód, který mě vrátí informaci o tom, zda je zapnutý automatický filtr.

    v nápovědě pro VBA jsem našel tento kód, bohužel jsem ho nerozchodil.

    Dim Worksheet1 As Worksheet
    
    Dim returnValue As AutoFilter
    returnValue =  Worksheet1.AutoFilter


    VALL2

    úterý 4. června 2013 8:54

Odpovědi

  • Řešeno jiným kódem, který funguje bez problémů.

    With ActiveSheet
        If .AutoFilterMode = False Then Range("B1").AutoFilter
    End With


    VALL2

    • Označen jako odpověď VALL2 středa 5. června 2013 10:34
    středa 5. června 2013 10:34

Všechny reakce

  •  
    VALL2 posted Tue, 4 Jun 2013 08:54:32 +0000
     
     
    >
    > Ahoj,
    >
    > pokuším se napsat kód, který mě vrátí informaci o tom, zda je zapnutý
    > automatický filtr.
    >
    > v nápovědě pro VBA jsem našel tento kód, bohužel jsem ho nerozchodil.
    >
    > [code]
    > Dim Worksheet1 As Worksheet
    >
    > Dim returnValue As AutoFilter
    > returnValue =  Worksheet1.AutoFilter
    > [/code]
     
    Podle mne musis objektovou promennou nejprve priradit.
    returnvalue bych mozna nechal jako Variant.
     
    [code]
    Dim Worksheet1 As Worksheet
    Dim returnValue as Variant
     
    Set Worksheet1 = ActiveSheet
    Rem nebo jina, podle potreby
     
    returnValue =  Worksheet1.AutoFilter
    [/code]
     
    --
    Poutnik
     
    středa 5. června 2013 5:57
  • Řešeno jiným kódem, který funguje bez problémů.

    With ActiveSheet
        If .AutoFilterMode = False Then Range("B1").AutoFilter
    End With


    VALL2

    • Označen jako odpověď VALL2 středa 5. června 2013 10:34
    středa 5. června 2013 10:34