Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64068 Skopiuj do schowka Fomularz VBA - wyświetlenia URL hiperłącza w polu tekstowym
Autor Wiadomość
crimson
forumowicz


Posty: 10
Wysłany: 07-02-2019, 17:43   Fomularz VBA - wyświetlenia URL hiperłącza w polu tekstowym

Witam,
W jaki sposób po otwarciu formularza wyświetlić URL hiperłącza zapisanego w wybranej komórce?

Formularz, który stworzyłem pozwala zapisywać dane do tabeli. W kolumnie 2 tworzę hiperłącze, które powstaje na podstawie TextBox1 oraz TextBox2. Gdzie TextBox1 to opis, a TextBox2 adres URl hiperłącza.

Kod:
Function SaveData()
Application.ScreenUpdating = False

Dim ID As Long
Dim Lastrow As Long
Dim Filename As String
Dim Author As String
Dim Creationdate As String
Dim Revision As Long
Dim tbl As ListObject

Set tbl = Worksheets("Database").ListObjects("LifeDTB")
Lastrow = Sheets("Database").Cells(Rows.Count, "B").End(xlUp).Row + 1

On Error GoTo Errorhandler

ID = tbl.Range.Rows.Count
Author = TextBox3.Text
Creationdate = DTPicker1.Value
Revision = ComboBox1.Value
           
With Sheets("Database")
    .Cells(Lastrow, 1) = ID
    .Hyperlinks.Add Anchor:=.Cells(Lastrow, 2), _
        Address:=TextBox2.Text, _
        ScreenTip:=TextBox2.Text, _
        TextToDisplay:=TextBox1.Text
    .Cells(Lastrow, 3).Value = Author
    .Cells(Lastrow, 4).Value = Creationdate
    .Cells(Lastrow, 5).Value = Revision
End With

Application.ScreenUpdating = True

Unload Me

Done:
    Exit Function
   
Errorhandler:
    MsgBox "Ups, something went wrong. Double check the data - " & Err.Description

End Function


Ten sam formularz służy również do przeglądania rekordów (ładowane za pomocą combobox (wybór po ID) oraz spinbuttonów). Chciałbym, aby podczas przeglądania w TextBox2 pojawiał się adres URL z utworzonego hiperłącza.
W jaki sposób osiągnąć taki efekt?

Z góry dziękuję za pomoc
Pozdrawiam
ID posta: 362150 Skopiuj do schowka
 
 
Artik 



Pomógł: 2602 razy
Posty: 8571
Wysłany: 07-02-2019, 23:14   

Dla testów, ustaw aktywną komórkę na komórce z hyperlinkiem i odpal poniższe makro.
Kod:
Sub AAA()
    Dim rng         As Range

    Set rng = ActiveCell

    If rng.Hyperlinks.Count > 0 Then
        With rng.Hyperlinks(1)
            MsgBox ">" & .Address & "<" & vbLf & _
                   ">" & .TextToDisplay & "<" & vbLf & _
                   ">" & .ScreenTip & "<"
        End With
    End If
End Sub

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 362179 Skopiuj do schowka
  Wersja Office-a: Win Office 365
 
crimson
forumowicz


Posty: 10
Wysłany: 08-02-2019, 12:17   

@Artik
Wielkie dzięki, dokładnie to było mi potrzebne. Dodałem Twój kod do formularza, podpinając go pod TextBox2 i działa bez zarzutu.

Jeszcze raz dziękuję za pomoc.
Temat można uznać za zamknięty.

Pozdrawiam
ID posta: 362205 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe