- Linux - haladóknak
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- WLAN, WiFi, vezeték nélküli hálózat
- Milyen NAS-t vegyek?
- Microsoft Excel topic
- Crypto Trade
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- MinDig TV
- Rendszergazda topic
- Mindenki AI-t akar, már 2025-re is eladták a HBM chipeket
-
IT café
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
-
Mutt
aktív tag
válasz Excelbarat #17018 üzenetére
Hello,
Itt van az én megoldásom is.
Sub Szorzat()
Dim i As Long, j As Long, k As Long
Dim sor As Long, oszlop As Long
Dim nev As Range, szam As Range, vas As Range, szel As Range, hely As Range
Set nev = Range("B1") 'itt van a név pl. név
Set szam = Range("B2") 'itt van az azonosító pl. 1234
Set vas = Range("A5:A7") 'itt találhatók a vastagságok pl. 3 cm, 4 cm, 5 cm
Set szel = Range("B4:D4") 'itt találhatók a szélességek pl. 10 cm, 20 cm, 30 cm
'a szélességek alatti sorokban találhatók a tömegek
Set hely = Range("A11") 'az eredmény első mezője
sor = hely.Row
oszlop = hely.Column
'fejléc
Cells(sor, oszlop) = [A1]
Cells(sor, oszlop + 1) = [A2]
Cells(sor, oszlop + 2) = [A3]
Cells(sor, oszlop + 3) = [B3]
Cells(sor, oszlop + 4) = "súly"
k = 1
For i = 0 To vas.Rows.Count - 1
For j = 0 To szel.Columns.Count - 1
Cells(sor + k, oszlop) = nev
Cells(sor + k, oszlop + 1) = szam
Cells(sor + k, oszlop + 2) = vas.Resize(1, 1).Offset(i)
Cells(sor + k, oszlop + 3) = szel.Resize(1, 1).Offset(, j)
Cells(sor + k, oszlop + 4) = vas.Resize(1, 1).Offset(i, j + 1)
k = k + 1
Next j
Next i
End Subüdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
Új hozzászólás Aktív témák
- gban: Ingyen kellene, de tegnapra
- Linux - haladóknak
- Melyik tápegységet vegyem?
- BestBuy ruhás topik
- Amlogic S905, S912 processzoros készülékek
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Wise (ex-TransferWise)
- Vicces képek
- További aktív témák...
- Canva Pro előfizetés - 1 éves
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )