células VBA contar en la columna que contienen valor especificado

Question

Tengo que escribir una macro que busca en una columna especificada y cuenta con todas las celdas que contienen una cadena especificada, como "19/12/11" or "Green" continuación, asociar este número con una variable,

¿Alguien tiene alguna idea?

Answer 1

¿Quiere decir que quiere usar una fórmula en VBA? Algo como:

Dim iVal As Integer 
iVal = Application.WorksheetFunction.COUNTIF(Range("A1:A10"),"Green") 

debería funcionar.

Answer 2

Esto no es exactamente lo que está buscando, pero he aquí cómo he abordado este problema en el pasado;

Puede ingresar una fórmula como;

=COUNTIF(A1:A10,"Green") 

... en una celda. Esto contará el Número de celdas entre A1 y A10 que contienen el texto "Verde". A continuación, puede seleccionar este valor de celda en una macro de VBA y asignarlo a una variable de forma normal.

Answer 3

one way;

var = count("find me", Range("A1:A100")) 

function count(find as string, lookin as range) As Long 
    dim cell As Range 
    for each cell in lookin 
     if (cell.Value = find) then count = count + 1 '//case sens 
    next 
end function 

Answer 4

No es lo que pidió, pero puede ser útil sin embargo.

Por supuesto, usted puede hacer lo mismo con las fórmulas de matriz. acaba de leer el resultado de la celda que contiene:

Cell A1="Text to search"
Cells A2:C20=Range to search for

=COUNT(SEARCH(A1;A2:C20;1)) 

Recuerde que entrar en las fórmulas de matriz necesita CTRL + SHIFT + ENTER, no sólo ENTER. Después , que debe ser similar:

{=COUNT(SEARCH(A1;A2:C20;1))}