Visual Basic - como puedo destacar un rango de celdas dentro de un paréntesis

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado su posición en 10 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

como puedo destacar un rango de celdas dentro de un paréntesis

Publicado por pablo (2 intervenciones) el 25/02/2019 16:26:32
hola, buenas
como puedo destacar con color un rango de celdas.
me explico:

Todo es para el ingreso de horas,
Ejemplo: [hora de inicio : hora de termino ]

Mi problema va en lo siguiente , al extenderse el periodo de tiempo se va alargando el rango de celdas que uso y por lo tanto los"guiones que uso no sirven en ese caso.

Como puedo establecer un rango para destacar todo lo que se encuentra dentro de los paréntesis de "[hora de inicio :hora final]".

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Private Sub cmdIng2_Click()
 
Dim h, m, columnaI, columnaF As Integer
    With Worksheets("Hoja1")
        hi = txtHITA.Text
        mi = txtMITA.Text
        mf = txtMFTA.Text
        hf = txtHFTA.Text
        txtCanTA.Text = txtCanTA.Text
        ' REFERENCIA HORAS hi y hf
        Select Case hi
            Case 8
                columnaI = 3
            Case 9
                columnaI = 7
            Case 10
                columnaI = 11
            Case 11
                columnaI = 15
            Case 12
                columnaI = 19
            Case 13
                columnaI = 23
            Case 14
                columnaI = 27
            Case 15
                columnaI = 31
            Case 16
                columnaI = 35
            Case 17
                columnaI = 39
            Case 18
                columnaI = 43
            Case 19
                columnaI = 47
 
            End Select
 
            Select Case hf
            Case 8
                columnaF = 3
            Case 9
                columnaF = 7
            Case 10
                columnaF = 11
            Case 11
                columnaF = 15
            Case 12
                columnaF = 19
            Case 13
                columnaF = 23
            Case 14
                columnaF = 27
            Case 15
                columnaF = 31
            Case 16
                columnaF = 35
            Case 17
                columnaF = 39
            Case 18
                columnaF = 43
            Case 19
                columnaF = 47
 
            End Select
        'End If
 
        'REFERENCIA MINUTOS mi y mf
        Select Case mi
            Case 0 To 15
                mi = columnaI
            Case 16 To 30
                mi = columnaI + 1
            Case 31 To 45
                mi = columnaI + 2
            Case 46 To 60
                mi = columnaI + 3
        End Select
 
        Select Case mf
            Case 0 To 15
                mf = columnaF
            Case 16 To 30
                mf = columnaF + 1
            Case 31 To 45
                mf = columnaF + 2
            Case 46 To 60
                mf = columnaF + 3
        End Select





Aqui es donde se establece el rango de tiempo:

1
2
3
4
5
6
7
'ESCRIBIR EN LA CELDA HORA INICIAL
.Cells(8, mi) = "[" & txtHITA.Text & ":" & txtMITA.Text
.Cells(8, mi + 1) = "-"
.Cells(9, mi + 1) = txtCanTA.Text
'ESCRIBIR EN LA CELDA HORA FINAL
.Cells(8, mf) = txtHFTA.Text & ":" & txtMFTA.Text & "]"
.Cells(8, mf - 1) = "-"
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder