-
Fototrend

Ú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.
-
válasz
Cicero
#15919
üzenetére
Ez annyira rohadt egyszeru, hogy nem is nagyon kell hozza programozni. Egyreszt talan meg siman excelben is megoldhato a dolog, ha meg nem, akkor fogod magad, felveszel egy makrot, amiben vegigcsinalod a lepeseket ugyesen, aztan mar csak kb ket if meg egy ciklus kell bele, nagyon meglepne, ha zero programozoi tudassal is tobb, mint 1 nap kene hozza, hogy megcsinald (ha tenyleg minden ennyire egyseges es rendezett, tehat gyakorlatilag kivetelkezeles nem kell).
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Házimozi haladó szinten
- Melyik tápegységet vegyem?
- Billentyűzet-választó: mechanikus vs membrános – kinek melyik a jobb?
- OLED TV topic
- TCL LCD és LED TV-k
- Mibe tegyem a megtakarításaimat?
- Steam topic
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Suzuki topik
- Milyen processzort vegyek?
- További aktív témák...
- Stealth 14 AI Studio A1VFG 14" 2.8K OLED Ultra 7 155H RTX 4060 16GB 512GB NVMe magyar vbill gar
- PC bontás - 1STPLAYER RGB ház, be quiet 550w gold, Z790i Plus ITX + i9-13900H ES, 32Gb, RTX 3070
- Hibás Processzorok! 8-14gen, illetve ryzen
- Apple iPhone 15 128GB gyári független szép állapotban GARANCIA: 1hónap DEÁK TÉRNÉL
- X1 Extreme Gen3 15.6" 4K IPS i7-10850H 32GB DDR4 1TB NVMe ujjlolv IR kam gar
- RTX 5090-es, 5080-as stb... GAMER laptopok + dokkolók + licencek
- ÚJ HP Victus 15 - 15.6" FHD IPS 144Hz - Ryzen 5 8645HS - 16GB - 512GB - RTX 4050 - Win11 - 3 év gari
- HIBÁTLAN iPhone 15 128GB Pink-1 ÉV GARANCIA - Kártyafüggetlen, MS4113
- GYÖNYÖRŰ iPhone 12 Pro 128GB Graphite - 1 ÉV GARANCIA - Kártyafüggetlen, MS3258,100% Akkumulátor
- BESZÁMÍTÁS! Sony PlayStation 5 Slim 1TB SSD lemezes konzol garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: ATW Internet Kft.
Város: Budapest


