Hirdetés
-
Kihagyták az NVIDIA-t egy új AI-hálózati szabványból
it Számos big tech cég összefogásával készült el egy új AI-hálózati szabvány, mindebből viszont kihagyták az NVIDIA-t.
-
Spyra: nagynyomású, akkus, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
Mobvoi TicWatch Pro 5 Enduro - kitartás kartárs?
ma WearOS 3.5, két kijelző, hosszú üzemidő, és zavaró apróságok a legújabb TicWatch modellben.
-
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
-
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
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Canva Pro előfizetés - 1 éves
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Alpha Laptopszerviz Kft.
Város: Pécs