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

• #4668 Delila_1 veterán balage02 #4659

  Új Válasz 2009-03-15 10:58:11 #4668

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

  Nálam sokkal okosabbakat kérdeztem erről. Végül nem sikerült függvénnyel bombabiztosan megoldani, de írtam egy kis makrót, ami (ha egy gombhoz rendeled) gombnyomásra beírja az aktuális értékeket.

  A makró a J (10.) oszlopba írja az eredményt, amit a kiir=10 sorban írhatsz át.
  A függvénnyel szemben az az előnye, hogy nem terheli állandó számolással az Excelt. A hátránya, hogy időnként el kell indítani az adatok frissítéséhez.

  Sub Frissit()
  usor = ActiveSheet.UsedRange.Rows.Count
  kiir = 10
  For sor = 1 To usor
  oszlop = Cells(sor, kiir).Select
  oszlop = Selection.End(xlToLeft).Column
  Cells(sor, kiir) = Cells(sor, oszlop)
  Next
  End Sub

• #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