ub createhyperlink ()
Ciemnawy ws Jako Worksheet
Ciemnawy ws1 Jako Worksheet
Ciemnawy rng Pasmo
Ciemnawy c Pasmo
Ciemnawy rng2 Pasmo
Set ws = Ciąć na arkusze ("Sheet1")
Set ws1 = Ciąć na arkusze ("Sheet2")
Ustalony rng = ws1.Range ("a2: " & ws1.Cells (Cells.Rows.Count, "A"). Końcówka (xlUp). Rząd)
Dla Rng c W rng
Jeżeli c.Value <> "" Wtedy
x = c.Value
Set rng2 = ws. Kolumna (1).Find (Co: =x, póżniej: =ws. Komórka (1), LookIn: =xlFormulas, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
Jeśli nie rng2 Być Nic Wtedy ws. Hyperlinks.Add Kotwica: =c, Adres: = "", SubAddress: = "" & ws. Imię & "!" & rng2.Address ((0), (0)) & "", TextToDisplay: =c.Value
Kończyć Jeżeli
Następny c
Końcówka Okręt podwodny
|