увеличение размера шрифта в выпадающем спике

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

увеличение размера шрифта в выпадающем спике (Макросы/Sub)

Мурад

Дата: Понедельник, 23.03.2015, 14:32 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 520

Репутация: 18 ±

Замечаний: 0% ±

Excel 2007

Добрый день! Как-то _Boroda_ помог мне сделать удобную для учета заявок таблицу с многоуровневыми выпадающими списками. Прекрасная таблица, в том числе, для последующего составления сводных таблиц. В процессе работы выпадающий список начал пополняться новыми данными и сейчас возникают проблемы визуального характера при выборе значения из выпадающего списка. Нашел в интернете близкое по смыслу решение, заключающееся в увеличении масштаба:
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next: res = ActiveCell.Validation.Type
ActiveWindow.Zoom = IIf(res = 3, 150, 80)
End Sub

[/vba]
При выделении ячейки с выпадающим списком автоматически ставится масштаб 150%, при выделении любой другой ячейки - 80%.
Теперь сами вопросы:
1) Как сделать так, чтобы макрос срабатывал только на выпадающем списке "Группа расходов"?
2) Как центрировать экран при выборе ячейки с выпадающим списком?

К сообщению приложен файл: 5807367.xlsm (55.3 Kb)

Ответить

Мурад

Дата: Понедельник, 23.03.2015, 14:41 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 520

Репутация: 18 ±

Замечаний: 0% ±

Excel 2007

Может быть можно макросом экранную лупу подтянуть?

Ответить

KSV

Дата: Понедельник, 23.03.2015, 17:55 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

1 можно, например, так:
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     r = Application.Intersect(ActiveCell, [$Q$7:$Q$994]) Is Nothing
     On Error Resume Next: res = ActiveCell.Validation.Type
     ActiveWindow.Zoom = IIf((res Or r) = 3, 150, 80)
End Sub

[/vba]