Que funcao eu uso e como contar cartas em excel?

Eu quero saber como muitos na b c e assim por diante estão entre aspas. Que função eu uso para descobrir como muitos a um, b, c, etc. Eu tenho em cada citação?

Resposta

Sua pergunta é um pouco incerto. No entanto, se você deseja contar o número de cada letra que aparece em uma citação em uma célula, o manipulador de eventos a seguir fará isso. Ele conta letras maiúsculas e minúsculas como a letra 'mesma'.

Copie o manipulador de eventos a seguir para a área de transferência (realçar todo o código, direito clique na área em destaque e 'Cópia'):

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _

Cancel As Boolean)

Dim i, j, ltr

Range("M1").Valor = "Carta"

Range("N1").Valor = "Contagem"

j = 65

Para i = 2 a 27

Células (i, "M").Valor = Chr(j)

j = j + 1

Próxima

Range("N2:N27").Valor = 0

Para i = 1 a Len(ActiveCell)

LTR = Asc (Mid (ActiveCell, i, 1))

Selecione caso ltr

Caso é = 65, 97

Células (2, "N").Valor = células (2, "N").Valor + 1

Caso é = 66, 98

Células (3, "N").Valor = células (3, "N").Valor + 1

Caso é = 67, 99

Células (4, "N").Valor = células (4, "N").Valor + 1

Caso é = 68, 100

Células (5, "N").Valor = células (5, "N").Valor + 1

Caso é = 69, 101

Células (6, "N").Valor = células (6, "N").Valor + 1

Caso é = 70, 102

Células (7, "N").Valor = células (7, "N").Valor + 1

Caso é = 71, 103

Células (8, "N").Valor = células (8, "N").Valor + 1

Caso é = 72, 104

Células (9, "N").Valor = células (9, "N").Valor + 1

Caso é = 73, 105

Células (10, "N").Valor = células (10, "N").Valor + 1

Caso é = 74, 106

Células (11, "N").Valor = células (11, "N").Valor + 1

Caso é = 75, 107

Células (12, "N").Valor = células (12, "N").Valor + 1

Caso é = 76, 108

Células (13, "N").Valor = células (13, "N").Valor + 1

Caso é = 77, 109

Células (14, "N").Valor = células (14, "N").Valor + 1

Caso é = 78, 110

Células (15, "N").Valor = células (15, "N").Valor + 1

Caso é = 79, 111

Células (16, "N").Valor = células (16, "N").Valor + 1

Caso é = 80, 112

Células (17, "N").Valor = células (17, "N").Valor + 1

Caso é = 81, 113

Células (18, "N").Valor = células (18, "N").Valor + 1

Caso é = 82, 114

Células (19, "N").Valor = células (19, "N").Valor + 1

Caso é = 83, 115

Células (20, "N").Valor = células (20, "N").Valor + 1

Caso é = 84, 116

Células (21, "N").Valor = células (21, "N").Valor + 1

Caso é = 85, 117

Células (22, "N").Valor = células (22, "N").Valor + 1

Caso é = 86, 118

Células (23, "N").Valor = células (23, "N").Valor + 1

Caso é = 87, 119

Células (24, "N").Valor = células (24, "N").Valor + 1

Caso é = 88, 120

Células (25, "N").Valor = células (25, "N").Valor + 1

Caso é = 89, 121

Células (26, "N").Valor = células (26, "N").Valor + 1

Caso é = 90, 122

Células (27, "N").Valor = células (27, "N").Valor + 1

End Select

Próxima

Range("M1:N27").HorizontalAlignment = xlCenter

Columns("M:M").AutoAjuste

End Sub

Selecione a planilha que contém suas citações e clique com o botão direito na guia da folha na parte inferior.

Selecione 'Ver código'.

Cole o manipulador de eventos o branco edição área à direita (clique direito dentro da área e 'Colar')

Feche o VBE (botão vermelho w/white 'x')

Escolha a cotação que deseja avaliar e clique duas vezes nele. Será criada uma tabela em colunas M:N, retornando o número de cada letra aparecer na citação.

Comentários

Mais como isso

computadores > asc

Outras Respostas Populares

Usuários da rede social
Estas pessoas adicionaram comentários ou respostas recentemente

Topo da página