Programación

17 agosto, 2014
JADM
-

Windows sin mouse

Etiquetas: atajos comandos Microsoft sendkeys shell short cuts sin mouse VBA visual windows 8 Windows 8.1

Categoría: Problemas habituales , Programación

No funciona el touchpad, murió el mouse usb o simplemente nos resulta más cómodo hacer todo desde el teclado? O para llamar comandos vía shell o sendKeys desde tu aplicación.

Aquí esta forma de acceder a todo tu Windows 8 usando sólo el teclado.

Comandos de Windows:

Estos comandos deben ejecutarse desde la ventana Ejecutar. Para abrirla hay que presionar simultáneamente las teclas Windows+R

appwiz.cpl : Programas > Programas y características > Desinstalar o cambiar un programa
desk.cpl : Pantalla > Resolución de pantalla > Cambiar apariencia de la pantalla
firewall.cpl : Sistema y seguridad > Firewall de Windows
hdwwiz.cpl : Administrador de dispositivos
inetcpl.cpl : Propiedades: Internet
intl.cpl : Región > Formatos > idioma | fecha y hora
joy.cpl : Dispositivos de juego
main.cpl : Propiedades: Mouse
mmsys.cpl : Sonido > Reproducción
ncpa.cpl : Redes e Internet > Conexiones de red
powercfg.cpl : Hardware y sonido > Opciones de energía
sysdm.cpl : Propiedades del sistema
telephon.cpl : Información de la ubicación (modem)
timedate.cpl : Fecha y hora > Cambiar fecha y hora… | Cambiar zona horaria…
wscui.cpl : Sistema y seguridad > Centro de actividades
certmgr.msc : Certificados > Usuario actual
compmgmt.msc : Administración de equipos
devmgmt.msc : Administrador de dispositivos
diskmgmt.msc : Administración de discos
eventvwr.msc : Visor de eventos
fsmgmt.msc : Carpetas compartidas
gpedit.msc : Editor de directivas de grupo local
lusrmgr.msc : Usuarios y grupos locales
perfmon.msc : Monitor de rendimiento
rsop.msc : Conjunto resultante de directivas
secpol.msc : Directiva de seguridad local
services.msc : Servicios
wmimgmt.msc : Servicio Instrumental de administración de Windows (WMI)
calc : Calculadora
charmap : Mapa de caracteres
cleanmgr : Liberador de espacio en disco
cliconfg : Herramienta de cliente de red de SQL Server
cmd : Línea de comandos
control : Panel de control
control color : Personalización > Color y apariencia de las ventanas
dcomcnfg : Servicios de componentes
dialer : Marcador de teléfono
diskpart : Gestor de particiones de disco
dpiscaling : Panel de control > Apariencia y personalización > Pantalla > Cambiar el tamaño de todos los elementos | Cambiar solo el tamaño del texto
dxdiag : Herramienta de diagnóstico de DirectX
eudcedit : Editor de caracteres privados
explorer : Explorador de Windows
fonts : Fuentes
iexplore : Internet Explorer
iexpress : IExpress Wizard
logoff : Cierra la sesión
magnify : Lupa
migwiz : Windows Easy Transfer
mobsync : Centro de sincronización
msconfig : Configuración del sistema
msinfo32 : Información del sistema
mspaint : Paint
mstsc : Conexión a Escritorio remoto
netplwiz: acceder a cuentas de usuario y configuración de inicio. Permite configurar una cuenta para que inicie sesión automáticamente sin pedir contraseña.
notepad : Notepad
optionalfeatures : Características de Windows
osk : Teclado en pantalla
pbrush : Paint
perfmon : Monitor de rendimiento
rasphone : Libreta de teléfonos
regedit : Editor del registro
sigverif : Comprobación de la firma del archivo
syskey : Asegurar base de datos de cuentas de Windows
systempropertiescomputername : Propiedades del sistema > Nombre del equipo
systempropertiesperformance : Opciones de rendimiento
systempropertiesprotection : Propiedades del sistema > Protección del sistema
systempropertiesremote : Propiedades del sistema > Acceso remoto
taskmgr : Administrador de tareas
utilman : Panel de control > Accesibilidad > Centro de accesibilidad
verifier : Administrador del comprobador de controlador
wab : Contactos
wabmig : Importar a contactos de Windows
wiaacmgr : Nueva digitalización (asistente de escáneres)
winver : Acerca de Windows (versión de Windows)
wmplayer : Reproductor de Windows Media
write : Wordpad
control : Panel de control
control access.cpl : Centro de accesibilidad > Facilitar el uso del equipo
control access.cpl : Panel de control > Accesibilidad > Centro de accesibilidad
control admintools : Sistema y seguridad > Herramientas administrativas
control color : Personalización > Color y apariencia de las ventanas
control date/time : Fecha y hora > Cambiar fecha y hora… | Cambiar zona horaria…
control desktop : Apariencia y personalización > Personalización > Cambiar los efectos visuales y los sonidos del equipo
control folders : Opciones de carpeta
control fonts : Apariencia y personalización > Fuentes
control international : Región > Formatos > idioma | fecha y hora
control keyboard : Propiedades: Teclado
control modem.cpl : Información de la ubicación (modem)
control mouse : Propiedades: Mouse
control netconnections : Redes e Internet > Conexiones de red
control netsetup.cpl : Configurar una red > Elegir el punto de acceso o enrutador inalámbrico que desee configurar
control nusrmgr.cpl : Cuentas de usuario y protección infantil > Cuentas de usuario
control odbccp32.cpl : Administrador de origen de datos ODBC (64 bits)
control printers : Hardware y sonido > Dispositivos e impresoras
control schedtasks : Programador de tareas
control sticpl.cpl : Escáneres y cámaras
control sticpl.cpl : Escáneres y cámaras
control userpasswords : Cuentas de usuario y protección infantil > Cuentas de usuario
control userpasswords2 : Cuentas de usuario > Gestión avanzada
control wuaucpl.cpl : Sistema seguridad > Windows Update
control /name microsoft.defaultprograms : Programas > Programas predeterminados > Elegir los programas que Windows usa de forma predeterminada
control /name microsoft.defaultprograms /page pagefileassoc : Programas predeterminados > Establecer asociaciones > Asociar un tipo de archivo o protocolo con un determinado programa
control /name microsoft.personalization : Apariencia y personalización > Personalización > Cambiar los efectos visuales y los sonidos del equipo
control /name microsoft.personalization /page pagecolorization : Personalización > Color y apariencia de las ventanas > Cambie el color de los bordes de las ventanas y de la barra de tareas
control /name microsoft.personalization /page pagewallpaper : Personalización > Fondo de escritorio > Elegir el fondo de escritorio
control /name microsoft.poweroptions : Hardware y sonido > opciones de energía > Elegir o personalizar un plan de energía
control /name microsoft.poweroptions /page pageglobalsettings : Opciones de energía > Configuración del sistema > Definir los botones de inicio/apagado y activar la protección con contraseña
control /name microsoft.poweroptions /page pageplansettings : Opciones de energía > Editar la configuración del plan > Cambiar la configuración del plan
control /name microsoft.programsandfeatures : Programas > Programas y características > Desinstalar o cambiar un programa
control /name microsoft.regionalandlanguageoptions : Región > Formatos > idioma | fecha y hora
control /name microsoft.regionalandlanguageoptions /page /p:”administrative” : Región > Administrativo
control /name microsoft.regionalandlanguageoptions /page /p:”keyboard” : Panel de control > Reloj, idioma y región > Idioma > Cambie sus preferencias de idioma
control /name microsoft.regionalandlanguageoptions /page /p:”location” : Región > Ubicación

