EXCELer Tudo sobre EXCEL em Português

Exemplo de fórmula que pesquisa um número numa célula mediante um dado parâmetro com vista a atribuir um certo valor à nova célula: Fórmula em C1:=IF(ISNUMBER(A1);IF(OR(INT(A1/1000)=17;INT(A1/1000)=18;INT(A1/1000)=19);100;IF(INT(A1/1000)>=50;50;25));"")

Exemplo da utilização da Função SUM() para somar a célula A1 das folhas 1 a 3: Fórmula na Sheet4: =Sum(Sheet1:Sheet3!A1)

Em 16 deste mês, coloquei um post onde mostrei um exemplo de uma fórmula para detectar valores duplicados em células. Apresento agora um procedimento em VBE que apaga as linhas onde se encontram os valores duplicados: Sub RemoveDuplicates() Worksheets("Sheet1").Range("A2").Sort key1:=Worksheets("Sheet1").Range("A1") Set currentCell = Worksheets("Sheet1").Range("A1") Do While Not IsEmpty(currentCell) Set nextCell = currentCell.Offset(1, 0) If nextCell.Value = currentCell.Value Then currentCell.EntireRow.Delete End …

Se tivermos uma folha com valores e fórmulas e quisermos apagar apenas os valores, deixando ficar as fórmulas, como no exemplo a seguir: podemos utilizar o seguinte Código: Private Sub CommandButton1_Click()    On Error Resume Next    Cells.SpecialCells(xlCellTypeConstants, xlNumbers).ClearContentsEnd Sub

Exemplo de preenchimento de células com os valores contidos em Arrays: Código: Sub Preencher()    Sheets("Sheet1").[A1:A5] = _    WorksheetFunction.Transpose(Array(1, 2, 3, 4, 5))    Sheets("Sheet1").[B1:B5] = _    WorksheetFunction.Transpose(Array(6, 7, 8, 9, 10))    Sheets("Sheet1").[C1:C5] = _    WorksheetFunction.Transpose(Array(11, 12, 13, 14, 15))End Sub

Pode formatar-se texto numa célula activa, bastando, para isso, marcar o que se pretendee, na barra de menus ir a Formatar>Células|Fonte e escolher a Fonte, o Estilo, o Tamanho e a Cor.O resultado será (exemplo):

Para formatar uma célula como fracção (ex. 1/4), digita-se na célula 0 1/4 (ou seja: zero,espaço, um, slash, quatro):