Botão para colorir determinados números na planilha do excel
Botão para colorir determinados números na planilha do excel
Questão
Eu estou procurando uma maneira de fazer um botão colorir todos os números iguais ao número no botão ... como um exemplo, digamos que eu tenha uma fileira de botões de 1 a 10, e nas mesmas células de planilha com números de 1 a 10, sem ordem. Agora quero rapidamente identificar todos os 3 e 7 por cor. "Simples: clique no botão 3, ação: colora todas as células com o número 3 e deixe ficar assim até que eu pressione o botão novamente ...
Solução
Vou dar outra solução imprimir estas instruções e seguir (desde que lhe convier)
ABRIR UM NOVO ARQUIVO EXCEL
agora no editor vb copiar esta macro
Subteste () Dim x As Integer, cfind () Como Range, j As Integer, k Como Integer, adiciona como colunas de string ("A: A"). Interior.ColorIndex = xlNone x = Range ("F1"). Valor j = WorksheetFunction.CountIf (Colunas ("A: A"), x) Se j = 0 Então MsgBox "nenhum tal valor está disponível na coluna A" Sair Sub End Se ReDim cfind (1 To j) Para k = 1 To j Set cfind (k) = Colunas ("A: A"). Cells.Find (o que: = x, lookat: = xlWhole) cfind (k) .Interior.ColorIndex = 3 add = cfind (k) .Address Do Set cfind (k) = Colunas ("A: A"). Cells.FindNext (cfind (k)) Se cfind (k) é nada então sair fazer se cfind (k) .Address = add então sair do cfind (k) .Interior .ColorIndex = 3 Loop Próximo k End Sub
clique em ver menu-toolbars-form
na lista de barras de ferramentas de forma há um chamado spinner
clique e desenhe um botão giratório
clique direito no botão e clique em "controle de formato"
nessa janela, escolha o controle (o último item na linha superior)
digite 1 contra "valor mínimo"
digite 10 contra "valor máximo"
"mudança incremental" será 1
link de células será $ F $ 1
Clique OK
novamente, clique com o botão direito do mouse no botão giratório e clique em "assign macro" para que o nome "test" apareça. realce isso e clique ok, suponha que os números estejam na coluna A para testar digite alguns inteiros entre 1 e 10 (alguns repetindo duas ou três vezes) de A1 a A20 salve o arquivo agora selecione qualquer célula fora do botão giratório e clique novamente para cima ou seta para baixo no botão giratório. Veja o valor em F1. Se F1 for 1 nada acontecerá se você clicar a seta para baixo da mesma forma se F1 for 10 para cima flecha não dará nada senão clicar nas flechas para baixo ou para cima, manter watch em F1 e ver esses números (cujo valor é valor F1) na coluna A será marcado em vermelho. Isso será útil para você? Você pode modificar o plano
Nota
Resolvido por venkat1926