- Samsung Galaxy S21 Ultra - vákuumcsomagolás
- One mobilszolgáltatások
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- iPhone topik
- Fotók, videók mobillal
- Hivatalos a OnePlus 13 startdátuma
- Yettel topik
- Samsung Galaxy Watch8 - Classic - Ultra 2025
- Xiaomi 15 - kicsi telefon nagy energiával
- Telekom mobilszolgáltatások
-
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
- MacBook Pro 16" M1 16GB RAM 27%-os áfás számla (0231)
- GYÁRI GARANCIÁVAL! Xiaomi Electric Scooter 5 Pro ELEKTROMOS ROLLER
- Dell Vostro 3425 6magos Ryzen 5 5625U 8GB RAM 256GB SSD
- Sima Vs.Windows Logitech Mx keys s plus és hagyományos Mx keys magyar bemutatása. Új videó linkkel
- Telefon Felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest