Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программно подсчитать (count) количество ячеек с одинаковым содержимым. / 8 сообщений из 8, страница 1 из 1
11.10.2007, 14:41:10
    #34863368
vad-anatolij
vad-anatolij
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно подсчитать (count) количество ячеек с одинаковым содержимым.
Добрый день.
Как программно подсчитать в столбце количество ячеек с одинаковыми данными (например текст "цех1").
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2007, 14:55:10
    #34863422
Pavel55
Pavel55
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно подсчитать (count) количество ячеек с одинаковым содержимым.
Точно не знаю, но может так

=СЧЁТЕСЛИ(A2:A15;"цех1")


Код:
1.
2.
3.
4.
Sub Макрос1()
Dim i&
    i = Application.CountIf(Range("A2:A15"), "Цех1")
    MsgBox i
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2007, 14:55:42
    #34863425
Pavel55
Pavel55
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно подсчитать (count) количество ячеек с одинаковым содержимым.
Код: plaintext
1.
2.
3.
4.
Sub Макрос1()
Dim i&
    i = Application.CountIf(Range("A2:A15"), "Цех1")
    MsgBox i
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2007, 15:23:00
    #34863563
vad-anatolij
vad-anatolij
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно подсчитать (count) количество ячеек с одинаковым содержимым.
В том то и дело, что мне нужно определить в стобце, а не в Range("A2:A15").
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2007, 15:23:58
    #34863568
f
f
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно подсчитать (count) количество ячеек с одинаковым содержимым.
(A:A)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2007, 15:27:01
    #34863591
vad-anatolij
vad-anatolij
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно подсчитать (count) количество ячеек с одинаковым содержимым.
vad-anatolijВ том то и дело, что мне нужно определить в стобце, а не в Range("A2:A15").
Спасибо.

Сгоряча написал. Подумать немного надо было. Сделал так
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub Макрос333()

Dim i&
    i = Application.CountIf(Columns( 3 ), "Цех1")
    MsgBox i

End Sub
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2007, 15:29:58
    #34863608
Pavel55
Pavel55
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно подсчитать (count) количество ячеек с одинаковым содержимым.
Range("A:A"), Range("B:B"), Range("C:C") и так далее или

Columns(1), Columns(2), Columns(3) и так далее

i = Application.CountIf(Columns(1), "Цех1")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2007, 15:30:41
    #34863617
Pavel55
Pavel55
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно подсчитать (count) количество ячеек с одинаковым содержимым.
да не за что )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программно подсчитать (count) количество ячеек с одинаковым содержимым. / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 266ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2182118]:
 0ms
get settings:
 5ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 30ms
get topic data:
 5ms
get forum data:
 1ms
get page messages:
 22ms
get tp. blocked users:
 1ms
others: 190ms
total:  266ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]