-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
Topikgazda
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 SubA Selection.End(xlToLeft).Select azonos azzal, mikor a cellán Ctrl+bal nyilat nyomunk.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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 FunctionProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
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.
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Xbox Series X|S
- Apple iPhone 15 Pro Max - Attack on Titan
- Renault, Dacia topik
- Windows 10
- A fociról könnyedén, egy baráti társaságban
- Azonnali VGA-s kérdések órája
- Torrent meghívó kunyeráló
- GTA V
- exHWSW - Értünk mindenhez IS
- Bocsánatot kért az Apple, mert nagyon mellélőtt a legutóbbi reklámjával
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- World of Warcraft Shadowlands Collectors edition EU EN
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Új, bontatlan World of Warcraft gyűjtői kiadások
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen