Hirdetés
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Brogyi: CTEK akkumulátor töltő és másolatai
- Krumple: [Xpenology] DSM 7.3 telepítése proxmox 9 alatt - GUIval
- eBay-es kütyük kis pénzért
- Kalandor: „Ha engedtem volna a lelkiismeretemnek, az üzlet kevésbé lett volna jövedelmező”
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
-
LOGOUT
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
- Apple iPhone 17 Pro Max 512GB / 36 hónap jótállással!
- Apple iPhone 13 / 128GB / Kártyafüggetlen / Akku:87%
- Gamer PC-Számítógép! Csere-Beszámítás! I7 10700 / 32GB DDR4 / RX 6700XT 12GB / 512 SSD + 1TB HDD
- Apple iPhone 12 Pro 512GB,Átlagos,Dobozával,12 hónap garanciával
- HIBÁTLAN iPhone 12 Pro 128GB Pacific Blue- 1ÉV GARANCIA -Kártyafüggetlen, MS3948
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

