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

• #19839 lappy őstag T.Lacci #19838

  Új Válasz 2013-12-09 20:10:59 #19839

  Ú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

  

  lappy

  őstag

  válasz T.Lacci #19838 üzenetére

  =HA(ÜRES(A1);"-";HA(A1<=10000;1500;HA(A1<=25000;100;HA(A1<=50000;700;HA(A1>50000;" ")))))

• #19780 Mutt senior tag T.Lacci #19775

  Új Válasz 2013-12-04 22:36:27 #19780

  Ú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 T.Lacci #19775 üzenetére

  Hello,

  A makrót fel tudod gyorsítani a következőkkel:
  1. képérnyőfrissítés kikapcsolása (ScreenUpdating)
  2. események letiltása (EnableEvents)
  3. objektumok létrehozása (Set parancs)
  4. változók definiálása konkrét típussal (Variant mellőzése)
  5. beépített függvények használata (pl. Sum egy saját összegzés helyett)
  6. üres cellák ignorálása

  Egy 100 ezer darabos halmazon futtattam a különböző variációkat az eredmények:

  

  Könnyedén gyorsítható tehát az első 2 opcióval.
  Sub Szorzas()
  Dim tartomany As Range, cella As Range, szorzo As Double
  
  Set tartomany = Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row)
  
  Application.EnableEvents = False
  Application.ScreenUpdating = False
  
  For Each cella In tartomany
  'Feltételek megdása
  Select Case cella.Value
  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(cella.Row, "E") = cella.Value * szorzo
  Next
  
  Application.EnableEvents = True
  Application.ScreenUpdating = True
  
  End Sub

  A függvényest pedig a 19740-es hozzászólásban találod.

  üdv

• #19757 Delila_1 veterán T.Lacci #19756

  Új Válasz 2013-12-03 14:27:56 #19757

  Ú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

  

  Delila_1

  veterán

  válasz T.Lacci #19756 üzenetére

  Legtöbben Kovalcsik Gézától Az Excel programozása c. könyvet ajánlják, de sokat tanulhatsz különféle fórumokon, és a YouTube-n is nagyon jó bemutatókat találsz.

  Újabban Kovalcsik feltett egy halom klassz bemutatót. Ha ezt behívod, a kereső felajánlja a "testvéreit".

• #19751 Delila_1 veterán T.Lacci #19747

  Új Válasz 2013-12-03 12:26:10 #19751

  Ú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

  

  Delila_1

  veterán

  válasz T.Lacci #19747 üzenetére

  Mindenesetre a szorzo változót állítsd át Single típusról Double típusra a Dim utasításban. Ez egy szarvashiba volt tőlem.
  A Single típus egész számokkal számol -3,402823^38 és -1,401298^45, valamint 1,401298^45 3,402823^38 értékek között.

• #19746 Delila_1 veterán T.Lacci #19745

  Új Válasz 2013-12-03 08:50:30 #19746

  Ú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

  

  Delila_1

  veterán

  válasz T.Lacci #19745 üzenetére

  Szívesen.
  Próbáld ki Mutt változatát is.

• #19744 Delila_1 veterán T.Lacci #19736

  Új Válasz 2013-12-03 07:27:57 #19744

  Ú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

  

  Delila_1

  veterán

  válasz T.Lacci #19736 üzenetére

  Case Is >=50001

• #19740 Mutt senior tag T.Lacci #19737

  Új Válasz 2013-12-02 21:58:12 #19740

  Ú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 T.Lacci #19737 üzenetére

  Hello,

  Különben az miért van hogy nem teljesen pontosan számol? (1000 x 1,4 = 1,399999999)

  A kapott makróban a szorzo változót Single típusról Double típusra állítsd át.

  ...a táblázatomnak szöveges fejléce van...

  A For sor = 1 To usor részben az 1-est írd át 2-re (vagy arra a sorra ahonnan a számok kezdődnek).

  Az eredeti feladat nem követel makrót, akár egy FKERES segítségével is megoldható.
  pl. E1-be: =D1*FKERES(D1;{0\1,4;10001\1,3;20001\1,2;30001\1,1};2)

  Itt a kapcsos zárójelekben van a keresési tartomány, 0 és 10000 között 1,4-et talál meg, 10001 felett 1,3-at és így tovább,

  Ha mégis makró kell, akkor itt van egy gyorsabb:

  Sub Szorzas2()
  Dim rng As Range
  
  'kiválasztjuk a csak számokat tartalmazó cellákat a D-oszlopban
  Set rng = Columns("D").SpecialCells(xlCellTypeConstants, xlNumbers)
  
  'jobbra tőlük számoljuk az új értéket; fkeres hasonló mint fent de a vba miatt máshogy kell megadni
  rng.Offset(, 1).FormulaR1C1 = "=RC[-1]*VLOOKUP(RC[-1],{0,1.4;10001,1.3;20001,1.2;30001,1.1},2)"
  
  'értékeket bemásoljuk
  Columns("E").Copy
  Columns("E").PasteSpecial (xlPasteValues)
  
  Application.CutCopyMode = False
  
  End Sub

  üdv

• #19727 Delila_1 veterán T.Lacci #19725

  Új Válasz 2013-12-02 10:06:17 #19727

  Ú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

  

  Delila_1

  veterán

  válasz T.Lacci #19725 üzenetére

  Jelezz majd vissza az eredményről!

• #19717 Delila_1 veterán T.Lacci #19707

  Új Válasz 2013-12-02 07:58:13 #19717

  Ú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

  

  Delila_1

  veterán

  válasz T.Lacci #19707 üzenetére

  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!

• #19674 Delila_1 veterán T.Lacci #19673

  Új Válasz 2013-11-28 07:36:17 #19674

  Ú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

  

  Delila_1

  veterán

  válasz T.Lacci #19673 üzenetére

  Már itt sem vagyok.

  A választ úgy add meg, hogy a hozzászólásnál, amire reagálsz, a pirossal írt Válasz szövegre kattints, akkor könnyebb követni.

• #19672 Delila_1 veterán T.Lacci #19671

  Új Válasz 2013-11-28 07:22:08 #19672

  Ú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

  

  Delila_1

  veterán

  válasz T.Lacci #19671 üzenetére

  Kikerestem, egy cella teljes-, vagy részleges tartalmának a cseréjéről volt szó. Szívesen.

• #19603 Delila_1 veterán T.Lacci #19601

  Új Válasz 2013-11-21 16:29:35 #19603

  Ú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

  

  Delila_1

  veterán

  válasz T.Lacci #19601 üzenetére

  ter.Replace What:="Gipszkarton", Replacement:="25-0-0-0", lookat:=xlWhole
  ter.Replace What:="Gipszkarton tartozékok", Replacement:="120-0-0-0", lookat:=xlWhole

  Ha a végéről lemarad a , lookat:=xlWhole, akkor csinálja azt, amit írtál, mert alapból az xlpart opciót hajtja végre.
  Az xlpart rész szöveget cserél, xlwhole teljes cellát.

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