Új hozzászólás Aktív témák
-
Sziasztok !
Segítségre lenne szükségem,csináltam egy listboxot feltöltöttem elemekkel(1,2,3)
és dolgozok is ezekkel az adatokkal viszont ha nem választom kimondjuk az egyes programinditás után akkor hibát dob ki hogy nem tud mit csinálni a double változóval.Hogy lehet hogy alapértelmezésben aktív legyen az az egyes?Előre is köszönöm a választ
-
Sziasztok
(excel VBA makro)
A következővel kapcsolatban lenne egy olyan kérdésem hogy miért van az hogy csak az első cellát érzi úgy mintha ki lenne a töltve a többit pedig autó matikusan üresnek vesz hiába van kitöltve.
(egyébként nem csinálna mást minthogy a "H" oszlop 2. sorától kezdődően a kitöltött cellák mennyiségének megfelelő új lapot hoz létre és elnevezi azokat aszerint ami az adott cellába van érték. [sor,"H"])
Dim sor As Integer
Dim QH_part As Variantsor = 2
Do While Worksheets("Open").Cells(sor, "h").Value <> ""
QH_part = Cells(sor, "H")
Sheets.Add
ActiveSheet.Name = QH_part
sor = sor + 1
LoopKöszönöm de már sikerült megoldani. Minden esetre a későbbiekben tuti visszatérek
-
Syntax
csendes tag
Sziasztok
(excel VBA makro)
A következővel kapcsolatban lenne egy olyan kérdésem hogy miért van az hogy csak az első cellát érzi úgy mintha ki lenne a töltve a többit pedig autó matikusan üresnek vesz hiába van kitöltve.
(egyébként nem csinálna mást minthogy a "H" oszlop 2. sorától kezdődően a kitöltött cellák mennyiségének megfelelő új lapot hoz létre és elnevezi azokat aszerint ami az adott cellába van érték. [sor,"H"])
Dim sor As Integer
Dim QH_part As Variantsor = 2
Do While Worksheets("Open").Cells(sor, "h").Value <> ""
QH_part = Cells(sor, "H")
Sheets.Add
ActiveSheet.Name = QH_part
sor = sor + 1
Loop -
Arra tudok egy megoldást, hogy kiválasztasz valamit az egyik combobox-ban és ez alapján jelennek meg értékek a másikban:
(Ez az ArcPad-hez van, de gondolom máshol is hasonlóan működik)
Dim base, res, c
Set base = Layers("LAYER").Forms("EDITFORM").Pages("PAGE1")
Set res = base.Controls("cmbReservation")
Set c = base.Controls("cmbCounty")
c.Clear'Based on the reservation, add the counties to the county combo box
If res = 490 Then
c.AddItem "171", "Tama"
ElseIf res = 409 Then
c.AddItem "7", "Beltrami"
c.AddItem "29", "Clearwater"
c.AddItem "113", "Pennington"
end if -
pár szóban kifejtem,
adott egy cipős cég, 6 fajta cipő, 10 színben, 15 méretben, összesen kb 1000 féle.
ha pl. rendelést akar valaki leadni arra gondoltam, hogy
combobox1=cipő
combobox2=szín
combobox3=méret
ha csak azt mondom a comboboxoknak, hogy rowsource innen és innen akkor kiad mindegyikbe 1000-1000-1000 sort ami azért elég sok és nem is jó válasz.
ezért arra gondoltam, hogy ha megnyitom combobox1 -t akkor csak a 6 fajta cipő jelenjen meg, kiválasztom és utána akkor már a további comboboxokban csak az ahhoz tartozó pl 8 szín és így tovább jelenjen meg, vagy az egész fordítva össze vissza mint mikor az excelben autószűrőzől.
nem ragaszkodom a comboboxhoz, csak a lényeg, hogy könnyen átláthatóan használható legyen.
remélem érthető a story.
Atesz -
sonar
addikt
köszi! most válaszoltam privátban, és épp kérdeztem,h ismersz-e név szerint is vmt
ezek közül ha egyet kéne kiemelni, tudnál esetleg kapásból ajánlani? mert akkor lehet egyből neki is állnék
-
klozetkilinc
csendes tag
Hajaj englishből van egy rakattal:
pl.:
Programming Excel® Services
by Alvin Bruney
Publisher: Microsoft Press
Pub Date: June 13, 2007
Print ISBN-10: 0-7356-2407-0
Print ISBN-13: 978-0-7356-2407-8Pages: 336
------------------------------------------------
Excel VBA Macro Programming
by Richard Shepherd ISBN:0072231440
McGraw-Hill/Osborne © 2004 (319 pages)
----------------------------------------------------
Apress.Beginning.PivotTables.in.Excel.2007.Sep.2007
----------------------------------------------------
.
.
.dobtam egy privátot...
köszi! most válaszoltam privátban, és épp kérdeztem,h ismersz-e név szerint is vmt
ezek közül ha egyet kéne kiemelni, tudnál esetleg kapásból ajánlani? mert akkor lehet egyből neki is állnék
-
sonar
addikt
Sziasztok!
Már egy jó ideje használok excelt, de még csak a függvények mélységéig jutottam ezidáig, és most szeretnék megtanulni makrót írni... ugyanis elég jól tudnám használni a munkámhoz. Nem kell végtelenül komplikált dolgokra gondolni, csak sok és nagy excel fájlban mozgok, amit makrókkal generált pivotok és parancssorok igencsak leegyszerűsítenének.
Tudnátok esetleg magyar v angol nyelvű ebook-ot, tutorialt amiből audidakta módon megismerkedhetnék a vba-val, makrókkal úgy általában?
Előre is köszi az ájánlásokat! üdv
-
klozetkilinc
csendes tag
-
sonar
addikt
Kis help kellene a visual basic-ről
ki irta, mikor?
miben változott
történelmi háttere
történelmi fejlődése
változatok
a vB előnye és hátránya más programozási nyelvekkel
előnye a net rendszerében
verziók5 oldal kéne kb havernak, erről a témáról, azt megigértem, hogy segitek, de goggle-n nincs semmi ilyen leirás csak angolul, magyarul nem találok...
-
sonar
addikt
Kis help kellene a visual basic-ről
ki irta, mikor?
miben változott
történelmi háttere
történelmi fejlődése
változatok
a vB előnye és hátránya más programozási nyelvekkel
előnye a net rendszerében
verziók5 oldal kéne kb havernak, erről a témáról, azt megigértem, hogy segitek, de goggle-n nincs semmi ilyen leirás csak angolul, magyarul nem találok...
-
![[CS]Blade2](//cdn.rios.hu/dl/faces/m09.gif)
[CS]Blade2
addikt
-
VB6 egy változó tartalmát hogy tudom közvetlenül vágólapra tenni?
-
matekmatika
tag
-
matekmatika
tag
-
Staby
csendes tag
Sziasztok!
Segítségre lenne szükségem. VB-ben szeretnék egy táblázatról listát készíteni legördülő menüben, excel-macróban (vb). A list metódust használnám, de folyamatosan hibát ír ki (381) de elvileg minden jól van beírva.
a forrás:Sub UserForm_initialize()
Sheets("Személyek").Select
ActiveSheet.Range("A1:" & Ref_Cella).Activate
ksor = Selection.Rows.Count
kosz = Selection.Columns.Count
nevosz = kosz + Nevoszl - 1
beosz = kosz + Beooszl - 1
With box
Cells(ksor, nevosz).Select
If Selection.Text = "" Then
i = ksor
Else
i = Selection.CurrentRegion.Rows.Count
End If
.ColumnCount = Oszam
.List() = Worksheets("Személyek").Range(Cells(ksor, kosz), Cells(i, kosz + Oszam - 1))
.ColumnWidths = Mitlatunk
.Style = fmStyleDropDownCombo
.Value = ""
.TextColumn = Nevoszl
.SetFocus
End With
nevmegadas = True
End SubHa valaki tudna rajtam segíteni, nagyszerű lenne.
Előre is köszönöm. -
Nem szó szerint értve nem megy a copy paste. Áh, hagyjuk.
Küldd már el a teljes solutionöd akkor. Leírom neked, lépésről lépésre, hogy mit csinálsz rosszul.
Már bocs, de én nem szivatlak, hanem sokadszorra próbálok segíteni, már-már kézzel lábbal, de ha alapokkal nem vagy tisztában, akkor mit akarsz? -
Nyilván nem .cs akart lenni, hanem .vb, csak eltévesztettem, mert lassan c#-pal fekszem és kelek. De a többinek stimmelnie kell, ha egy "üres" visual basic.net windows forms projectet nyitsz. (márpedig a linken arról van szó, csak ott 2003-as template-tel.)
De én nem erőltetem tovább, mert ha még a copy paste se megy... -
Nekem működik. Nem tudhatom, hogy mit csinálsz, és hogyan csinálod.
Indítasz egy winforms alkalmazást, mivel látszik, hogy a kód a linken a régi fajta (vs2003) windows forms template szerint van megírva, nem választja szét a a form designer, a form, és a program.cs kódot, így ezek közül neked el kell távolítanod a projektedből a program.cs-t és a form1_designer.cs-t, majd a form1.cs kódját le kell cserélni a linken lévő kódra. -
nem maradt le. ezt irja ki rá_
Error 1 Attribute specifier is not a complete statement. Use a line continuation to apply the attribute to the following statement. D:\Documents\Visual Studio 2008\Projects\CGuard\CGuard\Form1.vb 36 33 CGuard
és megjegyzem, ott van az alsóvonás :S
ui: na, kijavitottam üres sorok voltak folytatássorban. most a progi fordul, fut, de viszont nem látszik semmi, csak egy üres ablak :S importok is jók, dllimportok is jók.. miért nem látszik semmi?
-
-
Win32-ben, C#-ban csináltam már ilyet, VB kódot nem írok
, de : gdi32.dll -ben van a GetPixel függvény, ezt be kell importálnod, a híváshoz viszont szükség van egy device contextre is, amit a user32.dll GetDC() függvényével lehet lekérdezni majd a ReleaseDC()-vel fel kell szabadítani a azt (ezeket szintén be kell importálni, a user32.dll-ből).szerk: no közben találtam egy jó vb-s linket : [link]
Remélem VB.NET 2008 beta 2 alatt is menni fog! ezt a device contest-et nem egészen értem, mire kell?
Meg minek utána releaselni... kicsit leirnád bövebben? Sügér vok ehhez a részhez! -
Sziasztok!
Furcsa dologra lenne szükségem. Olyan programot akarok irni VB.NET-ben, ami azt csinálja, hogy a képernyő egy aktuális pixelének a színét megmondja, és a szinétől függően valamilyen hangjelzést ad ki. Ezt hogy csináljam? A hangjelzés nem probléma, de hogy tudom lekérdezni a képernyő egy adott pontján levő pixel szinét? Tudja ezt valaki? JA, és a pixel nem feltétlenül a program ablakának pixele, hanem bárhol lehet a képernyőn (de vmi fix helyen, ezt majd én határozom meg). Csinált már ilyet valaki?
Win32-ben, C#-ban csináltam már ilyet, VB kódot nem írok
, de : gdi32.dll -ben van a GetPixel függvény, ezt be kell importálnod, a híváshoz viszont szükség van egy device contextre is, amit a user32.dll GetDC() függvényével lehet lekérdezni majd a ReleaseDC()-vel fel kell szabadítani a azt (ezeket szintén be kell importálni, a user32.dll-ből).szerk: no közben találtam egy jó vb-s linket : [link]
-
Sziasztok!
Nekem valojaban nem programozassal kapcsolatos kerdesem lenne...
Hallottam egy olyan hirt (ugy velem nem megbizhato forrasbol), hogy a Microsoft abbahagyja a Visual Basic fejleszteset. Ennek nagyon nem orulnek
Tudtok errol valamit?
Tudtok olyan oldalt, ahol ennek utana lehet jarni? (nem a www.microsoft.com-ra gondolok)
Ez a felvetes szamomra azert furcsa, mert a VS2008-ban ha jol tudom benne van a VB...A valaszokat, velemenyeket elore is koszonom!
ptamas
Ezt a hírt már pár éve én is hallottam, de kacsa.
Basic az mindig is lesz -
ptamas
csendes tag
Sziasztok!
Nekem valojaban nem programozassal kapcsolatos kerdesem lenne...
Hallottam egy olyan hirt (ugy velem nem megbizhato forrasbol), hogy a Microsoft abbahagyja a Visual Basic fejleszteset. Ennek nagyon nem orulnek
Tudtok errol valamit?
Tudtok olyan oldalt, ahol ennek utana lehet jarni? (nem a www.microsoft.com-ra gondolok)
Ez a felvetes szamomra azert furcsa, mert a VS2008-ban ha jol tudom benne van a VB...A valaszokat, velemenyeket elore is koszonom!
ptamas
-
Elmondom részletesebben.
Word-ben szeretnék alkotni valamit, ami képes összerakni egy dokumentumot anélkül, hogy "előre ismerné" annak tartalmát. Ezt tartalmazná a szövegfájl. Tehát a VBA program csak bekérné a változókat, kiválasztaná a megfelelő txt fájlt, aztán ráengedné az értelmezőjét.
Leegyszerűsítve valahogy így:
HunyóNeve$, " a hunyó!"
És akkor a program szépen a HunyóNeve változóból tenné be, hogy "Józsika" vagy "Pistike".
Tehát az eredmény ilyesmi lenne:
Pistike a hunyó!
Igazából persze bonyolultabb a dolog. Papíron egy egyszerűbb HA... AKKOR... szerkezetet lefirkantottam már, de a változókra való hivatkozás jelenti a fő gondot.
Arra gondoltam, hogy valamiféle előzetes "rögzítés" azért kellene: vagyis a változóneveket azért fixálni kellene, tehát ugyanazokat a változókat kellene használni a programnak, mint amelyek a leíró fájlban szerepelnek. Aztán a programba meg írni kéne valami kezelőt, mondjuk egy függvényt, ami visszaadja az adott változó értékét. Ehhez gondolom minden változót egyenként fel kellene vinni, "meg kell tanítani" neki. Sok változónál ez baromira nagy munkának tűnik. Főleg, hogy új típusokat is bevezetnék (Pascal-os rekord-szerűségekre gondolok), ez még bonyolítaná is.
Esetleg van valami huszárvágás-szerű megoldás? (Hivatkozni a változóra egy füzérrel? Kis túlzással adatból kódot csinálni?)
Hát VBA-ban nem vagyok otthon
-
-
sonar
addikt
Mobilra Basic Interpreter CelluarBasic
Ezt ki fogom próbálni! -
sonar
addikt
igen, az tömb összes elemét/dimenzióját/ szerettem volna átadni
-
![[HUN]Zolee](//cdn.rios.hu/dl/faces/c11.gif)
[HUN]Zolee
őstag
-
sonar
addikt
Üdv
Akkor marad inkábba fapados megoldás. Pedíg reménykedtem hogy át tudom adni az egészet így
-
[HUN]Zolee
őstag
-
sonar
addikt
Üdv.
Hogy tudok egy függvénynek megadni egy 2 dimenziós tömböt /egyszerre az egészet/ , majd a függvény értéke is egy tömb legyen?
Function fuggv (x(,)) As Array (,)
műveletek
End Function
Public Sub main()
Dim a(2,2) as Integer
a(,)=fuggv(a(,))
End Subvalami ilyesmi kellene hogy legyen, de nem tudom pontosan.
-
[HUN]Zolee
őstag
-
Szerintem jó dolog az a gomb, gondolom mikor pl valamivel játszol és pont akkor zavarnak msn-en bizony jól jön [nem kell kilépni] (persze ez tárgytalan ha kilépsz mikor mész játszani)
De ez is csak alkalmazásfüggő, valamelyik egyszerűen nem reagál rá.
Vagy ha valami közben gyorsan megkell valamit nézni a neten de nem akarsz kilépni a játékból akkor se jön rosszulErre van kettő másik, jobb megoldásom: "Ctrl + Esc" és "Alt + Tab"
Ez esztétikusabb és véletlenül biztos h nem nyomod be. Én igy szoktam.
-
Ez érdekes!
Játék közben ha véletlenül lenyomtam a windows gombot, felugrott a start menü és a játékot lerakta tálcára. Nos ez elég idegesitő, föleg ha vmi akcio v. szimulátor játékról van szó. A windows gombot is le lehet tiltani?
Én nem VB-ben oldotam meg ezt. egyszerüen kiszedtem a windows gombot. 
De gondolom jobb megoldás ha le van tiltva Szerintem jó dolog az a gomb, gondolom mikor pl valamivel játszol és pont akkor zavarnak msn-en bizony jól jön [nem kell kilépni] (persze ez tárgytalan ha kilépsz mikor mész játszani)
De ez is csak alkalmazásfüggő, valamelyik egyszerűen nem reagál rá.
Vagy ha valami közben gyorsan megkell valamit nézni a neten de nem akarsz kilépni a játékból akkor se jön rosszul -
Szia!
Én nem sok mindenen...
alig volt szabadidőm. Csupán egy két apróságot ami a munka megkönnyítését segítette.
Az egyik az a windowsban bizonyos gombokat letiltott (különösen a CapsLock-ot)
Majd belinkelemEz érdekes!
Játék közben ha véletlenül lenyomtam a windows gombot, felugrott a start menü és a játékot lerakta tálcára. Nos ez elég idegesitő, föleg ha vmi akcio v. szimulátor játékról van szó. A windows gombot is le lehet tiltani?
Én nem VB-ben oldotam meg ezt. egyszerüen kiszedtem a windows gombot. De gondolom jobb megoldás ha le van tiltva -
Sziasztok!
Na ki min dolgozott a nyáron Jönnek a hideg napok, ismét lecsücsülök a gép elé. Most van időm, a nyár alatt nem is láttam VB-t. 
Itt az ideje a folytatásnak.
Nem todom h mibe kezdjek, vagy hogy mik is a félbehagyott programjaim. Lusta voltam még megnézi is, hátha elmegy a kedvem. Nos, ki mit alkot éppen?
Üdv ujra!
Szia!
Én nem sok mindenen...
alig volt szabadidőm. Csupán egy két apróságot ami a munka megkönnyítését segítette.
Az egyik az a windowsban bizonyos gombokat letiltott (különösen a CapsLock-ot)
Majd belinkelem -
Polyák
tag
Sziasztok!
Na ki min dolgozott a nyáron Jönnek a hideg napok, ismét lecsücsülök a gép elé. Most van időm, a nyár alatt nem is láttam VB-t. Itt az ideje a folytatásnak.
Nem todom h mibe kezdjek, vagy hogy mik is a félbehagyott programjaim. Lusta voltam még megnézi is, hátha elmegy a kedvem. Nos, ki mit alkot éppen?
Üdv ujra! -
Hali.
Jelenleg semmin. Partyk vannak most dögivel, se időm, se energiám nincs.
Amugy érdekelne, hogy hogyan oldottad meg a karaktercserét, illetve azt, hogy egy szó helyett egy kép jelenjen meg.
[Szerkesztve]Hát a karakter konverzión gondolkoztam egy keveset, de úgy oldottam meg hogy csináltam egy szöveges fájlt amibe vannak a megfeleltetések (így sokkal dinamikusabb a program modul és bármikor felhasználhatom máshol is) és akár lehet cserélgetni / bővíteni / szűkíteni a listát egyszerűen:
pl.:
a=b
á=a
ő=o
aztán csinálok egy tmp fájlt amibe elvégzem a konverziót és a folyamat végén letörlöm az eredetit és a tmp-t másolom a helyére
képet meg eccerüen. Mivel html alapu a megjelenítés a szintén szöveges fájlban megadott stringre keresek rá és kicserélem a szöveget.
pl:
smile=img src=mosoly.gif
kb ennyi
[Szerkesztve] -
Igazából egy sms-fal progin dolgozom mostanában, (már elég jól áll a project) nem lesz egy extra, de falusi projectoros célra okés lesz.
Utánna meg valszeg csinálok egy póker játékot amit lanon is lehet játszani
ebben most érzek kihívástHogy müködik ez az SMSfal? Van egy szervere ami fogadja az sms-t és küldi a programnak, vagy ez a progi fogadja csatlakoztatott telefonról? Érdekelne ez a dolog, ha akarod el is magyarázhatnád a müködését.
Köszi üdv -
Hali! Igazából nem tudom mit lehetne kitalálni. Már minden foglalt.
Akármit csináltam eddig VB-ben olyan már volt Nem tudtam eddig újat és nagyot alkotni.Igazából egy sms-fal progin dolgozom mostanában, (már elég jól áll a project) nem lesz egy extra, de falusi projectoros célra okés lesz.
Utánna meg valszeg csinálok egy póker játékot amit lanon is lehet játszani
ebben most érzek kihívást -
Nem, mostanában sajnos nincs annyi időm vb-zni.
Keresek vmi vb-s izgalmas kihívást csak még nem tudom mi legyen az.
Vmi kicsit komolyabb project amivel el leszek meg tanulni is lehet belőle.
Nincs vmi jó ötleted/tek?Hali! Igazából nem tudom mit lehetne kitalálni. Már minden foglalt.
Akármit csináltam eddig VB-ben olyan már volt Nem tudtam eddig újat és nagyot alkotni. -
Hát igazából az manuálisan megy...
Tehát a kiscsaj fogja bejelölgeti pirossal, hogy melyik számokat kell elosztani az aznapi árfolyammal, megnyom egy gombot és elosztja... ennyi lenne....
[Szerkesztve]színre nem tudok sem szűrni, sem pedig hivatkozni, de hátha van itt nálam nagyobb tudású kollega
![[CS]Blade2](http://cdn.rios.hu/dl/faces/m09.gif)
![[HUN]Zolee](http://cdn.rios.hu/dl/faces/c11.gif)
Ez esztétikusabb és véletlenül biztos h nem nyomod be. 
De gondolom jobb megoldás ha le van tiltva 
Új hozzászólás Aktív témák
- AMD FX
- Arc Raiders
- BMW topik
- Kuponkunyeráló
- Gumi és felni topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Milyen billentyűzetet vegyek?
- Mibe tegyem a megtakarításaimat?
- Samsung Galaxy S26 Ultra - fontossági sorrend
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- ÚJ Lenovo LOQ Intel Core i7-13650HX, 32GB, 1TB, RTX 5060(8GB), FHD IPS 144Hz
- Apple iPad 5. generáció (A1822) 128GB, asztroszürke
- Lenovo 13w Yoga 2in1 Gen 2 AMD Ryzen 3 7330U 8 GB RAM 256 GB SSD Premium garancia FHD IPS TOUCH
- BESZÁMÍTÁS! ASRock AM4 A520M R5 5600 32GB DDR4 512GB SSD RTX 5060 TI 8GB Zalman S2 TG be quiet! 600W
- Telefon felvásárlás!! Samsung Galaxy A50/Samsung Galaxy A51/Samsung Galaxy A52/Samsung Galaxy A53
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest