Keresés

Részletes keresés

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)
ÁSZÁSZ Creative Commons License 2007.01.14 0 0 4772

Hello DJCarlos!

 

Már megint én!

Próbálkozom erősen, de valamit nagyon rosszul csinálok.

Nem tudnál egy excel táblát elküldeni, amiben fut ez a makró. Tehát van egy oszlop, ahová számokat írok, és mellette automatikusan megjelnik ugyanaz beűvel.

Köszi

Törölt nick Creative Commons License 2007.01.14 0 0 4771

Ha be lett másolva a makróba a betuvel függvény, akkor pl. így lehet használni:

 

Sub Rögzítés1()

Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = betuvel(ActiveCell.Value)
End Sub

 

Ez az aktív cellalával szomszédos cellába írja betűvel  a számokat.

Lehet a makróhoz hozzá egyparancsgombot csinálni, pl. az űrlap eszköztárról a Gombbal, a gombhoz pedig a fenti makrót rendelni. Előszőr a számcellára állva, majd a gomra tattintva elvégzi az átalakítást. 

Előzmény: Törölt nick (4770)
Törölt nick Creative Commons License 2007.01.14 0 0 4770
Az úgy nem jó, ne a sub end sub belsejébe másold be a functiont, hanem azon kívülre. A subból majd meg lehet hívni a függvényt.
Előzmény: ÁSZÁSZ (4769)
ÁSZÁSZ Creative Commons License 2007.01.14 0 0 4769

Köszi DJCarlos, sokat segítettél!

 

Stromba, neked is ezer hála, de kellene még egy kis segítség "a gyengébbek kedvéért". Ez lennék én.

 

Próbáltam alkalmazni az általad elküdött cuccost, a Tiba félét.

Én megnyitottam egy üres táblát, ráálltam egy cellára, amelyikben szeretném betűvel látni a számot, majd

 

Eszközök/Makró/Makrók

-megadtam a makrónevet - szam

-rámentem a létrehozásra

-megjelent a Visual Basic és benne a Sub szam alatta End Sub

-közéjük bemásoltam az általad elküldötteket a

Function betuvel(eredeti_szam As Double) -tól a

End Function -ig.

 

bezárásnál mentést ajánl. Adtam neki egy nevet, de nem tudom futtatni.

Ráadásul kiírja Compile error: Expected End Sub.

 

Mit csinálok rosszul? Lehet, hogy az egészet? Nem vagyok otthon a makrók terén.

Tudsz segíteni?

 

Vacy Creative Commons License 2007.01.14 0 0 4768

Nem 100%-os megoldásra gondolok, nem kell profizmustól félnim az adatok sem érnek aranyat. Csak az első ötlettel ne lehessen belejavítani a fájlba.

 

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

 

Ötletek?

Előzmény: Sánta Kutya (SK) (4767)
Sánta Kutya (SK) Creative Commons License 2007.01.14 0 0 4767
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...
Előzmény: Vacy (4765)
Törölt nick Creative Commons License 2007.01.14 0 0 4766

2.a)-hoz: ha T a törlesztendő teljes összeg, n a hónapok száma:

Az első részlet képlete:

=(CSONK(T/n)+(T/n-CSONK(T/n))*n)

a többi részlet:

=CSONK(T/n)

 

(Ebből a teljes T összeg =  első részlet + (n-1)*többi részlet.)

 

Előzmény: ÁSZÁSZ (4761)
Vacy Creative Commons License 2007.01.14 0 0 4765

Köszi, Jozsef!

 

Nagyon jól működik.

 

Lenne még egy kérdés, szertnék adatokat tárolni titkosított fáljban (jelszó, vagy egyszerű titkosítás), amit a makró beolvas és használ.

 

Előzmény: Jozsef (4714)
stromba Creative Commons License 2007.01.14 0 0 4764
Előzmény: ÁSZÁSZ (4761)
stromba Creative Commons License 2007.01.14 0 0 4763
Előzmény: ÁSZÁSZ (4761)
ÁSZÁSZ Creative Commons License 2007.01.14 0 0 4762
azonosító hossz megjegyzés 8888888888 10 0 22222 5 HIBA 3333333333 10 0

 

Itt egy tábla részlet. Az azonosítót mindig én adom meg, egy kikötés van: pontosan 10 karakter lehet. Megadtam két segédoszlopot. Az egyik megszámolja, hogy hány karakter az azonosító, és számmal beírja. A következő oszlop, ha eltérést észlel, beírja, hogy HIBA. Ez a két oszlop rejtett.

 

Kérdés, hogyan tudom egy megjelenő kis ablakba kiíratni, hogy például "Hiba az azonosító oszlop 2. sorában. Javíts!"?

 

köszi

ÁSZÁSZ Creative Commons License 2007.01.14 0 0 4761

Kérdés:

 

1) Excelben hogyan tudom megoldani, hogy egy adott oszlopban lévő szám, egy másikban betűvel legyen kiírva? (Csak a pozitív egész számok érdekelnek)

 

2)

a)      Van egy tartozás, és megvan, hogy hány hónap alatt kell megfizetni. Ezek mindig változnak. A legtöbb esetben, ha a tartozást beosztom a hónapok számával nem egész szám jön ki. Ezért mindig szükség van egy eltérő részletösszegre, ez legyen az első részlet, és a további részletek összege egyforma legyen, ez legyen a további részletek összege. b)      Ráadásul a táblázat adatait egy word doc. adatforrásaként akarom felhasználni. Hogyan tudom megtenni, hogy egymás alatt jelenjen meg.

 

Pl.

Esedékesség                                törlesztő részlet

 

Első esedékesség                         első részlet

Második esedékesség                  további részlet

Harmadik esedékesség                további részlet

 

Itt bejön kérdésként, hogy ha megadom az első esedékesség napját, meg tudom-e csinálni, hogy utána minden hónap ugyanazon napját adja esedékességnek, annyiszor, ahány hónap meg van adva.

 

A végeredmény az kellene, hogy legyen, hogy pl. 91000Ft tartozás megfizetésének ütemezése az alábbi legyen:

 

Esedékesség                                törlesztő részlet

2007.03.15                                 31.000

2007.04.15                                 30.000

2007.05.15                                 30.000

 

(Az nem baj, ha nem kerek a szám, tehát nyugodtan lehet 31.333Ft is.)

 

 

 

 

Törölt nick Creative Commons License 2007.01.11 0 0 4760
Ok, kösz megpróbálom megkeresni, mert az enyém csak 10-20%-os hibalehetőségekkel működik.
Előzmény: Jozsef (4759)
Jozsef Creative Commons License 2007.01.11 0 0 4759

Szia!

 

Ez a feladat már előkerült egyszer, a hozzászólásaim között megtalálod a megoldást.

Jó bonyolult, méteres képlet :)

Üdv

József

Előzmény: Törölt nick (4758)
Törölt nick Creative Commons License 2007.01.11 0 0 4758
Tök jó lenne ha lenne egy képlet, ami kiválasztja egy tömbből az utolsó/első (akár adott kritériumnak megfelelő) számot...
De sajna ilyesmiről megfeledkeztek...
Előzmény: Törölt nick (4757)
Törölt nick Creative Commons License 2007.01.11 0 0 4757
Halihó!
Bedobnék egy feladatot, képletes megoldást csak nagyon bonyolultat találtam, talán van valami egyszerűbb is:
"A" oszlopban tételszámok
1. Sorban aktuális hónap dátumai növekvő sorrendben.
A mátrixban pedig mennyiségek szerepelnek - tehát a dátum/tételszám metszeteiben.
Arra van szükség, hogy egy másik munkalpon ha beírom a tételszámot, akkor dobja ki, - a tételszámok sorában megtalálja azt a mennyiséget, ami utoljára érkezett be.
pl: 405132---------10000-------500-------3000
Tehát itt ki kell keresnie (dátum alapján) a 3000-ret a 405132 alapján. Ahol nem (még) érkezett semmi, ott mindig 0 van.
Erzsébeti Creative Commons License 2007.01.11 0 0 4756
Köszönöm!:))
Előzmény: Törölt nick (4755)

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