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

• #12355 Fire/SOUL/CD félisten jani-wan #12352

  Új Válasz 2011-12-13 20:30:12 #12355

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz jani-wan #12352 üzenetére

  A Cells függvény így működik

  Cells(sorindex, oszlopindex), azaz
  Cells(1,1) az az A1-es cellát jelöli
  Cells(2,1) az az A2-es cellát jelöli
  Cells(1,2) az az B1-es cellát jelöli
  Cells(2,2) az az B2-es cellát jelöli és így tovább.

  A Cells függvény átláthatatlanná tesz egy kódot, csak akkor célszerű használni, ha valami nagyon speciális és statikus kódot készítesz, azaz nem nagyon kell módosítani utólag. Pl a Cells(1234,4321) hogy melyik cellát jelöli, azt így ránézésre - hogy Hofi szavait idézzem- a rosseb se tudja megmondani teccik tudnyi...

  Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

• #12353 m.zmrzlina senior tag jani-wan #12352

  Új Válasz 2011-12-13 20:18:52 #12353

  Ú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

  

  m.zmrzlina

  senior tag

  válasz jani-wan #12352 üzenetére

  Próbáld ezt:

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  For i = 1 To 60
  If Cells(2, i).Value <> "igen" Then Sheets("Munka1").Columns(i).EntireColumn.Hidden = True Else Sheets("Munka1").Columns(i).EntireColumn.Hidden = False
  
  Next
  
  End Sub

  Ha jól emlékszem ötvenvalahány oszlopot írtál ezért átírtam 60-ra a kezelt sorok számát. A Munka1-et javítsd át a te munkalapod nevére!

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