- Az EU vámot vetne ki a Temu és a Shein termékeire
- Kiborultak a kanadai Netflix-adón
- Synology NAS
- PR-Telecom
- Az Amazon árfolyama felment, Bezos elad 5 milliárd dollárnyi részvényt
- Linux - haladóknak
- Programozás topic
- Otthoni hálózat és internet megosztás
- A Huawei szerint fejlett AI-chipek nélkül is lehetnek világelsők
- Mikrotik routerek
-
IT café
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
-
ROBOTER
addikt
válasz
Fferi50 #43262 üzenetére
Az dinamikusan létrehozott laphoz tartozó eseménykezelőt leredukáltam 2 sorra (SUB-END SUB). A hiba így is fennáll:
Sub writeCode(sheetCodename As String)
'új laphoz rendelt eseménykezelő létrehozása programkód dinamikus beírásával
Dim c As Long
'nem a munkalap szimbolikus nevére, hanem a kódnevére van szükségünk, ezért a sheetCodename ezt tartalmazza
c = Application.VBE.ActiveVBProject.VBComponents(sheetCodename).CodeModule.CountOfLines
' maga a kód egy stringben tárolva
myCode = ""
myCode = myCode & vbLf & "Private Sub Worksheet_Change(ByVal Target As Range)"
myCode = myCode & vbLf & "End Sub"
'programkód beírása a forráskódba, amely az új munkafüzethez tartozik
With Application.VBE.ActiveVBProject.VBComponents(sheetCodename).CodeModule
.InsertLines c + 1, "'dinamukusan létrehozott programkód"
.AddFromString myCode
End With
End Sub
Ha nem hívom meg ezt a Sub-ot, a hiba megszűnik.
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Gaming notebook topik
- Kínai, és egyéb olcsó órák topikja
- Óra topik
- eBay-es kütyük kis pénzért
- A fociról könnyedén, egy baráti társaságban
- Shakes&Fidget Online Szerepjáték
- Politika
- Kiszivárogtak az Intel 800-as lapkakészletének részletei
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- World of Tanks - MMO
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen