Jump to content

Inserte una fecha en uno de los seis cuadros de texto aleatorios; Al hacer clic en el objeto Calendar1


Recommended Posts

Hola a todos, mi nombre es Maurizio
E incluso si entiendo que para muchos de ustedes esta solicitud mía no tiene mucho sentido; Para mí programáticamente mucho.

Dicho esto, mi solicitud es esta:
En un formulario de usuario, inserté un objeto (Calendar1) y 6 (TextBox)
Ahora, el propósito de todo esto sería seleccionar uno de estos (cuadro de texto) y al hacer clic en (Calendario) ingrese la (Fecha seleccionada
eso es todo !
Gracias como siempre desde ahora por toda la ayuda que me des al respecto.
Un saludo desde Maurizio

################################

Hi everyone, my name is Maurizio
And even if I understand that for many of you this request of mine doesn't make much sense; For me programmatically a lot.

Having said that, My Request is this:
In a userform I inserted an object (Calendar1) and 6 (TextBox)
Now the purpose of all this would be to select one of these (textbox) and by clicking on the (Calendar) enter the (Selected Date
that's all !
Thanks as always from now For all the help you want to give me about it.
Greetings from Maurizio

Effetto Calendario e Textbox.xlsm

Link to post
Share on other sites

Hola antonio
Cómo estás !
Gracias por tu intervención; no era exactamente lo que quería pero está bien.

Pero surge una pregunta espontáneamente.
Y esto es todo:
A si en lugar del Calendario pongo solo un TextBox separado de los demás.
Y si tuviera que poner manualmente un dato dentro de él y luego con la ayuda de una pulsación; ¿Podrías obtener lo mismo?
Mientras aún lo desee, lo despachará.
(P.s) En la práctica es: si inserto un dato en un cuadro de texto
¿Cómo es posible abordar su contenido en tantos (Textbox) sin necesariamente comenzar desde el primero?
Eso es todo
Gracias
Saludos sinceros de A.Maurizio

##################################

Hi Antonio
How are you !
Thanks for your intervention; it wasn't exactly what I wanted but it's okay.

But a question arises spontaneously.
And this is it:
A if instead of the Calendar I put only a separate TextBox from the others.
And if I were to manually put a data inside it and then with the help of a pulsate; Could you get the same thing?
As long as you still want it, it would dispatch you.
(P.s) In Practice it is: If I insert a data in a textbox
How is it possible to address its content in as many (Textbox) without necessarily starting from the first?
That's all
Thanks
Sincere greetings from A.Maurizio

Link to post
Share on other sites

Ciao
Antoni È vero che ci ho pensato tutta la notte Prendendo spunto dal mio vecchio libro di Visual Basic 6.0

E il mio occhio è
caduto su un piccolo oggetto usato che è: (ToogleButton) in quanto è uno dei pochi oggetti che inizialmente ha lo stato attivo (-False) che normalmente serve a sfruttare due funzioni dispitespite avere una sola chiave disponibile.

Pertanto ho acceso la lampadina
nella mia mente e facendo la stessa cosa sia in un Access e un modulo Excel ho ottenuto la stessa cosa.

Ma anche
grazie al vostro sostegno E questo è il risultato finale.

Se non si dispone di un Calendar1 Non importa, è possibile sfruttare un (Casella di testo) e non cambierebbe.

Devi solo fare doppio clic su qualsiasi testo; Questo come per (Excel) Come
non
ha la proprietà (clic) Mentre se si utilizza l'accesso Si può anche fare un solo clic per vedere il risultato finale e il gioco è fatto.

Grazie ancora. Tutti ti auguro un buon fine
settimana - Tutto lo staff di (HelpExcel) e ci vediamo presto Ciao Da A.Naurizio

-----------------------------------------------------------------------

-

Hola antoni
Es cierto que lo pensé toda la noche siguiendo el ejemplo de mi antiguo libro de Visual Basic 6.0

Y mi ojo se posó en un pequeño objeto usado que es: (ToogleButton)
ya que es uno de los pocos objetos que inicialmente tiene el estado activo (= Falso) que normalmente sirve para explotar dos funciones a pesar de tener solo una tecla disponible.

Così, ho acceso la lampadina nella mia
mente e ha fatto la stessa cosa sia su un modulo di accesso e su un modulo Excel ho la stessa cosa.

Ma anche
grazie al vostro sostegno E questo è il risultato finale.

Se non si dispone di un Calendar1 Non importa, è possibile sfruttare un (Casella di testo) e non è necessario modificarlo.

È sufficiente fare doppio clic su qualsiasi testo; Questo è per (Excel)
dal
momento che non ha la proprietà (Clic) Mentre se si utilizza Access è anche possibile fare clic per vedere il risultato finale e il fatto.

Grazie ancora. Vi auguro un buon fine settimana. Tutto il personale da (HelpExcel) e ci vediamo presto.
Ciao da A.Naurizio

Effetto Calendario e Textbox.xlsm Nuovo Microsoft Office Access 2007 Database.accdb

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • He conseguido algo con este código pero me faltaría la segunda opción: -Que pueda enviar los que seleccione con el ratón. Adjunto código a ver si esta medianamente bien: Private Sub btn_Txt_Click(): On Error Resume Next Dim ruta As String, I As Integer, existe As Boolean, coleccion_archivos As New Collection, archivo As String ruta = ActiveWorkbook.path archivo = Dir(ruta & "\*.*") Do Until archivo = "" coleccion_archivos.Add archivo archivo = Dir() Loop For I = coleccion_archivos.Count To 1 Step -1 If coleccion_archivos(I) = "tb_Cobros.txt" Then existe = True End If Next I If existe = True Then Dim z As Integer z = MsgBox("Ya existe el archivo de texto.¿Deseas eliminardo?", vbYesNo) If z = vbYes Then Kill ActiveWorkbook.path & "\tb_Cobros.txt" existe = False Else Open ActiveWorkbook.path & "\tb_Cobros.txt" For Append As #1 End If End If If existe = False Then Open ActiveWorkbook.path & "\tb_Cobros.txt" For Output As #1 MsgBox "El archivo txt fue creado" End If Dim Sep As String Dim x Sep = ";" Print #1, "Fecha: " & Date For x = 0 To frm_Cobros.ListBox1.ListCount - 1 TextBox0 = ListBox1.List(x, 0) TextBox50 = ListBox1.List(x, 1) TextBox51 = ListBox1.List(x, 2) TextBox4 = Format(ListBox1.List(x, 3), "dd/mm/yyyy") TextBox5 = ListBox1.List(x, 4) TextBox10 = ListBox1.List(x, 5) TextBox6 = ListBox1.List(x, 6) TextBox11 = ListBox1.List(x, 7) TextBox7 = ListBox1.List(x, 8) TextBox8 = ListBox1.List(x, 9) TextBox12 = ListBox1.List(x, 10) Print #1, TextBox0 & Sep & TextBox50 & Sep & TextBox51 & Sep & TextBox4 & Sep & TextBox5 & Sep & TextBox10 & Sep & TextBox6 & Sep & TextBox11 & Sep & TextBox7 & Sep & TextBox8 & Sep & TextBox12 Next x Print #1, "-" Close #1 End Sub  
    • Hola y buenos días a todos; He empezado a crear una macro que me permite crear un archivo .txt pero no sé como continuar. Quiero conseguir que los datos almacenados o filtrados  inclusive los que vaya seleccionando con el ratón en el listbox del frm_Cobros los pueda capturar y poder exportarlos al archivo .txt generado. Adjunto macro y video: https://youtu.be/bVO7f-JZuSg Saludos.   ExportarTxt.zip
    • Hola que tal, tengo poca experiencia para crear una macro que haga un autofiltro en la misma hoja de una base de datos, cuyas celdas se hayan seleccionado, ya sean del mismo campo o de varios campos...alguien me pudiera ayudar con esto? Ver el archivo por ejemplo si selecciono la celda D8 y D9, aplicar la macro y realice el autofiltro solamente de las celdas seleccionadas... y asi cualquier combinación que haga de seleccion de celdas.... Saludos y atento a su ayuda. Atte ERH     Libro3.xlsx
    • Buenas tardes, gracias por la respuesta. Se que es mejor con tablas dinamicas, el hecho de porque lo queria asi es porque el estadillo se entrega en formato de papel y queria ver si podia ahorrar el tiempo de copiar y pegar, aun asi, con la macro que has hecho me has dado una idea. Gracias por tu respuesta   Saludossss
    • Hola @tupy77 Según entiendo, quieres que en una hoja se pongan varias tablas con 1 fila en blanco entre ellas y que contengan "N" filas según un filtro establecido. El filtro debe ponerse en un cuadrito. Supongo que son filtros diferentes para cada tabla. La mejor forma para hacerlo es, como dice @Silvia, usando tablas dinámicas y segmentadores. El problema es que solo verías una tabla (no varias, como quieres) pero.... ¿por qué mostrar muchas tablas si puedes hacerlo solo en una y cambiar los filtros con un solo clic? No es algo difícil de hacer. La tendencia de crear muchas tablas o incluso muchas hojas con cuadros "copiados" total o parcialmente es una pésima idea, no es óptimo, es muy trabajoso.... y para eso Excel te provee otras herramientas (como las tablas dinámicas) para que no te compliques la vida. Adjunto un ejemplo con una macro que hace lo que pides: Pone tablas en la segunda hoja, separadas por 1 fila en blanco. ¿Cómo funciona? El botón limpiar se encarga de eliminar todo el contenido de la segunda hoja. El botón "Agregar" agrega los datos en una tabla nueva y le pone un color al azar. Los filtros se hacen en las columnas G:J de la misma forma que se usan en los filtros avanzados (conjunciones en horizontal y disyunciones en vertical). Como esa forma no es la recomendable.... adjunto otra hoja con una tabla dinámica y segmentadores que permite hacer lo mismo. Extraer registros haciendo tablas ajustables.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy