- Red Magic 11 Air – vékony házból süvít a szél
- Csíptetős fülesek csatája – Sony LinkBuds Clip vs. Huawei FreeClip 2
- Mérföldkő a szilárdtest-akkuknál: fontos lépést tett a QuantumScape
- Újabb óriásakku a Honortól: az X80 lehet a következő 10 000 mAh-s modell
- iPhone 18 Pro Max: kis kapacitásbővítés hoz nagy előrelépést üzemidőben
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- iPhone topik
- Nő az eSIM-ek iránti igény
- Samsung Galaxy Watch8 - Classic - Ultra 2025
- Android dual SIM okostelefonok
- OnePlus 15 - van plusz energia
- Samsung Galaxy S23 Ultra - non plus ultra
- Valósággá vált a Tecno szupervékony telefonja
- Szívós, szép és kitartó az új OnePlus óra
- Samsung Galaxy A54 - türelemjáték
-
Mobilarena
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
veterán
válasz
dtpeter
#5740
üzenetére
Szívesen.
Van két ikon, ezeket tedd ki az Eszköztárra, ezek segítségével könnyedén tudod a kijelölt tartományt jobbra-balra igazítani.
A cellaformázásnál is megteheted a Igazítás fülön, Vízszintesen, Balra (beütve), ahol megadhatod a Behúzás mértékét. Ugyanitt jobbra is. A "Jobbra (beütve)" a jobb széltől való távolságot jelenti.
-
Delila_1
veterán
válasz
dtpeter
#5737
üzenetére
Sub ErtekKiiro()
Dim szamok, CV, KivonatSor, KovKotSor As Long
szamok = Array(270, 47, 393, 108, 406, 48, 328, 116, 7, 260)
KovKotSor = 1
For Each CV In szamok
For KivonatSor = 2 To ActiveSheet.UsedRange.Rows.Count
If Cells(KivonatSor, 1) = CV And Cells(KivonatSor, 5) <> 0 Then
Cells(KovKotSor, 19) = CV
Cells(KovKotSor, 20) = Cells(KivonatSor, 2)
Cells(KovKotSor, 21) = Cells(KivonatSor, 5)
KovKotSor = KovKotSor + 1
End If
Next
Next
End SubA For Each-hez kell annyi magyarázat, hogy ez egy különleges ciklus. Ezzel nem kell két For-Next ciklust egymásba ágyazni, mert végiglép a megadott területen egyesével (sor, oszlop sorrendben), és a ciklusváltozó – jelen esetben CV – mindig felveszi az aktuális cella értékét.
A .Value értéket nem kell feltétlenül beírni [Cells(KovKotSor, 20) = Cells(KivonatSor, 2)], mert ez az alapérték. -
válasz
dtpeter
#5737
üzenetére
az tudom, hogy deklarálni így tudsz:
Dim stradat(2) As String
stradat(1) = "akarmi"
stradat(2) = "barmi"azt is tudom, hogy az első sorba a zárójelbe ha írsz értéket az lesz a tömb maximális mérete, ha üresen hagyod dinamikus lesz.
Csak azt nem tudom hogyan tudsz a tömb elemeire hivatkozni
De engem is érdekelne valaki megoldása. -
Delila_1
veterán
válasz
dtpeter
#5535
üzenetére
Egy próbát megér:
Formázz meg egy oszlopot a dátumnak, és ebben az oszlopban hivatkozz az eredetire.
Ez így kínai lehet. Vegyük, hogy az A oszlopban szerepelnek jelenleg a dátumok, valamilyen formában. Az új oszlop formátuma 2009.10.27, ebben hivatkozol az eredetire: =A1
A kimutatásba ezt az új oszlopot vidd be az A helyett. -
Delila_1
veterán
válasz
dtpeter
#5518
üzenetére
A mező címét szürke háttérrel jeleníti meg a kimutatás, erre a mezőre kell lépned.
Eddig nem sikerült rájönnöm, hogy mikor, és mikor nem engedi a csoportosítást. Az első kérdésedkor csináltam egy kimutatást, akkor engedte. Most újra előállítottam egy hasonlót, most nem engedi.
-
Delila_1
veterán
válasz
dtpeter
#5516
üzenetére
A negyedéves csoportosításhoz:
A dátumokat ne alakítsd át, mielőtt a kimutatást elkészíted. A kimutatásban állj a címsorára, Adatok/Tagolás és részletek/Csoportba foglalás. Ez különböző csoportosításokat ajánl fel, abból kiválasztod a Negyedéveket.A 2003-nál is lehet "pipálgatni".
A #HIV és #ÉRTÉK hibákat a HA függvény alkalmazásával elkerülheted.
=HA(a hivatkozott cella <>18%;"";a cella)
Ezt persze normálisan kell megadni, csak az elvet írtam le. -
Delila_1
veterán
válasz
dtpeter
#5109
üzenetére
Az R1C1 formulánál azt adhatod meg, hogy az aktuális cellához képest hány sorral és oszoppal elcsúsztatott értékekkel akarsz dolgozni.
Range("F5").FormulaR1C1 = "=R[1]C[-3]"
Ennek a sornak a hatására az F5 cellába az alatta lévő sorban [1], és a 3-mal előtte lévő oszlopban [-3] lévő érték íródik be képletként, vagyis az F5-ben ez lesz: =C6.
Nálad a képletnél elhagynám az R1C1 hivatkozást.Az összegző képlet beíratása:
vSor = Range("A1").End(xlDown).Row + 1
Cells(vSor, 1).Formula = "=SUM(A3:A" & vSor - 1 & ")"Ugyanez másképp:
vSor = Range("A1").End(xlDown).Row
Cells(vSor+1, 1).Formula = "=SUM(A3:A" & vSor & ")"A különböző fórumokon leginkább Kovalcsik Gézától ajánják Az Excel (ide jön a verziószám) programozása című könyvet. Évek óta keresem, és most sikerült megszereznem egy internetes antikváriumtól (új állapotban, de a CD melléklet hiányzik).
Krizsák László: Az Excel 7.0 programozása is nagyon jó az alapok megismeréséhez, de ezt sem lehet kapni. Új kiadásuk nincs – pedig Kovalcsik könyvét több évben is kiadták –, ilyen jellegű könyveket meg nem szokás antikváriumoknak eladni.
Új hozzászólás Aktív témák
Fferi50- kenand: Hol volt, hol nem volt, Thunderbolt...
- Napelem
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Linux Mint
- Xbox Series X|S
- Assetto Corsa EVO
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- BMW topik
- További aktív témák...
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- PC Game Pass előfizetés
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- Keresünk Galaxy S22/S22+/S22 Ultra
- G.Skill Aegis 32GB (2 16GB) DDR4 3200MHz ÚJ, AZONNAL KÉSZLETRŐL
- GYÖNYÖRŰ iPhone 14 Pro 128GB Space Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4022
- Eladó retro HiFi-k és erösítők/hangfalak
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: Laptopműhely Bt.
Város: Budapest