- Samsung Galaxy A56 - megbízható középszerűség
- Nothing Phone (3a) és (3a) Pro - az ügyes meg sasszemű
- One mobilszolgáltatások
- Mi nincs, grafén akku van: itt a Xiaomi 11T és 11T Pro
- VoLTE/VoWiFi
- Mobil flották
- Xiaomi 15 - kicsi telefon nagy energiával
- Google Pixel 8a - kis telefon kis késéssel
- Samsung Galaxy S25 - végre van kicsi!
- Milyen okostelefont vegyek?
-
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
Jó vicc volt, hogy az előző válaszomhoz elfelejtettem csatolni a makrót.
A tiédben az ELSE sor beteszi az üres sort az I oszlopba, vagyis ugyanott vagy vele, mint makró nélkül.A lenti makrót a lapodhoz kell rendelni: lapfülön jobb klikk, Kód megjelenítése, üres lapra bemásolás.
Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Or Target.Column = 6 Then
sor_1 = 2
E = Range("E65536").End(xlUp).Row
F = Range("F65536").End(xlUp).Row
usor = Application.WorksheetFunction.Max(E, F)
Range(Cells(2, 9), Cells(usor, 9)).ClearContents 'előző adatok törlése
For fogyi = 2 To usor
If Cells(fogyi, 5) > 0 And Cells(fogyi, 6) > 0 Then
Cells(sor_1, 9) = Round(Cells(fogyi, 6) / (Cells(fogyi, 5) / 100), 2)
sor_1 = sor_1 + 1
End If
Next fogyi
End If
End SubGyorsan elküldöm, mert ezelőtt 4 db pillanatnyi áramszünet megsemmisítette a válaszomat.
-
Delila_1
veterán
Egy kis makrót lefuttatva a H oszlopban megkapod egymás alatt azokat az értékeket, amiket majd a grafikonban megjeleníthetsz.
A makró a lapod 2. sorától indul, feltételezve, hogy ott kezdődnek az adataid (1. sor a cím). Figyeli az E és F oszlopok tartalmát, és ha mindkét érték nagyobb, mint 0, elvégzi az osztást, az eredményt beírja a H oszlop következő üres sorába (a másodiktól kezdve).
Ha a számokat tartalmazó sorok (E és F oszlopban) nem a 2. sorban kezdődnek, a makróban a sor_1=2 -nél a 2 helyett írd azt be, a For sor =2 To kezdetűnél szintén a 2 helyett.Az adataidhoz valószínűleg van címoszlop is. A H oszlop kevesebb adatot tartalmaz, mint az E vagy F oszlop, mert az üres sorok ki vannak gyomlálva. A címoszlopot is ennek megfelelően kell alakítani. Mivel nem tudom, melyik oszlopod tartalmazza a sorok címét, a D oszlopra gondoltam. Ennek a megfelelő értékeit írattam a G oszlopba.
A makróban a Cells(sor_1, 7) = Cells(sor, 4) -nél a 4 helyett írd be az eredeti oszlopod sorszámát. ("A" oszlop esetén ez 1, "B" oszlopnál 2, stb.).
Új hozzászólás Aktív témák
Hirdetés
- Android játékok topikja
- Counter-Strike: Global Offensive (CS:GO) / Counter-Strike 2 (CS2)
- Kertészet, mezőgazdaság topik
- Konteó topic
- Vigneau interaktív lokálblogja
- Apple TV+
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Bambu Lab 3D nyomtatók
- Samsung Galaxy A56 - megbízható középszerűség
- hdanesz: Hyundai Ioniq 28 kWh 2018 2. felvonás
- További aktív témák...
- AKCIÓ! AMD Ryzen 9 7950X 16 mag 32 szál processzor garanciával hibátlan működéssel
- Xiaomi Redmi 9A 32GB Kártyafüggetlen 1Év Garanciával
- ÁRGARANCIA!Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RX 7600 8GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! MSI B550M R7 3700X 16GB DDR4 512GB SSD RTX 3060Ti 8GB NZXT H5 Flow RGB 650W
- ÁRGARANCIA!Épített KomPhone i5 12400F 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: PC Trade Systems Kft.
Város: Szeged