- Épített vízhűtés (nem kompakt) topic
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- TCL LCD és LED TV-k
- Azonnali fotós kérdések órája
- Felfűtené a 2 nm-es versenyt a japán Rapidus
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Az előírások megszegése miatt éghet le egyes alaplapokon a Socket AM5 foglalat
- Milyen SSD-t vegyek?
- Milyen Android TV boxot vegyek?
- Milyen CPU léghűtést vegyek?
-
PROHARDVER!
Új hozzászólás Aktív témák
-
pmonitor
aktív tag
válasz
Cicero #15932 üzenetére
Neked a legjobb a VBA. Word és Access objektumaihoz nem értek. Excelben a következőképpen tudsz 1 már meglevő munkafüzetből új munkafüzetet megnyitni:
1.: ALT+F11 -> ekkor megjelenik a VBA editor.
2.: Insert menü -> Module menüpontra klikk. Ekkor megjelenik a Module1. Dupla katt rá
3.: A megnyíló ablakba beilleszted a következő kódot:Sub a()
Dim excapp As Object
Set excapp = CreateObject("Excel.Application")
excapp.Visible = True
Dim wrkb As Object
Set wrkb = excapp.Workbooks.Add()
wrkb.Worksheets(1).Range("A1") = "abcd"
End Sub
Sub b()
Dim excapp As Object
Set excapp = CreateObject("Excel.Application")
excapp.Visible = True
excapp.Workbooks.Add
excapp.Workbooks(1).Worksheets(1).Range("A1") = "abcd"
End Sub4.: valamelyik eljárás törzsébe belekattintasz, hogy a kurzor benne legyen.
5.: F5-öt nyomsz Ekkor lefut az az eljárás, amiben a kurzor van.Egyébként a példámban az a() és a b() eljárásom ugyanazt csinálja: Megnyit egy új munkafüzetet, és annak a munkalapjának az első cellájába beleírja az "abcd" szöveget.
Először gyakorold az Excel és a Word objektumaival való munkát, csak utána kezdj nekiállni ennek a feladatnak.
Új hozzászólás Aktív témák
Hirdetés
● olvasd el a téma összefoglalót!
- HIBÁTLAN iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3320
- HIBÁTLAN iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3319
- Battlefield 6 - Digitális játékkulcs
- GYÖNYÖRŰ iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3318
- GYÖNYÖRŰ iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3315, 90% Akkumulátor
- Bomba ár! Lenovo ThinkPad T420 - i5-2GEN I 4GB I 320GB I 14" HD I Cam I W10 I Garancia!
- MacBook Pro 16" M3 Pro 36GB 512GB Gar. SPACE BLACK
- Microsoft Surface Laptop 5 13.5" i5-1245U 16GB 256GB 1év garancia
- GYÖNYÖRŰ iPhone 12 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3195, 95% Akkumulátor
- Keychrone Q1 V2 billentyűzet / Számla / Garancia /
Állásajánlatok
Cég: FOTC
Város: Budapest