- Van, ahol már törvényben védik az agyhullámainkat
- ArchiCAD és Artlantis topik
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Synology NAS
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Már azelőtt szoftvert írnak a chipekhez, hogy elindulna a gyártás
- Aliexpress tapasztalatok
- Hálózati / IP kamera
- Windows 10
- Alternatív kriptopénzek, altcoinok bányászata
Új hozzászólás Aktív témák
-
Apollo17hu
őstag
Sajnos ez nálam hibaüzenetet generál.
Olyasmire gondoltam, hogy egy - a felhasználó által kiválasztott - Excel munkafüzet megnyitása után egy gomb megnyomásával pl. megvizsgáljuk, hogy az A1 cella értéke egyezik-e a B1 cella értékével. Persze az én makróm ennél azért összetettebb, de ez elég egyszerű lenne.
Tehát van egy Commandbuttonom, amire ha rákattintok, ez történik:Private Sub CommandButton1_Click()
If Cells(1, 1) = Cells(1, 2) Then
MsgBox ''Az A1-es és B1-es cellák tartalma egyezik.''
Else
MsgBox ''Az A1-es és B1-es cellák tartalma nem egyezik.''
End If
End Sub
Na, és azt lenne jó megcsinálni, hogy ne kelljen a felhasználónak külön Sajátgépben/Intézőben keresni a munkafüzetet, majd onnan megnyitva Excelben futtatni a makrót, hanem lenne egy exe-program, amin lenne egy ''Megnyitás'' gomb és egy másik gomb, ami a megnyitott Excel munkafüzet aktuális munkalapján futtatná le mondjuk a fenti A1 - B1 összehasonlítást.
A könyv, amit olvastam, ezt a kódot írja a ''Megnyitás'' gombra:Private Sub Command1_Click()
CommonDialog1.ShowOpen
End Sub
Viszont itt a program formjára nemcsak a ''Megnyitás'' gombot, hanem egy CommonDialog-ot is el kell helyezni, ugyanezzel a kóddal. Így a ''Megnyitás'' gombra kattintva előugrik egy új ablak, ahonnan ki lehet választani a megnyitandó fájlt. Csak az a gondom, hogy a fájlok nem nyílnak meg. Ide kéne még vmi parancs, csak erről már nem ír a könyv. -
lapa
veterán
válasz Apollo17hu #251 üzenetére
hát nemtom értem-e mit szeretnél, de ez tuti műkszik:
OpenDialog_Filter = ''Excel (*.xls), *.xls''
OpenDialog_Caption = ''Válassza ki a feldolgozni kívánt fájlt''
opendialog_selectedfile = Application.GetOpenFilename(OpenDialog_Filter, , OpenDialog_Caption)
Workbooks.Open Filename:=opendialog_selectedfile
csinál ''megnyitás'' ablakot és a kiválasztott fájlt megnyitja szépen. két aposztrófokat kicserélted macskakörömre? az előzőben volt egy sortörés is, ebből kivettem hátha az kavart be.
egyébként nem jó egy olyan megoldás, hogy az excelben csinálsz egy gombot neki és ahhoz rendeled hozzá a makrót? -
Apollo17hu
őstag
Kipróbáltam, macskaköröm is megvolt, de 404-es hibát kaptam.
Aopendialog_selectedfile = Application.GetOpenFilename(OpenDialog_Filter, , OpenDialog_Caption)
sorral van baja.
Csináltam két screenshotot, arról, amit valójában szeretnék:
Bővebben:� link <- ilyen most
Bővebben:� link <- ilyen lenne
Tehát Excelben meg tudom csinálni a parancsgombot(''összehasonlít'') (ezt tanultam is suliban, csak azért megy ), de az pofásabb lenne, ha ez a gomb egy exe-fájl formján lenne. (Bocsi, most vettem észre, hogy az egyik helyen ''összehasonlít'' van, a másikon meg ''összehasonlítás''. Természetesen a kettő funkciója ugyanaz lenne.)
Szerk.: Az első képen minden rendben, azt csak azért linkeltem, hogy egy hozzávetőleges ''ilyen most, ilyen lenne'' állapot legyen látható.
[Szerkesztve] -
lapa
veterán
válasz Apollo17hu #253 üzenetére
küttem mintafájlt mailen, mert nekem még mindig műxik.
-
corlagon
senior tag
Up!
Ujabb kihivas az Excel makrom elott:
Arra lenne szukseg egy adatbazisban, hogy az egyik oszlop azonos felvett ertekeire osszesitse a tobbi oszlop megfelelo soranak ertekeit.
Kb. mintha Accessbe feloltenem soronkent, es ha a sor 5. cellaja mar szerepel fenn, akkor a sor masik ertekeit ratolti a meglevo cellakra. Csak lehetoleg Access nelkul szeretnem lezavarni. -
corlagon
senior tag
Van egy tablazatom, 500 sorral. Minden sorban oszlopok: vevo, piac, akarmi1, akarmi2.... ezek utan 15 ertek oszlop. Elofordul, hogy a sor 4 elso cellajanak erteke u.a., de az ertek oszolpokban mindenfele szam van.
Azt szeretnem, hogy ha a egy sor elso 4 cellajanak u.a. erteke van, akkor 1 ilyen sor maradjon, es arra osszesitse az ertekoszlopokat.
Accessben meg lehetne, csak szeretnem kikerulni, mert importalni/exportalni kellene hozza (bonyolult+lassu).
Filterezessel es iteracioval talan Excelben is meg lehet, es akkor lazan beepitenem a makroba. -
shark70
csendes tag
Szükségem lenne valami programra, amivel vissza lehet fejteni Az Excelben a VBAProject Password-jét. Van valami őtletetek?
A jó pap is holtig tanul.
-
badbrother
aktív tag
Accessben írok egy kis programot, és meg kéne nyitnom egy adatbázist.
Eddig mindig így csináltam:
Dim dbs As Database
aztán ezzel a dbs-sel dolgoztam tovább.
De most nem csinálja az ''As'' után nem ajánlja fel a Database objektumot. Kipróbáltam egy régi alkalmazásban is, ugyanezen a gépen, abban gond nélkül müüködik.
Mi lehet a baja? -
scampi
csendes tag
Sziasztok! A következő kérdésem lenne. Visual basicben kellet írnom egy dll t amit egy másik program használ tulajdonképpen archiválásra. Ebből a progiból kellene nekem shareware verziót csinálnom ( x nap kipróbálási idő és/vagy y archiválás). Ha lejár az idő vagy elérte az előre meghatározott archiválások számát regisztrálnia kell. A regisztrációs részét már megoldottam egy fix kulcsot és egy egyirányú transzformációt használok. Erről persze, hogy ez eggyirányú fgv- e ill . fix kulcsos megoldás mennyire biztonságos (pl statisztikai alapú támadások ellen) lehetne vitatkozni. Szerintem ezzel nem lesz gond. Azonban hogyan tudnám elkerülni, hogy a registrybe írt, lejáratot meghatározó értékeket (titkosítottak) ne törölje. Jelenleg ártalmatlannak tűnő rejtett fájlokat teszek a windows könyvtáron belűlre. Ha nincs registry bejegyzés, de van/vannak fájlok lezár a program. Azonban ha megtalálja ezeket a fájlokat és azokat is törli a próba előröl kezdődik. Ez ellen nem lehet máshogy védekezni?
''Az optimista kijelenti, hogy a lehetséges legjobb világban élünk, a pesszimista tart attól, hogy ez igaz!'' Cabell
-
cs_gaborka
tag
A Windowsba ''szemetelés'' normál install esetén eléggé észrevehetetlen, igaz léteznek, elsősorban a problémás uninstall miatt, segédprogramok amelyek minden változást feljegyeznek, ha valaki egy ilyen segítségével telepít, az eltávolítás esetén megszabadul a ''rejtett'' fájloktól is. Megjegyzem, legalábbis az én véleményem az, hogy jogot csak a jog alapjain szabad(na) betartatni, annak jogossága viszont több mint kérdéses, hogy a felhasználónak egy uninstallt követően (szándékosan) fájlok maradnak a gépén, ezzel az Ő szabad merevlemez területe csökken (és itt a méret nem lényeges) lényegében a program forgalmazója ezzel értékcsökkenést okoz a számára... Visszatérve a kérdéshez, sajnos egy windows újratelepítés mindenképpen ''nullázza'' az elhasznált próbaidő. Szerintem azonban nem ez a legnagyobb probléma, egy keygen, és minden erőfeszítés hiába
-
Victorius
tag
Sziasztok!
Van egy kis ínyencségem a VB-guruk számára (illetve hát lehet, hogy nekik nem az, de nekem az volt).
Szóval van egy jó kis VBA-program, gondoltam belenézek a .dot-fájljába. Jelszó nem gond, megoldom. Hát, egyszerűen tüneményesen van megírva, utoljára C64-en láttam ilyesmit: kétkarakteres változónevek (és eljárásnevek is)... Az egész úgy van megírva, hogy egészen biztosan belezavarodjon az ember. Na nem baj, azért szöszmötölgetek benne, rájövök pár dologra, a végén gondolom, debuggolom egy kicsit: telerakom debug.printekkel.
Na most jön a poén: jönnek a kiírások az immediate-ablakba, úgy tűnik, minden rendben. Node amikor az a programrészlet (vagy programrészletek) kerül(nek) sorra, ami(k) igazán érdekel(nek), hirtelen az eredmény egy nagy rakás sz*r lesz: úgy tűnik, mintha valahogy belenyúlna a debug ablakba vagy elkódolja a karaktereket, hogy ne az kerüljön bele, aminek kellene.
Hogyan lehet ezt megcsinálni? És hogyan lehet védekezni ellene? -
scampi
csendes tag
válasz cs_gaborka #261 üzenetére
Nem egy windows reinstallara gondoltam, mert az ellen nem kívánok védekezni, ha neki megéri, hogy minden x edik használat után újrarakja vagy backup ból visszaállítja a win t, akkor legyen. Ennél az alkalmazásnál nincsen install/uninstall. Itt csupán egy dll importálásáról van szó egy másik alkalmazásba. Ha regisztrálja törlődnek a rejtett fájlok. Arra lettem volna kíváncsi van e más bevett módszer nem csak a ''szemetelés''. A kulcs, a transzformáció pedig szerintem semmiképpen nem törhető egyszerüen (bár ez nézőpont kérdése).
[Szerkesztve]''Az optimista kijelenti, hogy a lehetséges legjobb világban élünk, a pesszimista tart attól, hogy ez igaz!'' Cabell
-
@ngel
tag
Üdv!
Egy egyszerű programra lenne szükségem, de sajnos én nem tudom elkészíteni!
Adott 300 kép (jpg) és ezek közül kéne mindig 8-9 képet vetíteni.
Tehát a programnak annyit kellene tudnia, hogy van 10 rubrika, amibe be lehetne írni a képek számait, és azután azokat mintegy diavetítő lejátszani, és mondjuk space-szel léptetni! Tudna valaki segíteni? Egy jó programozónak ez kb 5 perc meló! Pls help!I don't worry about what I don't know - I worry about being sure about what I do know. - Warren Buffett
-
Surda
tag
Sziasztok!
Az a kérdésem, hogy tudom megállapítani makróval, hogy mi az őt tartalmazó Excel tábla elérési útja?A garancia meg... ha a címke meg...
-
koovyy
tag
Üdv Mindenkinek!
Egy kérdésem lenne Visual Basic-kel kapcsolatban. Készítettem egy egyszerű programot, mely tartalmaz Data Report-okat. Kérdés, hogy hogyan tudom azt megoldani, ha a Data Reportom, vagyis ami kinyomtatásra kerül az több oldal, de amikor a program fut a Data Reportnak csak az első oldala jelenik meg, és nem tudok az oldalak között lapozni.
Előre is kösziMicrosoft filozófia: ''Ha már jó nem lett, legyen nagy!''
-
sonar
addikt
Vki segítsen ki egy példával amiben használnak List v Combo Box-ot!
Átnyálaztam azt a rohadt kék könyvet és nincs bent!!!
Viszont csináltam egy egyszerü hiperterminalt amibe azért macerás lenne gombokkal meg kiválasztókkal beállítani a paramétereket.A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
[HUN]Zolee
senior tag
hogy lehet Vb. Net be grafikus képernyőr rábírni , hogy pixelbe számoljon?
találtam olyat, hogy GraphicsUnit.Pixel , de nemtom hogy használjam.
MSDN en se találtam''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
Rez_Grof
őstag
Hi All!
Olyan problémám lenne, hogy van egy excel táblám amiben a név,város, utca mezők egymás alatt vannak és csomó nem szükséges adattal egyetemben, de nekem úgy kellenének, hogy egy más mellett vannak. De mivel jó hosszú a lista ezért kellene valami VBA rutin ami ezt nekem gyönyürűen megcsinálja. És a fölösleges sorokat törli.
De mivel az életbe nem programoztam VBA-ba ezért nem nagyon tudom hogy ehhez egyáltalan hogy kellene hozzá kezdeni.
Thx!A bus station is where a bus stops. A train station where a train stops. On my desk, I have a work station....
-
rdi
veterán
Üdv, elég nagy problémam van: egy excel táblázatban vannak nevek és utcák és házszámok. Ezt kellene valahogy egy koordináta szerint felosztott térképen ábrázolnom, de ehhez nekem fgom sincs. Legalább az elvét meg kellene, hogy értsem, aztán megpróbálnám megcsinálni...
Először áttettem az egész listát accesbe, de akkor meg valamiféle utcanév - koordináta adatbázisra is szükségem lenne,Fej! Tor! Potroh!
-
[HUN]Zolee
senior tag
A pascalban használt delay(x) (várakozás,késleltetés) utasatásnak mi a megfelelője VB.net-ben vagy 6.0 ban?
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
lapa
veterán
válasz [HUN]Zolee #274 üzenetére
wait? legalábbis vba-ban. vbs-ben sleep. keress rá hátha vmelyik ezek közül.
-
lapa
veterán
válasz Rez_Grof #271 üzenetére
az ilyeneket legközelebb szerintem az excel makró totyikba dobd be, legalábbis én pl. azt inkább nézem mint ezt. ehune Bővebben: link
-
Diskcopy
tag
válasz [HUN]Zolee #277 üzenetére
pedig úgy kell..
Private Declare Sub Sleep Lib ''kernel32''
(ByVal dwMilliseconds As Long)
aztán meg Sleep 1000mondjuk...
[Szerkesztve] -
[HUN]Zolee
senior tag
válasz Diskcopy #278 üzenetére
Hy. Lécci ha tudsz keress meg majdvagy msn-en vagy küldj egy példaprogit a sleep parancs használatára, mert valahogy nem akar menni
msn en csak este leszek.''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
Diskcopy
tag
válasz [HUN]Zolee #279 üzenetére
Hello!
Bővebben: link itt elég jól kivesézik. Amúgy nem értem miért nem megy neked, semmi extra nincs benne. -
Diskcopy
tag
válasz [HUN]Zolee #281 üzenetére
Na de errort kapsz, vagy csak simán nem tölt el időt?
esetleg ha call-t is tennél elé? bár nem hiszem.
Private Declare Sub Sleep Lib ''kernel32'' (ByVal dwMilliseconds As Long)
Sub Command1_Click()
Call Sleep(1000)
End Sub -
[HUN]Zolee
senior tag
senkinek semmi ötlete?
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
Diskcopy
tag
válasz [HUN]Zolee #284 üzenetére
System.Threading.Thread.Sleep(1000) 'Egy másodperces várakozás.
-
[HUN]Zolee
senior tag
válasz Diskcopy #285 üzenetére
kösz működik
És arra nemtudod hogyan lehet .Net ben pixel alapúvá tenni a rajzfelületet? Vagyis hogy pixelkben lehessen megadni a koordinátákat?''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
Diskcopy
tag
válasz [HUN]Zolee #286 üzenetére
Nincsmit.
Nem igazán értem mire gondolsz.. Rajzolni akarsz a formra mondjuk?
MSDNből kódrészlet:
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawLine(myPen, 0, 0, 200, 200)
myPen.Dispose()
formGraphics.Dispose() -
[HUN]Zolee
senior tag
válasz Diskcopy #287 üzenetére
rajzolás az megy. Csak az a baj, hogy a rajzoló utasításoknál megadott adatok, nem pixeleket jelölnek. pl. ha csinálsz egy 200x200 pixeles fromot és rá egy 200x200 es négyzetet, akkor a négyzet kilóg a formról és cska egy 191x191 es négyzet fér el benne.
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
Diskcopy
tag
válasz [HUN]Zolee #288 üzenetére
hello!
Lehet hülye kérdés, de Me.ClientSize.Width, Me.ClientSize.Height -et használsz ugye?
Ollóztam egy kódot netről:
Dim gr As Graphics = Me.CreateGraphics()
Dim ellipse_brush As New HatchBrush( _
HatchStyle.BackwardDiagonal, _
Color.Blue, Me.BackColor)
gr.FillEllipse(ellipse_brush, 0, 0, _
Me.ClientSize.Width, Me.ClientSize.Height)
Dim ellipse_pen As New Pen(Color.Red, 5)
gr.DrawEllipse(ellipse_pen, 0, 0, _
Me.ClientSize.Width, Me.ClientSize.Height)
hasonlóképp csinálod? Mert VB6ban volt az, hogy nem pixel alapú a dolog, .netben áttértek a formnál+contoloknál is pixel alapra ha jólttudom. -
[HUN]Zolee
senior tag
válasz Diskcopy #289 üzenetére
Nem így csináltam, mert amit te csináltál, az egy dinamikus rajzolás,, tehát a flipszis mérete függ a from nagyságától, ami nekem kéne, az meg hogy egy fix alagzat legyen az oldalon, tehát kb így :
Dim gr As Graphics = Me.CreateGraphics()
Dim ellipse_brush As New HatchBrush( _
HatchStyle.BackwardDiagonal, _
Color.Blue, Me.BackColor)
Me.ClientSize.Width=200
Me.ClientSize.Height=200
gr.FillEllipse(ellipse_brush, 0, 0, _
200, 200)
Dim ellipse_pen As New Pen(Color.Red, 5)
gr.DrawEllipse(ellipse_pen, 0, 0, _
200, 200)
És így se szélességre, se hosszúságra nem fér el (igaz én ezt tégalappal néztem meg, mert ott jobban llátszik a körvonal hiányából).''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
Diskcopy
tag
válasz [HUN]Zolee #290 üzenetére
Elméletileg pedig így kéne, no de én abszolut nem vagyok Vb expert, sőt nem szeretem a vbt(nagyon nem ) de azért nézz körül itt, hátha: Bővebben: link ha nem sikerül, akkor majd valaki más kisegít
-
sonar
addikt
VB hez adatbázis kezelésről nincs vkinek doksija?
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
válasz [HUN]Zolee #288 üzenetére
Persze, mert a Formnak van kerete (fejléc, lábléc,meg ha jól tudom a scroll barokat is beleszámolja)
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
[HUN]Zolee
senior tag
Amikor ablakváltás van, akkor a graphics osztály áltaál használta fügvények eredményei eltűnnek a form-ról
Melyik tulajdonságot kell állítani?''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
[HUN]Zolee
senior tag
fel
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
Surda
tag
Hali!
Újabb kérdésem van (az előzőt megoldottam másképp ):
VB 6.0-ban írok Excel makrókat. Azt hogy tudom megcsinálni, hogy a felhasználó, aki megnyitja a munkafüzetet, ne lásson bizonyos munkalapokat, de a program el tudja érni? Ha az Excel-lel elrejtem a lapot, akkor a makróban sem tudok átváltani rá, mert
Sheets(''akármi'').select-re ez a hibaüzi jön:
Run-time error '1004':
Worksheet osztály Select metódusa hibásA garancia meg... ha a címke meg...
-
lapa
veterán
mert az activate, nem select.
a problémádra: lehet esetleg lapfüleket elrejteni mikor megnyitod a munkafüzetet, felvétel gommbal lenézed az eszközök --> beállításokból. kicsit barkács mondjuk, meg vissza kell rakni close-nál. meg ctrl+pgup /ctrl+pgdn még mindig műkszik. rakd esetleg más fájlba.
btw: excel makrós totyik [link] -
Surda
tag
Köszi! Azóta sikerült máshogy megoldani.
Most viszont az a gondom, hogy máshol nem fut a makró. Végigfuttattam lépésenként a userrel, és ezt a hibát írja ki:
Compile error:
Can't find project or library
Ez egy Str() függvénynél jön elő. Ezt nagyon nem értem. Nem találja azt a komponens-könyvtárat,
amiben az Str() van? Én azt hittem, hogy ez alap, a Visual Basic gyári függvénye.
A Referenciák között kell valamit hozzáadni esetleg?
Nálam ez van:
Windows 2000 SP4
Office 2000 SP3
A kollégám gépén ugyanezek, és ott fut is hibátlanul a progi. Ahol nem fut, ott XP van, és Office
2003.A garancia meg... ha a címke meg...