Colocar link en negrita si el texto comienza por un numero
Publicado por party (4 intervenciones) el 07/03/2024 12:28:42
Hola buenas tardes.
Tengo el siguiente código que permite crear un menú de links con las hojas de mi documento
Sin embargo yo quiero colocar un código que me permita validar cuando se esta creando el link, si el texto del link comienza por un numero, entonces colocar ese link en negrita, en caso contrario dejarlo con texto normal.
Adjunto archivo.
Gracias!
Tengo el siguiente código que permite crear un menú de links con las hojas de mi documento
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub Indice()
'*****************************************************************************************************************' PRIMER PASO: Verificamos que exista la hoja 'Indice', de lo contrario, la creamos'*****************************************************************************************************************Dim hoja As Worksheet
On Error Resume Next
Set hoja = Worksheets("INDICE")
On Error GoTo 0
If hoja Is Nothing Then
' Como la hoja no existe, le digo a Excel que la creeWorksheets.Add(Before:=Worksheets(1)).Name = "INDICE"
Else
' Si la hoja ya existe, entonces borramos todo lo que haya en ella ' Worksheets("INDICE").Cells.ClearEnd If
'Le ponemos un título a la hojaWorksheets("Indice").Range("B1").Value = "INDICE"
Worksheets("Indice").Range("B1").Font.Size = 20
'****************************************************************************************************************' SEGUNDO PASO: Vamos creando los enlaces de cada hoja, una por una'**************************************************************************************************************** Dim fila As Long, enlaceInicio As String fila = 2 ' ¿En qué celda quieres colocar el enlace de regreso al índice?enlaceInicio = "B1"
For Each hoja In Worksheets
If hoja.Name <> "INDICE" Then
' Creamos el enlace de regreso.With Worksheets("INDICE")
.Hyperlinks.Add Anchor:=.Cells(fila, 4), _
Address:="", _
SubAddress:="'" & hoja.Name & "'!B1", _
TextToDisplay:=hoja.Name
End With
With hoja
.Hyperlinks.Add Anchor:=.Range(enlaceInicio), _
Address:="", _
SubAddress:="INDICE!B1", _
TextToDisplay:="INDICE"
End With
fila = fila + 1
End If
Next
End Sub
Sin embargo yo quiero colocar un código que me permita validar cuando se esta creando el link, si el texto del link comienza por un numero, entonces colocar ese link en negrita, en caso contrario dejarlo con texto normal.
Adjunto archivo.
Gracias!
- TestWS.zip(34,1 KB)
Valora esta pregunta
0
