Jump to content

Cómo anular SmallScroll


Recommended Posts

Pues eso... Digamos que tengo una hoja repleta de botones con macros y quiero dejarla estática, es decir, que el usuario no se pueda desplazar a través de ella haciendo uso de la ruleta del mouse.

Supongo que existirá alguna manera más sencilla de programarlo, pero pienso que lo más lógico sería anular la propiedad SmallScroll del objeto Windows.

Muchas gracias de antemano por vuestro tiempo.

Link to comment
Share on other sites

Otra opción es ocultar las filas y columnas que no se usen (desde la última celda llena hasta la última fila/columna de la hoja de Excel. Eso funciona para que el usuario no pueda moverse usando el teclado.

Si es necesario hacerlo con el mousewheel entonces creo que la mejor opción es la inmovilización como dice el maestro Antoni

Edited by DiegoPC
Link to comment
Share on other sites

En 1/7/2021 at 4:45 , paikerr dijo:

Pues eso... Digamos que tengo una hoja repleta de botones con macros y quiero dejarla estática, es decir, que el usuario no se pueda desplazar a través de ella haciendo uso de la ruleta del mouse.

También puedes configurar la hoja desde las propiedades en el proyecto VBA

Mira la imagen

image.png

 

Saludos 

Link to comment
Share on other sites

Posted (edited)
En 7/7/2021 at 7:24 , Gerson Pineda dijo:

También puedes configurar la hoja desde las propiedades en el proyecto VBA

Mira la imagen

image.png

 

Saludos 

Grande, @Gerson Pineda.

 

A veces la solución más sencilla está justo delante de mis narices... y no lo vi!

Le puse $A$1, y se queda la hoja estática.

Era justo lo que estaba buscando.

 

Muchísimas gracias por el detalle.

Edited by paikerr
Link to comment
Share on other sites

Hace 12 horas, paikerr dijo:

A veces la solución más sencilla está justo delante de mis narices... y no lo vi!

Le puse $A$1, y se queda la hoja estática.

Era justo lo que estaba buscando.

Si es una solución simple, pero que a mi llevo un tiempo detectarla [hace unos par de años], especialmente porque no había tenido la necesidad que tu, ahora tienes

Y no es necesario que pongas el símbolo dólar, con solo digitar A1:A10 y dar intro, Excel lo deja fijo y pone los signos 

 

Saludos a todos!

Link to comment
Share on other sites

En 9/7/2021 at 23:50 , Gerson Pineda dijo:

Si es una solución simple, pero que a mi llevo un tiempo detectarla [hace unos par de años], especialmente porque no había tenido la necesidad que tu, ahora tienes

Hola @Gerson Pineda, recién me doy cuenta de que este pequeño "truco" se anula en el momento que se cierra la aplicación ofimática. Excel en este caso.

Sabes cómo se hace para dejarlo estable para siempre?

 

Saludos.

Link to comment
Share on other sites

Hace 10 horas, paikerr dijo:

Hola @Gerson Pineda, recién me doy cuenta de que este pequeño "truco" se anula en el momento que se cierra la aplicación ofimática. Excel en este caso.

Sabes cómo se hace para dejarlo estable para siempre?

 

Saludos.

@paikerr como te va!

Si porque es manual, pero lo resuelves de una manera simple, utilizando un evento como Open y listo

Tal que:

Hoja1.ScrollArea = "A1:H10"

 

Saludos

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Buenos días a todos; -Necesito de vuestra ayuda. Para mejor comprensión adjunto enlace de un video y comentario. Saludos y gracias de antemano     Adjunto también la macro. MEvento.zip
    • No debe importarnos que el usuario que abrió el tema no vuelva a consultarlo porque nuestras respuestas le llegaron demasiado tarde... Lo importante es poder ayudar a otros usuarios que tengan un problema similar en el futuro...
    • Es una opción original e ingeniosa pero creo que difícil de comprender para un usuario que sepa fórmulas sencillas... Adjunto otra opción con fórmulas desbordadas que puede que sea más fácil de comprender para un usuario que esté aprendiendo a formular, pues hay 3 pasos separados: Columna D : A cada valor se le añade 1> a la izquierda, se sustituye el primer + por 2> y el segundo + por 3>. De paso se quitan los signos , y . para convertir los valores en números. Todo ello con la función SUSTITUIR. ="1>"&SUSTITUIR(SUSTITUIR(SUSTITUIR(SUSTITUIR($C2;",";"");".";"");"+";"2>";1);"+";"3>";1)   Columna E (desbordada hacia la derecha en las columnas F y G): Extrae los valores y letras de 1>, 2> y 3>. Todo ello con una versión matricial de la función EXTRAE, con la ayuda de la función ENCONTRAR. =SI.ERROR(SUSTITUIR(EXTRAE($D2;ENCONTRAR({"1>"\"2>"\"3>"};$D2);SI.ERROR(ENCONTRAR({"2>"\"3>"\"0>"};$D2);100)-ENCONTRAR({"1>"\"2>"\"3>"};$D2));{"1>"\"2>"\"3>"};"");"")   Sumas de C, T y V: Suma las cantidades consumidas de cada letra con la función SUMAPRODUCTO. Salu2, Pedro Wave Sumar Letras PW1.xlsx
    • Hola,  Estoy intentando vía InputBox rellenar con el dato introducido una columna. Pero no consigo que lo haga desde la primera fila libre de A. Sería pegar el dato a partir de la primera celda libre de la columna A (está en verde), en función del Nº de filas de la columna B No consigo modificarla y se pega desde el comienzo.  Podéis echarle un vistazo? La macro está en el ejemplo. ¡Muchísimas gracias!      ej_InputBox.xlsm
    • La mía. Sub Mostrar() Application.ScreenUpdating = False Range("B:CM").EntireColumn.Hidden = False End Sub '-- Sub Ocultar() Dim Filtro As Range Application.ScreenUpdating = False Mostrar For y = 2 To Columns("CM").Column If WorksheetFunction.CountIf(Cells(8, y).Resize _ (Range("A" & Rows.Count).End(xlUp).Row, 1), "<>" & Empty) = 0 Then Columns(y).Hidden = True End If Next End Sub  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy