Questione : Script i colums di quel controllo 2 in 2 strati e hyperlinks. Avere bisogno di un senso controllare esatto - fiammifero e hyperlink.

Ciao,

Script che controlla 2 colums in 2 strati e hyperlinks. Avere bisogno di un senso controllare - il fiammifero e hyperlink.
attualmente dicono che ho hyperlinks del as

Sharath C
It di parola Sharath a Sharath C

Case non dovrebbe essere un aspetto ma esatto - il fiammifero esatto dovrebbe essere linked.

Can chiunque aiuto che cambia il code.

REgards
sharath class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
createhyperlink notpretty del >Sub " del class= " " di codeSnippet777581 del id= del 
 di c.Value allora
        x = c.Value
        Regolar rng2 = la WS. Colonne (1).Find (che cosa: =x, dopo: =ws. Cellule (1), LookIn: =xlFormulas, LookAt: =xlPart, 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à
class= > " libero " del
soluzioni >Related class= scritto " del title= " " di /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26210674.html del href= di Script " qRelatedParent " che genera i hyperlinks che controllano 1 strato ad un altro. Necessità di controllare sheet1 ColumA…

Risposta : Script i colums di quel controllo 2 in 2 strati e hyperlinks. Avere bisogno di un senso controllare esatto - fiammifero e hyperlink.

L'aggiornamento qui sotto abbinerà le intere stringhe


hth

Dave

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

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à
Altre soluzioni  
 
programming4us programming4us