Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как привязать макрос к столбцу. / 7 сообщений из 7, страница 1 из 1
10.02.2012, 10:26
    #37655311
Aleksandr_V
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как привязать макрос к столбцу.
Вопрос может нелевпый, но я раньше макросы не писал))

Подскажите пожалуйста как применить макрос для столбца в Excel. Чтобы потом при добавлении новых строк они тоже попадали под влияние макроса.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub Критерии()
Select Case parametr
    Case 0 To 5:
        ' не существенно.'
    Case 5 To 20:
        ' существенно.'
    Case 20 To 30:
        ' серьезно.'
    Case Is > 30:
        ' грубейшее.'
    Case Else:
        ' do do do'
End Select
End Sub



например в столбце A в строке 2 вставили значение 3, в столбце B в строке 2 должно отобразиться - "не существенно.", и так по всему столбцу. Или может есть варианты без макросов?
...
Рейтинг: 0 / 0
10.02.2012, 10:44
    #37655337
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как привязать макрос к столбцу.
Aleksandr_VИли может есть варианты без макросов?Есть. Например формула =ЕСЛИ
...
Рейтинг: 0 / 0
10.02.2012, 12:07
    #37655531
Aleksandr_V
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как привязать макрос к столбцу.
Shocker.ProAleksandr_VИли может есть варианты без макросов?Есть. Например формула =ЕСЛИ

Есть =ЕСЛИ, но это условие имеет ограничение на кол-во вложенности. А с макросом по вашему будет хуже?
...
Рейтинг: 0 / 0
10.02.2012, 21:28
    #37656706
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как привязать макрос к столбцу.
Aleksandr_V,

странно вы CASE пользуете - с пересечением диапазонов... хотя, первый по списку будет отработан.

а так, если вас напрягает ограничение по вложенности условий... ну, используйте ВПР() в дефолтной форме (для поиска подходящего непревосходящего аргумент значения).
...
Рейтинг: 0 / 0
10.02.2012, 22:01
    #37656729
Aleksandr_V
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как привязать макрос к столбцу.
AndreTMAleksandr_V,

странно вы CASE пользуете - с пересечением диапазонов... хотя, первый по списку будет отработан.

а так, если вас напрягает ограничение по вложенности условий... ну, используйте ВПР() в дефолтной форме (для поиска подходящего непревосходящего аргумент значения).

Спасибо. Хороший пример. И текст оригинальный ))). Я про ВПР не знал. Похоже это то что надо.
...
Рейтинг: 0 / 0
14.02.2012, 09:03
    #37660360
Aleksandr_V
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как привязать макрос к столбцу.
AndreTMAleksandr_V,

а так, если вас напрягает ограничение по вложенности условий... ну, используйте ВПР() в дефолтной форме (для поиска подходящего непревосходящего аргумент значения).

Задача немного дополнилась)). Как можно сделать тоже самое но уже по двум критериям? Тоесть если искомые значения находятся в двух столбцах и в зависимости от сопоставления их величины устанавливать значения в нижнюю таблицу на рисунке в поле "уровень существ." Если с помощью "ЕСЛИ", вырисовывается громадной длины формула с сомнительным результатом)). С помощью ВПР как я понял не удасться. Может быть есть варианты?
...
Рейтинг: 0 / 0
14.02.2012, 16:08
    #37661339
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как привязать макрос к столбцу.
Вообще-то, сушествует и функция ГПР().
Достаточно понятно можно сделать, например, таким образом - добавить стобец-индекс (и строку-индекс), а затем получать значения этих индексов через ВПР()/ГПР() или ПРОСМОТР(), и искать ячейку их пересечения через ДВССЫЛ() или СМЕЩ()...
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как привязать макрос к столбцу. / 7 сообщений из 7, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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