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

• #42031 Fferi50 őstag dav<3 #42028

  Új Válasz 2019-10-30 12:39:37 #42031

  Ú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

  

  Fferi50

  őstag

  válasz dav<3 #42028 üzenetére

  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 az M :  Roszlopokba írd.

  Üdv.

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