Подсчет количества выделенных ячеек в excel с помощью макроса

@ADAN · Регистрация: 23.09.2011

Здравствуйте! Как можно реализовать подсчет выделенных ячеек, и сопутствующий вопрос как реализовать обращение к значению каждой из этих ячеек?

@~~Апострофф~~ · 27.11.2011, 08:48

Visual Basic

1
2
3

for i=1 to selection.count 'selection.count - размер выделенного
  debug.? selection.count 'selection(i) - i-я ячейка выделенного
next

@ADAN · 27.11.2011, 09:47 **[ТС]**

Спасибо! Помогло!

@Ципихович Эндрю · 27.11.2011, 10:29

Апострофф, а цикл то зачем
30
30
...
30
выделил А1:С10
30 раз по тридцать, зачем?

@аналитика · 27.11.2011, 11:09

я б так сделал

Visual Basic

Dim c As Range
For Each c In Selection
   Debug.Print c.Address, c.Value
Next c

@Ципихович Эндрю · 27.11.2011, 11:31

Сообщение от ADAN

Как можно реализовать подсчет выделенных ячеек

Visual Basic

1	MsgBox$ Selection.Count

аналитика, у Вас если скопипастить, там буквы "с" разные, видимо латынь и кириллица, поэтому я всегда пишу ЦЭ, никогда не промахиваюсь

)

@~~Апострофф~~ · 27.11.2011, 16:14

Сообщение от Ципихович Эндрю

Апострофф, а цикл то зачем

А чё придираться то?
С колена писано, да ещё и с пояснениями

Меняй во второй строке selection.count на selection(i)
Получай содержание!

@Ципихович Эндрю · 27.11.2011, 16:49

Сообщение от Апострофф

А чё придираться то?

извиняюсь, берегите колени

@ADAN 0 / 0 / 0 Регистрация: 23.09.2011 Сообщений: 13
		1
	Подсчет количества выделенных ячеек в excel с помощью макроса 27.11.2011, 06:11. Показов 11842. Ответов 7 Метки нет (Все метки) Здравствуйте! Как можно реализовать подсчет выделенных ячеек, и сопутствующий вопрос как реализовать обращение к значению каждой из этих ячеек? 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,721
	27.11.2011, 10:29	4
	Апострофф, а цикл то зачем 30 30 ... 30 выделил А1:С10 30 раз по тридцать, зачем? 1

@~~Апострофф~~ Заблокирован
	27.11.2011, 16:14	7
	Сообщение от Ципихович Эндрю Апострофф, а цикл то зачем А чё придираться то? С колена писано, да ещё и с пояснениями Меняй во второй строке selection.count на selection(i) Получай содержание! 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,721
	27.11.2011, 16:49	8
	Сообщение от Апострофф А чё придираться то? извиняюсь, берегите колени 0

Решение