Respuesta
en
Visual Basic
a
Reloj en formulario
Seria asi: Private Sub UserForm_Initialize() Me.Caption = Date & "|" & Time End Sub
Respuesta
en
Visual Basic
a
El valor max de una fila y solo la letra de la columna en que se encuentra ese max
Ni idea
Respuesta
en
Visual Basic
a
Duda con mshflexgrid
Acá esta: Private Sub Command1_Click() numero = CInt(InputBox("Introducir número: ")) MSHFlexGrid1.Rows = numero + 2 ' este era el problema Dim j As Integer j = 1 For i = 0 To numero cuadrado = i ^ 2 cubo = i ^ 3 MSHFlexGrid1.TextMatrix(j, 0) = i...
Respuesta
en
Visual Basic
a
Imprimir imagen de PictureBox
Las dimensiones de la imagen se las das al picture... para sacar a la impresora local Solo PrintOut picture1 O bien si pasaste la imagen a un objeto imagen PrintOut imagen
Respuesta
en
Visual Basic
a
Debo hacer una macro que busque una fecha en una columna y copie un dato de otra columna de la misma
Acá tienes: Sub buscar(fecha As Date) Dim r As Range Dim filas As Long filas = Application.WorksheetFunction.CountA(Sheets(1).Range("A:A")) If filas = 0 Then Exit Sub '4c7569735f50 For Each r In Sheets(1).Range("A:A") If fecha = r Then...
Respuesta
en
Visual Basic
a
Programar en evento change
Cambia de evento y utiliza el enter como disparador Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Select * from table where …. If recorset > 0 Then Muestre datos Else Mgsbox (“no hay datos”) End If End If End Sub
Respuesta
en
Visual Basic
a
Introducir fecha desde VB en access
Primero debes tener doden guardarlos, es decir una tabla que contenga los campos ´para fecha y para hora, la forma de agregar el dato es la misma que usas para agregar el dato de tu texbox campo1_de _ tu_tabla = textbox1 campo2_de _ tu_tabla = date...
Respuesta
en
Visual Basic
a
Ayuda formula Excel - VB
Abre el editor de vb ( alt + F11) inserta un modulo ( no de clase) y alli pegas esto: Sub f() Dim r As Range Dim fila As Long '4c7569735f50 fila = Application.WorksheetFunction.CountA(Range("I:I")) If fila = 0 Then Exit Sub For Each r In Range("i1" &...
Respuesta
en
Visual Basic
a
Hola, tengo un libro compartido y me marca Error 1004, error definido por la aplicación o el objeto
Hice la prueba y señala "el libro contiene macros grabadas o escritas en vbasic. No se pueden ver o modificar maros en libros compartidos". Asi que nada que hacer
Respuesta
en
Visual Basic
a
Extraer datos de una trama hexadecimal
Sub extrae() '4c7569735f50 Dim trama As String Dim v As String trama = ("7E00128356782E0005040002FB81") V = Mid(trama, 23, 4) ' extraemos la parte que te interesa y se la pasamos a la variable v End Sub