Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/SelectedArea count values - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » SelectedArea count values (Макросы/Sub)
SelectedArea count values
ant6729 Дата: Воскресенье, 12.03.2017, 13:51 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Подскажите, как написать код, чтобы считало уникальное количество значений в любом выделенном диапазоне массива значений.

[vba]
Код


Sub werty()

Dim CellValue As Variant, UniqueValues As New Collection

On Error Resume Next

For Each CellValue In AreaSelected
    UniqueValues.Add CellValue, CStr(CellValue)
Next

CountUniqueValues = UniqueValues.count

MsgBox "UC:" & UniqueValues.count - 1

End Sub
[/vba]

И еще вопрос, почему считает уникальное значение в виде пустой ячейки? Поэтому в месседжбоксе указал "-1"
 
Ответить
СообщениеПодскажите, как написать код, чтобы считало уникальное количество значений в любом выделенном диапазоне массива значений.

[vba]
Код


Sub werty()

Dim CellValue As Variant, UniqueValues As New Collection

On Error Resume Next

For Each CellValue In AreaSelected
    UniqueValues.Add CellValue, CStr(CellValue)
Next

CountUniqueValues = UniqueValues.count

MsgBox "UC:" & UniqueValues.count - 1

End Sub
[/vba]

И еще вопрос, почему считает уникальное значение в виде пустой ячейки? Поэтому в месседжбоксе указал "-1"
Автор - ant6729
Дата добавления - 12.03.2017 в 13:51
ant6729 Дата: Воскресенье, 12.03.2017, 13:54 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Если пишу For Each CellValue In Range("A1:A10"), например... то msgbox пишет значение, если пишу Area - выделяю произвольный кусок из массива и запускаю макрос для подсчёта - пишет ноль...
 
Ответить
СообщениеЕсли пишу For Each CellValue In Range("A1:A10"), например... то msgbox пишет значение, если пишу Area - выделяю произвольный кусок из массива и запускаю макрос для подсчёта - пишет ноль...
Автор - ant6729
Дата добавления - 12.03.2017 в 13:54
Саня Дата: Воскресенье, 12.03.2017, 14:51 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
[vba]
Код
Dim C As range, UniqueValues As New Collection

On Error Resume Next

For Each C In Selection
    UniqueValues.Add C.Value, CStr(C.Value)
Next
'...
[/vba]
 
Ответить
Сообщение[vba]
Код
Dim C As range, UniqueValues As New Collection

On Error Resume Next

For Each C In Selection
    UniqueValues.Add C.Value, CStr(C.Value)
Next
'...
[/vba]
Автор - Саня
Дата добавления - 12.03.2017 в 14:51
ant6729 Дата: Воскресенье, 12.03.2017, 15:49 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Спасибо.... Чего я на Area полез...

А если с AreaSelected можно ли аналог сделать, или AreaSelected под другие ситуации...
 
Ответить
СообщениеСпасибо.... Чего я на Area полез...

А если с AreaSelected можно ли аналог сделать, или AreaSelected под другие ситуации...
Автор - ant6729
Дата добавления - 12.03.2017 в 15:49
RAN Дата: Воскресенье, 12.03.2017, 19:25 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Шепните по секрету, что такое есть AreaSelected? Где оно живет?

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеШепните по секрету, что такое есть AreaSelected? Где оно живет?
Автор - RAN
Дата добавления - 12.03.2017 в 19:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » SelectedArea count values (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!