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

• #5859 ulrik19 tag sonar #5858

  Új Válasz 2009-12-16 21:45:42 #5859

  Ú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

  

  ulrik19

  tag

  válasz sonar #5858 üzenetére

  Szia!

  Szerintem egy ilyen XML-es dolognál a legegyszerűbb egy XSL stíluslap hozzácsatolása lenne. Onnan simán (jó fomában, üres cellák nélkül) be lehetne másolni az excel-be.

  Tudok benne segíteni, de ahhoz ismerni kellene a pontos XML-szerkezetet.

• #5856 ulrik19 tag babli #5855

  Új Válasz 2009-12-15 14:24:35 #5856

  Ú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

  

  ulrik19

  tag

  válasz babli #5855 üzenetére

  Valahogy nem egészen így kellene kinéznie...

  A táblázat "belsejébe" (magjába, ahol összesíteni szeretnél) csak olyan mezőket tegyél be, amik összegezhetők. (mennyiség és érték)

  Majd úgy kell formázni, hogy vízszintesen tegye egymás mellé őket, ne függőlegesen egymás alá...

  Amit a képen látok, az valami részösszegzésesnek tűnik. Ezzel is megoldható mondjuk, ha az azonos termékbejegyzések mindig egymás után jönnek (pl. ABC-rendezve az oszlop), viszont nincs beállítva minden összegzendő mező. (Adatok/Részösszegek... menü)

• #5854 ulrik19 tag Pulsar #5851

  Új Válasz 2009-12-15 11:44:57 #5854

  Ú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

  

  ulrik19

  tag

  válasz Pulsar #5851 üzenetére

  igazán nincs mit... ujjgyakorlat

• #5853 ulrik19 tag babli #5852

  Új Válasz 2009-12-15 11:44:04 #5853

  Ú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

  

  ulrik19

  tag

  válasz babli #5852 üzenetére

  pivot? (alias kimutatás)

  szerintem azt - többek között - erre találták ki.

  Adatok menü / kimutatás vagy kimutatásdiagram...

• #5847 ulrik19 tag Pulsar #5843

  Új Válasz 2009-12-12 10:59:04 #5847

  Ú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

  

  ulrik19

  tag

  válasz Pulsar #5843 üzenetére

  Csak azért, hogy mások számára is hasznos legyen a téma

  Csináltam egy bővített vlookup() függvényt...
  Használata pl:
  =multivlookup($E$1:$N$100;3;0;1;A1;4;B1/2;10;"Béla")
  ahol:
  $E$1:$N$100 a keresés helye (mint vlookup)
  3, azaz a tábla 3. oszlopában lévő adatot adja vissza
  0, azaz ha nem talál semmit, 0-t adjon vissza. (lehet "" is akkor üresen marad, de bármi más szintén mehet ide)
  ez a három kötelező paraméter
  ez után lehet megadni a feltételeket az alábbi módon (a fenti példát követve)
  párosával kell nézni a paramétereket:
  1;A1 azaz a tábla 1. oszlopában A1-gyel egyenlő érték legyen (természetesen nem csak hivatkozás lehet itt)
  4;B1/2 azaz a tábla 4. oszlopában a B1 cella értékének felét keresse
  10;"Béla" azaz a tábla 10. oszlopában a "Béla" szöveg legyen
  lehet 1, de akár több feltételt is belerakni, rugalmasan kezeli
  Ha több sor is megfelelne a feltételnek, akkor az első találatot adja vissza
  (a paraméterek között ÉS kapcsolat van, tehát mindnek meg kell felelni)

  Public Function multivlookup(HolKeressen As Range, MelyikOszlopAdatatAdjaVissza As Byte, HaNincsTalalat As Variant, ParamArray OszlopInformaciok() As Variant) As Variant
  'Ha nem páros számú az OszlopInformaciok argumentum (az UBound elemszám-1 értéket ad vissza ilyenkor)
  If (UBound(OszlopInformaciok) + 1) Mod 2 = 1 Then
  'adjon vissza hibát
  multivlookup = CVErr(1)
  Exit Function
  End If
  
  Dim i As Integer, j As Integer, ok As Boolean
  For i = 1 To HolKeressen.Rows.Count
  ok = True
  For j = 0 To UBound(OszlopInformaciok) Step 2
  'ha nagyobb oszlopszám a hivatkozás, mint ahány oszlop egyáltalán van...
  If HolKeressen.Columns.Count < OszlopInformaciok(j) Then
  'adjon vissza hibát
  multivlookup = CVErr(2)
  Exit Function
  End If
  'ha nem felel meg a feltételnek, akkor ok = False (ne is vizsgálja ezt az adatsort tovább...)
  If HolKeressen.Cells(i, OszlopInformaciok(j)) <> OszlopInformaciok(j + 1) Then
  ok = False
  Exit For
  End If
  Next j
  
  'ha van találat, akkor ok = True (ne is menjen tovább, mert az első találot adatom vissza)
  If ok Then
  multivlookup = HolKeressen.Cells(i, MelyikOszlopAdatatAdjaVissza)
  Exit Function
  End If
  Next i
  
  'ha volt találat, akkor már kiléptünk a függvényből... ha nincs, akkor:
  multivlookup = HaNincsTalalat
  End Function

• #5845 ulrik19 tag Delila_1 #5844

  Új Válasz 2009-12-12 08:38:47 #5845

  Ú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

  

  ulrik19

  tag

  válasz Delila_1 #5844 üzenetére

  Igazán nincs mit.

  Jópofa függvény. Én php-ben használtam, használom sokat. (mondjuk ott explode() néven fut)

• #5842 ulrik19 tag Pulsar #5841

  Új Válasz 2009-12-12 03:09:53 #5842

  Ú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

  

  ulrik19

  tag

  válasz Pulsar #5841 üzenetére

  visszaküldtem

• #5838 ulrik19 tag Pulsar #5835

  Új Válasz 2009-12-12 00:15:42 #5838

  Ú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

  

  ulrik19

  tag

  válasz Pulsar #5835 üzenetére

  a minta kimenet H4-es cellájában a 4 mit jelent? Mármint hogyan jött ki a táblából?

  Ha pl. ugyanabban az idősávban több azonos pass van (station is azonos), akkor mi kerül a célcellába? Az összes megfelelő darabszáma, vagy egy itt nem látható oszlop (talán az említett G) értékösszege? Ha tudsz küldeni egy minta file-t, szerintem nem túl bonyolult megcsinálni.

  Egy olyan spec függvényt kell írni rá, ami egyszerre több cella értékét is vizsgálja többféle bevitt paraméter szerint.

• #5837 ulrik19 tag Pá #5836

  Új Válasz 2009-12-12 00:11:49 #5837

  Ú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

  

  ulrik19

  tag

  válasz Pá #5836 üzenetére

  Eszközök/Makró/Makrók (vagy alt-f8)

  Ott kiválasztod az adott makrót. Majd Egyebek... gomb, és ott meg tudod adni. Arra figyelj, hogy olyat adj meg, amit nem használsz másra.

• #5834 ulrik19 tag ulrik19 #5833

  Új Válasz 2009-12-11 18:46:02 #5834

  Ú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

  

  ulrik19

  tag

  válasz ulrik19 #5833 üzenetére

  hmmm, egy picit módosítanom kellett:

  Public Sub ktgelosztas()
  Dim osszeg As Double, i, strAr, strAr2
  
  osszeg = Int(Val(InputBox("Felosztandó összeg a kijelölt cellák között:")))
  
  strAr = Split(Selection.Value, ";")
  For i = 0 To UBound(strAr)
  strAr2 = Split(strAr(i), "=")
  Range(Trim(strAr2(0))).Value = Val(Range(Trim(strAr2(0))).Value) + Int(osszeg * Val(strAr2(1)) / 100)
  Next i
  End Sub

  Ha nem egész százalékra van szükséged, akkor tizedespontot kell használni. Pl. harmadoláshoz: 33.3333

• #5833 ulrik19 tag Pá #5832

  Új Válasz 2009-12-11 18:39:39 #5833

  Ú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

  

  ulrik19

  tag

  válasz Pá #5832 üzenetére

  megoldható ez is.

  Ez némileg másképp működik. Meg kell adni egy cellában, hogy melyik cellákba kell szétosztani, és milyen arányban. Gondolom, ez előre rögzíthető, vagyis általában ugyanazt a dolgot ugyanabban az arányban ugyanazokra a ktghelyekre osztasz szét.

  Pl. legyen egy cella tartalma ez: N12=20;N16=30;N21=10;N26=40
  Itt százalékban van megadva, hogy melyik cellára mekkora rész menjen. Nem vizsgálja a program, hogy az összeg 100%-e! Persze azt is bele lehet szőni... Fontos az egyenlőségjel, és az is, hogy ;-vel kell elválasztani az elemeket.

  Állj rá erre az egy cellára. Majd indítsd a makrót:

  Public Sub ktgelosztas2()
  Dim osszeg As Integer, i, strAr, strAr2
  
  osszeg = Int(Val(InputBox("Felosztandó összeg:")))
  
  strAr = Split(Selection.Value, ";")
  For i = 0 To UBound(strAr)
  strAr2 = Split(strAr(i), "=")
  Range(Trim(strAr2(0))).Value = Val(Range(Trim(strAr2(0))).Value) + osszeg * Val(strAr2(1)) / 100
  Next i
  End Sub

  Ezzel a módszerrel egyébként több költségallokációs módot tudsz tárolni. De azon a sheet-en kell tárolni, ahol az adatok vannak.

