-
GAMEPOD.hu
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
-
Bobrooney
senior tag
válasz z123456789 #20834 üzenetére
Ha más nem makróval tuti.
-
alfa20
senior tag
válasz z123456789 #20834 üzenetére
Feltételes formázás?
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
detroitrw
addikt
válasz z123456789 #20834 üzenetére
mivel gondolom a sárga cellák mindig fix-ek így arra fölösleges lenne olyat futtatni ami figyeli a sárga cellákat
szal manuálisan összegezni kéne s készolyat könnyebben lehet hogy pl. a megjegyzést figyelembe véve adja össze az adott értékeket
ez lenne a
C oszlop ahol a megjegyzés van
B oszlop ahol az összeadandó érték
=SZUMHA(C:C;"banki feltétel miatt kártyáról fizetve";B:B)a feltételes formázást megtalálod az aktuális excel verziódat is beírva a google-be
ha megvan akkor kiválasztod az aktuális cellát s rányomsz a feltétel formázásra
itt pl.
csak az adott tartalmú cellák formázása/cellaérték/nagyobb, mint/itt megadod az értéketmajd a formátum gombra klikkelve beállítod miként jelezze neked ha egy bizonyos számot túllép a cella
(#20838) z123456789
ha nem megy akkor privibe belinkelsz/küldesz egy mintát s megcsinálom[ Szerkesztve ]
-
bteebi
veterán
válasz z123456789 #20834 üzenetére
Ez elvileg azt csinálja, amit szeretnél. Jobb gomb a munkalapra → Kód megjelenítése. Oda másold be ezt:
Sub osszead()
Dim szum As Long, i As Long
szum = 0
For i = 1 To 200 'Rows.Count
If Cells(i, 2).Interior.ColorIndex = 6 Then
szum = szum + Cells(i, 2).Value
End If
Next i
Cells(2, 3).Value = szum
If Cells(2, 3).Value > 50 Then
Cells(2, 3).Interior.ColorIndex = 4
Else
Cells(2, 3).Interior.Pattern = xlNone
End If
End SubA Cells(i, 2)-nél a 2 helyére annak az oszlopnak a számát írd, amiben az összeadást szeretnéd (A=1, B=2, stb.). A Cells(2, 3)-ba teszi az összeget, ami a 3. oszlop, 2. sor cellája (vagyis C2). Az első 200 sorra végzi az összeadást, ezt tetszőlegesen változtathatod. Ha a Rows.Count elől kiveszed az aposztrófot, akkor megcsinálja mind a 65536 sorra, de az már elég lassú .
[ Szerkesztve ]
Cancel all my meetings. Someone is wrong on the Internet.
-
z123456789
addikt
válasz z123456789 #20849 üzenetére
Köszi egyébként, ez (#20839) detroitrw leírása alapján sikerült.
És végül is mindegy hogy attól zöldül hogy beírok valamit a megjegyzés rovatba, vagy besárgítom.
Ez így tökéletes az én táblázatomba.Nagyon szépen köszönöm mindenkinek a segítséget!
-
bteebi
veterán
válasz z123456789 #20849 üzenetére
Most akkor végülis működik? Amúgy meg azt csináld, hogy miután beírtad a kódot, a munkalapon Alt+F8-at nyomsz, és akkor ki tudod választani és el tudod indítani a makrót. De egyébként tudsz hozzá gyorsbillentyűt is rendelni (pl. Ctrl+r, vagy Ctrl+Shift+r), de akár egy gombot is csinálhatsz neki: egyszerűen rajzolsz egy téglalapot, jobb gomb → Szöveg szerkesztése (beírod mondjuk azt, hogy "Makró indítása"), majd szintén jobb gomb → Makró-hozzárendelés. Így már gombbal (is) tudod indítani, frissíteni .
#20847: Idézőjel és WorksheetFunction nélkül működik?
#20851: Feltételhez kötötten, vagy csak simán? Makróval?
[ Szerkesztve ]
Cancel all my meetings. Someone is wrong on the Internet.
-
bteebi
veterán
válasz z123456789 #20861 üzenetére
Ahogy gondolod . Amúgy összességében egyszerűbb a megoldásod, én is azt használnám inkább. Nem gondoltam végig, hogy makró nélkül is meg lehet csinálni .
[ Szerkesztve ]
Cancel all my meetings. Someone is wrong on the Internet.
-
lappy
őstag
válasz z123456789 #30062 üzenetére
Nyomtatási terület kijelölése?
vagy van még az oldalbeállítás azt vedd kisebbre.Bámulatos hol tart már a tudomány!
-
lappy
őstag
-
Delila_1
Topikgazda
válasz z123456789 #37457 üzenetére
Erre való a SZUMHA függvény.
=SZUMHA(B:B;"benzin";C:C)
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 z123456789 #37459 üzenetére
Szívesen.
Remélem, most kedvet kaptál egyéb függvények tanulmányozására.
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 z123456789 #47187 üzenetére
Ha egy mód van rá, kerüld a cellák egyesítését. Megszünteted az egyesítést, majd kijelölöd a 2 cellát, cellaformázás, az Igazítás fülön a vízszintes elrendezés legyen A kijelölés közepére. Ezt mindegyik párosnál ismételd meg.
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 z123456789 #47197 üzenetére
Az egyesítések nélkül már tudsz másolni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
válasz z123456789 #49282 üzenetére
tegyél fel ide egy nyers fájlt (nem kell valós legyen) és mellé egy másikat (pl. másik munkalapon) hogy mit szeretnél és könnyebb nekünk is
Bámulatos hol tart már a tudomány!
-
detroitrw
addikt
válasz z123456789 #49282 üzenetére
Szia!
Egy ilyen videót találtam
Itt azt mutatja hogyan lehet exportálni excelbeHa ez sikerül akkor csak "formázni" kell
-
lappy
őstag
válasz z123456789 #49285 üzenetére
és a trello nyers fájl is kellene
Bámulatos hol tart már a tudomány!
-
detroitrw
addikt
válasz z123456789 #49285 üzenetére
Ha excel-be ki tudod exportálni az adatokat aminél mindegyik sor külön cellába van akkor lehet abból egy legördülő menű-t készíteni pl. az Üzemeltető neve-re
és a többit fkeres-el automatikus kitöltené -
detroitrw
addikt
válasz z123456789 #49288 üzenetére
Semmilyen formátumba nem tudod kimenteni a Neked hasznos adatokat?
-
Fferi50
őstag
válasz z123456789 #49285 üzenetére
Szia!
Ha ezen a módon ki tudod exportálni, akkor már "csak" egy Excel makró kell hozzá és műxik.
Üdv. -
lappy
őstag
válasz z123456789 #49288 üzenetére
na akkor mi hogyan tudunk ebből excelt gyártani
Bámulatos hol tart már a tudomány!
-
Fferi50
őstag
válasz z123456789 #49293 üzenetére
Szia!
Úgy gondolom - lehet, rosszul - , hogy ez a bővítmény kell az Excelbe exportáláshoz:
itt találod
Üdv. -
Fferi50
őstag
válasz z123456789 #49298 üzenetére
Szia!
Ha esetleg feltennéd publikusnak egy rövid fájl export eredményét, talán tudnánk is segíteni benne.
Üdv. -
Fferi50
őstag
válasz z123456789 #49306 üzenetére
Szia!
Néhány lépéssel megoldható szerintem. Mutatom a példádon képekkel is.
1. lépés:
B3 cella képlete: =HELYETTE(A3;Karakter(10);"!")
Ez azért kell, hogy jól látható legyen az elválasztás az adatok között.
2. lépés:
B3 cella kijelölése - másolás - irányított beillesztés értéket ugyanoda.
Ekkor a képlet helyett az új szöveg lesz a cellában.
3. lépés:
A B3 cella kijelölve -
Adatok - szövegből oszlopok - tagolt -
következő párbeszédpanelen: határoló jelek egyéb - felkiáltójel
következő párbeszédpanelen: rendeltetési hely C3
Befejezés.
Ekkor a C3 cellától látod az adatokat szétbontva, a megnevezés és az érték kettősponttal elválasztva, az első képen már ott van eredmény.
4. lépés
A C3 cellától végig kijelölöd az adatokat - másolás
A10 cella kijelölés - irányított beillesztés - transzponálás! (vigyázz, ezt csak akkor látod, ha rákattintasz az irányított beillesztésre)
5. lépés
A10-A21 cella kijelölése, majd
Adatok - szövegből oszlopok - tagolt
A második panelen a határolójel: egyéb kettőspont
Következő panelen rendeltetési hely B10
Befejezés
Láthatod az eredményt.
Természetesen akkor is működik a dolog, ha nem csak az A3 cellában van adat, hanem tovább lefelé is. Akkor a B3 cellába írt képletet húzhatod lefelé, majd a B oszlop adatot tartalmazó celláival megcsinálhatod 2 és 3. lépést. Ezután viszont soronként kell a transzponálást megcsinálnod - minden sort az előző adatok alá transzponálva. Az így kapott oszlopra szintén alkalmazod az Adatok - szövegből oszlopok műveletet.
FONTOS: Több adatnál lehetőséged van arra, hogy az "oldalrovatok" kimaradjanak az új helyről, igy egymás mellé kerülhetnek az adatok. Ebben az esetben a harmadik panelen az első oszlopnál be kell jelölnöd, hogy az oszlop kihagyása (átlépés).
Sajnos a szövegből oszlopok csak ugyanarra a munkalapra működik, de gondolom az eredmény átmásolása egy másik munkalapra már nem okoz gondot.
Természetesen mindez akár makróval is megoldható és akkor nincs kézi munka.
Remélem ez alapján sikerül megoldanod.
Üdv.[ Szerkesztve ]
-
Fferi50
őstag
válasz z123456789 #49306 üzenetére
Szia!
Az előző válaszomban írtam, hogy lehet makró is:
Ez a makró az A3 -ban levő értéket az A10 cellától azA:B
oszlopba bontja ki:Sub valaszto2()
a = Range("a3").Text
b = Split(a, vbLf)
For Each c In b
d = Split(c, ":")
For Each e In d
Range("A10").Offset(x, y).Value = e
y = 1
Next
x = x + 1
y = 0
Next
End Sub
A makrót egy modulba kell bemásolni (az összefoglalóban megtalálod hogyan). Ha a makrót meg szeretnéd tartani, akkor makróbarát formában (xlsm kiterjesztés) kell menteni.
Az A3 helyére írd annak a cellának a címét, amelyiket ki szeretnél bontani, az A10 helyére pedig azt, ahol az eredményt szeretnéd látni.
Üdv.[ Szerkesztve ]
Új hozzászólás Aktív témák
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!