Hirdetés
-
Akciófigyelő: leárazott strapamobilok az EB meccsei mellé
ma Június 17-től június 23-ig a cég hivatalos AliExpress boltjában akár jelentős kedvezménnyel szerezhetők be telefonok és táblagépek.
-
Hibajavítások ASUS routerekhez
ph Három kritikus sérülékenységet javítanak a most kiadott firmware-ek, érdemes telepíteni őket, ha érintettek vagyunk.
-
Olimpia: az AI majd törli a sértő bejegyzéseket
it AI-t alkalmaznak, hogy a közösségi médiában kiszűrjék a sértő tartalmakat, amik a versenyzőkre és szervezőkre irányulnak.
-
Mobilarena
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
-
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)
-
É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
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Canva Pro előfizetés - 1 éves