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

• #12109 bugizozi őstag dtpeter #12108

  Új Válasz 2011-11-23 15:36:40 #12109

  Ú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

  

  bugizozi

  őstag

  válasz dtpeter #12108 üzenetére

  i = 2
  
  Do While IsNumeric(Cells(i, 8)) = True
  
  Range("I" & i).Value = "o"
  
  i = i + 1
  
  Loop

  Perfect

• #5744 Delila_1 veterán dtpeter #5743

  Új Válasz 2009-11-25 13:09:27 #5744

  Ú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 dtpeter #5743 üzenetére

  

• #5742 Delila_1 veterán dtpeter #5740

  Új Válasz 2009-11-25 12:53:58 #5742

  Ú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 dtpeter #5740 üzenetére

  Az előző a cellákban lévő adatok elhelyezésére vonatkozott. A makróban a jobbra tolás Shift+Tab-bal történhet.

• #5741 Delila_1 veterán dtpeter #5740

  Új Válasz 2009-11-25 12:38:20 #5741

  Ú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 dtpeter #5740 üzenetére

  Szívesen.
  Van két ikon, ezeket tedd ki az Eszköztárra, ezek segítségével könnyedén tudod a kijelölt tartományt jobbra-balra igazítani.

  

  A cellaformázásnál is megteheted a Igazítás fülön, Vízszintesen, Balra (beütve), ahol megadhatod a Behúzás mértékét. Ugyanitt jobbra is. A "Jobbra (beütve)" a jobb széltől való távolságot jelenti.

• #5739 Delila_1 veterán dtpeter #5737

  Új Válasz 2009-11-25 08:38:06 #5739

  Ú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 dtpeter #5737 üzenetére

  Sub ErtekKiiro()
  Dim szamok, CV, KivonatSor, KovKotSor As Long
  szamok = Array(270, 47, 393, 108, 406, 48, 328, 116, 7, 260)
  KovKotSor = 1
  
  For Each CV In szamok
  For KivonatSor = 2 To ActiveSheet.UsedRange.Rows.Count
  If Cells(KivonatSor, 1) = CV And Cells(KivonatSor, 5) <> 0 Then
  Cells(KovKotSor, 19) = CV
  Cells(KovKotSor, 20) = Cells(KivonatSor, 2)
  Cells(KovKotSor, 21) = Cells(KivonatSor, 5)
  KovKotSor = KovKotSor + 1
  End If
  Next
  Next
  End Sub

  A For Each-hez kell annyi magyarázat, hogy ez egy különleges ciklus. Ezzel nem kell két For-Next ciklust egymásba ágyazni, mert végiglép a megadott területen egyesével (sor, oszlop sorrendben), és a ciklusváltozó – jelen esetben CV – mindig felveszi az aktuális cella értékét.
  A .Value értéket nem kell feltétlenül beírni [Cells(KovKotSor, 20) = Cells(KivonatSor, 2)], mert ez az alapérték.

• #5738 Pulsar veterán dtpeter #5737

  Új Válasz 2009-11-24 23:59:08 #5738

  Ú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

  

  Pulsar

  veterán

  válasz dtpeter #5737 üzenetére

  az tudom, hogy deklarálni így tudsz:

  Dim stradat(2) As String
  stradat(1) = "akarmi"
  stradat(2) = "barmi"

  azt is tudom, hogy az első sorba a zárójelbe ha írsz értéket az lesz a tömb maximális mérete, ha üresen hagyod dinamikus lesz.
  Csak azt nem tudom hogyan tudsz a tömb elemeire hivatkozni
  De engem is érdekelne valaki megoldása.

• #5540 Delila_1 veterán dtpeter #5535

  Új Válasz 2009-10-27 13:46:12 #5540

  Ú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 dtpeter #5535 üzenetére

  Egy próbát megér:
  Formázz meg egy oszlopot a dátumnak, és ebben az oszlopban hivatkozz az eredetire.
  Ez így kínai lehet. Vegyük, hogy az A oszlopban szerepelnek jelenleg a dátumok, valamilyen formában. Az új oszlop formátuma 2009.10.27, ebben hivatkozol az eredetire: =A1
  A kimutatásba ezt az új oszlopot vidd be az A helyett.

