Microsoft Excel - Dúvidas e Suporte

Sendo apenas números inteiros:

Podes descobrir o resto da divisão por 10
=RESTO(A1;10)
e depois
=CONTAR.SE(B1:B5;5)

....

Bem, acabei por fazer com esta sugestão do @ppt . Fiz uma tabela com os restos da divisão e depois fiz a contagem nessa tabela.
Obrigado.

Agora tenho outro problema:

Na mesma tabela quero contar os nºs que começam por algarismos entre 3 e 6 em cada linha.
Tem uma dificuldade extra que é o facto de não querer contar nºs só com um algarismo.
Ou seja, deve contar nºs começados por 3, 4, 5 e 6, se e só se o nº tiver 2 algarismos.
Isto acontece porque quem fez a tabela fez mal e, por exemplo, o nº4 não deveria ser 4 mas sim 04.
Se alguém tiver uma ideia ágil de adicionar o "0" que falta neste nº com um só algarismo, também podemos tentar irt por aí.
 
Ora bem, para mostrares o 0 antes do 4, podes formatar o número com a formatação personalizada 00 (vai escrever 04). Mas o 4 continua a ser 4 em valor.

Para verificares se o número verifica as condições que impões, colocas um teste que resulta em 1 se for verdadeiro e em 0 se for falso, e depois somas para ter o total:
=SE(E(NÚM.CARACT(A1=2);(A1-RESTO(A1;10))/10>=3;(A1-RESTO(A1;10))/10<=6);1;0)
 
@ppt obrigado desde já por toda a ajuda que estás a dar.
Já transformei toda a tabela em nºs com 2 algarismos, como indicaste.
Se bem percebi, se já tenho tudo com 2 algarismos não deveria ser necessário por essa condição na fórmula, certo?
De qualquer forma, a tua forma devolve-me sempre o valor "0" independentemente do conteúdo da célula.

EDIT: Afinal está a funcionar. Perfeito.
Muito obrigado.
 
Última edição:
Preciso que uma célula registe a data em que uma outra célula é mudada para um determinado valor, mas de modo a que essa data fique fixa.

Exemplo:
A1 = 10
A2 = data em que A1 passa para 15

[hoje]
A1 = 15
A2 = 10-01-2019

[amanhã]
A1 = 15
A2 = 10-01-2019

[daqui a um ano]
A1 = 15
A2 = 10-01-2019


Ou seja, o automatismo será só para ver o dia em que A1 mudou para o valor pretendido. Não pode depois actualizar continuamente, todos os dias, para não mudar a data.
É possível, ou terei que meter a data manualmente?
 
Bom dia, mas por exemplo, se hoje a A1 for alterada e amanhã também for alterada, a data que fica é so a de amanha certo?
A data é actualizada sempre que A1 é alterada correcto?
 
A A1 na realidade pode ter vários valores, pois representa o estado de uma tarefa.
Contudo, o estado que vai activar a data será o último: "concluído".
Em princípio, este estado será final e permanente, pelo que depois de a A1 estar como "concluído" não voltará atrás.
 
Pessoal,

Alguém sabe como posso identificar numa tabela (por exemplo com uma cor diferente) o número mais elevado ao longo de várias colunas?
No fim tenho de contar qual das colunas tem maior nº de eventos mais elevados.

Obrigado!
 
boas,

Preciso de vossa ajuda com uma formula de excel que preciso de fazer.

basicamente são 4 colunas com varios elementos em que preciso de definir uma percentagem de valor a cada coluna
ex. coluna A 25%, coluna b 30%,... para depois calacular o valor total

https://imgur.com/a/V3m4TOK
 
Pessoal,

Alguém sabe como posso identificar numa tabela (por exemplo com uma cor diferente) o número mais elevado ao longo de várias colunas?
No fim tenho de contar qual das colunas tem maior nº de eventos mais elevados.

Obrigado!

Para contares os números maiores podes fazer algo do género =CONTAR.SE(A1:A10; MAIOR(A1:A10;1))

O que isto vai fazer é contar dentro da tabela A1:A10 o primeiro valor maior na tabela A1:A10.
Ou seja, vamos supor que tens os valores 1, 2, 3, 4, 4, 4, 1, 2, 3, 0. Ele vai contar o número de vezes que o maior valor aparece. Neste caso iria devolver "3", porque o maior valor, 4, aparece 3 vezes.
O "1" dentro do MAIOR define a hierarquia do valor, isto é, se queres o maior, o segundo maior, o terceiro maior, etc.
No exemplo em cima, se tivesse "2" o resultado seria "2" porque o segundo maior número, 3, aparece 2 vezes.


Depois, para saberes qual das colunas tem o maior número de eventos, podes usar =MÁXIMO(A11:D11), por exemplo, sendo que o que está dentro de parênteses vai ser a tabela onde tens os resultados da contagem anterior.
O que isto te vai fazer não dizer a coluna tipo A, B ou C, mas dizer qual o valor maior dentro dos resultados obtidos, e depois podes procurar onde está esse número.
Certamente dará para fazer de forma a devolver o nome da coluna, mas não me ocorre como.
 
É possível criar uma regra de formatação condicional que se aplique às várias folhas de um livro, sem ter que a fazer para cada folha individualmente?
 
Possível, certamente é. Mas julgo que só com macros.

Inicia a gravação de uma macro, faz a ação de aplicar a formatação condicional e depois muda para a folha seguinte. Para a gravação da macro. Vai ver o código e adapta.
 
Possível, certamente é. Mas julgo que só com macros.

Inicia a gravação de uma macro, faz a ação de aplicar a formatação condicional e depois muda para a folha seguinte. Para a gravação da macro. Vai ver o código e adapta.

Deu-me qualquer coisa assim

Código:
Range("Tabela1[Estado]").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""Bom"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = -0.499984740745262
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = 0.399945066682943
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""Médio"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.499984740745262
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.399945066682943
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""Mau"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = -0.499984740745262
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.399945066682943
    End With
    Selection.FormatConditions(1).StopIfTrue = False

Tentei alterar no Range de modo a incluir as várias folhas, mas não dá, porque ao que parece o Range funciona tipo Range (a, b).
Tentei também fazer copy paste desse código e meter abaixo e alterar o Range para Tabela 2, e também não deu.
Sugestões?
 
Com a formatação condicional que forneceste, resulta neste código. Comentei-o para ser mais fácil perceberes o que se vai passando.

Na parte do Range, defini como "A1:B2", mas tens de alterar para as células que queres formatar.
Código:
Sub Macro1()

    'Ciclo para passar por todas as folhas
    For i = 1 To Application.Sheets.Count
   
        'Selecionar a folha
        Sheets(Application.Sheets(i).Name).Select
       
        'Células a formatar com a formatação condicional
        Range("A1:B2").Select
       
        'Formatação a aplicar
        Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
            Formula1:="=""Bom"""
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Font
            .ThemeColor = xlThemeColorAccent3
            .TintAndShade = -0.499984740745262
        End With
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent3
            .TintAndShade = 0.399945066682943
        End With
        Selection.FormatConditions(1).StopIfTrue = False
        Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
            Formula1:="=""Médio"""
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Font
            .ThemeColor = xlThemeColorAccent6
            .TintAndShade = -0.499984740745262
        End With
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent6
            .TintAndShade = 0.399945066682943
        End With
        Selection.FormatConditions(1).StopIfTrue = False
        Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
            Formula1:="=""Mau"""
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Font
            .ThemeColor = xlThemeColorAccent2
            .TintAndShade = -0.499984740745262
        End With
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent2
            .TintAndShade = 0.399945066682943
        End With
        Selection.FormatConditions(1).StopIfTrue = False
        'Fim da formatação a aplicar
   
    Next
     
End Sub
 
Alguém sabe se é possível passar os valores separados por vírgulas para células individuais sem ter de fazer manualmente?

Tipo isto:
4PlsoN3.png
 
Back
Topo