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

• #4647 Fehér Mancs tag balage02 #4640

  Új Válasz 2009-03-13 11:42:54 #4647

  Ú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

  

  Fehér Mancs

  tag

  válasz balage02 #4640 üzenetére

  Tömbfüggvénnyel is meglehet adni, de egy kicsit bonyolult. Bár, legalább nem kell makró.

  A lényeg, hogy az adott cellától (jelen esetben az A1) kell offszet-elni a tőle jobbra lévő első nem üres celláig:

  =OFSZET(A1;0;MIN(HA(ÜRES(B1:$IV1);500;OSZLOP(B1:$IV1)))-OSZLOP(A1)) és tömbképlet, vagyis Ctrl+Shift+Enter-rel kell leokézni.

  Ha nincs tőle jobbra kitöltött cella, akkor #HIV!-et ír ki.

• #4645 Delila_1 veterán balage02 #4640

  Új Válasz 2009-03-13 11:34:34 #4645

  Ú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 balage02 #4640 üzenetére

  Az előző hozzászólásomra, ami útmutatóként szerepelt, nem jött válasz. Lehet, hogy nem sikerült összehozni a függvényt. Itt a megoldás:

  Function BalCella()
  sor = Selection.Row
  oszlop = Selection.End(xlToLeft).Column
  BalCella = Cells(sor, oszlop)
  End Function

• #4643 Delila_1 veterán balage02 #4640

  Új Válasz 2009-03-13 08:18:55 #4643

  Ú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 balage02 #4640 üzenetére

  Az X1-es sorra nincs is szükség, anélkül az aktuális cellából indul a makró.

• #4642 Delila_1 veterán balage02 #4640

  Új Válasz 2009-03-13 08:14:56 #4642

  Ú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 balage02 #4640 üzenetére

  X1 cellából kiindulva megkeressük az első sorban a tőle balra eső első cella értékét:

  Sub Első()
  Range("X1").Select
  Selection.End(xlToLeft).Select
  MsgBox Selection.Value
  End Sub

  A Selection.End(xlToLeft).Select azonos azzal, mikor a cellán Ctrl+bal nyilat nyomunk.

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