Keresés

Részletes keresés

Törölt nick Creative Commons License 2007.01.17 0 0 4802
SZUMHA(), De inkább:
PIVOT tábla (Menü / Adatok / kimutatás vagy kimutatás diagram)
Előzmény: terra700 (4800)
szenyor Lopez Creative Commons License 2007.01.17 0 0 4801

Üdv!

Hogyan lehet megoldani azt, hogyha létrehozok egy saját készítésű űrlapot (pontosabban készítek egy sémát, amin adatokat lehet bevinni) és az töltene egy másik munkalapon egy listát?

terra700 Creative Commons License 2007.01.17 0 0 4800
Sziasztok!

 

Segítségre lenne szükségem. Keresek egy függvényt az alábbi feladatra. Aki tudja a megoldást, kérem írja meg. Fontos lenne.

 

A megoldandó feladat:

 

Vegyünk egy táblázatot (A1:F4).

 

          A               B              C                 D                 E                  F       

1    10211           1              1                  1                 1

   10212                           1                  1                 1                   1

3    10211                                                                  1                   1

   10213           1              1                  1

 

Amire nem tudok rájönni. Vegyünk egy cellát valahol a munkalapon, amiben a megoldást majd kiíratjuk. Azt az utasítást/függvényt szeretném hozzárendelni, hogy: egy általunk megadott azonosító számot (A oszlop) keressen meg, és az általunk megadott oszlopokig adja össze a benne található számokat, de ha a keresett szám többször is előfordul (10211) ne okozzon neki problémát.

 

A példa kifejtése: Vegyük példának a 10211 számot. Kerestessük meg a táblázatban, ahol megtalálja, ott B,C,D oszlopban található számokat adjuk össze. Mivel a 10211 szám kétszer is előfordul, így ebben a 2 sorban található számokat adja össze, de csak a B,C,D oszlopban!!!

 

Így az eredmény 3 lesz.

 

A segítséget előre is köszönöm!

terra700 Creative Commons License 2007.01.17 0 0 4799
Sziasztok!

 

Segítségre lenne szükségem. Keresek egy függvényt az alábbi feladatra. Aki tudja a megoldást, kérem írja meg. Fontos lenne.

 

A megoldandó feladat:

 

Vegyünk egy táblázatot (A1:F4).

 

          A               B              C                 D                 E                  F       

1    10211           1              1                  1                 1

   10212                           1                  1                 1                   1

3    10211                                                                  1                   1

   10213           1              1                  1

 

Amire nem tudok rájönni. Vegyünk egy cellát valahol a munkalapon, amiben a megoldást majd kiíratjuk. Azt az utasítást/függvényt szeretném hozzárendelni, hogy: egy általunk megadott azonosító számot (A oszlop) keressen meg, és az általunk megadott oszlopokig adja össze a benne található számokat, de ha a keresett szám többször is előfordul (10211) ne okozzon neki problémát.

 

A példa kifejtése: Vegyük példának a 10211 számot. Kerestessük meg a táblázatban, ahol megtalálja, ott B,C,D oszlopban található számokat adjuk össze. Mivel a 10211 szám kétszer is előfordul, így ebben a 2 sorban található számokat adja össze, de csak a B,C,D oszlopban!!!

 

Így az eredmény 3 lesz.

 

A segítséget előre is köszönöm!

Törölt nick Creative Commons License 2007.01.17 0 0 4798
Igeeeeeeeeen
Köszönöm Szépen!
Ezzel egy csomó mindent meg tudtam csinálni!
Előzmény: Törölt nick (4795)
Törölt nick Creative Commons License 2007.01.17 0 0 4797

Használható range-ben is a cells, így tartomány is megadható vele, pl. A1:C5-ös tartománnyal csinélunk valamit, és a számok helyett persze futó változókat is megadhatunk:

Range(Cells(1, 1), Cells(5, 3)).xxxxxx

 

Előzmény: Törölt nick (4796)
Törölt nick Creative Commons License 2007.01.17 0 0 4796

Szerintem neked segíthet az előbbi hozzászólásom.

Ha cells()-et használod, könnyen ciklusba tudod szervezni a műveleteket.

cells(i,k) i-edik sor, k-adik oszlop, pl. cells(5,3) a c5-ös cellára hivatkozik, és tartomány is megadható.

Az excel visual basic szerkesztőjének helpjében érdemes megnézni a cells-et és a vonatkozó példákat.

 

Előzmény: baybee (4793)
Törölt nick Creative Commons License 2007.01.17 0 0 4795

 

Csak egy ötlet a megoldáshoz, ha jól értem ilyen jellegű a probléma:

Itt az első oszlop celláin megy végig, amíg nem talál üreset, és átmásolja szomszédos B cellába. Egyéb feltételeket is lehetne vizsgálni, pl. csak akkor álljon le ha n darab üres ceelát talált, vagy az elején hagyja ki az üres cellákat.

 

dim i as long

 

i = 1
Cells(i, 1).Select
While Trim$(ActiveCell.Value) <> ""    
    
    Cells(i, 1).Select
    Cells(i, 1).Copy
   Cells(i, 2).PasteSpecial
    i = i + 1
Wend

Előzmény: Törölt nick (4794)
Törölt nick Creative Commons License 2007.01.17 0 0 4794
Hasonlo a problémám, mint baybee-nek, de most rövidítettem a makron:

Sub BeIr()

Range("C3").Copy
Range("M2").PasteSpecial
Range("F2").Copy
Range("F3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("C4").Copy
Range("M2").PasteSpecial
Range("F2").Copy
Range("F5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Stb....

Range("C4").Select és Range("F4").Select mindig 1-el nő egész 50-ig - de még jobb ha addig megy, amig talál a "C" oszlopban értéket.
Hogy lehetne ezt ciklusba foglalni, hogy ne kelljen egyesével zongorázni?
Előzmény: Törölt nick (4776)
baybee Creative Commons License 2007.01.16 0 0 4793
Sziasztok!
Sűrgős segítségre lenne szükségem, az excel makro programozásban.
A feladalt a következő:
Makrorögzítéssel kiszámoltatok vmit, egy bizonyos területre. De ezt hogyan tudom végtelenítetni?
Azaz, egészen konkrétan:
Sub szamolj()
Range("D4").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
Range("D4").Select
Selection.AutoFill Destination:=Range("D4:D18"), Type:=xlFillDefault
Range("D4:D18").Select
End Sub
Tehát d4-tő d18ig van egy kivonás. Namost azt tudom, hogy ebben a kódban kéne valamit átírnom, ahhoz, hogy ha én a 19, 20,... sorokat feltöltöm adattal, akkor automatikusan végezze el oda is a számolásokat, egészen egy üres sorig. (a továbbiakban a makró újraindítása nélkül(?) ha további sorokba írtunk folyamatosan adatokat, akkor azt ő az előző sorban lévő képlet alapján folytonosan számolta.
) De mit és mire kell kicserélni???
Vmi olyan dereng, mintha ebben a sorban írtunk volna át vmit.:
Selection.AutoFill Destination:=Range("E4:E18"), Type:=xlFillDefault
Nincs vmi joker karakter, amit a 18 helyére beírva esetleg nem határozza meg a végét?
Köszi a segítséget!
Törölt nick Creative Commons License 2007.01.16 0 0 4792
Most néztem az emailes kérdést: szóval a nyomógomb helyének változtatása: a nyomógomb fölé menve az egérrel , a jobb gombbal kattintva, ekkor előjön egy menü is, de közben meg is jelenik a nyomógomb körül egy másfajta keret ekkor, lehet elhúzni a gombot a keret fölé állva és lenyomva tartva  a bal egérgombot..
Előzmény: ÁSZÁSZ (4788)
Törölt nick Creative Commons License 2007.01.16 0 0 4791
..meg persze a Visual Basic szerkeszőben bemenni a Tools - Vb project porperties menübe és a jelszót megadni.
Előzmény: Törölt nick (4789)
Törölt nick Creative Commons License 2007.01.16 0 0 4790

2) Akkor nem kell levédeni azt az oszlopot amibe számolzs, vagy a használt részét.

Amit nem akarsz levédeni  a munkalapon azt előszőr a lapvédelem előtt meg kell adni. Kjelölöd a kívánt oszlopot, vagy egy részét, majd Formátum cellák védelemben kiveszed a pipát.  Ezután jön az Eszközök Védelem lapvédelem beállítása. Ekkor a kérdéses oszlop módosítható, így a makró is bele tud írni.

 

Előzmény: ÁSZÁSZ (4788)
Törölt nick Creative Commons License 2007.01.16 0 0 4789

1) Makró védelme:

A Visual Basic szerkesztőbe bemenni, ott a Tools - Vba Project Properties - ezen belül pedig a Protection ablak, itt megtekintés ellen levédhető a makroprogram: Lock project for vieving bejelölése, jelszó megadása.  De ki kellett lépnem az excelből hogy aktív legyen ez a védelem, és újból elindítani.

Védelem leszedése: újból bemenni a visual basic szerkesztőbe. (Eszközök Makró Visual basic szerkesztő)

 

 

Előzmény: ÁSZÁSZ (4788)
ÁSZÁSZ Creative Commons License 2007.01.16 0 0 4788

DJCarlos megkaptam a táblát, köszi!

 

Van egy excel táblám, markróval. Ezt mások is használják.

 

1) El szeretném érni, hogy véletlenül se módosítsanak a makrón. Hogyan tudom levédeni? Egyáltalán levédhető?

 

2) A makró alapján egy nyomógomb van a táblámon. Ezen kívül sok oszlopban lévő értéket számíttatok képlettel, függvénnyel. Le szeretném ezeket is védeni.

Ez működik is a szokásos Formátum/Cellák/Védelem/zárolt, védett illetve Eszközök/Védelem/lapvédelem alapján.

 

Ha a makróval kiíratott oszolpot is levédem, akkor nem fut a makró, illetve ha a nyomogomb oszlopát védem le, akkor értelemszerűen el sem indul az egész.

Van megoldás a levédésre?

rosencrantzhu Creative Commons License 2007.01.16 0 0 4787
Sziasztok,

egy nagyon egyszerű problémám van, de nem jöttem rá a megoldására. Az egységes megjelenés érdekében néhány, előadáshoz használt grafikont egyforma színkiosztással szeretnék megcsinálni. Nem is lenne vele semmi gond, de a grafikonok között van olyan, amelyik már elég régi, mások meg újabbak, és nem egyforma a felajánlott színskála az Excelben. (Valszeg az lehet az ok, hogy nem egyforma Excel verzióban készültek eredetileg, de most már mind Office 2003-as verzióban van.)

Így aztán mondjuk az egyik grafikonban tudok narancssárga oszlopot csinálni, a másikban nem stb.

Van valaki, aki ezzel már találkozott?
Vacy Creative Commons License 2007.01.16 0 0 4786

PowerUser-eket pedig csak úgy tudod kicselezni, hogy a makród megnézéséhez is beállítasz jelszót (különben kiolvassa a felhasználó a VBA kódból :) )

 

Ez a minimum! :) De azt meg könnyebben fel lehet törni, ha jól gondolom.

 

 

128bites titkosítás és legalább 8 karakteres "jó" jelszó 

 

Véletlenül pont 8 lett, de lehetne növelni, csak a VBA jelszót nem szabad elfelejteni!

 

Még annyit csináltam, hogy nem .xls a file kiterjesztése, első lépcsőben ez is jó, szeritnem.

Előzmény: Jozsef (4785)
Jozsef Creative Commons License 2007.01.15 0 0 4785

Sok 128-ból, melyik mit tudod? Melyeiket mikor kell, érdemes használni?

 

Felhasználó/ VBA programozó szempontból tulajdonképpen mindegy, hogy melyiket használod, igazából ezek különböző algoritmusokat használnak. Ha érdekel, kriptográfia oldalakon utánaolvashatsz.

 128bites titkosítás és legalább 8 karakteres "jó" jelszó feltöréséhez akár több ezer év is kellhet brute force-al (próbálgatással)  való feltöréshez.

