Hirdetés
- Brogyi: CTEK akkumulátor töltő és másolatai
- eBay-es kütyük kis pénzért
- Gurulunk, WAZE?!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- GoodSpeed: Ebes, a megtervezett falu!
- Luck Dragon: Asszociációs játék. :)
- Magga: PLEX: multimédia az egész lakásban
- Lalikiraly: Astra kalandok @ Negyedik rész
- sziku69: Fűzzük össze a szavakat :)
- petipetya: Nagy chili topic. :)
-
LOGOUT

Ú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
● olvasd el a téma összefoglalót!
- BESZÁMÍTÁS! ASUS TUF B760M i5 12400F 32GB DDR4 1TB SSD RX 6800 16GB ZALMAN Z1 Plus Cooler Master750W
- Gamer PC-Számítógép! Csere-Beszámítás! I7 6700K / GTX 1660TI / 16GB / 128GB SSD + 1TB HDD
- BESZÁMÍTÁS! GIGABYTE B650M R5 7600 32GB DDR5 1TB SSD RX 9070 16GB NZXT H700 Cooler Master 750W
- Apple iPhone 17 Air / 256GB / Kártyafüggetlen / 12 Hó Garancia / Akku: 100%
- BESZÁMÍTÁS! Asus ROG STRIX B360 i7 8700K 16GB DDR4 512GB SSD RTX 2070 SUPER 8GB Zalman N5 ADATA 600W
- Bomba ár! HP ProBook 450 G8 - i3-1115G4 I 8GB I 256SSD I HDMI I 15,6" FHD I Cam I W11 I Gar
- BESZÁMÍTÁS! MSI H310M i5 9400F 16GB DDR4 240GB SSD 2TB HDD RTX 2060 6GB THERMALTAKE VERSAH17 600W
- Bomba ár! Lenovo 14W Gen2 - AMD 3015e I 4GB I 128SSD I 14" FHD I HDMI I Cam I W11 I Garancia!
- 0% THM 4 havi részlet beszámítás! RX 9060 XT / 9070 / 9070 XT videokártyák készletről KAMATMENTESEN
- BESZÁMÍTÁS! GIGABYTE B250M i5 7400 16GB DDR4 512GB SSD RX Vega 64 8GB DEEPCOOL Tesseract BF 650W
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest


