Jump to content

LeandroA

Members
  • Posts

    223
  • Joined

  • Last visited

  • Days Won

    7

LeandroA last won the day on August 5 2021

LeandroA had the most liked content!

2 Followers

About LeandroA

  • Birthday 10/07/1976

Contact Methods

  • Website URL
    www.leandroascierto.com

Profile information

  • Gender
    Hombre
  • Localización:
    Argentina

Converted

  • Campos
    ;

Recent Profile Visitors

2,484 profile views

LeandroA's Achievements

  1. LeandroA

    Juego Wordle

    Version 1.0.0

    0 downloads

    Juego del Wordle en Excel, consiste en adivinar una palabra dentro de 6 intentos, lo había visto en otro lenguaje y me dio ganas de hacerlo en Excel, después que lo termine vi que ya lo habían echo 100 veces al menos 🤪 Wordle.xlsm
  2. Hola, alguien tiene para compartir una hoja de Excel con muchos datos (no menos de 1000 registros) con al menos 5 o mas columnas de preferencia nombres o palabras, para hacer algunas practicas, filtrados y esas cosas. o algún link donde pueda descargar. Gracias
  3. Hola, estas intentando insertar una imagen ".svg", la cual no es un formato soportado por excel, si usas png o jpg u otro formato soportado funcionaria bien, ahora si lo que vos estas buscando es realmente usar .svg vas a tener que depender de alguna libreria externa para convertirla, para ellos tendrías que descargarla al disco, realizar la conversión y luego leerla desde excel, En una de las actualizaciones de windows 10 ("Windows 10 Creators Update") es posible hacer una conversión mediante WIC, es todo un código muy complejo, otra opción podría ser mediante la librería de Cairo. pero ninguna opción es simple.
  4. Hola, con un click en un userform Private Sub UserForm_Click() EscribirCVS "C:\MiArchivo.txt" End Sub Private Function EscribirCVS(ByVal sPath As String) As Boolean Dim FF As Integer Dim Row As Long, Col As Long Dim sLine As String FF = FreeFile Open sPath For Output As #FF For Row = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row sLine = vbNullString For Col = 1 To ActiveSheet.UsedRange.Columns.Count sLine = sLine & Chr$(34) & ActiveSheet.Cells(Row, Col) & Chr$(34) & "," Next Print #FF, Left$(sLine, Len(sLine) - 1) Next Close #FF EscribirCVS = Err.Number = 0 End Function
  5. se supone que adivinemos el usuario y contraseña, estos detalles no pueden faltar a la hora de pedir ayuda.
  6. Hola podes utilizar un webbrowser, o usando createobjet XmlHttpRequest o similares, pero en fin no se cual es tu web puntualmente y que datos queres sacar, porque podes usar uno u otro según el caso.
  7. Hola no entiendo nada de lo que ocurrió en este foro, ya no puedo adjuntar archivos, y no puedo hacer mas de tres preguntas, cual es el motivo de todo esto?, no soy habitué del foro pero creo que esto es muy desalentador para cualquier rango sea novato o experto.
  8. solucionado, era mas facil de lo que esperaba arRng = xlSpread.Range("A6:U796").Value ahora que me recomiendan para suplantar hacer ese rango con letras, es decir valores numéricos (row6,col1) to (row796,col21)
  9. Hola Antoni, sigue con la misma velocidad, el libro de por si esta oculto, yo no estoy escribiendo en él, sólo estoy leyendo datos, por lo que ScreenUpdating no hace la diferencia
  10. Hola estoy cargando una hoja Excel a una grilla de VB6 y creo que el método que estoy empleando es lento, creo recordar que hay otros métodos mas rápidos, yo utilizo dos for X, y for Y recorriendo celda por celda y obtengo su valor (esto en 790 filas con 21 columnas me esta demorando 1 minuto), pero creo que había una forma de obtener un array de las celda lo cual es mas rápido mi código actual Private Sub Form_Load() Dim LastRow As Long Dim i As Integer Dim XL As Object, xlSpread As Object Const xlLastCell = 11 Dim Row As Long, Col As Long Set XL = CreateObject("Excel.Application") XL.Workbooks.Open FileName:=App.Path & "\L1.xlsx", ReadOnly:=False Set xlSpread = XL.Application LastRow = xlSpread.ActiveCell.SpecialCells(xlLastCell).Row With ucGridPlus1 .Redraw = False .ColsCount = 21 .RowsCount = LastRow - 6 + 1 'Encabesados For i = 0 To 20 .ColumText(i) = xlSpread.Cells(5, i + 1).Value Next i = 0 'Celdas/Tabla For Row = 6 To LastRow For Col = 0 To 20 .CellValue(i, Col) = xlSpread.Cells(Row, Col + 1).Value Next i = i + 1 'Debug.Print Row Next .Redraw = True End With XL.Application.DisplayAlerts = False XL.ActiveWorkbook.Close False 'Dont save changes (if any) XL.Quit Set XL = Nothing End Sub
  11. LeandroA

    Bloques

    Version 1.0.0

    24 downloads

    Otro juego realizado con Excel, en este caso es un juego que consiste en acomodar bloques arrastrando y soltandos para formar la figura que se encuentra en la parte superior, el juego original tiene muchos mas niveles y distintas formas, pero hasta aqui llego mi amor, mi objetivo era poder replicarlo en excel, luego es un poco mas de lo mismo, espero que les sirva para pasar un rato in the office
  12. LeandroA

    Juego Trabado

    Version 1.0.1

    32 downloads

    Hola este es un juego que vi en estos días y me dió ganas de hacer lo en Excel, la verdad si bien me dio trabajo programarlo es más difícil lograr el objetivo del juego, en YouTube hay un par de tutoriales pero eso seria como ir derecho a la trampa así que les dejo este desafío para pasar el rato (yo no logré resolverlo) El objetivo del juego es bajar la ficha roja en la parte inferior tal como muestra el cuadro de solución, las piezas se mueven con el mouse.
  13. Version 1.0.0

    22 downloads

    Hola comparto una forma de agregar una imagen a la hoja con barra deslizantes, también se pude arrastrar y mover con el mouse, el ejemplo esta echo con un shape de fondo, pero este es solo para indicar en que lugar y de que tamaño se quiere la imagen. no son de mi agrado los scrollbar activeX de vba ya que no se comportan como deberían, tenia ganas de hacerlos con shapes, pero bueno quizás para otra ocasión.
  14. Version 1.0.2

    72 downloads

    En este aporte intenta dar una fachada diferente a los controles clásicos de VBA que se utilizan en la parte de la hoja de Excel, no es que sean controles nuevos, sino que están retocados estéticamente con ayuda de shapes y automatizaciones, hay dos modulos adentro que nos ayudaran para hacer que todo esto funcione, tenia ganas de crear un formulario para que se automatice agregar el control a la hoja, pero por el momento tendrán que copiar y pegar los controles de esta hoja a la que quieran utilizar. los controles intentan simular la fachada de la interfaz de Bootstrap o controles web, los que mas les recomiendo es el control calendario que creo que quedo bastante fachero. esto aun no esta muy testeado por lo que puede haber que ir ajustando algunas cosas solo arme un grupo de controles, pero no se me dio para hacer alguna hoja con alguna utilidad que los emplee, si alguien se anima bienvenido bien cualquier duda pregunten, no soy de conectarme mucho pero tratare de ayudar.
×
×
  • Create New...

Important Information

Privacy Policy