Saltar al contenido

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


Recommended Posts

publicado

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

publicado

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

publicado

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29

    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • Exelente solución mil gracias 
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.