• #5522 Delila_1 veterán dtpeter #5518

  Új Válasz 2009-10-22 13:39:31 #5522

  Ú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 dtpeter #5518 üzenetére

  Súgó: csoportba foglalás/Tételek csoportosítása kimutatás vagy kimutatásdiagram mezőjében.

• #5521 Delila_1 veterán dtpeter #5518

  Új Válasz 2009-10-22 13:24:46 #5521

  Ú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 dtpeter #5518 üzenetére

  A mező címét szürke háttérrel jeleníti meg a kimutatás, erre a mezőre kell lépned.
  Eddig nem sikerült rájönnöm, hogy mikor, és mikor nem engedi a csoportosítást. Az első kérdésedkor csináltam egy kimutatást, akkor engedte. Most újra előállítottam egy hasonlót, most nem engedi.

• #5517 Delila_1 veterán dtpeter #5516

  Új Válasz 2009-10-22 12:20:10 #5517

  Ú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 dtpeter #5516 üzenetére

  A negyedéves csoportosításhoz:
  A dátumokat ne alakítsd át, mielőtt a kimutatást elkészíted. A kimutatásban állj a címsorára, Adatok/Tagolás és részletek/Csoportba foglalás. Ez különböző csoportosításokat ajánl fel, abból kiválasztod a Negyedéveket.

  A 2003-nál is lehet "pipálgatni".

  A #HIV és #ÉRTÉK hibákat a HA függvény alkalmazásával elkerülheted.
  =HA(a hivatkozott cella <>18%;"";a cella)
  Ezt persze normálisan kell megadni, csak az elvet írtam le.

• #5396 Delila_1 veterán dtpeter #5395

  Új Válasz 2009-09-18 16:54:12 #5396

  Ú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 dtpeter #5395 üzenetére

  Épp erre jártam.

• #5115 Delila_1 veterán dtpeter #5114

  Új Válasz 2009-07-07 08:34:58 #5115

  Ú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 dtpeter #5114 üzenetére

  Szívesen, és sok türelmet a könyv beszerzéséhez.

• #5113 Delila_1 veterán dtpeter #5109

  Új Válasz 2009-07-07 07:53:17 #5113

  Ú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 dtpeter #5109 üzenetére

  Vigyázat! A makró első futtatásakor az adatok alá beírod az összegző képletet, a következő futáskor ezt a sort értelmezi utolsó adatként. Erre figyelj a utolsó sor meghatározásánál!

• #5111 Delila_1 veterán dtpeter #5109

  Új Válasz 2009-07-07 07:27:28 #5111

  Ú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 dtpeter #5109 üzenetére

  Az R1C1 formulánál azt adhatod meg, hogy az aktuális cellához képest hány sorral és oszoppal elcsúsztatott értékekkel akarsz dolgozni.
  Range("F5").FormulaR1C1 = "=R[1]C[-3]"
  Ennek a sornak a hatására az F5 cellába az alatta lévő sorban [1], és a 3-mal előtte lévő oszlopban [-3] lévő érték íródik be képletként, vagyis az F5-ben ez lesz: =C6.
  Nálad a képletnél elhagynám az R1C1 hivatkozást.

  Az összegző képlet beíratása:
  vSor = Range("A1").End(xlDown).Row + 1
  Cells(vSor, 1).Formula = "=SUM(A3:A" & vSor - 1 & ")"

  Ugyanez másképp:
  vSor = Range("A1").End(xlDown).Row
  Cells(vSor+1, 1).Formula = "=SUM(A3:A" & vSor & ")"

  A különböző fórumokon leginkább Kovalcsik Gézától ajánják Az Excel (ide jön a verziószám) programozása című könyvet. Évek óta keresem, és most sikerült megszereznem egy internetes antikváriumtól (új állapotban, de a CD melléklet hiányzik).
  Krizsák László: Az Excel 7.0 programozása is nagyon jó az alapok megismeréséhez, de ezt sem lehet kapni. Új kiadásuk nincs – pedig Kovalcsik könyvét több évben is kiadták –, ilyen jellegű könyveket meg nem szokás antikváriumoknak eladni.

• #5106 Delila_1 veterán dtpeter #5104

  Új Válasz 2009-07-06 05:17:59 #5106

  Ú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 dtpeter #5104 üzenetére

  Vegyél fel egy változót, amit célszerűen sor-nak nevezhetsz.
  sor=range("A1").end(xldown).row+1
  Az összegző képletet a cells(sor,oszlopszám) helyre írd be.

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