Anónimo
DIBUJAR CELDAS con macros
Tengo una Base de Datos en la que estoy asignando valores por medio de un UserForm de la sig forma:
ActiveCell = TextBox1 '(TextBox2, ComboBox1, etc, etc..)
El UserForm llena toda una fila de mil columnas en la base de datos.
Y me gustaría poner una instrucción para que después de insertar el ultimo campo me dibujase los TODOS bordes para toda la fila.
, de no ser así, supongo que podría los bordes celda por celda, después de insertar el valor en cada una... Algo como:
ActiveCell = TextBox1
(Instrucción para dibujar el bode aquí)
ActiveCell . Offset(0, 1). Select 'muevete 1 a la derecha
ActiveCell = TextBox2
(Instrucción para dibujar el bode aquí)
... Etc, etc.
Nota. Lo demás lo tengo claro, solo tengo duda en como dibujar los bordes.
ActiveCell = TextBox1 '(TextBox2, ComboBox1, etc, etc..)
El UserForm llena toda una fila de mil columnas en la base de datos.
Y me gustaría poner una instrucción para que después de insertar el ultimo campo me dibujase los TODOS bordes para toda la fila.
, de no ser así, supongo que podría los bordes celda por celda, después de insertar el valor en cada una... Algo como:
ActiveCell = TextBox1
(Instrucción para dibujar el bode aquí)
ActiveCell . Offset(0, 1). Select 'muevete 1 a la derecha
ActiveCell = TextBox2
(Instrucción para dibujar el bode aquí)
... Etc, etc.
Nota. Lo demás lo tengo claro, solo tengo duda en como dibujar los bordes.
1 respuesta
Respuesta de bacter582
1
Con esta serie de instrucciones construyes los bordes.
ActiveCell.Offset(0, 1).Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With
Cualquier duda estamos a la orden.
No olvides finalizar la pregunta.
ActiveCell.Offset(0, 1).Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With
Cualquier duda estamos a la orden.
No olvides finalizar la pregunta.