Hirdetés
- Milyen egeret válasszak?
- Milyen házat vegyek?
- Ami Kínában OnePlus Pad Pro, az errefelé mégis csak Pad 2 lett
- Azonnali VGA-s kérdések órája
- Sok hűhó négyszázért: AMD Ryzen 7 9850X3D
- Dobozcserére kárhoztatja asztali csúcs-CPU-ját az Intel
- TCL LCD és LED TV-k
- Milyen belső merevlemezt vegyek?
- Milyen billentyűzetet vegyek?
- Házimozi belépő szinten
-
PROHARDVER!
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
-
Fferi50
Topikgazda
válasz
alfa20
#35979
üzenetére
Szia!
Ilyen esetben a "háromdimenziós" változó megadásra van szükség, meg kell mondani a makróban, melyik modulban van a változó.
A megoldás:Private Sub start()
ThisWorkbook.makroFileWB.Sheets(1).Range("A1") = "1000"
End SubIgen, kicsit bizarrnak hat, hiszen a makroFileWB változó tartalma a ThisWorkbook objektum, viszont magát a változót a ThisWorkbook. modulban deklaráltad.
Másrészt ne felejtsük el azt sem, hogy a ThisWorkbook objektum és az ActiveWorkbook objektum nem feltétlenül ugyanarra a munkafüzetre hivatkozik...bár alapból gondolhatnánk akár ezt is.
A ThisWorkbook mindig a makrót elindító munkafüzet lesz, az ActiveWorkbook pedig, mint a neve is mutatja, az éppen aktív munkafüzet.
Azt javaslom, hogy globál/publikus változókat mindig általános modulban deklarálj és a modulnévvel így könnyen tudsz rá hivatkozni: modulnév.változónévJavaslom, nézd át a változók élettartama és hatóköre részt a VBA helpben.
Üdv.
Új hozzászólás Aktív témák
- Chosen: Intel Arc B580 játék kompatibilitás (2026. 01.)
- GoodSpeed: SAMSUNG Galaxy Buds FE (SM-R400NZAAEUE) a 9 éves SONY SBH20 utódja (nálam)
- Milyen egeret válasszak?
- Milyen routert?
- Szívós, szép és kitartó az új OnePlus óra
- S.T.A.L.K.E.R - Lost Alpha
- EAFC 26
- Bestbuy játékok
- Milyen házat vegyek?
- Hosszabb bemutatón a Star Trek: Voyager - Across the Unknown
- További aktív témák...
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- PC Game Pass előfizetés
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Keresünk iPhone 16/16e/16 Plus/16 Pro/16 Pro Max
- Akció! Bontatlan Sandisk SSD Plus 2TB
- Dell Latitude Core i5 - i7 - 6-7-8-10-11-12. gen. üzleti kategóriás notebookok számlával
- Samsung Galaxy S24 FE 128GB, Kártyafüggetlen, 1 Év Garanciával
- Gamer PC-Számítógép! Csere-Beszámítás! R7 5700 / RTX 2080Ti 11GB / 16GB DDR4 / 1TB SSD!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Fferi50

