Hirdetés
- Vegyes társaság jött a szombati hardverbuliba
- Százmilliárd dolláros AI-fegyverkezésbe kezdett az Amazon és a Google
- Így tüzelt el százbillió forintot az AI a héten
- Kétféle módon harcol a forró helyzetekkel szemben az ASUS új, M.2-es SSD háza
- Mérföldkő a szilárdtest akkuknál: fontos lépést tett a QuantumScape
- Milyen belső merevlemezt vegyek?
- Vezetékes FÜLhallgatók
- Bambu Lab 3D nyomtatók
- Képhibák a GeForce-on? Az NVIDIA szerint egy Windows frissítés okozza
- Kormányok / autós szimulátorok topikja
- Milyen SSD-t vegyek?
- Milyen házat vegyek?
- OLED TV topic
- Fejhallgató erősítő és DAC topik
- Hogy is néznek ki a gépeink?
-
PROHARDVER!
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
Hirdetés
Fferi50
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Keresünk Galaxy S22/S22+/S22 Ultra
- BESZÁMÍTÁS! ASUS H510M i5 11400F 16GB DDR4 512GB SSD RX 6600XT 8GB Zalman T4 Plus Cooler Master 650W
- ÁRGARANCIA! Épített KomPhone i5 12400F 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! MSI B650 R7 7700 64GB DDR5 1TB SSD RX 7900 XTX 24GB Lian Li LANCOOL 216 ARGB 850W
- Dell Latitude E7250,12.5",HD,i5-5300U,8GB DDR3,256GB SSD,WIN10, LTE
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest