TODOPIC
Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: Javicho en 17 de Mayo de 2008, 20:15:03
-
Saludos:
Estoy tratando de hacer una tabla de 4 columnas x 4 filas, todas las celdas tienen un texto de información excepto la columna 4 a la que deseo agregarle un valor determinado enviado a partir de un CommandButton a cada celda. Bueno de Visual Basic no se mucho, intenté hacerlo con el control OLE me apareció una ventana Insertar Objeto y elegí Hoja de Calcuo de Excel, luego rellené todas las celdas con los textos que deseaba dejando la ultima columna en blanco pero aqui es donde viene mi pregunta ... como puedo "direccionar" un valor dado a una celda especifica, por ejemplo para probar estoy asociando un CommandButton a cada celda de la columna 4, al presionar un CommandButton debe aparecer un valor en la celda correspondiente, lo intento pero no aparece el valor.
Javicho.
-
una pegunta ? pq no trabajas con un msflexgrid ? es mas sencillo y facil de hacer lo que necesitas
-
Olvidé colocar en mi post anterior que espero sugerencias porque imagino deben haber otras formas de hacer lo mismo pero como dije no se mucho de visual basic y busqué en internet pero los enlaces me mandan a usar acces, base de datos y no creo que sea el mejor camino.
Buscaré info sobre msflexgrid entonces y si tienen algun ejemplo simple un par de lineas nomas mejor igual buscaré gracias de todas maneras eso ya es una luz y es lo que necesitaba.
Javicho.
-
a grandes rasgos esto es mas o menos lo que deseas ???
(http://img221.imageshack.us/img221/4388/vb1examplevi8.th.jpg)
Option Explicit
Dim fila As String, columna As String, dato As String
Private Sub Command1_Click()
dato = Text1.Text
fila = Text2.Text
columna = Text3.Text
MSFlexGrid1.TextMatrix(fila, columna) = dato
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Form_Load()
MSFlexGrid1.TextMatrix(0, 0) = "DIA"
MSFlexGrid1.TextMatrix(1, 0) = "MES"
MSFlexGrid1.TextMatrix(2, 0) = "AÑO"
MSFlexGrid1.TextMatrix(3, 0) = "SUELDO"
MSFlexGrid1.TextMatrix(0, 1) = "LUNES"
MSFlexGrid1.TextMatrix(1, 1) = "ENERO"
MSFlexGrid1.TextMatrix(2, 1) = "2005"
MSFlexGrid1.TextMatrix(3, 1) = "3000"
MSFlexGrid1.TextMatrix(0, 2) = "MARTES"
MSFlexGrid1.TextMatrix(1, 2) = "JULIO"
MSFlexGrid1.TextMatrix(2, 2) = "2007"
MSFlexGrid1.TextMatrix(3, 2) = "1800"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
-
Muchas gracias manuelroin24 es exactamente lo que buscaba ni mas ni menos, ya lo probé y quedó muy bien.
Javicho.
-
que bueno, dale con el visual que hay mucho aqui para aprender!!! :P