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

• Delila_1 veterán

  #19717

  #19707 T.Lacci

  2013-12-02 07:58:13

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #19707 T.Lacci

  #19707 T.Lacci

  Szeretném újra a segítségedet kérni egy újabb megoldandó problémában, :
  Egy táblázat egyik oszlopában (mondjuk a D oszlopban) árak vannak. Ezeket az árakat szeretném felszorozni, de eltérő mértékben. Tehát az 1-től 10.000-ig értékeket 1,4-el, a 10.001-től 20.000-ig értékeket 1,3-al, a 20.001-től 30.000-ig értékeket pedig 1,2-vel és így tovább. Tudnál nekem ebben segíteni, hogy ezt hogy tudom végrehajtatni egy makróval? Köszönöm előre is a segítségedet!

  Sub Szorzas()
  Dim sor As Long, usor As Long, szorzo As Single
  
  'Alsó sor meghatározása a D oszlopban)
  usor = Range("D" & Rows.Count).End(xlUp).Row
  
  'Ciklus az elsőtől az utolsó sorig
  For sor = 1 To usor
  'Feltételek megdása
  Select Case Cells(sor, "D")
  Case 1 To 10000
  szorzo = 1.4
  Case 10001 To 20000
  szorzo = 1.3
  Case 20001 To 30000
  szorzo = 1.2
  Case Else
  szorzo = 0.9
  End Select
  
  'Szorzat beírása az E oszlopba
  Cells(sor, "E") = Cells(sor, "D") * szorzo
  
  'Ha kerekítve akarod megadni a szorzatot, a fenti helyett
  'a lenti sort alkalmazd a szorzásra
  'Cells(sor, "E") = Round(Cells(sor, "D") * szorzo, 0)
  Next
  End Sub

  A Case sorokat folytathatod. A Case Else sorhoz azt az utasítást add, ami azokra az összegekre vonatkozik, amikhez a fölötte lévő feltételekben nem határoztál meg szorzót. Ki is hagyható.
  Figyelj, hogy a szorzók tizedes ponttal, nem veszővel írandók a makróban!

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