2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    PROHARDVER!

    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

  • #43263 ROBOTER addikt Fferi50 #43262
    Új Válasz #43263
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    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