-
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
- Milyen monitort vegyek?
- Xiaomi 15 - kicsi telefon nagy energiával
- Gyúrósok ide!
- Mikrokontrollerek Arduino környezetben (programozás, építés, tippek)
- VR topik
- Geri Bátyó: Agglegénykonyha különkiadás 2 – Kajás poénok
- Mesterséges intelligencia topik
- Kertészet, mezőgazdaság topik
- Fejhallgató erősítő és DAC topik
- gban: Ingyen kellene, de tegnapra
- További aktív témák...
- Microsoft és egyéb dobozos retro szoftverek
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Kihagyhatatlan ajánlat! Lenovo ThinkPad P14s Gen 5 Ultra 7 165H (vPro) 32gb DDR5 ram RTX500 ADA 3K
- AKCIÓ! LENOVO ThinkPad P15 Gen2 munkaállomás - i7 11800H 16GB DDR4 512GB SSD Quadro T1200 4GB W
- Eredeti DELL 240W töltők (LA240PM160)
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
- Dell Wyse 5470,14",FHD,Touch,N4100 CPU,8GB DDR4,128GB SSD,WIN11
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
