Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    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

  • #36068 Delila_1 veterán lappy #36064
    Új Válasz #36068
    Ú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

    Delila_1

    veterán

    válasz lappy #36064 üzenetére

    A belinkelt makrót nem eszi meg az Excel. Helyette

    Sub CopyHyperlinks()
    Dim Innen As Range, Ide As Range, sor As Integer, ujcim As String

    On Error Resume Next
    Set Innen = Application.InputBox("Jelöld ki a másolandó területet", "Másolandó terület", , , , , , 8)
    If Innen Is Nothing Then Exit Sub

    Set Ide = Application.InputBox("Jelöld ki a területet, ahova másolni kell", "Ide kell másolni", , , , , , 8)
    If Ide Is Nothing Then Exit Sub

    For sor = 1 To Innen.Count
    If Innen(sor).Hyperlinks.Count = 1 Then
    Ide(sor).Hyperlinks.Add Ide(sor), Innen(sor).Hyperlinks(1).Address
    ujcim = Chr(64 + sor) & Chr(64 + sor) & Chr(64 + sor)
    Ide(sor).Hyperlinks(1).TextToDisplay = ujcim
    End If
    Next
    End Sub

    Az eredeti makró (Excel VBA-hoz igazítva) azonos a Ctrl-c, Ctrl+V-vel. Az általam írt a másolatnak más megjelenő címet ad.

Új hozzászólás Aktív témák