Hirdetés
- MWC 2026: Bajnoki címre pályázik a Xiaomi Watch 5
- Apple iPhone 17 - alap
- Xiaomi 15T Pro - a téma nincs lezárva
- Samsung Galaxy A56 - megbízható középszerűség
- Távozik az Apple vezérigazgatója
- Vivo X300 Ultra - tárcsázz, ha van rá keret!
- Fotók, videók mobillal
- Így spórolhat az Apple az iPhone 18 kijelzőin
- Samsung Galaxy S26 Ultra - fontossági sorrend
- Honor Magic8 Lite - a félig sikerült bűvésztrükk
-
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
Hirdetés
● olvasd el a téma összefoglalót!
- Dobozos Szinte Új HyperX Cloud Alpha Bolti ár:27k INGYEN FOXPOST
- Samsung Galaxy S25 Ultra - 256 GB - szürke (341) újszerű, 10000 Ft kiegészítő ajándék, Garancia
- Samsung Galaxy S23 Ultra - 256 GB - fekete (340) Használt, 10000 Ft kiegészítő ajándék, Garancia
- Hitachi Travelstar 500 GB SATA II 2,5 Notebook HDD
- Új RAZER Kaira X For Xbox Blue Bolti ár:15k INGYEN FOXPOST
- BESZÁMÍTÁS! Gigabyte B450M R5 3600X 32GB DDR4 512GB SSD RTX 3060 12GB NZXT Source 340 Bitfenix 550W
- HP Victus Gaming Laptop RTX 4070 / i7-13700H 16GB DDR5 1TB SSD Garancia
- Samsung Gear VR: Note5, S6 (EDGE), S7 (EDGE)
- GYÖNYÖRŰ iPhone 13 Pro Max 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS4522
- Dell Optiplex 3050 SFF,i5-6500,8GB DDR4,256GB SSD, WIN11
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


