Új hozzászólás Aktív témák
-
ArchElf
addikt
válasz ArchElf #1529 üzenetére
Egészbe:
Sub Main()
Dim ev As Integer
Dim szokoev As String
ev = 0
szokoev = ""
If Integer.TryParse(Console.ReadLine(), ev) Then
If (ev Mod 400 = 0) Then
szokoev = ""
ElseIf (ev Mod 100 = 0) Then
szokoev = "nem "
ElseIf (ev Mod 4 = 0) Then
szokoev = ""
Else
szokoev = "nem "
End If
Console.WriteLine("A {0}. év {1}szökőév.", ev, szokoev)
Else
Console.WriteLine("A beadott érték nem szám.")
End If
Console.ReadKey()
End SubC#-ban a % a VB-s MOD (egész osztás maradéka).
AE
[ Szerkesztve ]
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
martonx
veterán
-
-
vilag
tag
válasz ArchElf #1603 üzenetére
Akkor röviden a lényeg.
Egy gazdálkodói adatbázisról lenne szó, minden egyes adathoz (legalább is a nagy részéhez) tartozik egy userform vezérlő.
A userformnak kettős célja van, egyrészt lehetővé teszi a meglévő adatbázisban a találatok szűkítését az adott vezérlőbe írt szöveg alapján, másrész új tételek felvitelére is alkalmas lesz (legalább is eddig ez a terv)
Induló állapotban a listbox tartalmazza a teljes adatbázist. A beírt karakterek alapján az adatbázis (és így a listbox is) szűkítésre kerül.
Ha a szűkítés megtörtént és látható a (vélhetően) keresett gazdálkodó, akkor a listboxban rákattinthatunk a keresett emberkére, és egy gombot megnyomva az összes adata betöltődik a megfelelő vezérlőbe ahol ezután változtatásokat hajthatunk végre az adatain.Összegezve tehát jól "ment le" neked a dolog, két említett probléma független egymástól.
Valóban a címsorban akartam keresni. Pontosítva a címsor megfelelő szövegét kerestem, hogy megkaphassam a helyét (oszlop sorszmát), mert később szeretnék hivatkozni a helyére (amikor visszatöltöm az adatokat), de az adatbázis oszlopbeosztása még képlékeny, ezért nem akartam abszolult hivatkozásokat (vagy offset-et) használni. Mert ha esetleg később be kell szúrnom egy oszlopot (vagy éppen ki kell vennem) akkor nézhetném át az egész kódot, így viszont nem kell ilyesmivel törődnöm.
Remélem nagyjából értelmezhető amit írtam.
Egy pár kép, hogy jobban átlátható legyen a dolog:
[link][ Szerkesztve ]
-
vilag
tag
válasz ArchElf #1696 üzenetére
Üdv!
Úgy tűnik, hogy az automatikus számolás okozza ezt a fölösleges futkározást.
Már csak abban legyetek a segítségemre, hogy magyarázzátok el, hogy ennek a bekapcsolása miért is okozza azt, hogy folyton lefut a change.Volna még egy olyan kérdésem, hogy a userform jobb felső sarkában található "X" gombot le lehet e valahogyan tiltani, mert az terminate-re futtatja a kódot, amin viszont már nem tudok megállítani, meg egyébként is okoz nekem más problémákat.
Van nekem egy másik problémám is, bár könnyen meglehet, hogy nem kapcsolódik szorosan a VBA-hoz.
A probléma a fájl biztonsági beállításoknál van. A már említett programocskát többen is használjuk, de azt szeretném elérni, hogy írásra csak bizonyos felhasználóknak legyen elérhető. Eddig még nincs is gond, csak az a baj, hogy az egyik felhasználó akinek írásra is engedélyezve van a fájl, valahogyan mindig saját tulajdonba veszi a fájlt (mikor ráment) és a biztonsági beállítások elszállnak, aminek egyenes következménye, hogy megint mindenki hozzáfér írásra.Tud nekem ebben valaki segíteni?
Üdv, vilag
-
Oly
senior tag
válasz ArchElf #1722 üzenetére
Szia
Private Sub Command1_Click()
Dim objOutlook, objMail, oAddSig
Set objOutlook = CreateObject("Outlook.Application")
objOutlook.Session.Logon
Set objMail = objOutlook.CreateItem(olMailItem)
Set objOutlook = objMail.GetInspector
With objMail
.SentOnBehalfOfName = "nemazennevem@valami.hu"
.To = "to"
.Cc = "cc"
.Subject = "Subject"
.Body = "body"
.Display
End With
Set objOutlook = Nothing
Set objMail = Nothing
End SubOutlook2007-nél átírja a feladót, Excelből indítva 2010-nél is.
HTML-ből, vagy VB6-tal csinált exe-nél már nem.
2010-nél egy lenyíló listából tudom kiválasztani az eddig használt feladókat. Lehet, hogy itt valami objektumként kezeli már?SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
ArchElf
addikt
válasz ArchElf #1724 üzenetére
MS oldala csak Office 2003-ig írja a támogatást - lehet, hogy Office-on kívül már nem működik... Passz.
És még ezt találtam.
AE
[ Szerkesztve ]
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
martonx
veterán
válasz ArchElf #1757 üzenetére
én személy szerint egy tömb sorba rendezését tényleg úgy oldanám meg excelben, hogy eleve cellákba tölteném az adatokat, majd a cellákat sorba rendezném, és kész is. Egyébként az egész VBA-n látszik, hogy a tömbök kezelése eléggé mostoha gyerek benne.
Ugyanígy fenti módszerrel szoktam tömbben keresni is, azaz erre is a cellákat, és az FKERES-t használom inkább.
Ráadásul, amennyivel macerásabbnak tűnik cellákban keresni, sorba rendezni annyival gyorsabb, mint VBA-ban for ciklusokat pörgetni, mindenféle feltétel mentén.
És erre mondtam, hogy excel makróban koncepcionális hiba nem a cellákat, és az excel built-in funkcióit használni tömb műveletekre.
De mindez csak a véleményem, tapasztalatom. Nem mondom, hogy ez az egyetlen járható, ürdözítő út.
Én kérek elnézést!
Új hozzászólás Aktív témák
- Politika
- HiFi műszaki szemmel - sztereó hangrendszerek
- ThinkPad (NEM IdeaPad)
- Computex 2024: még két Socket AM4-es Ryzen jön
- Márkaértékben az Apple a legjobb a világon
- Honor Magic6 Pro - kör közepén számok
- Milyen billentyűzetet vegyek?
- OLED TV topic
- Ránézésre nem változik a Pixel Watch 3
- BMW topik
- További aktív témák...
- Lenovo ThinkPad T480, I5-8350U, 8GB RAM, 256GB SSD, FHD, 2 év garancia, Áfás számla! (63)
- Eredeti, új, Airpods Pro 2 lightning töltőtok, 6 hó apple gari A2700
- Eredeti, új AirPods Pro 2 lightning bal oldali füles A2699
- Eredeti, új AirPods Pro 2 lightning jobb oldali füles A2698
- Isotek Evo 3 Polaris tápszűrő, elosztó