Страница: 1 |
Вопрос: Выполнение макроса по событию | Добавлено: 29.09.09 14:47 |
Автор вопроса: ![]() |
Сорри, за возможный повтор
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 Автор ответа: ![]() ![]() ICQ: 264730390 Вопросов: 2 Ответов: 106 |
Профиль | Цитата | #1 | Добавлено: 24.12.09 03:42 |
For Each a In Selection ' считаем количество ячеек в выделеном
b = b + 1 Next a лучше заменить на
Судя по всему туда. где сумму Excel выводит, записать ничего нельзя, т.к. даже макрорекордер на переключение режимов этого окна никак не реагирует... ...и в объектной модели ничего похожего не нашел... |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ![]() Вопросов: 13 Ответов: 348 |
Профиль | Цитата | #2 | Добавлено: 25.12.09 11:08 |
Можно через API найти окно статусбара и управлять им, но это такой гимор!!!!! |
Страница: 1 |
|