PowerUser-eket pedig csak úgy tudod kicselezni, hogy a makród megnézéséhez is beállítasz jelszót (különben kiolvassa a felhasználó a VBA kódból :) )

 

Üdv

József

Előzmény: Vacy (4782)
Törölt nick Creative Commons License 2007.01.15 0 0 4784

Elküldtem a címre.

Előzmény: ÁSZÁSZ (4783)
ÁSZÁSZ Creative Commons License 2007.01.15 0 0 4783

Hello DJCarlos!

Nagy szükségem lenne a táblára.

 

aszaszasz@citromail.hu

 

Köszi.

Vacy Creative Commons License 2007.01.15 0 0 4782

Jaj, úgy megörültem a 4751-nek, hogy nem olvastam vissza! :o

 

Sok 128-ból, melyik mit tudod? Melyeiket mikor kell, érdemes használni?

Előzmény: Jozsef (4781)
Jozsef Creative Commons License 2007.01.15 0 0 4781
4750 hsz.
Előzmény: Vacy (4780)
Vacy Creative Commons License 2007.01.15 0 0 4780

Ezt én is megtaláltam, jó sok féle van, melyiket érdemes?

 

Hogyan nyitok meg egy ilyen fájlt? Nekem mindig kéri a jelszót, a "minta" pedig csak a beállításra ad ötltet.

Előzmény: Jozsef (4775)
Sánta Kutya (SK) Creative Commons License 2007.01.15 0 0 4779
Jééé.... tényleg...
Előzmény: Jozsef (4775)
Törölt nick Creative Commons License 2007.01.15 0 0 4778

A Cells(i, k).Select -et is lehetne használni a range... helyett és így lehet egyszerűen növelni.

Előzmény: Törölt nick (4777)
Törölt nick Creative Commons License 2007.01.15 0 0 4777
Vagyis, amig talál a c oszlopban értéket, nem is kell 50-ig mennie
Előzmény: Törölt nick (4776)
Törölt nick Creative Commons License 2007.01.15 0 0 4776
Van egy ilyen rogzitett makrom:

Sub BeIr()

Range("C3").Select
Selection.Copy
Range("M2").Select
ActiveSheet.Paste
Range("F2").Select
Application.CutCopyMode = False
Selection.Copy
Range("F3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Range("M2").Select
ActiveSheet.Paste
Range("F2").Select
Application.CutCopyMode = False
Selection.Copy
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Stb....

Range("C4").Select és Range("F4").Select mindig 1-el nő egész 50-ig
Hogy lehetne ezt ciklusba foglalni, hogy ne kelljen egyesével zongorázni?


Jozsef Creative Commons License 2007.01.15 0 0 4775

Szerintem az Excel erre nem kínál biztonságos megoldást, csak magadat áltatod vele, ha jelszavas mentést használsz. Nagy az internet...

 

Azért ez sem teljesen igaz, ui. az újabb Excelekben File/Mentés másként ablak Eszközök/Beállítások menü Speciális gombra kattintva elő lehet hozni egy olyan dialógusablakot, amivel beállíthatod a titkosítás módszerét, akár erős 128 bites kulcsot is használhatsz, amivel az jelszótörő programok sem tudnak mit kezdeni.

Igaz, Te sem, ha elfelejted a jelszót :)

Üdv

József

Előzmény: Sánta Kutya (SK) (4767)
Jozsef Creative Commons License 2007.01.15 0 0 4774

Most próbálom a password-ös .xls filét, de nem nyitja meg autómatikusan, kéri a jelszót.

Pl. Így nyisd meg:

 

Workbooks.Open FileName:=adatfile, Password:="jelszo"

 

Üdv

József

Előzmény: Vacy (4768)
Törölt nick Creative Commons License 2007.01.15 0 0 4773

Elküldeném, csak nem tudom az e-mail címed.

Előzmény: ÁSZÁSZ (4772)

Ha kedveled azért, ha nem azért nyomj egy lájkot a Fórumért!