Botón para colorear ciertos números en hoja de excel.

Problema

Estoy buscando una manera de hacer que un botón coloree todos los números iguales al número en el botón ... como ejemplo, digamos que tengo una fila de botones del 1 al 10, y en la misma hoja celdas con números de 1 a 10 en ningún orden. Ahora quiero rápidamente poder identificar todos los 3 y 7 por color. "Simple: haga clic en el botón 3, acción: coloree todas las celdas con el número 3 y déjelo así hasta que vuelva a presionar el botón ...

Solución

Daré otra solución, imprima estas instrucciones y siga (siempre que le convenga).

ABRIR UN NUEVO ARCHIVO DE EXCEL

ahora en vb editor copia esta macro

 Subprueba () Dim x As Integer, cfind () As Range, j As Integer, k As Integer, agregue As String Columns ("A: A"). Interior.ColorIndex = xlNone x = Range ("F1"). Value j = WorksheetFunction.CountIf (Columnas ("A: A"), x) Si j = 0 Entonces MsgBox "no hay tal valor disponible en la columna A" Salir Sub Fin Si ReDim cfind (1 To j) Para k = 1 To j Establezca cfind (k) = Columns ("A: A"). Cells.Find (what: = x, lookat: = xlWhole) cfind (k) .Interior.ColorIndex = 3 add = cfind (k) .Address Do Set cfind (k) = Columnas ("A: A"). Cells.FindNext (cfind (k)) Si cfind (k) no es nada, entonces salga Do If cfind (k) .Address = add Then Exit Do cfind (k) .Interior .ColorIndex = 3 Loop Next k End Sub

haga clic en ver menú-barras de herramientas-forma

En la lista de barras de herramientas de formulario hay una llamada spinner.

haz clic en él y dibuja un botón giratorio

Haga clic derecho en el botón y haga clic en "control de formato"

en esa ventana, elija control (el último elemento en la fila superior)

tipo 1 contra "valor mínimo"

tipo 10 contra "valor máximo"

"cambio incremental" será 1

enlace de celdas será $ F $ 1

haga clic en Aceptar

De nuevo, haga clic con el botón derecho del mouse y haga clic en "Asignar macro". Aparecerá el nombre "Test". resalte eso y haga clic en Aceptar suponga que los números están en la columna A para probar el tipo de algunos enteros entre 1 y 10 (algunos se repiten dos o tres veces, faltan algunos números) de la A1 a la A20. guarde el archivo ahora, seleccione cualquier celda fuera del botón giratorio y haga clic nuevamente hacia arriba o flecha hacia abajo en el botón de giro. Ver el valor en F1. si F1 es 1, no pasará nada si hace clic en la flecha hacia abajo de manera similar, si F1 es 10, la flecha hacia arriba no dará nada; de lo contrario, haga clic en las flechas hacia abajo o hacia arriba, vigile en F1 y vea esos números (cuyo valor es el valor de F1) en la columna A se marcará en rojo. Será de utilidad para usted. Puedes modificar el plan