- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Megbénítaná Kína chipgyártását az USA
- Az USA beperelte az Apple-t: túl drágák az iPhone-ok
- Crypto Trade
- Google Chrome
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Adobe Photoshop
- Windows 11
- WLAN, WiFi, vezeték nélküli hálózat
- Vírusirtó topic
Új hozzászólás Aktív témák
-
martonx
veterán
Van rálátásom közszférában dolgozó rendszergazdák (középiskolai rendszergazdától kezdve egyetemi rendszergazdán át, megyei önkormányzat - vagy hogy is hívják mostanában - rendszergazdájáig) munkájára. Ha én egyszer ott dolgozhatnék.
Tudom nem nagy pénz, de mellette napi 8 órában mehet a maszek.Én kérek elnézést!
-
vilag
tag
válasz martonx #2151 üzenetére
Ezek szerint a Te "uralmad" alatt is ugyan ez lenne a helyzet, mert a napi 8 óra maszekolással eltöltött munkaidő miatt nem lenne időd foglalkozni mással...
Lehet, hogy ők is ezt csinálják, ezért nem halad semmi sehová.
/Mondjuk a saját rendszergazdánknak van rendes munkaköre is, talán ezért sem ér rá igazán mással foglalkozni./
Mivel foglalkozol munkaidőben?
-
Homer
tag
válasz martonx #2153 üzenetére
"Laza kellemes hely lehet", ha mellette ráérsz fórumozgatni is közben.
Na jól van, nem leszek gonosz. Az, hogy valaki mással (is) tölti az ebédidejét /szabad kapacitását nem jelenti azt, hogy olyan laza lenne a munkája. Én spec azért kezdtem el tanulni a VB-t, mert hasznát vettem a munkámban. Már nem egyszer fordult elő, hogy egy Excel-es feladatot VBA segítségével oldottam meg. Innen indult a programozás iránti érdeklődésem. Most ott tartok, hogy Turbo pascal megy valamennyire (ezt még egyetemen tanították), meg VB olyan alap-közép közti szinten (legalábbis itt érzem magam). Ezt már autodidakta módon tanultam.
[ Szerkesztve ]
-
vilag
tag
Így indult ez nálam is.
Mikor idekerültem egy (pontosabban több is) VBA-val megbolondított excel táblát kellett használnom bizonyos munkákra.Mikor beletanultam láttam, hogy vannak hiányosságai, gyermekbetegségei, vagy éppen csak változtatni kellett valamit. Ilyenkor mindig a kollégát kellett "zaklatnom", aki írta a programot. Olyankor ott ültem mellette és kérdezgettem, hogy ez miért így, meg mért nem úgy, ez mire való, nem lehetne esetleg ezt így megcsinálni, stb.
Később más munkáim megkönnyítésére elkezdtem magamtól programozni, ha elakadtam (ami persze az elején elég sokszor előfordult) csak akkor kérdeztem a kollégámat, ha meg már ő sem tudott megoldást kínálni vagy találni, akkor írtam ide.Ez mára oda jutott, hogy a legnagyobb projekt most kb. ötezer soros, de mindig valami apró cseprő, vagy (most éppen) nagy volumenű javításon, kiegészítésen dolgozom ha van idő. (Évi átlag 2.000 ügyirat ezzel készül a hivatalnál , szóval úgy érzem volt értelme eltölteni vele az időt.
Több más mellett írtunk egy olyan programot is amire igen büszke vagyok, mert sikerült vele felváltani a sz*r papír alapú postakönyvet is, de persze egy sima postakönyvtől sokkal többet tud
Mondjuk én azért még így is inkább a kezdő szintre lőném be magam, tekintve, hogy rengeteget kell kérdeznem tőletek, meg látva, hogy mennyi olyan VBA elem van a súgóban amiről még csak lövésem sincs mire való.
-
pirit28
csendes tag
Jóó napot az uraknak ,hölgyeknek !
Ismételeten egy nagy kéréssel fordulok,hozzátok.
A kérésem a következő lenne.
Van egy excel táblázatom,amiben különféle adatok vannak.Vannak olyan cellák is amelyek függvény formájában szedik ki egy másik táblázatból az adatokat.
A feladatom az lenne hogy bármely cellát módosítva az adott módosított cella színe megváltozzon, ezzel mutatva hogy a cella tartalma megváltozott. Én 10 színkódra gondoltam pl a világostól a sötétig.Tehát egy cella alapesetben fehér színű,és én azt szeretném,hogyha egy cellát átírnak 2 óra elteltével, akkor ennek a cellának a színe legyen más színű. Mivel annyira nem vagyok otthon a makró Írásában ,ezért kérném azon hozzáértő ember magyarázatát ,segítségét aki tudja erre a választ, hogy hogyan is kell egy ilyen dolgot végrehajtani.
Mindez azért kell, mert ebben a táblázatban az adatokat folyamatosan frissítik ,amiből én láthatnám hogy az egyes cellák változáson mentek keresztül.
Remélem érthetően fogalmaztam , !A választ előre is köszönöm.
-
pirit28
csendes tag
válasz martonx #2157 üzenetére
Szia Martonx !
Frappáns megoldást tudtál nyújtani köszönöm.
Egy kérdésem volna ezzel kapcsolatban ,hogyan tudom honnan látom egy kb 900 cellás táblázatból, leszűrni,hogy mi változott és mi nem.Van e valami plusz beállítás ?
Ha pl minden nap ugyan azt a táblázatot töltöm és mindig változik egy cella naponta többször is akkor honnan fogom tudni, egér rárántás nélkül hogy mit írtam át aznap és mit nem...A választ előre is köszönöm .....
-
vilag
tag
Volna nekem egy gondom.
Vélhetően nem nagy probléma, csak egyszerűen nem értem az okát.Van nekem ugye egy UserFormon több comboboxom.
Az egyik ComboBoxnak a másikból vezérelve szeretnék értéktartományt adni a következő módon:
Combobox17_Change()
(...)
If ComboBox17.Value = 1 Then ComboBox18.RowSource = "Egységdíjak!b5:c21"
If ComboBox17.Value = 2 Then ComboBox18.RowSource = "Egységdíjak!b23:c33"
If ComboBox17.Value = 3 Then ComboBox18.RowSource = "Egységdíjak!b35:c38"
If ComboBox17.Value = 4 Then ComboBox18.RowSource = "Egységdíjak!b40:c43"
If ComboBox17.Value = 5 Then ComboBox18.RowSource = "Egységdíjak!b45:c56"
If ComboBox17.Value = 6 Then ComboBox18.RowSource = "Egységdíjak!b58:c58"
If ComboBox17.Value = 7 Then ComboBox18.RowSource = "Egységdíjak!b60:c63"
If ComboBox17.Value = 8 Then ComboBox18.RowSource = "Egységdíjak!b65:c66"
(...)
End SubAzonban ez a hibaüzenet jelenik meg:
"Could not set the RowSource property. Invalid property value."
Ehhez a programkódhoz egy másik UserFormon kiadott parancs juttat el, miszerint:
UserForm1.ComboBox17.Value = Workbooks(filenev).Sheets(1).Range("b2").ValueEgyszerűen nem értem miért nem hajlandó beadni ezt a szöveges értéket beállítani.
Esetleg a ComboBox18 valamelyik tulajdonsága még nincs megfelelő állapotban ahhoz, hogy a RowSourceot be tudja, állítani?
Ha így lenne, akkor melyik az a tulajdonság amelyik nem megfelelő?Esetleg nem az az aktív munkafüzet amiben ez a munkalap található?
Lehet itt teljes hivatkozást megadni???[ Szerkesztve ]
-
vilag
tag
Közben a saját kérdésem nyomán meg is találtam a választ.
A probléma az volt, hogy menet közben programból megnyitottam egy másik fájlt, így az lett az aktív munkafüzet.
Mivel az új aktív munkafüzetben nem volt olyan munkalap ezért a RowSourceot nem tudta beállítani.Szóval mindössze a megnyitás után a ThisWorkBokk.Activate parancsot kellett kiadnom és minden rendbe jött.
-
vilag
tag
válasz Bobrooney #2164 üzenetére
Teljesen igazad van, úgy (ahogy régi matektanárom mondta) valóban elegánsabb. Holnap ha bemegyek a céghez át is írom.
A programot még 2010-ben kezdtem írni, akkor még fele ennyit sem tudtamAzóta persze sokat tanultam és ha valamire találok elegánsabb megoldást akkor át szoktam írni.
-
vilag
tag
Kis segítségre lenne szükségem. Már megint....
Már mindenféle ötletet kipróbáltam ami eszembe jutott, de eddig nem oldódott meg a gubanc.
Van nekem egy Userformom ami amolyan üzenetablakként funkcionál.
Ezen az Formon van egy textbox (korábban label), ami az excel tábla megfelelő cellájában elhelyezett üzenet megjelenítésére szolgál.
A probléma az, hogy egy olyan üzenetet próbálok megjeleníteni benne, ami nem fér el a textboxban, ezért bekapcsoltam a Scrollbar tulajdonságot.
Ezzel kapcsolatban több problémám is felmerül:
1. Csak akkor jelenik meg a scrollbar, ha a textboxban lévő szövegbe belekattintok.
-Én pedig azt szeretném, ha a függőleges srollbar alapból látható lenne (de csak akkor ha a szöveg valóban nem fér el)
2. Jelenleg a szöveg vízszintesen lóg ki a textboxból (így a vízszinte scrollbar jelenik meg), én pedig azt szeretném ha függőlegesen lógna ki (és ennek megfelelően automatikusan tördelésre kerülne), és a függőleges scrollbar jelenne meg.Szerk.: A TextBox Multiline tulajdonsága True-ra van állítva.
[ Szerkesztve ]
-
vilag
tag
Féli már sikerült megoldani a problémát.
Ahhoz, hogy a tördelés megfelelő legyen a következőket kell tenni:
TextBox tulajdonságainál a következőket kell állítani:
MultiLine=True
ScrollBars=3
WordWrap=TrueSajnálatos módon a Scrollbar csak akkor jelenik meg ha a TextBox fókuszba kerül, így kénytelen voltam programból fókuszba hozni, majd átadni egy másik vezérlőnek a fókuszt.
Ennek az a sajnálatos eredménye, hogy a TexBoxban a szöveg úgy jelenik meg, hogy a szöveg vége látszik azaz az eleje van rejtve, nem pedig a hátulja, ahogy az várható volna.Ennek kiküszöbölésére van valakinek ötlete??
-
vilag
tag
Üdv!
Mi a fitty-fene van? Netán mindenki nyaral, hogy senki nem válaszol???
-
martonx
veterán
Én olvastam, meg gondolom mások is, csak nincs kedvünk az exceles önképzésedet megzavarni. Illetve a vélményemet tudod: Amire az excelt most használod, azzal már rég túlléptél a normalitás határán.
Persze tudom, hogy a körülmények erre kényszerítenek, nincs ezzel gond, de ne várd el, hogy az extrémebbnél extrémebb problémáidra ugorjunk.Én kérek elnézést!
-
vilag
tag
Akkor kérdezek valami újat.
Egy ListBoxba szeretnék értékeket "bevételezni" a munkafüzet egy tartományából, de csak azokat a sorokat, amelyek láthatóak.
Megoldható ez?
Egyelőre nem találtam csak olyan megoldást, hogy egy segédmunkalapra másoltatom, a keresésnek megfelelő értékeket és azt "vételezem" be.Igazából valami olyasmit szeretnék megoldani, hogy van nekem egy vezérlőm (mondjuk textbox), melyet amolyan keresőmezőnek (vagy inkább szűrőmezőnek) szeretnék használni és a bevitt karaktereknek még megfelelő találatokat szeretném listázni a listboxba.
Tehát minden billentyűleütés után frissülne a listbox tartalma.Azért szeretném így megoldani, mert akkor nincs szükség segédmunkalapra, szűrésre, másolásra -mert ugye ezek mind időbe telnek és a nem kifejezetten csúcskategóriás gépeinken ez hosszú másodpercekbe kerülne.
-
vilag
tag
Volna egy még újabb kérdésem.
Az egyik programban a munkafüzet megnyitásakor megnyitásra kerül egy segédfájl is amiből adatokat veszek ki és írok bele (amolyan napló ha úgy tetszik).
Az egyik kolléga VPN-en keresztül éri el a helyi hálót.
Amikor elindítja a programot a következő hibaüzenetet kapja:Run-time error '1004':
WorksheetFunction osztály Match tulajdonsága nem érhető el-Először arra gondoltam, hogy nem tudja megnyitni a segédfájlt, de valószínűleg nem ez a probléma, mert On Errorral ezt levezéreltem olyan módon, hogy ha a Workbook Open hibára fut akkor hagyja ki a hozzá kapcsolódó további műveleteket (abból olvasás, és írás) és egyszerűen csak nyissa meg az eredeti fájlt.
Elmondása szerint a korábbi verziók (amikor ez a segédfájl még nem volt hozzákapcsolva) is borzasztóan lassan nyíltak meg (a munkafüzet mérete kb. 800-900 kb).
A kérdésem tehát az, hogy van e az ilyen műveleteknek esetleg időtúllépése a VBA-ban?
Vagy van e valakinek ötlete a hiba elhárításával kapcsolatban?
-
vilag
tag
válasz martonx #2173 üzenetére
Azért kérdeztem az időtúllépést, mert ha van ilyesmi, akkor valami környezeti változót kérdezek le és az alapján döntöm el, hogy megnyíljon e a segédtábla vagy sem.
Nem tudom, hogy a VBA programkód vár e egy adott sor végrehajtására (open) vagy csak "bedobja", hogy open aztán megy tovább és vagy megnyilt, vagy nem.
Bár ha jól sejtem, akkor vár, a kérdés csak az, hogy meddig...
-
pajan2
csendes tag
Sziasztok,
Egy lelkes amatör vagyok és szeretnék valami újat tanulni.
Szeretnék megismerkedni a programozással, egy adatbázis alapú szoftvert készíteni, ami kicsit megkönnyítené a munkámat, amiben lehetőség lenne cad fájlok 2D ill. 3D megtekintésére is (habár ez a jövő zenéje), de elsősorban egy adatbázis lenne a CAD fájlaimhoz.
A Visual Basic eddig nagyon szimpatikusnak tűnik, a Visual Studio használatával, van grafikus interface ill rengeteg forrás a neten, ami talán megkönnyítené a tanulást. (A C++ -ra se időm, se kedvem, addig a szintig nem is tervezek eljutni.)
Viszont! A programba később szeretnék integrálni egy speciális 3D fájlformátum nézegetőt, aminek supportja JAVA ill. C++ SDK fejlesztő eszközöket kínál. Egyéb 3D szoftverekkel való kapcsolat pedig még a Pythont is felhozza, amivel scripteket lehet írni Blenderben, Sketchupban és Rhinocerosban.
Tulajdonképpen a kérdésem az lenne, hogy lehetséges e több programozási nyelven elérhető forrásokat (könyvtárakat .dll, SDK) egybe fésülni. Tehát pl.: ha elkezdek VB alapon egy szoftvert akkor mit kell tennem ha integrálni szeretnék egy forrást aminek az SDKja JAVAra vagy C++ -ra van írva ?
-
vilag
tag
A probléma inkább kicsit excel jellegű.
Office 2003 mellé feltelepítettem az Office 2007-et.
Azóta olyan problémával küzdök, hogy ha nyitva van egy excel tábla és megnyitok egy másikat, akkor nyit egy új excelt és abban nyitja meg az új táblát.A jelenségnek a következménye igen kellemetlen, mert ha megnyitok egy új fájlt, akkor mindig kiírja, hogy a personal.xls írásra meg van nyitva bla bla bla.
Egyik programnál pedig azt idézi elő, hogy ha kódból megnyitok egy munkafüzetet ami már egyébként is nyitva van, akkor lesz egy nyitott pl. próba.xls-em és egy nyitott próba.xls [olvasásra] munkafüzetem.
A kérdésem az, hogy hogyan lehet megoldani, hogy ne új excelt nyisson minden megnyitott munkafüzethez, hanem csak egy excel lehessen több nyitott munkafüzettel?
Előre is köszönöm!
-
vilag
tag
válasz sztanozs #2178 üzenetére
Azt is előkutathatom majd, de a jelenség az Office 2007 mellételepítésével jelentkezett és nem csak programkódból való megnyitás esetén jelentkezik.
Ha már nyitva van egy munkafüzet és megnyitok egy másikat, akkor kiírja, hogy:
A PERSONAL.XLS fájl zárolva van szerkesztésre
'x y'. (én)
Megnyitja "Olvasására", vagy válassza az 'Értesítés" gombot, ha az olvasásra való megnyitás mellett értesítést is kér, mikor a dokumentum használatát bejezték."
Ez ugye arra utal, hogy másik excelt indított az új munkafüzetnek. Továbbá ezt támasztja alá az is, hogy ha a nagy X-el zárom be a munkafüzetet, akkor csak ezt az egy munkafüzetet zárja be, az excel ablakkal együtt is.
Ha meg a kis X-el zárom be a munkafüzetet, akkor meg marad egy üres excel ablakom. -
vilag
tag
válasz martonx #2180 üzenetére
Igen, tudom, hogy visszafelé kompatibilis, azonban az office 2007 (és az utáni) verziókban a menüt sikerült olyan jól megoldani, hogy parancsokat nem tudsz kitenni a menüszalagra csak ha saját xml-t szerkesztessz.
Jelenleg viszont sok olyan a menüben alapból nem szereplő parancsot használok, amelyek egy gombnyomással történő elérése igen sok segítséget jelent.
Tudom, hogy van olyan program ami a gyári menüszalag fölé kiteszi a régi típusú menüt, az viszont nem legális, így erre a sz.r céges gépre nem tehetem fel.
A kérdésem viszont még mindig áll!
Mi a megoldás a felvetett problémára?
Üdv, vilag
-
Baryka007
őstag
Üdvözletem, a Batch fórumról kicsit át merészkedtem ide mert most egy Visual Basic programot kéne írnom ( erre sajnos képtelen a batch...) a lényeg hogy van egy ilyen programom eddig idáig jutottam vele...
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 9000 '
For i = 1 To 1000
WshShell.AppActivate "AutoCad"
WshShell.SendKeys "{TAB}"
WScript.Sleep 50
WshShell.SendKeys "1"
WScript.Sleep 1500
WshShell.SendKeys "1"
WScript.Sleep 2000
WshShell.SendKeys "1"
WScript.Sleep 2000
WshShell.SendKeys "1"
WScript.Sleep 2000
WshShell.SendKeys "1"
WScript.Sleep 50
WshShell.SendKeys "a"
WScript.Sleep 50
NextA lényeg hogy a végén az "a" karaktert legalább 3mp ig lenyomva kéne tartania ... de ha meg az "a" betűt külön ciklusba rakom hogy kb 3 secig látszólagosan lenyomva tartsa előtte rendesen túráztatja a processzort és meg is áll egy kicsit az élet a gépem agyába amikor az a ciklus folyik szóval a lényeg hogy az "a" betűt a végén 3 secig kéne lenyomva tartania ... előre is köszönöm!
-
sztanozs
veterán
válasz Baryka007 #2182 üzenetére
SendKey-vel nem tudod megoldani a "lenyomva tartott" karaktert.
FYI - érdemes ezt végigolvasni: [link]
[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
kanyolajos
csendes tag
Sziasztok
Egy excelben írt maro-hoz kérnék némi segítséget.
Egy másik excel file-ból olvasok ki egy sheetet.
Két problémám lenne:
A kiolvasás működik,de csak az értékeket szeretném átmásolni, a fügvényeket nem,
valamint két jelszóval védett az excel: első az Encrypt a második a normál olvasás írás védelem.
Ugye hivatkozáskor megnyitás előtt be kell írni a két jelszót manuálisan.
Milyen utasítással lehetne ezt megoldani , hogy a futó macro maga nyissa meg ?
Segítséget előre is köszönömIme a kiolvasó macro:
' .......................................................................................................................................
'Hivatkozás az adat sheetre
Sheets("Datum").Visible = True
'Hivatkozás hova történjen a beírás
Sheets("01").Visible = True
'Hivatkozás aktuális idő lehívása
Sheets("Datum").Select
'Hivatkozás aaktuális idő lehívása
Range("H3").Select
sajatnev = ActiveCell
'Hivatkozás aaktuális idő lehívása
Range("D6").Select
fajlnev = ActiveCell'Hivatkozás honnan olvassa be a stop adatokat
fajlnevY0 = "C:\teszt\" + fajlnev
ChDir "C:\teszt"
'Hivatkozás melyik sheetből olvasson
Workbooks.Open Filename:=fajlnevY0
Sheets("1 data").Select
Columns("A:AZ").Select
Selection.Copy
Windows(sajatnev).Activate
'Hivatkozás melyik sheetbe írja ki
Sheets("01").Select
Columns("A").Select
ActiveSheet.Paste
Windows(fajlnev).Activate
Columns("L").Select
Selection.Copy
Windows(sajatnev).Activate
Columns("J").Select
ActiveSheet.PasteActiveWindow.SelectedSheets.Visible = False
Windows(fajlnev).Activate
Range("A1").Select
Selection.Copy
ActiveWindow.Close (False)Sheets("Datum").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Mon").Select
ActiveWorkbook.Savethx
Luí -
martonx
veterán
válasz kanyolajos #2184 üzenetére
Csak értékek kimásolása:
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=FalseA jelszó beírást meg tudod oldani sendkey paranccsal.
Én kérek elnézést!
-
bende126
csendes tag
Sziasztok!
Rengeteget dolgozok excelben,de eddig csak a függvények mélységéig jutottam,meg néhány egyszerű script megírásáig. Most viszont kicsit komolyabb dolgom lenne. Vannak termékcsoportok amikbe változó,hogy hány termék található. A feladat az lenne,hogy termékcsoportonként külön-külön lapra ki kéne nyomtatni a termékeket az adataival. A termékcsoportokat az A oszlopban külön-külön számokkal vannak megjelőlve,a B oszlopban található a termékek neve aztán a c-től M-ig a termék adatai. Külön csavar,hogy a felső 4sor fixen meg kellene maradnia minden kinyomtatott lapon. Hogyan lehetne ezt megoldani? Valaki segítene nekem? Hozzáteszem kezdő vagyok. Előre is köszönöm szépen a segítséget.Rehor Gyula
-
bende126
csendes tag
válasz bende126 #2187 üzenetére
Sziasztok, még mindig ez előzményekben lévő makró megírása.
Jelenleg itt tartok:
Sub nyomtatas()
s1 = 1
s2 = 1
o1 = 1
Do While e1 < e2
s2 = s1 + 1
e2 = Cells(s2, 1).Value
e1 = Cells(s1, 1).Value
Do While Cells(s2, 1) = Empty
s2 = s1 + 1
Loop
sork = s1
sorv = s2
Loop
' a nyomtatás részhez még nem kezdtem hozzá, ezt azért tettem bele, hogy lássam, milyen terülere vonatkozik a fentebbi kód
For t = sork To sorv
Cells(1, 20).Value = s2
Cells(t, o1).Interior.Color = vbYellow
Next
End Sub, tudom, hogy nem jó, és, hogy mennyire jó poén tárgyává váltam, de ezt most hagyjuk!! )
Lenne néhány kérdésem:
- Lehet úgy változót deklarálni, hogy a do while utasítás alatt található? Vagy már korábban meg kéne tennem?
- Jelenleg végtelen ciklus jön létre az excel kifagy. elvileg a Do While Cells(s2, 1) = Empty sor nem ennek elkerülésére lenne?
- a kijelölésre a ActiveSheet.Range(Cells(s1, o1), Cells(s2, o2)).Select sor jó lehet? - o2 lesz majd később, még nincs
Előre is köszönömRehor Gyula
-
martonx
veterán
válasz bende126 #2190 üzenetére
Szerintem kezdjük azzal, hogy pontosan mi is az a részfeladat amit ezzel a kóddal meg szeretnél oldani?
Egyébként a kód első ránézésre nagyon túlbonyolítottnak tűnik.Pl ez helyett:
Do While e1 < e2
s2 = s1 + 1
e2 = Cells(s2, 1).Value
e1 = Cells(s1, 1).Valueelég lenne ez:
Do While Cells(s1, 1).Value < Cells(s2, 1).Value
s2 = s1 + 1Ráadásul s1-et nem is növeled, szóval az s1 is felesleges, ha az mindig fix 1
"- Lehet úgy változót deklarálni, hogy a do while utasítás alatt található? Vagy már korábban meg kéne tennem?"
Persze, miért ne lehetneÉn kérek elnézést!
-
Lefty
addikt
Sziasztok!!
Elkezdtem most egy új programot, elég sok modulból állna, viszont próbálnám minél elegánsabban megírni.
Lényeg az, hogy lesz jó pár változó, amiket egynél többször nem akarok deklarálni, majd azt használni mindenhol. Ergo globális szinten kellene nekem az, hogy memóriába töltöm őket, majd bárhonnan meg tudjam hívni. Az sem pálya, hogy mondjuk egy külön modulban deklarálok mindent, majd ezt a részt meghívom az egyes subokban. Illetve option explicit sem pálya, mert úgy csak modul szinten tudok deklarálni, illetve memóriában helyet foglalni.
Van erre bármi mód? Köszi előre is!![ Szerkesztve ]
-
Lefty
addikt
válasz martonx #2193 üzenetére
ne haragudj, excel makró, vba.
még annyit hozzátennék, hogy a public változónév dologgal tisztában vagyok, de én pl olyat szeretnék, hogy egy set-el pl worksheet változóba töltök egy munkafüzetlapot, majd az bárhonnan elérhető legyen. Ok, hogy a public-al létrehozok egy globális változót, de hogyan adok neki értéket is?
-
-
bende126
csendes tag
Sziasztok!
Bocsánat, hogy eltűntem, de nem akartam, csak annyit beírni, hogy oké megpróbálom, amíg nem próbáltam ki ténylegesen. Szóval próbálgattam, de már nagyon nagyon fáj a fejem, hogy ennyire tré vagyok.
Jelenleg itt állok.
Sub nyomtatas()
sora = 1
sorb = 2
sore = Cells(sora, 1)
sore2 = Cells(sorb, 1)
Do
sora = sora + 1
sorb = sorb + 1
sorc = sora - 1
sore = Cells(sora, 1).Value
sore2 = Cells(sorb, 1).Value
Loop While sore = 2
sork = Cells(1, 1)
sorv = Cells(sorc, 12)
Range(Cells(1, 1), Cells(sorc, 13)).Select
Cells(2, 20).Value = "OK"
Cells(2, 21).Value = sora
Cells(2, 22).Value = sorb
Cells(2, 23).Value = sore
Cells(2, 24).Value = sore2
End subEz annyit csinál, hogy ami 2-es berendezés, az kijelölődik, Innen már csak nyomtatni kell, azzal nem boldogulok, valamint azzal sem, hogy hogyan tudom megkeresni a 3-as aztán a 4-es és így tovább a többi terméket majd kinyomtatni. Nem tudom elmenteni azt a változót, hogy megjegyezze, hogy hol hagyta abba a sorok számolását. Az OK, hogy megszámolja, hogy mondjuk, 6 sornyi 2-es berendezés van, ezt el is menti változóként, viszont hogyan tudom felhasználni, ezt a következő termékek ek megszámolásához? A 7-dik sortól kell elkezdenie számolni, de nem tudom, hogyan lehetne, illetve, hogy hogyan tudom megmondani neki, hogy most már a 3-as berendezést kezdje el számolni, aztán nyomtatni.
Nekem ez nagyon nehéz. Bárki tud segíteni annak nagyon hálás lennék.
Mellékelek egy képet az excel-ről.Rehor Gyula
-
McReay
aktív tag
Sziasztok!
Visual Basic-WPF programozás esetében datagrid segítségével szeretnék adatokat felvenni, módosítani meglévő adatbázisban.
A kapcsolatot az entity frameworkkel létesítem, szerintetek hogyan lehet megoldani?A meglévő adatok már betöltődnek a datagridbe, de azt hogyan tudom megoldani, hogy ha üres(új) sorba írok akkor mentés legyen, ha meglévő sorban módosítok akkor a módosított cella értéke módosuljon csak az adatbázisban?
Samsung Galaxy Note 8 --- Honda CBR 600 F4
-
martonx
veterán
WPF-et, pláne VB.NET-tel ezer éve használatam legutóbb, és csak ez miatt nem fogom fel eleveníteni az emlékeimet. Annyi rémlik, hogy elég triviális volt drag'n'drop-pal rádobni a wpf layout-ra a táblát, és ebből a VS eleve legenerálta a grid-et, meg a háttérben szükséges komponenseket (dataadapter, meg ilyesmik).
Utána pedig ezekkel a háttér komponensekkel kell játszani.Én kérek elnézést!
-
hiperFizikus
aktív tag
Szervusz mindenkinek !
A VBScript programnyelvel foglalkozom. Ez nagyon hasonló a VBasic-hoz csak a HTML környezetben van és le van egyszerűsítve. A „ Class...End Class ” eljárással foglalkozom kezdőként éppen, vagyis az OOP-sal. Kérem, hogy valaki magyaráza el, hogy a „ Class...End Class ” kulcsszók között a „ Property {Get, Let, Set} ...End Property ” mire van, hogyan kell használni, mit csinál, mert itt sajnos elakadtam ennél a pontnál??? Itt meg is nézhetitek .A gázt is és a féket is egyszerre nyomni nem menő dolog !