createhyperlink del ub ()
La WS fioca come manuale
Ws1 fioco come manuale
Rng fioco come gamma
C fioca come gamma
Rng2 fioco come gamma
Regolar la WS = strati (“Sheet1„)
Regolar ws1 = strati (“Sheet2„)
Regolare il rng = ws1.Range (“a2: „ & ws1.Cells (Cells.Rows.Count, “A„). Estremità (xlUp). Fila)
Per ogni c nel rng
Se "" <> di c.Value allora
x = c.Value
Regolar rng2 = la WS. Colonne (1).Find (che cosa: =x, dopo: =ws. Cellule (1), LookIn: =xlFormulas, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
Se non rng2 è niente allora ancoraggio della WS. Hyperlinks.Add: =c, indirizzo: = "", SubAddress: = "" & la WS. Nome & “!„ & rng2.Address (0, 0) & "", TextToDisplay: =c.Value
Concluder se
C seguente
Sommergibile dell'estremità
|