-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
félisten
A Cells(s + 1, 13).Value = "A" sor is ismétlődik. Direkt hagytad ki?
Amúgy megoldható SUB-al, csak az s változót publikusként kell deklarálni
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Én így oldanám meg ezt a feladatot
Public s As Integer, m As Integer
Sub MySubRoutine(MyIndex_s As Integer, MyIndex_m As Integer, Optional MyValue As Variant, Optional MyString As Variant)
Cells(MyIndex_s + 1, 11).Value = DateValue(Now)
Cells(MyIndex_s + 1, 12).Value = Cells(MyIndex_m + 1, 1).Value
Cells(MyIndex_s + 1, 13).Value = "A"
If Not IsMissing(MyValue) Then Cells(MyIndex_s + 1, 14).Value = MyValue
If Not IsMissing(MyString) Then Cells(MyIndex_s + 1, 15).Value = MyString
End Sub
Sub MyMainCode()
s = s + 1
MySubRoutine s, m, 48
s = s + 1
MySubRoutine s, m, 49
s = s + 1
MySubRoutine s, m, 31, "ID"
s = s + 1
MySubRoutine s, m
End Sub[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
Új hozzászólás Aktív témák
- Jobb zoom, egyszerűbb kijelző - megérkezett a Sony Xperia 1 VI
- Luck Dragon: Kenyér
- sziku69: Fűzzük össze a szavakat :)
- Formula-1
- Elden Ring
- Így nem hajlik, úgy kettétörik az új iPad
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- WoW avagy World of Warcraft -=MMORPG=-
- Kerékpárosok, bringások ide!
- DIGI kábel TV
- További aktív témák...
- Steam kulcsok - UTALÁS/REVOLUT
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest