Elektroda.pl
Elektroda.pl
X
Elektroda.pl
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[Rozwiązano] Excel - Makro wstawiające hiperłącze do pliku

19 Kwi 2019 11:53 117 2
  • Spec od komputerów
    Potrzebowałem makro, które wstawia w określonym miejscu (kolumna E) hiperłącze na podstawie listy plików (kolumna B) i przyjaznej nazwy (kolumna D).
    Bez problemu zrobiłem makro, które działa jak należy ale korzystając z odwołań do konkretnych kolumn:
    Code:
    Range("E" & wiersz).Formula = "=HYPERLINK(""Faktury_2019\""&B" & wiersz & "," & "F" & wiersz & ")"
    

    Docelowo jednak hiperłacze powinno być w kolumnie D (przy próbach zostawiłem kolumnę E aby nie kasowało danych w D) zastępując istniejące tam dane a dane te, po zapisaniu do zmiennej miały posłużyć jako przyjazna_nazwa w funkcji hiperłącza. O ile bez problemu udało się wstawić do funkcji HIPERŁĄCZE pierwszy parametr łącze_lokalizacja o tyle mam problem aby wstawić w makro parametr przyjazna_nazwa jeżeli jest on w zmiennej faktura typu String. Taki zapis:
    Code:
    Range("E" & wiersz).Formula = "=HYPERLINK(""Faktury_2019\""&B" & wiersz & "," & faktura & ")"

    wydawał się prawidłowy ale pojawia się błąd 1004. Metoda prób i błędów stwierdziłem, że jeżeli zmienna faktura jest typu Integer to błąd się nie pojawia i makro się wykonuje - oczywiście przyjazna_nazwa jest błędna :(

    I tu pojawia się pytanie jak poprawić linię wpisywania funkcji poprzez zmienną faktura aby błąd 1004 się nie pojawiał :) ?

    Code:
    Makro
    
    Sub Hiper()
    '
    ' Hiper Makro
    '
    Dim faktura As String
    Dim wiersz As Integer

    wiersz = 7

    Do Until Range("D" & wiersz) = ""
        faktura = Range("D" & wiersz)
        Range("E" & wiersz).Formula = "=HYPERLINK(""Faktury_2019\""&B" & wiersz & "," & "F" & wiersz & ")"
       'Range("E" & wiersz).Formula = "=HYPERLINK(""Faktury_2019\""&B" & wiersz & "," & faktura & ")"
       wiersz = wiersz + 1
    Loop
       
    End Sub


    Proba_hi..r.rar Download (12.47 kB)
  • Pomocny post
    Poziom 33  
    Witam
    Kod: vbscript
    Zaloguj się, aby zobaczyć kod
  • Spec od komputerów
    Dziękuję clubs :)
    Próbowałem z myślnikami ale nie wpadłem, że trzeba je "podwójnie" zastosować.