-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
ppapp44
újonc
válasz
Fferi50
#37414
üzenetére
Szia Feri!
Nagyon szépen köszönöm. Működik.
Most is deklarálva van mind a workkbook-on és a modul1-ben (sőt kísérletként visszaraktam a modul2-be és formra is (teljesen feleslegesen)), de így is működik. Azért, mert a form-on az értékadásnál elé került a modul név "module1.muszak = "valami"", és így vált valóban publikussá. Ezt felejtettem el.
Mérgemben már kiírtam a form-ról egy fix cellába és onnan olvastam vissza máshol, de nem ez a jó megoldás.Még egyszer köszönöm. Üdv
Péter -
-
ppapp44
újonc
válasz
Fferi50
#37400
üzenetére
Szia Feri!
Természetesen már nem (unload).
Most csináltam egy egy teljesen üres tesztett (1 tábla (2 nyomógomb), 2 modul és 1 userform. A publikus változók szépen mennek a modulok között és "felmennek" a formra, de a form-on megadott akár konstans, akár egy combobox adata már nem tehető publikussá. Ahogy mondtad a formon nem lehet. De a kint (sheet, modul, workbook) definiált public változó nem képes értéket kapni a formon.
Ez lehetséges?
Ez a sheet (munka1)Public proba As Variant
Public muszak As Variant
Private Sub CommandButton1_Click()
proba = "proba"
MsgBox proba 'működik
megjelenit
End SubPrivate Sub CommandButton2_Click()
jelenit2 'ez van a modul2-ben és ez nem működik
End SubModul1
Public proba2 As Variant
Public muszak As Variant
Sub megjelenit()
MsgBox Munka1.proba
proba2 = Munka1.proba 'működik
MsgBox proba2
UserForm1.Show
End Subuserform1
Public muszak As Variant
Private Sub CommandButton1_Click()
MsgBox proba2
muszak = "muszakszak"
MsgBox "muszak " & muszak 'működik
End Subuserform1
Public muszak As Variant
Private Sub CommandButton1_Click()
MsgBox proba2
muszak = "muszakszak"
MsgBox "muszak " & muszak
End Submodul2
Public muszak As Variant
Sub jelenit2()
MsgBox "jelenit2 " & muszak 'ez nem működik modul nevekkel együtt sem
End Sub -
ppapp44
újonc
válasz
ppapp44
#37393
üzenetére
A korábban definiált public változóim működnek (modul hivatkozás nélkül), de a ma felvett egyszerűen nem. Már cserélgettem a nevet, a tipust (as string, as variant)a definiálás helyét (Thisworkbook, userform, modul). Használtam Feri hivatkozását "modul2.változó", valóban "userform10.muszak", de így sem látom máshol (msgbox muszak) csak a userform-on belül. (Egyébként ez valóban jó ötlet.)
Hogyan tudom ellenőrizni, hogy a VB milyen típusnak tart egy változót?
Létezhet darabszámi korlátja a (global) változóknak????
Előre is köszi Péter -
ppapp44
újonc
válasz
Fferi50
#37392
üzenetére
Köszi a választ. Nem tudom, hogy ez baj-e vagy sem, de ez egy userform-on van (ami egyébként szerintem egy modul) nem modul-ban. A "userform10.muszak" valóban szintaktikailag elfogadott. de a változó nem kap értéket. Olyan mintha nem válna globálissá sehogy sem a userform-on. Üdv
Péter -
ppapp44
újonc
Sziasztok!
Excel 2013 VB6-ban egy user form-on levő változót szeretnék globálissá tenni. Megtettem itt (a user form code-ban) a "Thisworkbook"-ban és ott is ahol a moduljaim vannak. Mindenhol a SUB-ok előtt ("public muszak as string"). Egyszerűen nem látom sem a modulokban sem másik user formokon. Ahogy visszakerülök az adott form-ra persze megjelenik.
Mi lehet a baj?
Segítséget előre is köszönöm. Üdv
Péter
Új hozzászólás Aktív témák
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- sziku69: Szólánc.
- Battlefield 6
- Villanyszerelés
- droidic: Windows 11 önállóság nélküli világ: a kontroll új korszaka
- Ford topik
- OFF TOPIC 44 - Te mondd, hogy offtopic, a te hangod mélyebb!
- Építő/felújító topik
- Anglia - élmények, tapasztalatok
- Mibe tegyem a megtakarításaimat?
- További aktív témák...
- Ultimate előfizetés akár 4166 Ft/hó áron! Azonnali, automatizált aktiválással, csak Nálam!
- HIBÁTLAN iPhone 13 mini 128GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3294
- Bomba ár! Dell Vostro 3500 - i3-350M I 4GB I 320GB I DVDRW I 15,6" HD I HDMI I Cam I Garancia!
- Csere-Beszámítás! Playstation 5 Slim Digital edition konzol.
- Dell D6000 univerzális dokkoló USB-C/ USB-A, DisplayLink & Dell WD15 (K17A) USB-C + 130-180W töltő
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

