Új hozzászólás Aktív témák
-
drkbl
őstag
Nem mindegy, melyik hosttal futtatod a vbscript-et, WScript-el vagy CScript-el!
Az echo eljárás doksija szerint wscript hosttal dialógusablak, cscript-el futtatva egy sort ad vissza a konzolablakba.
-
mezis
nagyúr
válasz martonx #1654 üzenetére
Bocs !
Akkor most inkább gyorsan bevallom, hogy Algol-68, Fortran IV -el kezdtem a programírást, script nyelvnek a Focal meg a TECO-macro volt. A PC-ken meg a FoxBase, Clipper volt számomra elérhető. Ez utóbbiról (illetve az MS-DOS ]dir parancsáról) is csak azért váltottam egy ilyen hiper/szuper csilivilire, mert a Windows ékezetes karakterei nem stimmelnek az MS-DOS karaktereivel
Azon meglepődtem, hogy milyen komplikált Windowsban megoldani a képernyőre való kiírás várakozás nélkül. (Gondoltam ott marad nyitva az ablak, majd becsukja akit zavar.)
Az programot (és elődjeit) CD, DVD tartalmak nyilvántartására használom. Egy alkönyvtárban gyűjtöm az ilyen file-okat, melyeknek a neve azonos CD, DVD nevével.
Keresésre az intéző keresőjét használom. Ez egy újabb, remek lehetőség, hogy a csv file-t meg tudja nyitni pl. táblázat kezelő is.A dupla kattintásos indítás külön jól jön, ha az ismerősöm is használni fogja.
Tegnap már próbálgattam a cscript.exe -vel való futtatást, a jelenlegi verzió ugyanúgy fut, sajnos az echo utasítást már eltüntettem belőle. Késő volt és már fáradt voltam. Nagyon kimerít engem ez az objektum orientált programozás.
Köszönöm a tanácsokat !
[ Szerkesztve ]
mezis
-
martonx
veterán
A VbScript nem objektum orientált. Vagy ez poén akart lenni? Mert a hsz-edről végig nem tudtam eldönteni, hogy ez most komoly, vagy poén volt.
Nem sértődtem meg, nem kell bocsánatot kérned.
Windowsban nem komplikált képernyőre adatokat kiíratni, vbscriptben mondhatjuk komplikálnak, mert egyszerűen nem erre készült, vagy aki mégis erre akarja használni, az cscript-tel futtatja
Ha meg dupla kattintással akarod használni, akkor .hta-ként csináld meg a vbscriptedet, és akkor ismét könnyű lesz az adatokat kiíratni.Én kérek elnézést!
-
mezis
nagyúr
válasz martonx #1656 üzenetére
Kinézete alapján fogtam rá, hogy objektum orientált. Vagyis számomra érthetetlenül túlkomplikált. Könyvhöz még nem jutottam hozzá, internetről próbáltam beletanulni a VBS programozásba. A legzavarosabb számomra az, hogy meddig VBS és honnan Visual Basic.
Az MS-nek a honlapján folyton összezavarodtak (csak nekem ? ) az információk, az előbb még egyértelműen VBS magyarázat volt előttem, aztán egy óvatlan katintás után már lehet, hogy C#.)
(Ja, elfelejtettem, hogy Commodore 64-en is írtam Basic nyelven programot. Innen gondoltam, hogy csak fog ez menni valahogy.)
Meg arra gondoltam, hogy a makro programokról is illő lenne már egy keveset tudnom, ha egyszer már a PDP-8 TECO macrojában annak idején teljesen otthon voltam.A .hta -hoz jól gondolom, hogy a HTML-en keresztül vezet egy bizonyára göröngyös út ?
(A WEB lap készítésbe is bele kellene már csapni, kezd ciki lenni, lassan már a nagycsoportosok is csinálják az oviban.)Átolvastam már néhány könyvet Java, C, Webvilág) a mostanában elterjedt nyelvekről, sajnos azt tapasztaltam, hogy a Lőcs Gy. Fortran IV, könyvével ellentétben egyik sem egy komplett leírás, hanem vagy az elejéből, vagy a "magasabb" részéből ír le valamennyit.
A Clipper5-öt is rongyosra olvastam, miközben folyamatosan fejlesztettem a programjaimat, de ott is tapasztaltam, hogy nem mindig komplett egy utasítás, fv. leírása.mezis
-
-
mezis
nagyúr
Üdv.!
Dupla kattintással remekül működik a VBS script programom, amely CD, DVD, vagy bármelyik alkönyvtár nyilvántartását írja ki egy .csv file-ba. Mindaddig, amíg nincs abban az alkönyvtárban egy cirill betűs file név (РадиоКот __ Радиометрический дозиметр GreenRay.mht).
A hibaüzenet ez:
Kivédhető ez valahogy ?
(A vastagon kiemelt utasításba döglik bele.)
Function listFiles(strFolder)
If objFileSystem.FolderExists(strFolder) Then
Set objFolder = objFileSystem.GetFolder(strFolder)
For Each objFile In objFolder.FilesobjCsvFile.Write objFile.Name & ";" & objFolder.Path & vbNewLine
Next
For Each objSubFolder In objFolder.SubFolderslistFiles objSubFolder.path
Next
Else
MsgBox "A megadott " & strFolder & "mappa nem létezik !"
End If
End Function[ Szerkesztve ]
mezis
-
mezis
nagyúr
Bocs, most jöttem rá, hogy lehet programkódot is beilleszteni:
Function listFiles(strFolder)
If objFileSystem.FolderExists(strFolder) Then
Set objFolder = objFileSystem.GetFolder(strFolder)
For Each objFile In objFolder.Files
objCsvFile.Write objFile.Name & ";" & objFolder.Path & vbNewLine
Next
For Each objSubFolder In objFolder.SubFolders
listFiles objSubFolder.path
Next
Else
MsgBox "A megadott " & strFolder & "mappa nem létezik !"
End If
End Function[ Szerkesztve ]
mezis
-
drkbl
őstag
Sajnos a konzolablak ASCII valami, pl. magyar Windowson 852-es kibővített kódtábla, így a Unicode->nemzeti ASCII konverzió során bármi kerülhet a fájlnévbe.
Segíthet, ha dir /s paranccsal kilistáztatod az adott könyvtárakat, és megnézed, mivé lesz a cirill karakter.
Ha ott jónak tűnik, ideiglenesen cseréld le a rekurzív
listFiles objSubFolder.path
sort
MsgBox objSubFolder.path
sorra, és nézd meg, mi jelenik meg.Bónusz: nézd át a hibakezelést, és egy hibaüzenet megjelenítésével lépj át a problémás alkönyvtárakon
-
mezis
nagyúr
Még mielőtt bármi bekerülhetne a file névbe, ledöglik. Az alkönyvtárban a legutolsó helyen van a névsorban a Cirill betűs file. Az összes többi file neve bekerül a listába.
(MsgBox esetén is file-ba kerül egy ugyanolyan lista. Valószínű, hogy csiki/csuki-t kellene játszanom a lista file-lal, de nem hiszem, hogy a monitorra más karakter, illetve egyáltalán kerülne valami is a Cirill betűkből.)
A DOS dir parancsa a cirill betűk helyett ? jeleket tesz. Most vettem észre, hogy a file nevének a vége latin karakterekből áll ! A DOS dir ezeket helyesen jeleníti meg a kérdőjelek után. Ugyanígy jártam, amikor a Win vágólapról a Notepad2-vel szerkesztett szövegfile-ba "kézzel" másoltam be a cirill betűs file nevet
Hibakezelést hol lehet nézni ?
[ Szerkesztve ]
mezis
-
drkbl
őstag
A ? a gond, az ugye érvénytelen karakter a fájl/mappanévben. Unicode támogatás nem Unicode nyelvekhez XP+ rendszereken van, Vezérlőpult nyelvi beállítások (W7: Vezérlőpult>Óra,Nyelv és terület>Másik billentyűzet vagy beviteli módszer megadása>Felügyelet fül alsó része), de nem tudom, segítene-e.
Hibakezelés az On Error és Goto -
Messss
csendes tag
ÜDV!
Sztem egy egyszerű kérdésem lenne, azonban sehol nem találom rá a választ, illetve bárhogy próbálom megoldani a problémát, valami hibába ütközök.
Visual Studio2010-et használok. Egy több oszlopos listbox-ot szeretnék készíteni.
A listbox beállításainál be is állítottam true értékre a MultiColumn-t.
Azonban nem tudom, hogy adhatok a ListBox1-hez értékeket úgy, hogy azok táblázatos formában jelenjenek meg.
A lista oszlopszámát be kell állítanom?
Előre is köszi!
-
drkbl
őstag
A multicolumn ListBox nem az, amire gondolsz! Az csak azért többoszlopos, hogy ne kelljen függőlegesen görgetni [1]. Használj Grid-et.
[1] A multicolumn ListBox places items into as many columns as are needed to make vertical scrolling unnecessary. The user can use the keyboard to navigate to columns that are not currently visible. Set the HorizontalScrollbar property to true to display a horizontal scroll bar that enables the user to scroll to columns that are not currently shown in the visible region of the ListBox. The value of the ColumnWidth property determines the width of each column. [link]
-
Messss
csendes tag
Köszi, akkor ezt benéztem a MultiColumn-al....
Viszont a grid sem lesz jó nekem, mivel ahogy látom ehhez kellene access, akiknek pedig készülne az alkalmazás, azoknak nincsen.
Épp ezért én excel-el akartam megoldani. Tehát a Form1_Load-be betölteni az excel-ből az adatokat ebbe a ListBox-ba, az adatok felvitelekor pedig bekerülne excel-be is és a ListBox-ba is. Excel nyilvántartásra is szükség van, így ezt tartom logikusnak. Azonban sehogy sem tudom táblázatos megjelenítésre bírni a ListBox-ot.
-
martonx
veterán
ember, felejtsd el a listbox-ot!
Az excelt mint adatforrás tudod használni.
Ennél elegánsabb, ha SQL Compact-ot, vagy SQL Express-t használsz adattárolásra, és erre kötöd rá az excelt, és a Forms alkalmazásodat is.
Sőt még jobb, ha egy makrósított excel-lel oldod meg az egészet.Én kérek elnézést!
-
martonx
veterán
Én kérek elnézést!
-
mezis
nagyúr
A Cirill betűs támogatás rendben van, az intéző is ezért tudja megjeleníteni. Cirill betűs billentyűzetet is tudtam készíteni. (Ezt a Win7 még akkor rendezte, amikor az Opera böngésző szembetalálta magát egy orosz WEB oldallal.)
Az MS táblázatkezelőjével és a LibreOffice-el is be tudom másolni a táblázatba ezt a Cirill betűs file nevet.
Most már biztos vagyok benne, hogy ez a "DOS közeli" szoftverek (VBS, Notepad2) problémája, amivel bizonyára az MS sem óhajt foglalkozni. Nekem sikerült úgy megoldanom, hogy a listázásból kimaradt alkönyvtárakra egyesével lefuttattam a programomat és az eredményeket "hozzászerkesztettem" félbemaradt lista file-hoz. A jövőben kerülni fogom a problémát okozó file nevek használatát.
mezis
-
drkbl
őstag
A "DOS-közeli" dolgok Unicode támogatását nem tudják megoldani, mert az a meglévő, régebbi programok működését lehetetlenné tenné (Nemzeti ASCII kódolás: 1 karakter 1 byte, Unicode: 1..4 byte).
Az újabb rendszerhívások már támogatják az Unicode kódolást, ráadásul a több nyelv egyidejű támogatását is.
Amit ajánlottam, az csak a nemzeti ASCII variálása lett volna.A legjobb megoldást választottad, hacsak nem fogod fel a helyzetet bíztatásnak egy modernebb programnyelv megtanulására
-
Messss
csendes tag
Köszönöm az infókat. Létrehoztam már a kapcsolatot az excelem és a grid között, szépen meg is jelenik.
Belevetem magam a dokumentációknak, lehet-e olyat, hogy online legyen a kapcsolat a grid és az excel között, tehát ha elemet adok az excelhez, akkor az megjelenjen a grid-en is.Köszi mégegyszer.
-
wikings2
őstag
vb parancsokat autódidaktaként tanuljátok, vagy valamilyen logika alapján?
Vannak problémák/feladatok amiknek a megoldásához kő kemény alapozás kéne, de emelt érettségin alig ha lesz annyi időm hogy én leüljek csak úgy tervezgetni :\
Hogy tudnám valamilyen logika mentén elsajátítani a ciklusokat és azok működési elvét és fontosabb funkcióját? (mondjuk x elemből válogassa ki az y nál nagyobbakat és ezeket listázza vagy ilyesmikre gondolok.)
Köszi előre is.Talán én is Pest vagyok... Pest a pestiségem. Pest,hogy rég Pesten lakok, s nem lettem pesti mégsem.
-
wikings2
őstag
A megoldásokat általában tanulmányozás után feldolgozza az agyam, de néha olyan parancsrészleteket használ, hogy magamtól megírni ilyeneket kevésnek érzem magam. Utolsó évre hagyta az infótanár a programozást, és kb nem ért hozzá semmit sem. A már kész megoldásokat szedi le és felkommentelve magyaráz nekünk...
Sajna nincs meg a rutinom ami nagyon kellene :\Néha még azt sem tudom eldönteni hogy mennyi dolgot kell deklarálnom hiszen nem látom előre hogy hova, mit, meddig kell pakolnom egy egyszerű kereséshez vagy sorba tételhez.
Vagyis menne... de az emelt szintű 9 feladatából az első 5 höz kellett kb 3 óra hogy magamtól megírjam mindenféle segítség nélkül.Doksi.hu-n még nem jártam de felnézek, hátha találok valami okosságot
Köszi szépen mindenesetreTalán én is Pest vagyok... Pest a pestiségem. Pest,hogy rég Pesten lakok, s nem lettem pesti mégsem.
-
vilag
tag
Sziasztok
Egy furcsaságra lettem figyelmes az egyik általam írt programban.
Az a baj, hogy nem csak furcsa, hanem bonyodalmakat is okozott, melynek kikerülésére egy újabb változót voltam kénytlen bevezetni.A jelenség a következő:
Adott egy userform,.amin vezérlők és fram-ek is vannak.
Az egyik (ponosabban kettő) vezérlő change rutinja akkor is lefut amikor azt se nem hívom meg, se nem folyik olyan művelet (legalább is ismereteim szerint) aminek azt meg kellene hívnia.A folyamat a következő:
adott egy gomb a userformon aminek a megnyomásával 3 comboboxban és egy textboxban lévő text visszaíródik az excel tábla megfelelő sorának megfelelelő helyére.
Ekkor azonban (nem tudom miért) el kezd lefutni egy tök másik combobox (amelynek tudtommal nincs köze az adott eseményekhez) change rutinja.Van valakinek valami ötlete, hogy ezt mi okozhatja? Léptetéssel végignéztem, de sehol nem találok olyan sort amely indokolná ennek a changenek a lefutását.
Várom az ötleteket.
Üdv, vilag
-
Oly
senior tag
Sziasztok
Van egy HTML űrlapom, amit VBA (vagyVBS... mittomén ) dolgoz fel.
Nem találom, hogy miként tudnék dolgozni a kijelölt radio button értékével.<label>
<input type="radio" name="szin" value="Fekete">
Fekete </label>
<br>
<label>
<input type="radio" name="szin" value="Fehér">
Fehér </label>Hogyan tudnám változóként kezelni, hogy mit jelölünk ki?
Select esetén működik a document.getElementById("orszagok").value
<label for="orszagok">Válasszon országot:</label>
<select name="orszagok" id="orszagok">
<option value="HU">Magyarország</option>
<option value="AT">Ausztria</option>
<option value="BE">Belgium</option>
<option value="BG">Bulgária</option>
</select>Vannak olyan esetek, amikor a radio Button jobb lenne.
Előre is köszönöm.
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
Oly
senior tag
válasz martonx #1683 üzenetére
Azt hittem, hogy van jobb lehetőség is.
Mivel csak 2-3 button van, így nem gázos... KösziMás:
Function mailsender()
Dim objOutlook, objMail, oAddSig
Set objOutlook = CreateObject("Outlook.Application")
objOutlook.Session.Logon
Set objMail = objOutlook.CreateItem(olMailItem)
Set objOutlook = objMail.GetInspector
With objMail
.SentOnBehalfOfName = "from"
.To = "to"
.Cc = "cc"
.Subject = "Subject"
.Body = "Body"
.Display
End With
Set objOutlook = Nothing
Set objMail = Nothing
End FunctionHogyan tudnám megadni, hogy a felugró levélhez már szúrja be az alapértelmezett Outlook aláírást is?
Amiket találtam (pl: [link]) azért nem jó, mert több gépen fogják használni, más-más aláírási filenévvel.Találtam egy ilyet is, de ez meg nem akar működni HTML-be ültetve.
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
document.getElementById("orszagok").value
RadioButton esetén is működik, ha van ID property-je... Nálad nem volt.Amúgy meg RadioButtonra ott a
document.getElementsByName("szin")
Ezen egy foreach-el végignyomulsz, és megnézed melyik value melett igaz a checked property...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]
-
Oly
senior tag
Az otthoni gépemen már működött a lenti script, de melóban nem megy.
Win7 + Outlook 2007 és Server 2003 + Outlook 2010 esetén sem ment.
Azt mondta, hogy:
ActiveX component can't create object: 'Outlook.Application'SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
Messss
csendes tag
ÜDV!
Újabb kérdésem lenne.
Létrehoztam 2 objektumot, az egyikbe nyitottam egy excel fájlt, ezt tudom is kezelni, nincs vele gond. A másikba pedig egy word-öt.
A Wordbe beszúrtam egy szövegmezőt text1 névvel. Egy formról szeretnék ennek értéket adni.Wrd = CreateObject("Word.Application")
Wrd.Visible = True
Wrd.Documents.Open("F:\Szerzodes.doc")
Wrd.Documents.text1 = TextBox1.Text 'itt a hiba.... -
vilag
tag
válasz martonx #1681 üzenetére
De tudomásom szerint csak excelbe történő kiírás folyik, onnan visszaolvasás nem. Legalább is ennél a folyamatnál nem. Tehát nem tudok rájönni, hogy mi indokolja egy elvileg nem érintett combobox change-ének lefutását. Mitől változna az értéke????
Csak egy nyamvad évszám van benne.
Akkor a kódrészletek:
A gomb megnyomásakor ez fut le:
Private Sub CommandButton6_Click() 'Partner rögzítése a gyakori partnerek listájára
If ComboBox12.Text = "" Or ComboBox2.Text = "" Or TextBox3.Text = "" Or ComboBox1.Text = "" Then
hiba = MsgBox("Valamely címzéshez szükséges adat hiányzik, kérlek ellenőrizd!", 16, "Címadat hiba")
Exit Sub
End If
üzenet = MsgBox("Biztosan rögzíteni akarod a partnert a gyakori partnerek listájára az alábbi adatokkal?" + Chr(13) + Chr(13) + _
"Név:" + Chr(9) + Chr(9) + ComboBox12.Text + Chr(13) + _
"Település:" + Chr(9) + ComboBox2.Text + Chr(13) + _
"Utca, hászám:" + Chr(9) + TextBox3.Text + Chr(13) + _
"Irányítószám:" + Chr(9) + ComboBox1.Text, 36, "Partnerrögzítés")
If üzenet = 2 Then
Exit Sub
Else
kileptet = False
partnerujsor = ThisWorkbook.Worksheets("Partnerek").Range("a2").End(xlDown).Row + 1
ThisWorkbook.Worksheets("Partnerek").Range("a" + Trim(Str(partnerujsor))).Value = Trim(Str(partnerujsor - 1))
ThisWorkbook.Worksheets("Partnerek").Range("b" + Trim(Str(partnerujsor))).Value = ComboBox12.Text
ThisWorkbook.Worksheets("Partnerek").Range("c" + Trim(Str(partnerujsor))).Value = ComboBox2.Text
ThisWorkbook.Worksheets("Partnerek").Range("d" + Trim(Str(partnerujsor))).Value = TextBox3.Text
ThisWorkbook.Worksheets("Partnerek").Range("e" + Trim(Str(partnerujsor))).Value = ComboBox1.Text
kileptet = True
End If
End Subahol kiléptet=a probléma miatt bevezetett változó
A futkározó vezérlő change-e:
Private Sub ComboBox4_Change() 'postázás éve
If kileptet = False Then Exit Sub
If eloszor = True Then Exit Sub
CommandButton3.Enabled = True
CommandButton2.Enabled = True
If ComboBox4.MatchFound = False And Len(ComboBox4.Value) > 0 Then
hiba = MsgBox("A postázás éve négy jegyű és nem térhet el az aktuális évtől egy évvel többel!", vbCritical + vbOKOnly, "Dátum beviteli hiba")
ComboBox4.ListIndex = -1
Exit Sub
End If
If ComboBox4.ListIndex = -1 Then Exit Sub
postev = ComboBox4.Value
If Int(postev / 4) <> postev / 4 Then szoko = False Else szoko = True
If postho = "02" Then
If szoko = True Then
ComboBox6.RowSource = "napló!h2:h30"
If ComboBox6.ListIndex = -1 Then
ComboBox6.ListIndex = 28
postnap = ComboBox6.Text
End If
Else
ComboBox6.RowSource = "napló!h2:h29"
If ComboBox6.ListIndex = -1 Then
ComboBox6.ListIndex = 27
postnap = ComboBox6.Text
End If
End If
End If
End SubMint látható az első részletben szó sem esik a Combobox4-ről.
Így esetleg valami ötlet???[ Szerkesztve ]
-
martonx
veterán
nem értetted amit írtam. Nem érdekel a kódod. A hibaüzenet esetleg érdekelt volna, bár az excel elég semmit mondó üzeneteket ad vissza.
Egy dolog érdekel, hogy a combobx4 be van-e kötve valamelyik mezőhöz, és ha igen melyikhez.
Mert ez lenne a legépeszűbb magyarázata a change event kiváltásának.
Bár látom feleslegesen koptatom a billentyűzetet.Én kérek elnézést!
-
vilag
tag
válasz martonx #1690 üzenetére
Bocs, hogy értetlen vagyok, de nem tanultam egyetemen a programozást.
Egyébként meg Te sem értetted amit én írtam, mert nincs hibaüzenet, csak hibás működés amit ugyan elhárítottam (egy változó bevezetésével), csak az okát szeretném megtudni.
A Combobox4 közvetlenül nincs excel mezőhöz kötve (már ha egyáltalán excel mezőre gondolsz). Csak közvetetten van excelmezőhöz kötve. Egy dátum évszáma, tehát a CB4,CB5,CB6 mezők értéke összefűzésre kerül és csak ez után íródik a tábla egy cellájába.
A probléma csak annyi, hogy ez esetben ez nem történik meg, mert az tök más folyamat ami ettől független.Még egy dolog jutott eszembe. Az évszám a userform initializálásakor kap automatikusan értéket a trim(str(Year(date))) segítségével. Ez indukálhatja eseteg a change lefutását valamilyen módon?
-
martonx
veterán
én sem egyetemen tanultam
A kódodat nem ismerem, nem látom, őszintén nem is akarom látni. Csak találgatok, hogy mi okozhatja az esemény elsülését. És az biztos, hogy valami triviális dolog.
A kérdésedre te magad fogsz tudni válaszolni, egy minimális debugolással.
Én kérek elnézést!
-
vilag
tag
válasz martonx #1692 üzenetére
Abban én is biztos vagyok, hogy valami nagyon egyszerű megoldása lesz a dolognak (ha egyszer megtalálom).
Egyébként ha tudnád, hogy a debuggolást már hányszor játszottuk végig...
Egyszerűen értetlenül állok a dolog előtt.Azért ha esetleg mégis megtalálom a megoldást megírom, hátha érdekel.
-
vilag
tag
válasz martonx #1692 üzenetére
Ezt már komolyan nem hiszem el.
Próbálok egy másik problémát orvosolni, erre azt veszem észre, hogy ugyan oda lyukadok ki, hogy a már említett vezérlő change elkezd futni.
Épp az initializálást futtatja, aztán ennél a sornál átvált a CB7 Change-re:Sheets("napló").Range("j2").Value = Sheets("irszam").Range("a1").End(xlDown).Row
Most mond meg nekem, hogy ez hogy a búbánatos francban váltja ki a CB7 Change lefutását????
-
vilag
tag
válasz martonx #1692 üzenetére
Van egy rutin ami egy gomb megnyomására az egyes vezérlők tartalmát elkezdi egyesével kiirkálni az excel tábal megfelel cellájába.
Most azt vettem észre, hogy a két évszámos vezérlő (CB4 és CB7) change minden egyes alkalommal lefut amikor egy-egy érték kiíródik az excel tábla.
Esetleg ez megvilágosít nálad valamit? -
ArchElf
addikt
Bocsi, ezek most cellák, vagy vezérlők?
Amúgy a cellafrissítések automatikus lefutását kódból ki lehet tiltani, amíg az problémákat okozhat.
[link]AE
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]
-
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
Új hozzászólás Aktív témák
- -65% Dell Latitude 7310 2in1: i7 10610U,16GB,256GB,13.3" Touch 100%sRGB 350nit,WWAN eSIM,Win11
- Samsung Galaxy S22 - Fekete - Független - 2025.03.05-ig garancia - Tökéletes állapot
- Endorfy Fortis 5 ARGB CPU hűtő áron alul! (3 db)
- Forradalmasítsd a digitális világodat a HoloLens 2-vel!
- ÚJ Dell Inspiron 7430 2-in-1 - 14" FHD+ IPS TOUCH 360 / i5-1335U / 16Gb DDR5 / 512Gb PCIe 4.0 / 3 ÉV