ifrancoz

ifrancoz

Experto en Visual Basic 6
 74,7K puntos  Colombia @ifrancoz desde - visto

Respuestas

Respuesta en a

¿Cómo fragmentar el contenido de un textbox?

Podría ser algo así : Dim Largo as integer Dim Proce as integer dim Campo as string Private Sub Fragmentar() Proce = 1 Largo = Len(Text1) Do While Proce <= Largo Campo=Mid(Text1,Proce,255) ' aqui graba el campo Proce=Proce+255 Loop End Sub Suerte !
Respuesta en a

VBA en Word

Lo que tienes que hacer es colocar ese código en una macro con nombre AutoOpen (la cual se ejecutará automáticamente al abrir el documento). Cuando va a salvar la macro le indicas si aplica a todos los documentos o a uno solo. Suerte !
Respuesta en a

Macro en Excel

Pues la macro puede ser más o menos así: Sub Elimina_Filas() Dim I As Integer For I = 1 To 16000 If Cells(I, 15).Value = "" Then I = 16000 End If If Cells(I, 15).Value = 2006 Then Rows(I).Select Selection.Delete Shift:=xlUp End If Next I End Sub...
Respuesta en a

¿Mover el mouse de manera automática en VB?

Se puede a través de botones de comandos. Ejemplo: Private Sub Cmgrabar_Click() ' Aquí grabo el registro ' Luego descargo forma Call Cmsalir_Click End Sub Private Sub Cmsalir_Click() Unload Me End Sub Suerte !
Respuesta en a

Necesito unas ayudas de Visual!

Vamos por partes : Cuadro de impresión, para ello debes adicionar el control Common Dialog (Comdlg32.Ocx) al proyecto. Este es el ejemplo : Private Sub Command1_Click() Dim BeginPage, EndPage, NumCopies, i ' Establecer CancelError a True...
Respuesta en a

De nuevo hola !

Pues en Visual Basic 6.0 seria algo así: Private Sub Dias_Faltantes Dim Fecf As Date Dim Fecs As String Dim Dias As Integer Fecs = Str(Year(Date)) & "/12/31" Fecf = CDate(Format(Fecs, "yyyy/mm/dd")) Dias = Fecf - Date Text1 = Format(Dias, "##0") End Sub
Respuesta en a

Duda con excel

Tanto en Visual Basic 6.0 como en VBA existe la instrucción: InStr que te permite buscar una cadena dentro de otra, para tu caso sería: Si tienes un campo texto por ejemplo Email = "[email protected]" I = InStr(Email, "@") J = Len(Email) K =...
Respuesta en a

Campo texto

Es que no puedes usar el . pues este esta reservado para el punto decimal. Como supongo que lo necesitas es para una fecha define la mascara asi: ##/##/#### Y ten la seguridad de que funciona. Suerte !
Respuesta en a

Alinear cadena de caracteres hacia la derecha

¿Primero qué todo cuéntame como estás imprimiendo? Print # Write # ¿O con el Objeto Printer? Suerte
Respuesta en a

Ocultar Archivos desde VB6.0

Me parece que si es posible. Creas los libros protegidos con una contraseña; así nadie puede abrirlos desde Excel si no conoce la contraseña. Al abrirlos desde Visual Basic suministrando la contraseña por programa tienen acceso al libro o libros...