• #5831 ulrik19 tag Pá #5824

  Új Válasz 2009-12-11 18:01:02 #5831

  Ú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

  

  ulrik19

  tag

  válasz Pá #5824 üzenetére

  Én így csinálnám. Ehhez a makróhoz célszerű hozzárendelni egy billentyű-kombinációt is.

  Public Sub ktgelosztas()
  Dim cella As Object, osszeg As Integer
  
  osszeg = Int(Val(InputBox("Felosztandó összeg a kijelölt cellák között:") / Selection.Count))
  For Each cella In Selection
  cella.Value = Val(cella.Value) + osszeg
  Next
  End Sub

  Használata:
  kijelölöd azokat a cellákat, amikre szét akarod osztani az értéket. (a ctrl nyomva tartva az egérrel ugye tudsz egymástól független cellákat sorban kijelölni, ahányat csak szeretnél)

  Majd indítod a makrót (pl. a hozzárendelt billentyűkombinációval).

  A progi bekéri a számot, amit szétoszt annyi részre, ahány cellát kijelöltél, és a kijelölt cellák értékét növeli a rá jutó résszel. (ha valamelyik kijelölt cellában szöveg volt, akkor azt nullának értelmezi, ha szöveget adsz be a felugró ablakban, akkor nullát ad mindenhova, vagyis nem változik az érték. Ha valamelyik kijelölt cellában képlet van, akkor az felül fog íródni a konkrét értékkel)

  hajrá!

• #5820 ulrik19 tag Delila_1 #5819

  Új Válasz 2009-12-11 10:21:09 #5820

  Ú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

  

  ulrik19

  tag

  válasz Delila_1 #5819 üzenetére

  Részemről is

• #5817 ulrik19 tag Cuci3 #5808

  Új Válasz 2009-12-11 00:10:27 #5817

  Ú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

  

  ulrik19

  tag

  válasz Cuci3 #5808 üzenetére

  Így van, ahogy Delila írta, meg kell fordítani a gondolatot. Ugyanis a next automatikusan megtörténik, amint a ciklusmag végére ér a folyamat. Vagyis, ha az elágazásod arról szól, hogy mikor nem egyezik meg a sheet neve a vizsgálandóval, akkor ha egyeznek, nem történik semmi a cikluson belül.

  For Each lap In Workbooks(valtozo).Worksheets
  If lap.Name <> el Then
  ... ide jön amit végeztetni akarsz ...
  End If
  Next

• #5803 ulrik19 tag ulrik19 #5802

  Új Válasz 2009-12-04 08:33:32 #5803

  Ú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

  

  ulrik19

  tag

  válasz ulrik19 #5802 üzenetére

  Ez pedig egy elegánsabb megoldás:
  'végigmegy az összes munkalapon, és amelyik nem a kijelölt terület munkalapja,
  'összeadja az azonos elhelyezkedésű cellák értékét
  Public Function SubTotal(cRange As Range)
  Dim lap As Worksheet, Sum As Double
  
  Sum = 0
  For Each lap In Worksheets
  If Not lap.Name = cRange.Worksheet.Name Then Sum = Sum + lap.Cells(cRange.Row, cRange.Column)
  Next
  
  SubTotal = Sum
  End Function

  Ennek használata pedig:
  =SubTotal(L154)

  Persze, lehet más cella is az argumentumban. Azt a cellát kell belerakni ebbe a képletbe, amiket szeretnénk az összes többi sheeten összegezni. Mivel cellahivatkozás, másolható máshová, tehát "átírja" a hivatkozást, mint bármilyen más függvény használatakor.

  (Bár a Sum = 0 sor nem lenne kötelező, javaslom, hogy minden hasonló helyzetben adjátok meg a kezdőértéket. Néha előfordulnak cifra dolgok ennek elhagyása esetén )

• #5802 ulrik19 tag Delila_1 #5792

  Új Válasz 2009-12-03 23:29:20 #5802

  Ú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

  

  ulrik19

  tag

  válasz Delila_1 #5792 üzenetére

  Én nem eseményhez kötném a lefutást, hanem így oldanám meg:

  Public Function SubTotal(xRow As Integer, xCol As Integer)
  Dim lap As Byte, Sum As Double
  
  Sum = 0
  For lap = 2 To Worksheets.Count
  Sum = Sum + Sheets(lap).Cells(xRow, xCol)
  Next
  
  SubTotal = Sum
  End Function

  Aztán az Összesítő sheet 3 megfelelő cellájába mehet ez a képlet (magyar excelnél a , helyett ; kell természetesen ):
  =SubTotal(154, 12)
  =SubTotal(155, 12)
  =SubTotal(156, 12)

  Vagyis ez egy összeadó függvény, ami a megadott sor- és oszlopszámú cellákat összeadja valamennyi munkalapon (kivéve az összesítőt). Jelen esetben L154-es, L155-ös és L156-os cellák összegét.

• #5801 ulrik19 tag gsc73 #5785

  Új Válasz 2009-12-03 22:57:15 #5801

  Ú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

  

  ulrik19

  tag

  válasz gsc73 #5785 üzenetére

  sub akármi() ekvivalens a public sub akármi() használatával
  vagyis "kintről" elérhető.

  ugyanakkor: private sub akármi() esetében a hatókör nem engedi, hogy máshonnan meghívják, ezért a makróindításnál sem látszik. DE, a 3 sub-nak egy modulban kell lenniük.

  egyébként szerintem mindig célszerű kitenni a private/public kulcsszót, hogy totál egyértelmű legyen.

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