Új hozzászólás Aktív témák

• #33354 Fferi50 Topikgazda Lasersailing #33351

  Új Válasz 2016-12-02 13:33:46 #33354

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Lasersailing #33351 üzenetére

  Szia!

  Az előző hozzászólásom hibás volt, kimaradt belőle az interior egy helyen.

  A feltételes formázás alapján színezett cellák tényleges formátumát a 2010-es Exceltől meg tudod nézni a DisplayFormat tulajdonsággal,
  If ActiveSheet.Cells(sm, 44).DisplayFormat.Interior.Color=ActiveSheet.Cells(sm,44).FormatConditions(1).Interior.Color Then

  megvizsgálja, hogy a cella tényleges színe egyezik-e a feltételes formázásban megadott színnel.

  A feltételeid azt vizsgálják, hogy milyen a cella feltételes formázása, ezért viselkedik úgy, ahogy írtad.

  Üdv.

• #33353 Fferi50 Topikgazda Lasersailing #33351

  Új Válasz 2016-12-02 13:05:13 #33353

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Lasersailing #33351 üzenetére

  Szia!

  A feltételes formázás alapján színezett cellák tényleges formátumát a 2010-es Exceltől meg tudod nézni a DisplayFormat tulajdonsággal,
  If ActiveSheet.Cells(sm, 44).DisplayFormat.Color=ActiveSheet.Cells(sm,44).FormatConditions(1).Interior.Color Then

  megvizsgálja, hogy a cella tényleges színe egyezik-e a feltételes formázásban megadott színnel.

  A feltételeid azt vizsgálják, hogy milyen a cella feltételes formázása, ezért viselkedik úgy, ahogy írtad.

  Üdv.

• #33352 Delila_1 veterán Lasersailing #33351

  Új Válasz 2016-12-02 12:39:11 #33352

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Lasersailing #33351 üzenetére

  Egyszerűbb lenne a NAGY (LARGE) függvénnyel. Most formázol a függvénnyel, majd a makróban visszaszámolod a formázás eredményét.

  Sub NyolcNagy()
Dim i As Long, sor As Byte

sor = 43
For i = 1 To 8
Sheets(2).Cells(sor + i, "M") = Application.Large(Sheets(1).Columns(2), i)
Next
End Sub

Új hozzászólás Aktív témák