Atajos de teclado:

Descargar listado completo de atajos de teclado de Windows 8

3 agosto, 2014
JADM
-

Excel 2010: Macro para filtrar una hoja protegida

Etiquetas: aplicaciones Excel macro Microsoft office VBA Visual Basic

Categoría: Programación

No son pocas las veces que me toca lidiar con macros para Excel que deben trabajar sobre hojas protegidas. Sea para impedir que el usuario arruine una fórmula o simplemente para mantener un control total sobre lo que puede y no puede ingresarse. Y si además tenemos que darle al operador la comodidad de trabajar con filtros pero sin perder la protección de la planilla, se complica.

La tentación inmediata es crear nuestra propia clase para filtrar los datos desde nuestra aplicación pero siendo que las funciones de filtros incorporadas en Excel son tan prácticas y poderosas, esto sería una pérdida innecesaria de esfuerzo y tiempo. Entonces, cómo lo aprovechamos?

Sabemos que sobre una hoja protegida contra cambios, los filtros de Excel no están accesibles desde el panel de herramientas. Tampoco funcionarían desde un macro. Entonces, como primera medida, habrá que desproteger la hoja.

Imprescindible para un filtro es el rango de datos a filtrar, del cual tenemos que obtener almenos un dato de cada caso para que el usuario elija cual va a ser el criterio por el cual filtrar. Por ejemplo si tenemos esta tabla:

Y quisiéramos que el usuario pueda filtrar los datos para un vendedor en particular, debemos decirle al filtro que su rango a filtrar será la columna B (Vendedor) y le ofrezca al operador que elija como criterio entre los vendedores Pérez, López y Martínez. Es decir, cada uno de los valores únicos sin repetición de esa columna. Para esto podríamos cargar una lista con los valores únicos y mostrarla al operador para que elija.

Finalmente hay que tomar el valor que el usuario eligió y ejecutar el filtro. Inmediatamente después, cómo no queremos que nada más sea modificado por fuera del macro, volvemos a proteger la hoja.

Suena fácil? Lo es.

Para el ejemplo vamos a asumir que el usuario quiere filtrar la columna correspondiente a la celda en la que está plantado en ese momento: ActiveCell.Column y activa el filtro a través de una macro a la que le asignamos la combinación de teclas CTRL+K. Tambien podría activarlo haciendo doble click sobre la celda si hacemos uso del evento BeforeDoubleClick (ThisWorkBook_BeforeDoubleClick) o lo que sea que se nos haya ocurrido.

