- lezso6: Nem látszik a kurzor Chrome alatt a beviteli mezőkben?
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Gurulunk, WAZE?!
- sziku69: Szólánc.
- eBay-es kütyük kis pénzért
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
- gban: Ingyen kellene, de tegnapra
- Argos: Szeretem az ecetfát
Új hozzászólás Aktív témák
-
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. -
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
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ás -
#297
[HUN]Zolee
őstag
[HUN]Zolee
őstag
fel
-
#295
[HUN]Zolee
őstag
[HUN]Zolee
őstag
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? -
#294
sonar
addikt
[HUN]Zolee
#288
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)
-
#291
Diskcopy
tag
[HUN]Zolee
#290
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 -
#290
[HUN]Zolee
őstag
Diskcopy
#289
[HUN]Zolee
őstag
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). -
#289
Diskcopy
tag
[HUN]Zolee
#288
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. -
#288
[HUN]Zolee
őstag
Diskcopy
#287
[HUN]Zolee
őstag
-
#287
Diskcopy
tag
[HUN]Zolee
#286
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() -
#285
Diskcopy
tag
[HUN]Zolee
#284
Diskcopy
tag
válasz
[HUN]Zolee
#284
üzenetére
System.Threading.Thread.Sleep(1000) 'Egy másodperces várakozás.
-
#284
[HUN]Zolee
őstag
[HUN]Zolee
őstag
senkinek semmi ötlete?
-
#282
Diskcopy
tag
[HUN]Zolee
#281
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 -
#280
Diskcopy
tag
[HUN]Zolee
#279
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. -
#278
Diskcopy
tag
[HUN]Zolee
#277
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] -
#275
lapa
veterán
[HUN]Zolee
#274
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.
-
#274
[HUN]Zolee
őstag
[HUN]Zolee
őstag
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?
-
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,
-
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! -
#270
[HUN]Zolee
őstag
[HUN]Zolee
őstag
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 -
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öszi -
@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! -
#264
scampi
csendes tag
cs_gaborka
#261
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] -
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? -
#261
cs_gaborka
tag
scampi
#260
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
-
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?
-
#259
badbrother
aktív tag
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? -
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. -
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. -
#254
lapa
veterán
Apollo17hu
#253
lapa
veterán
válasz
Apollo17hu
#253
üzenetére
küttem mintafájlt mailen, mert nekem még mindig műxik.
-
#253
Apollo17hu
őstag
lapa
#252
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] -
#252
lapa
veterán
Apollo17hu
#251
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? -
#251
Apollo17hu
őstag
lapa
#249
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. -
#249
lapa
veterán
Apollo17hu
#248
lapa
veterán
válasz
Apollo17hu
#248
üzenetére
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? -
#248
Apollo17hu
őstag
Apollo17hu
őstag
Hali!
Írtam Excel-ben egy makrót. Meg lehet azt oldani, hogy VB-ben írok egy olyan programot, aminek egy CommandButton-jéra rákattintva megjelenik egy megnyitás ablak, és az abban kijelölt (xls-)fájl megnyílik? (Megnyitás ablakot és kijelölést könyv segítségével sikerült megcsinálnom, de magát, a fájl megnyitását nem.) Ezután a makró futtatását egy másik CommandButton-nel el lehet indítani? Ha igen, hogyan? -
corlagon
senior tag
Sracok, egyszeru kerdesem lenne, marmint VB profiknak lesz egyszeru:
Excel makro a tema, ami Pivot table-t gyart egy sheetbol.
Itt a lenyeg:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
''xxx!R1C1:R100C85'').CreatePivotTable TableDestination:='''', TableName:= _
''PivotTable1''ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
A SourceData-ba valtozot kene bevinnem a RC-fele direkt hivatkozas helyett, de hogyan? Range vagy Variant tipusu definialt valtozot (meg ha a range-t jol is tartalmazza), nem fogad el.
[Szerkesztve] -
Surda
tag
Sziasztok. Egy egyszerű kérdésem van. Excelben hogy tudom azt megcsinálni, hogy egy munkafüzet megnyitásakor automatikusan elinduljon egy Form? Így próbáltam:
Sub auto_open()
Run UserForm1
End Sub
...de azt írja:
Run-time error '450': Wrong number of arguments or invalid property assignment. -
#235
F-ECT$
titán
[HUN]Zolee
#234
F-ECT$
titán
válasz
[HUN]Zolee
#234
üzenetére
Egérrel
![;]](//cdn.rios.hu/dl/s/v1.gif)
Amúgy meg: Bővebben: link
''This program uses the ClientToScreen API function to convert the target coordinates from the screen's coordinate system to the screen's coordinates system. It then uses the SetCursorPos API function to move the mouse there. ''
Sub MoveMouse(x As Single, y As Single)
Dim pt As POINTAPI
pt.x = x
pt.y = y
ClientToScreen hwnd, pt
SetCursorPos pt.x, pt.y
End Sub -
#233
muad_dib
tag
[HUN]Zolee
#232
muad_dib
tag
válasz
[HUN]Zolee
#232
üzenetére
en ezeket type-pal szoktam...
type myType
id as integer
data as string
end type
dim myDataArray() as myType
annyi, hogy a formon vagy modulban kell a type-ot deklaralni, eljarasban/fuggvenyben nem megy, es termeszetesen letezik private ill public fajtaja is
[Szerkesztve]
[Szerkesztve] -
#231
F-ECT$
titán
[HUN]Zolee
#230
F-ECT$
titán
válasz
[HUN]Zolee
#230
üzenetére
Record? Adatbázis rekordra gondolsz?
-
#230
[HUN]Zolee
őstag
[HUN]Zolee
őstag
Hogy lehet record változót deklarálni?
-
#227
Apollo17hu
őstag
[HUN]Zolee
#226
Apollo17hu
őstag
válasz
[HUN]Zolee
#226
üzenetére
Igen, azt vágom, h a tizedesjel VBA-ban a ''.''. Csak amikor '',''-t írtam, ezexerint a szövegként értelmezett számból az egészrészét tartotta meg.
-
#226
[HUN]Zolee
őstag
Apollo17hu
#225
[HUN]Zolee
őstag
válasz
Apollo17hu
#225
üzenetére
A Val fügvénynél a . (pont) a tizedesvesző a számoknál.
-
#225
Apollo17hu
őstag
[HUN]Zolee
#224
Apollo17hu
őstag
válasz
[HUN]Zolee
#224
üzenetére
Köszi, akkor már értem azt is, h ilyenkor a tizedesvesszős értékekkel miért tudtam néha számolni.
-
#224
[HUN]Zolee
őstag
Apollo17hu
#222
[HUN]Zolee
őstag
válasz
Apollo17hu
#222
üzenetére
szövegből számot csinál
Val(szöveges változó)
csak addig nézi amíg azámoz talál amit az első szövegkarakter megjelenik, abbahagya a számmá alakítást, és az addig talált számod adja vissza -
#223
Apollo17hu
őstag
Apollo17hu
#222
Apollo17hu
őstag
válasz
Apollo17hu
#222
üzenetére
ja, érték... -.-
-
#222
Apollo17hu
őstag
Apollo17hu
őstag
Mit jelent a ''Val''?
Pl. ez mit csinál a változóval: Val(<változó>) ? -
#221
[HUN]Zolee
őstag
[HUN]Zolee
őstag
Hogyan lehet több listbox-ot egyszerre görgetni ?
-
Victorius
tag
-
T_bee
aktív tag
Hali
Az lenne a kérdésem. hogyan lehet VB-ben egy szöveges változóban tárolt számot áttenni számváltozóba úgy, hogy ha a szöveges változóban nem szám van, akkor ne fagyjon meg a progi, hanem mondjuk egy harmadik változóba eltárolja hogy a szöveges változó hanyadik karaktere nem számjegy
remélem érthető voltam, köszi a választ
T_bee -
Victorius
tag
-
#212
update
csendes tag
Apollo17hu
#211
update
csendes tag
válasz
Apollo17hu
#211
üzenetére
Hmmm... köszi a segítséget!
De...
És pl 60 és 150 közé eső páros-páratlan véletlenszám?
És az igazán jó az lenne, ha... Min és Max értéket bármikor változtathassam...
Pl beviteli mező Min és beviteli mező Max, és erre a kettő közé generáljon véletlenszámot...
Ahol a min és max között nincsen kapcsolat... pl 13 és 100 vagy akármi!
(Rnd*Min)/Max vagy valami ilyesmi...
Ja... Caption működött végül így
UserForm1.Label.Caption=Cells(1,1)
Cells(1,1)-et az aktív worksheetből szedi...
-
update
csendes tag
Hali!
Hogy lehet azt megcsinálni VBA-ban, hogy egy adott min és max érték közé generáljon egy véleltlenszámot?
Én úgy próbáltam, hogy csináltam egy sima véletlenszámot, majd km hosszú If részekkel úgy alakítottam, hogy beleférjen min és max közé... szorztam, osztottam stb...
nincen egy egyszerűbb megoldás?
KÖSZI! -
#206
[HUN]Zolee
őstag
[HUN]Zolee
őstag
van egy procedúra amit ha meghívok mindig valami hibát ír ki :S
Public Sub beszur(besz1 As String, besz2 As Integer, besz3 As Integer)
hiba :
Compile error:
Expected: =
Ha utána egyelőségjelet + egy változóz írok, akkor elfogadja (nem futtattam le), de miért csinálja ezt? más procedúráknál nem csinálja
És lehet rekord típust deklarálni? és ha igen hogyan?
[Szerkesztve] -
#204
Diskcopy
tag
[HUN]Zolee
#203
Diskcopy
tag
válasz
[HUN]Zolee
#203
üzenetére
LOF: [/L]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vblr7/html/vafctlof.asp[/L]
másik esetleg így? Bővebben: link -
#203
[HUN]Zolee
őstag
Victorius
#202
[HUN]Zolee
őstag
válasz
Victorius
#202
üzenetére
8 kötőjelet fűz hozzá a füzér végéhez és levág a füzért 8 karakter husszúra. Azért kell a 8 kötöjel, hogy biztos 8 karakternél hosszabb legyen.
Egy kérdés
Fáljt akarok visszaolvastatni, de a bevitt elemeket egyszerre 1 sorba adja vissza, és nem csoprtonként. A könyvben azt találtam hogy input(lof(1),#1). Mit takar a LOF ? És hogy lehet betitt sorrendben egymás után kiolvasni úgy hogy ne 1 karakterláncnak vegye az egész szöveget?
[Szerkesztve] -
Victorius
tag
Sziasztok!
Én is kérdeznék valamit ezzel a ''levágok egy darabot egy szövegből'' témával kapcsolatban.
Tehát adott egy sor:
If W0 = '''' Then Exit Sub Else W0 = Left(Trim$(W0) + ''--------'', 8).
Vagyis nyolc kötőjelet fűz a füzérhez, hogy azután mindjárt le is vágja. MI ennek az értelme?
):
midnegy.
és cska egy 191x191 es négyzet fér el benne.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Hirdetés
- Kazy Computers - Fehérvár - Megbízható?
- One otthoni szolgáltatások (TV, internet, telefon)
- iPhone topik
- Elektromos autók - motorok
- Androidos tablet topic
- Porszívók - akkus és klasszikus vezetékes
- Path of Exile (ARPG)
- Nothing Phone (3a) és (3a) Pro - az ügyes meg sasszemű
- Linux kezdőknek
- Sorozatok
- További aktív témák...
- ÚJ- Lenovo ThinkVision T24i-10 - 24" monitor - Számla, garancia
- Eladó Új Motorola G31 4/64GB szürke / 12 hónap jótállással!
- LG 65C4 - 65" OLED evo - 4K 144Hz - 0.1ms - NVIDIA G-Sync - FreeSync - HDMI 2.1 - 1000 Nits
- KÖZEL FÉLÁR! Apple Magic Keyboard, Mouse, Trackpad, Pencil, Smart Magic Keyboard Folio, Watch szíjak
- AKCIÓ! Dell Optiplex 5050 SFF asztali számítógép - i5 7500 8GB DDR4 256GB SSD HD630 Win10
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged