Hirdetés
- iPhone topik
- Milyen hagyományos (nem okos-) telefont vegyek?
- Az iPhone Air buktája elkaszálhatta vékonyítási lázat
- A Sony is belépett a 200 megapixeles klubba
- Milyen okostelefont vegyek?
- Kicsomagoljuk és bemutatjuk a Poco F8 Ultrát
- One mobilszolgáltatások
- Yettel topik
- iOS alkalmazások
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
-
Mobilarena

Ú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!
- iPhone topik
- Synology NAS
- Milyen hagyományos (nem okos-) telefont vegyek?
- Vezetékes FEJhallgatók
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Napelem
- Kerékpárosok, bringások ide!
- Parfüm topik
- Az iPhone Air buktája elkaszálhatta vékonyítási lázat
- HiFi műszaki szemmel - sztereó hangrendszerek
- További aktív témák...
- Asus ROG Strix G G531GT - 15,6"FHD IPS 144Hz - i5 9300H - 16GB - Win11 - GTX 1650 - MAGYAR
- Telefon felvásárlás!! Samsung Galaxy A12/Samsung Galaxy A22/Samsung Galaxy A32/Samsung Galaxy A52
- Apple Watch Ultra, Újszerű,Dobozával, 12 hónap garanciával
- BESZÁMÍTÁS! ASRock B450M R5 2600 8GB DDR4 256GB SSD 1TB HDD GTX 960 4GB ZALMAN S4 Chieftec 450W
- LG 65QNED86T3A / QNED / 65" - 164 cm / 4K UHD / 120Hz / HDR Dolby Vision / FreeSync Premium / VRR
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest



