Hirdetés
-
Nemzetközi piacra érkezik az Amazfit Helio Ring
ma Elsőként az Egyesült Államokban lehet majd megvásárolni a gyártó első okosgyűrűjét.
-
Az átlagnál vaskosabb ventilátorok kandikáltak ki a Corsair vitorlája mögül
ph Az amerikai cég legfrissebb szériája kétféle méretben választható, és fél évtizedes jótállással kecsegteti leendő gazdáit.
-
Toyota Corolla Touring Sport 2.0 teszt és az autóipar
lo Némi autóipari kitekintés után egy középkategóriás autót mutatok be, ami az észszerűség műhelyében készül.
Új hozzászólás Aktív témák
-
sztanozs
veterán
válasz martonx #1900 üzenetére
Pl számológép? De akár egy gány módon elkészített form kitöltő program is lehet.
Bobrooney: ez annyira elüt a valós VBA felhasználástól, hogy ezen nem gyakorolni fogsz, hanem szívni... Az Excel VBA arra van, hogy a worksheetjeidet és az azokon található adatokat manipuláljad. Azt ajánlom, inkább ilyen feladatokat találj ki magadnak.
[ 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...
-
sztanozs
veterán
válasz Bobrooney #1903 üzenetére
callbyname azért nem működik, mert pont a másik irányból közelíti meg a kérdést, mint amit te szeretnél:
Nem egy függvényt vált ki (mint egy eseménykezelő), hanem egy már megírt függvényt lehet vele meghívni úgy, hogy nem a függvényt hívod meg közvetlenül, hanem átadod a környezetnek a függvény nevét és az argumentumokat és hagyod, hogy a futtatókörnyezet megkeresse neked. De ehhez fontos, hogy a függvények már készen legyenek. Nálad meg ugye az volna a lényeg, hogy a függvényeket ne kelljen megírni negyvenszer...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...
-
-
Bobrooney
senior tag
És skacok, rendesen Visual Basicben, azt hogy tudom megcsinálni, hogy egy TextBox-ba kiírom a form futási idejét? Mindig vizsgálom az eltelt időt?
-
VANESSZA1
őstag
válasz martonx #1915 üzenetére
Milyen részletek érdekelnek?
Ez egy Access adatbázis. Az egyik gépen tökéletesen működik, a másikon meg ez a hibaüzenet.
Telepítettem egy gépre új Win7-et azon megy, ami régi installálás azon meg nem megy.Precision M7710_&_Precision M7740- CPU: 9980HK, RAM: 32GB/3200MHz, GPU: RTX5000, IGZO 4K-UHD, SSD: 2TB Force MP510, 2TB ADATA XPG SX8200 PRO, 1TB SK HYNIX Class 50 SSD
-
martonx
veterán
válasz VANESSZA1 #1917 üzenetére
Alakul ez. Mint mondtam valamilyen adatbázis elérési hiba, esetleg odbc driver hiány lehet. Olyan részletek érdekelnek, hogy pl. mikor dobja ezt a hibát? Rögtön megnyitáskor, vagy valamilyen funkció megnyitásakor?
Mennyire bonyolult ez az Access db? Vannak benne belinkelt külső adatforrások? Van benne makró, és lehet az dobja a hibát?Én kérek elnézést!
-
VANESSZA1
őstag
válasz martonx #1918 üzenetére
Megtaláltam rá közben a megoldást az
ActiveX-OLE hibáraPrecision M7710_&_Precision M7740- CPU: 9980HK, RAM: 32GB/3200MHz, GPU: RTX5000, IGZO 4K-UHD, SSD: 2TB Force MP510, 2TB ADATA XPG SX8200 PRO, 1TB SK HYNIX Class 50 SSD
-
vilag
tag
Üdv!
Az lenne a kérdésem, hogy egy teljesen új munkafüzetbe hogyan lehet egy gombot, illetve egy hozzá tartozó kódot átvinni?
Egy jelenlegi kódrészletemnek az a feladata, hogy egy munkalapot (amint elvégeztetem a különböző számításokat ésatöbbi) másoljon, hozzon létre egy új munkafüzetet, oda pedig illessze be irányított beillesztéssel az értékeket.
Innen akarok továbblépni abba az irányba, hogy a létrehozott új munkafüzet adott munkalapján kellene nekem egy gombot létrehozni, ami végrehajtja a hozzá tartozó parancssort.
Előre is köszönöm a segítséget!
Üdv, vilag
-
vilag
tag
Félmegoldást már találtam a problémára.
Ha magát a munkalapot másolom, akkor a rajta lévő vezérlők és a hozzájuk tartozó kódok is mennek.
Sheets("Munka1").Copy After:=Sheets(1)
Ezzel viszont az a baj, hogy a 255 karakternél többet tartalmazó cellákat szépen lecsonkolja.
Ezt követően megpróbálkoztam azzal, hogy a munkalapon lévő adatokat másolom és irányított beillesztéssel (értékként) az új munkalapra másolom. Ennek viszont az a baja, hogy az egyesített celláknak azonos méretűnek kell lennie.
A vicc csak az, hogy azonos méretűek.Erre esetleg valami megoldás?
Üdv, vilag
-
martonx
veterán
Már mondtam. Amit csinálsz az régen meghaladja azt, amire az excel makróját kitalálták.
Persze annak idején olyat is láttam mikor valaki komplett ügyviteli rendszert írt excel makróban (néhány önkormányzatnál komolyan ilyet használtak), de az olyan is volt.Én kérek elnézést!
-
vilag
tag
válasz martonx #1924 üzenetére
Tudom!
Emlékszem is rá, de (mert ugye mindig van egy "DE"...) jelenleg, hogy úgy mondjam hozott anyagból kell dolgoznom (persze azt is én írtam, nemi segítséggel), mert a meglévőt kell továbbfejlesztenem.
Sajnos az eddig is 8 órát kitevő munkaköröm mellé (amibe eddig azért belefért egy kis programozás is) egy távozó kollégám 8 órás munkakörét is ideadták (mondanom sem kell, hogy ugyan azért a bérért). Ennek következtében most 16 órányi munkát kell elvégeznem 8 órában, így sajnálatos módon örülök, hogy ha a toldozás-foldozásra jut időm.
Így új programozási nyelv megtanulásáról egyelőre nem is álmodhatok, sajnos...
Szerk.: melyik nyelvben is maradtunk, mert most kényszerszabadságra megyek egy időre (értsd: sok szabadság maradt, így most ki kell vegyem) és ha a sok bejgli evés mellett lesz kedvem, akkor lehet, hogy nekiesek.
[ Szerkesztve ]
-
emitter
őstag
Sziasztok,
Outlook 2010-ben szeretnék adott szóval kezdődő tárgyú beérkező emaileket más mappába áthelyezni. Erre (egyéni levélszűrő szabályra) 3 féle lehetőség van, ahogy olvastam, én a másodikat próbáltam. A gondom az, hogy bár lefut a kód, ki is írja a felugró ablakban, hogy "Moved", de nem helyezi át a levelet az Inboxból a "Tickets" nevű mappába.
Mi lehet a gond?A kódom az alábbi (a Microsoft Visual Basic for Applications-ban a ThisOutlookSession-ben van):
Option Explicit
Private WithEvents olInboxItems As Items
Private Sub Application_Startup()
Dim objNS As NameSpace
Set objNS = Application.Session
' instantiate objects declared WithEvents
Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
Set objNS = Nothing
End Sub
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
Dim objInboxFolder As Outlook.MAPIFolder
Dim objSentFolder As Outlook.MAPIFolder
Set objInboxFolder = Session.GetDefaultFolder(olFolderInbox)
Set objSentFolder = objInboxFolder.Parent.Folders("Tickets")
Dim strSubject As String
Dim strLeft8 As String
Dim strLeft12 As String
strSubject = Item.Subject
strLeft8 = Left(strSubject, 8)
strLeft12 = Left(strSubject, 12)
If strLeft8 = "[Ticket#" Or strLeft12 = "RE: [Ticket#" Or strLeft12 = "Re: [Ticket#" Then
Item.SaveSentMessageFolder objSentFolder
Item.Save
MsgBox ("Moved")
End If
Set objInboxFolder = Nothing
Set objSentFolder = Nothing
Set Item = Nothing
End Sub -
Draken
őstag
Sziasztok!
egy ismerősöm nevében írok, neki kellene egy kis segítség, annyit mondott, hogy szeretne egy checkoxot amibe van szöveg illetve button amivel a sor első betűje 5-el nagyobb betűméret és piros, illetve még valamilyen színkeveréses feladatot akar megcsinálni. Ezeket hogyan tudná kivitelezni? köszönöm!
-
sztanozs
veterán
Ugynaz - illetve pluszban még az change (vagy onchange?) eseményt (és esetleg az összes keydown vagy keyup eseményt) kell felülvágni, hogy a bevitt adatokat konvertálja számmá. Esetleg használhatsz masked control-t is, aminél asszem ezeket (formátum) be lehet állítani...
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...
-
bir0sz
csendes tag
Sziasztok !
Van egy probléma, amire nem tudok megoldást: vbsciptet futtatok sheduled taskban.
A task nem fut le, ezt a hibát dobja :
"Task Scheduler did not launch task " X " because instance "{deacf9ec-eeef-420f-aca0-b0a458dd7667}" of the same task is already running."A script sem fut le, azaz hibát dob.
a wscript.exe -t hiába állítom le, ua.Szerintem a script fut még a háttérben.
Copyright vs. Community in the age of Computer Networks
-
vilag
tag
Sziasztok!
Kis segítségre lenne szükségem.
Olyan problémába futottam bele VBA használata közben.
Egy UserFormon van egy CheckBox, ami ha true értéket kap, akkor UserFormX.Show paranccsal meghív egy másik UserFormot.
Az a probléma, hogy sehogyan sem tudom elérni, hogy ez utóbb megjelenő UserFormon levő TextBox legyen az aktív és abban villogjon a kurzor.A következőket próbáltam:
-a UserForm initializálás rutinjába írni a TextBoxX.Setfocus parancsot
-a TabOrderrel variálni,
-a másik UserFormon megírni a TextBoxX.SetFocus parancsot oda ahová visszatér
de semmi sem működött.Ötlet?
-
-
vilag
tag
válasz sztanozs #1937 üzenetére
Üdv!
Megpróbáltam, de ez a Sub le sem fut
A UserForm_Initialize () után még lefut a TextBox1_Change(), majd visszatér a CheckBox1_Click ()-be és itt véget is ér a történet.
A vicces azonban az (amit eddig nem vettem észre), hogy a UserForm megjelenése után a textboxban van már érték (ez eddig is így volt) és ugyan fókuszba hozni nem tudom a textboxot, de backspace-el mégis ki lehet törölgetni azt ami benne van, írni viszont már nem tudok bele.
Más ötlet esetleg?
-
vilag
tag
válasz sztanozs #1939 üzenetére
Elképzelhető, de nem tudom milyen gond okozhatja ezt.
Nekem egyszerűen be sem lép az újonnan megjelenő UserForm Userform_Activate () rutinba.
Nálam CheckBox1_Changeből indul a dolog, majd Userform_Initialize-el folytatódik, ahonnan teszünk egy kis kitérőt a TextBox1_Change-be, amikor is értéket vesz fel a TextBox1, onnan vissza a Userform_Initialize-be, majd vissza a CheckBox1_Change-be, aztán pedig itt a vége fuss el véle.
-
vilag
tag
Volna nekem egy más jellegű kérdésem is.
A kollégám írt egy Microsoft Office Excel bővítményt, mely arra hivatott, hogy függvényként használva a hivatkozott cellában lévő számot szöveggé alakítja (pl.: 635 -> hatszázharmincöt).
Ezt a bővítményt a következő módon adtuk hozzá az excelhez:
Eszközök/Bővítménykezelő.../
Saját függvények -> pipa
Tallózás
Betallózom a fájlt és készA bővítmény, így már függvényként használható (pl.: a "b1" cellába beírom a következőt =szamszov(a1)).
A probléma az, hogy időnként ezt a betallózást újra meg kell csinálni, mert egyszerűen nem hajlandó az átalakítást elvégezni. Arra még nem sikerült rájönni, hogy ennek mi az oka.
Azonban ezekben az esetekben a (példát követve) a "b1" cellába beírt "=szabszov(a1)" képlet helyett, az van ott, hogy "='C:\Documents and Settings\[felhasználónév]\Application Data\Microsoft\Bővítmények\sajatfuggvenyek.xla'!szamszov(a1)a "b1" cellában pedig ez jelenik meg a szöveg helyett:#NÉV?
Van valakinek ötlete, hogy ez miért következik be időnként randomnak látszó módon?
Esetleg valami nincs megfelelően definiálva?
Tudna valaki ennek a meglehetősen idegesítő hibának a megszüntetésében?[ Szerkesztve ]
-
EkSYS
senior tag
Sziasztok!
Olyat hogy lehet csinálni hogy egy userformon lévő textboxon keresztül a user megad egy számot (1-től 10-ig) majd ennek megfelelően a program létrehozza a megadott számú textboxot ugyanezen a formon (vagy akár újon) és hogy lehet dolgozni /azonosítani ezeket a textboxot hogy ezeknek az értékeit tudjam használni?
köszi
bEki - az eredeti
-
Homer
tag
Pl. vb.NET-ben:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = InputBox("Add meg a textboxok számát", "Program", 1)
For i As Integer = 0 To x - 1
Dim teksztboksz As New TextBox
teksztboksz.Location = New Point(10, 5 + i * 20)
Me.Controls.Add(teksztboksz)
Next
End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim hanyadik As Integer = 0
For Each elem As Object In Me.Controls
If TypeOf elem Is TextBox Then
hanyadik += 1
If elem.text <> "" Then
MsgBox("A(z) " & hanyadik & ". textbox tartalma: " & elem.text)
End If
End If
Next
End Sub -
EkSYS
senior tag
Köszönöm . Vb.netben meg nem próbáltam.
Eki - az eredeti