Keresés: - Visual Basic - Fototrend Hozzászólások

LOGOUT témák

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

Keresés

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

matekmatika tag

#446
#445 lapa
2006-05-12 17:30:50

Új Válasz
Ú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

matekmatika

tag

#445 lapa

#445 lapa
if isnumeric(szam) then

de ha az excel makrós totyikba írod látom...

Köszi, működik. (pedig meg voltam győződve hogy már így is próbáltam, de ezek szerint mégse...)
Jester01 veterán

#401
#400 lapa
2006-04-07 20:44:38

Új Válasz
Ú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

Jester01

veterán

#400 lapa

#400 lapa
küzdöttem egy kört mire megtaláltam de emlékeztem, hogy nem kell ciklusozni...

ActiveCell.CurrentRegion.Rows.Count
ActiveCell.CurrentRegion.columns.Count
vagy fixen cells(1,1).CurrentRegion.Rows.Count

Én aztán nem értek hozzá, de az oldalon amit fentebb linkeltem többek között ezt írják:
The Range object's CurrentRegion property is not the best either because non-contiguous or incomplete records can cause an inaccurate reading of the number of used rows.
sonar addikt

#355
#352 lapa
2006-03-01 11:10:40

Új Válasz
Ú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

sonar

addikt

#352 lapa

#352 lapa
nemtom érdekes-e még, de én (vba-ban) a futás kezdetekor benyomtam az időt egy változóba, majd a végén kivontam az éppen aktuális időből. ez segít talán.

Közben rájöttem, hogy hogyan kell timerrel időt mérni.
Ha majd kicsit többet leszek neten megirom most csak épp bekukkantottam.
Azért kösz
lapa veterán

#353
#352 lapa
2006-02-28 11:14:28

Új Válasz
Ú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

lapa

veterán

#352 lapa

#352 lapa
nemtom érdekes-e még, de én (vba-ban) a futás kezdetekor benyomtam az időt egy változóba, majd a végén kivontam az éppen aktuális időből. ez segít talán.

lemaradtam, itt a kód:

kezdoido = Now 'elején megadtam a mostot.

itt sokáig futik valami...

MsgBox '' összesen '' & DateDiff(''s'', kezdoido, Now) & '' másodperc telt el.'' 'végén kivontam.
sonar addikt

#334
#332 lapa
2005-12-06 09:04:14

Új Válasz
Ú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

sonar

addikt

#332 lapa

#332 lapa
azért ennél iparibb, gizikeállóbb megoldásra van szükségem. pláne nem akarok pittyegtetni vele a scannelésen kívül 500 dokumentumot. nagy megkönnyebbülésemre találtam azóta franyesz programot rá, jó kis multifunkciós gépen lapadagolóval egy megosztott könyvtárba mennek a fileok, az app meg figyeli a könyvtárat és átnevezi a doksikat vonalkód-alapon. elvégre 21. század. ettől függetlenül elkezdem ezt a kommand-bigyót csinálni, meglátjuk mire jutok. már van helloworldöm

[Szerkesztve]

Az én egoldásomat is lehet bolondbiztossá tenni.
Bár nekem azt mondták bolondoknak nem kell programot csinálni.
sonar addikt

#331
#327 lapa
2005-12-02 16:20:29

Új Válasz
Ú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

sonar

addikt

#327 lapa

#327 lapa
tehát van egy vonalkód-felismerő szoftver, amihez adnak felismerő dll-t, ocx-et meg miegymást. adnak hozzá egyszerű tesztalkalmazást forráskóddal x+1 nyelvre. egy ilyet linkeltem be fent. ha lefordítom, akkor ez egy form, amiben ki lehet választani a fájlt (tif, bmp...) és alul kiírja a fájlban felismert vonalkódból dekódolt szöveget.

namost nekem nem kell form meg gombok, hanem elég lenne pl. egy parancssoros cucc, aminek a paraméterében megadnám a fájlnevet és valahogy (ez mondjuk nem tiszta) visszaadná a kiolvasott értéket. hétköznapi nyelven: van 20 doksim, és végigloopolnék egy scripptel rajtuk, ami elindítja minden fájlnál ezt a commandline cuccot, majd a scriptnek visszaadott érték alapján a script átnevezné a fájlt.

odáig kábé megvagyok, hogy a program dll-jének vannak bemeneti paraméterei és ezeket kéne megadni, de pl. visual basic express-ben már elakadok. új projekt --> commandline app --> kapok egy ''Main''-t. ez szép és jó, de fingom nincs hogyan mondom meg neki a fájlnevet bemeneti paraméterként. ehhez pl. jól jönne egy minta, pl. cmdapp.exe /message ''helloworld'' /type ''vbcritical'' adjon ki egy ''helloworld'' messageboxot nagy piros x-szel (csak hogy ne egy paraaméterről beszéljünk hamár...).

No ember mondom mit próbálj meg:
nyitsz egy szimpla tök üres fájlt és pittyegetsz a vonalkóddal azt szépen oda pakolja(v egy textbox) mindig új sorba.
Ha irsz egy fájlkezelő progit ami szépen sorba olvassa be a szöveget már kész is a feladat nagyrésze.
És nem kell túlbonyolítani a dolgokat.

[Szerkesztve]
Jester01 veterán

#330
#329 lapa
2005-12-01 18:15:40

Új Válasz
Ú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

Jester01

veterán

#329 lapa

#329 lapa
tehát eszerint args = ''valami'';''valamimás'' , ha a parancs cmdline.exe valami valamimás

csak hogy jól értem-e. és akkor args(index) lesznek az egyes paraméterek? még emésztem de köszi, helloworld után jövök.

Igen.
Jester01 veterán

#328
#327 lapa
2005-12-01 18:07:22

Új Válasz
Ú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
Jester01

veterán
#327 lapa

#327 lapa
tehát van egy vonalkód-felismerő szoftver, amihez adnak felismerő dll-t, ocx-et meg miegymást. adnak hozzá egyszerű tesztalkalmazást forráskóddal x+1 nyelvre. egy ilyet linkeltem be fent. ha lefordítom, akkor ez egy form, amiben ki lehet választani a fájlt (tif, bmp...) és alul kiírja a fájlban felismert vonalkódból dekódolt szöveget.

namost nekem nem kell form meg gombok, hanem elég lenne pl. egy parancssoros cucc, aminek a paraméterében megadnám a fájlnevet és valahogy (ez mondjuk nem tiszta) visszaadná a kiolvasott értéket. hétköznapi nyelven: van 20 doksim, és végigloopolnék egy scripptel rajtuk, ami elindítja minden fájlnál ezt a commandline cuccot, majd a scriptnek visszaadott érték alapján a script átnevezné a fájlt.

odáig kábé megvagyok, hogy a program dll-jének vannak bemeneti paraméterei és ezeket kéne megadni, de pl. visual basic express-ben már elakadok. új projekt --> commandline app --> kapok egy ''Main''-t. ez szép és jó, de fingom nincs hogyan mondom meg neki a fájlnevet bemeneti paraméterként. ehhez pl. jól jönne egy minta, pl. cmdapp.exe /message ''helloworld'' /type ''vbcritical'' adjon ki egy ''helloworld'' messageboxot nagy piros x-szel (csak hogy ne egy paraaméterről beszéljünk hamár...).
Dim CmdLine As String
CmdLine = Command()
Dim Args As String()
Args = CmdLine.Split('' '')

Innetől kezdve az Args tömbben szóközzel határolt argumentumok vannak.
Ha szóköz is lehet az argumentumban, akkor kénytelen leszel magadnak értelmezni a parancssort.
sonar addikt

#326
#306 lapa
2005-12-01 16:09:33

Új Válasz
Ú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

sonar

addikt

#306 lapa

#306 lapa
üdv. kéne írnom egy olyan alkalmazást, ami felismert vonalkódok alapján egy file-listát átnevez. van dll meg ocx meg mittomén milyen könyvtár hozzá.

ha egy mód van rá maradnék vbs-nél (ha jóltom a com-ot meg lehet etetni vele), de ha nem megy akkor küzdök visual basic express-szel.

először vbs: szal vannak a következő fileok, amit a vonalkódfelismerő cucchoz adtak:

Form1.frm
Project1.vbp
Project1.vbw

tehát odáig megvagyok, hogy filesearch-elek a könyvtáron. de hogyan hívom meg a könyvtárat? meg hogyan adok neki változókat, amiket kér? ha segít itten egy zipben a fájlok: [link]

most elkezdek küzdeni ezzel az express-szel ettől függetlenül, ha valaki mutatná legalább az irányt megköszönném.

Nem egészen értem mit akarsz.
Egy vonalkód olvasó ismeri fel a fájlokat és az szortírozza?
Surda tag

#300
#299 lapa
2005-11-11 09:47:17

Új Válasz
Ú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

Surda

tag

#299 lapa

#299 lapa
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]

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.
[HUN]Zolee őstag

#277
#275 lapa
2005-10-06 06:12:31

Új Válasz
Ú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

[HUN]Zolee

őstag

#275 lapa

#275 lapa
wait? legalábbis vba-ban. vbs-ben sleep. keress rá hátha vmelyik ezek közül.

sajna egyik se hozott eredényt
corlagon senior tag

#257
#256 lapa
2005-08-17 11:50:56

Új Válasz
Ú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

corlagon

senior tag

#256 lapa

#256 lapa
ezt nem értem.

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.
Apollo17hu őstag

#253
#252 lapa
2005-07-26 19:01:01

Új Válasz
Ú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
Apollo17hu

őstag
#252 lapa

#252 lapa
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?
Kipróbáltam, macskaköröm is megvolt, de 404-es hibát kaptam.
A
opendialog_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]
Apollo17hu őstag

#251
#249 lapa
2005-07-25 01:27:53

Új Válasz
Ú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
Apollo17hu

őstag
#249 lapa

#249 lapa

OpenDialog_Filter = ''Szöveges fájlok (*.txt), *.txt''
OpenDialog_Caption = ''Válassza ki a feldolgozni kívánt fájlt''
OpenDialog_SelectedFile = _
Application.GetOpenFilename(OpenDialog_Filter, , OpenDialog_Caption)

...

Workbooks.OpenText Filename:=OpenDialog_SelectedFile

ez mondjuk txt-t nyit. vagy valami másra gondoltál?
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

#75
#74 lapa
2004-10-26 09:46:58

Új Válasz
Ú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

lapa

veterán

#74 lapa

#74 lapa
ez féloff, mert vbs (!), de ide teszem fel.

1. tudok fuction-t beágyazni vbs-be? tehát olyan programrészt, amit aztán csak meghívok, amikor kell.

2. műxenek a common dialog-ok (open file, mittomén) vbs-ben? ha igen, vki meg tud dobni egy sampléval esetleg? köszi

[Szerkesztve]

upsz.