Respuesta
en
Visual Basic
a
Autofilter de un excel en VB
Disculpa la tardanza Dale un vistazo a esta página a ver si de algo te sirve http://msdn.microsoft.com/es-es/library/5szkzs17(VS.80).aspx Seguiré buscando algo para ti...
Respuesta
en
Visual Basic
a
¿Cómo realizo una suma en una tabla con vb6?
A ver si te sirve RecSQL. Open "select * from tabla " ' no recuerdo bien como es la consulta While Not RecSQL.EOF reg = RecSQL.Fields("nombre_columna_a_sumar") suma=suma+reg RecSQL.MoveNext Wend Set RecSQL = Nothing asi ya tienes la suma y si el...
Respuesta
en
Visual Basic
a
Botón que se visualiza donde no quiero
¿Aver si te entiendo bien tienes un botón el cual no sabes donde esta para vizualisarlo u ocultarlo(o lo que quieras hacer con el)? Si es así seleccione el formulario donde esta ese botón y en las propiedades selecciona el nombre de el botón y te...
Respuesta
en
Visual Basic
a
Introducir solo numero al textbox de calculadora
¿Visual basic 6.0? Agrega esta función Public Function numeros(Tecla As Integer) As Integer Dim strValido As String strValido = "0123456789" If Tecla > 26 Then If InStr(strValido, Chr(Tecla)) = 0 Then Tecla = 0 End If End If numeros = Tecla End...
Respuesta
en
Microsoft Excel
a
Función si anidado
Pues mira No se si sea obligatorio que lo realices en exel pero ni no lo puedes realizar en visual basic 6.0 es un compilador que estaría biuen que lo utilizaraz en tu problema Si optaspor esta opción dime y te paso el código y todos los pasos a seguir
Respuesta
en
Visual Basic
a
¿Buscar numero menor más próximo?
La verdad yo no utilizo excel y no entendí muy bien tu código pero por lo que preguntas se me ocurre que podrías guardar el numero de registro donde encontró el ultimo en una variable y agregues el que tecleaste en el numero de registro +1. Esto si...
Respuesta
en
Visual Basic
a
Como cambiar minúsculas
Intenta esto: crea un modula en el cual declares esta función (en módulo para que la reconozca todo el programa) "Function minusculas () (ByVal KeyAscii As Integer If KeyAscii = KeyAscii + 32 End If minusculas = KeyAscii End Function" y la mandas...
5 respuestas no visibles