- Milyen SSD-t vegyek?
- Ventilátorok - Ház, CPU (borda, radiátor), VGA
- Gaming notebook topik
- Hővezető paszták
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Amlogic S905, S912 processzoros készülékek
- Projektor topic
- Riasztó topik
Hirdetés
-
AMD-s alternatívát ajánl az NVIDIA AI ellen a Microsoft
it AMD-s alternatívát kapnak az NVIDIA AI-processzorokra a Microsoft felhős ügyfelei.
-
Huawei Watch Fit 3 - zöldalma
ma Megnéztük, hogy tényleg okosóra lett-e a Huawei fitnesz karperecéből.
-
Premier előzetesen az xDefiant
gp Az ingyenes multiplayer FPS premierjére alig két napot kell már csak várni.
-
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
-
Fferi50
őstag
Szia!
Egy makróval megoldható a feladat. Az árlistát az alábbiak szerint helyezd el:
Az L2 cella tartalmazza az alapárat, az M, O, Q oszlopok a tartozékfajták megnevezését, a mellettük levő oszlop pedig az árakat.
Az árlista generálása az A2 cellától kezdődik és tartalmazza az adott tartozék nevét és árát valamint a végösszeget. A fejléceket nem írja ki a makró, amely az alábbi:Sub varial()
Dim aras(), u As Integer, usor As Integer
Dim x As Byte, y As Byte, z As Byte
u = 2
usor = Range("M2").End(xlDown).Row
aras = Range("M2:R" & usor).Value
For x = 1 To UBound(aras, 1)
For y = 1 To UBound(aras, 1)
For z = 1 To UBound(aras, 1)
Cells(u, 1).Value = 100: Cells(u, 2).Value = aras(x, 1): Cells(u, 3).Value = aras(x, 2): Cells(u, 4).Value = aras(y, 3): Cells(u, 5).Value = aras(y, 4): Cells(u, 6).Value = aras(z, 5): Cells(u, 7).Value = aras(z, 6)
Cells(u, 8).Value = 100 + aras(x, 2) + aras(y, 4) + aras(z, 6)
u = u + 1
Next
Next
Next
End Sub
Ezt a makrót egy modullapra helyezd el. (eljárás az összefoglalóban).
3 fajta összetevőt használhatsz, de ezen belül nem csak 10-10 lehetőséget, azokat tetszés szerint növelheted. Fontos, hogy azokat azM : R
oszlopokba írd.Üdv.
Új hozzászólás Aktív témák
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Vírusirtó, Antivirus VPN kulcsok
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Canva Pro előfizetés - 1 éves
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest