Új hozzászólás Aktív témák

• #17021 sarvari csendes tag Excelbarat #17018

  Új Válasz 2013-03-01 23:30:33 #17021

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sarvari

  csendes tag

  válasz Excelbarat #17018 üzenetére

  köszi kipróbálom holnap
  és majd irok hogy ment
  mégegyszer kössz

• #17019 Mutt senior tag Excelbarat #17018

  Új Válasz 2013-03-01 22:35:22 #17019

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior 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.

Új hozzászólás Aktív témák