| Вопрос: Выполнение макроса по событию | Добавлено: 29.09.09 14:47 |
Автор вопроса:  blacklight
|
|
Сорри, за возможный повтор
Sub abc() ' ' ' ' b = 0 For Each a In Selection ' считаем количество ячеек в выделеном b = b + 1 Next a If b = 2 Then d = 0 c = 0 For Each a In Selection ' если их 2, то вычитаем одну из другой, по принципу четная, нечетная d = d + a * (-1) ^ c c = c + 1 Next a End If Application.StatusBar = "Разница = "&d End Sub Мысль в том, как это выводить автоматом при выделении (по возможности не в статусбар, а правее, там, где выводится сумма выделенных ячеек... может кто знает? С уважением, blacklight. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  AxeL ICQ: 264730390 Вопросов: 2 Ответов: 106 |
Профиль | | #1 | Добавлено: 24.12.09 03:42 |
|
For Each a In Selection ' считаем количество ячеек в выделеном
b = b + 1 Next a лучше заменить на
Судя по всему туда. где сумму Excel выводит, записать ничего нельзя, т.к. даже макрорекордер на переключение режимов этого окна никак не реагирует... ...и в объектной модели ничего похожего не нашел... |
||
|
Номер ответа: 2 Автор ответа: GDKВопросов: 13 Ответов: 348 |
Профиль | | #2 | Добавлено: 25.12.09 11:08 |
| Можно через API найти окно статусбара и управлять им, но это такой гимор!!!!! | ||
Страница: 1 |