
Como pintar una columna en especifico
Publicado por Jose (23 intervenciones) el 23/09/2016 23:26:25
Lo hago de esta manera
Pero me pinta todas las columna a ver si pueden ayudar lo que pretendo hacer es como se hace en excel que que el usuario seleciona una columnas en especifico y le da color por ejemplo
por ejemplo que selecione el usuario la columna 1 y 2 luego le color
Gracias de antemano le agradesco
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
If cd.ShowDialog() = DialogResult.OK Then
V_Quincena.Columns(1).AppearanceCell.BackColor = ColorDialog1.Color
V_Quincena.Columns(2).AppearanceCell.BackColor = ColorDialog1.Color
V_Quincena.Columns(3).AppearanceCell.BackColor = ColorDialog1.Color
V_Quincena.Columns(4).AppearanceCell.BackColor = ColorDialog1.Color
V_Quincena.Columns(5).AppearanceCell.BackColor = ColorDialog1.Color
V_Quincena.Columns(6).AppearanceCell.BackColor = ColorDialog1.Color
V_Quincena.Columns(7).AppearanceCell.BackColor = ColorDialog1.Color
V_Quincena.Columns(8).AppearanceCell.BackColor = ColorDialog1.Color
V_Quincena.Columns(9).AppearanceCell.BackColor = ColorDialog1.Color
V_Quincena.Columns(10).AppearanceCell.BackColor = ColorDialog1.Color
V_Quincena.Columns(11).AppearanceCell.BackColor = ColorDialog1.Color
V_Quincena.Columns(12).AppearanceCell.BackColor = ColorDialog1.Color
V_Quincena.Columns(13).AppearanceCell.BackColor = ColorDialog1.Color
V_Quincena.Columns(14).AppearanceCell.BackColor = ColorDialog1.Color
V_Quincena.Columns(15).AppearanceCell.BackColor = ColorDialog1.Color
End If
Pero me pinta todas las columna a ver si pueden ayudar lo que pretendo hacer es como se hace en excel que que el usuario seleciona una columnas en especifico y le da color por ejemplo
por ejemplo que selecione el usuario la columna 1 y 2 luego le color
Gracias de antemano le agradesco
Valora esta pregunta


0