Resumiendo, convengamos que los pasos necesarios son:

Desproteger la hoja
Setear como rango para el filtro, la columna activa
Tomar los valores únicos de esa columna, cargarlos en una lista y ofrecerla al usuario
Cuando el usuario elige el valor, activar el filtro
Proteger la hoja nuevamente

Necesitamos un formulario (llamado Formulario) al que le incorporamos un ListBox (que llamamos Lista). Y para no enrollarnos con el evento ListBox.Change, el filtro se activará con un botón. Entonces agregamos un botón al que llamaremos Filtrar. A tipear entonces, el código queda así:

Sub preparaElFiltro

Dim txcelda As String ‘ donde guardamos la dirección de la celda activa

Dim txpartes As Variant ‘ para obtener el desglose de la dirección

Dim txcolumna As String ‘ contendrá la letra de la columna

Dim columna As Integer ‘ para almacenar el número de la columna

Dim ultimaFila As Integer ‘ guarda el número de la última fila ocupada de esa columna

txcelda = ActiveCell.Address ‘ por ejemplo $B$2
columna = ActiveCell.Column ‘ en este caso, sería 2

txpartes = Split(txcelda, “$”) ‘ txpartes quedaría como un array: txpartes(0)=$, txpartes(1)=B, txpartes(2)=$, txpartes(3)=2
txcolumna = txpartes(1) ‘ es decir: B

Dim txrangoOri As String ‘ en esta variable guardaremos el rango final en formato string

ActiveSheet.Unprotect “la_clave_que_sea” ‘ desprotegemos la hoja

‘ vamos al final de la hoja y simulamos un END – UP para ir a la última celda ocupada en esa columna. Si usamos Excel x64 podríamos poner 1048576…

ultimaFila = Cells(65536, columna).End(xlUp).Row

txrangoOri = Range(Cells(2, columna), Cells(ultimaFila, columna)).Address ‘ guardamos en txrangoOri la dirección de toda la columna ocupada: B2:B22

‘ esos datos los vamos a copiar a una columna cualquiera (en este caso ZZ) para limpiar allí los repetidos

Range(“ZZ:ZZ”).Delete ‘ limpio el destino para asegurarme que no haya datos de algún proceso anterior

‘ copiamos los valores originales a la columna dónde la limpiaremos
Range(txrangoOri).Copy
Range(“ZZ1”).PasteSpecial xlPasteAll

‘ tomo el rango completo que se ocupó en la columna ZZ para pasárselo al comando RemoveDuplicates
ultimaFila = ActiveSheet.Cells(65536, 702).End(xlUp).Row ‘702 es la columna ZZ
txrangoOri = Range(Cells(1, 702), Cells(ultimaFila, 702)).Address

‘ eliminamos los duplicados
ActiveSheet.Range(txrangoOri).RemoveDuplicates Columns:=1, Header:=xlNo

‘vuelvo a armar ahora el rango limpio de repetidos
ultimaFila = ActiveSheet.Cells(65536, 702).End(xlUp).Row ‘702 es la columna ZZ
txrangoOri = Range(Cells(1, 702), Cells(ultimaFila, 702)).Address

‘cargamos el rango limpio de duplicados en la lista desde la que el usuario elegirá el criterio para el filtro

Formulario.Lista.RowSource = txrangoOri

‘volvemos a proteger la hoja

ActiveSheet.Protect “la_clave_que_sea”

Formulario.Show ‘ mostramos el formulario al usuario

End sub

‘ Y ahora el código asignado al botón que finalmente hará el trabajo

Private Sub Filtrar_Click()

‘como en el caso anterior, tomamos todos los datos de la celda en la que está parado el usuario para poder filtrar la columna correcta

Dim quecelda As String

quecelda = ActiveCell.Address

Dim partes As Variant
partes = Split(quecelda, “$”)

Dim columna As String
columna = partes(1)

Dim txrango As String

txrango = columna & “:” & columna

ActiveSheet.Unrotect “la_clave_que_sea” ‘ desprotegemos la hoja

Columns(txrango).Select ‘ Seleccionamos todas la columna a filtrar

Selection.AutoFilter ‘ le activamos el filtro

‘ y le pasamos como criterio el valor que el usuario seleccionó en la lista
Range(txrango).AutoFilter field:=1, Criteria1:=Lista.Value

ActiveSheet.Protect “la_clave_que_sea” ‘ protegemos la hoja

Formulario.Hide ‘quitamos el formulario

End Sub

Y esa es la idea básica. Luego cada uno podrá optimizar el modo en que referencia las celdas y los rangos y decidir que tanto quiere complicar el nivel de filtrado. Tal como está, con este script pueden acumularse filtros en tantas columnas como se desee, obteniendo, desde una base sencilla, filtros por varios criterios y columnas diferentes. No es una mala idea agregarle al formulario un botón QuitarFiltros, que permita volver la planilla a su estado natural, mostrando todos los datos: