поле со списком - уж больно шрифт мелковат

[Bezdar]

Нельзя ли как нибудь в поле со списком /данные-проверка-список/ сделать шрифт покрупнее? А то юзеры при выборе значений из списка зателепались масштаб менять туда-сюда. Может, еще что-нибудь можно придумать?

[EducatedFool]

Могу посоветовать лишь такой макрос:

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

При выделении ячейки с выпадающим списком автоматически ставится масштаб 300%, при выделении любой другой ячейки - 100%

Для использования макроса щелкаем правой кнопкой на ярлычке листа, и выбираем пункт Исходный текст. В открывшееся окно вставляем код.

Нельзя ли как нибудь в поле со списком /данные-проверка-список/ сделать шрифт покрупнее?

Можно, но очень сложно. Лучше даже не пытаться

[Bezdar]

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

Могу посоветовать лишь такой макрос:

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

При выделении ячейки с выпадающим списком автоматически ставится масштаб 300%, при выделении любой другой ячейки - 100%

Может, чего не догоняю, но у меня устанавливается масштаб 100% и все на этом замирает.
И еще: объясните, пожалуйста, на пальцах "чайнику" что такое res = ActiveCell.Validation.Type и IIf(res = 3, 300, 100)/ну это я думаю, и есть масштаб -> 300->100, а "3" что значит? И как определить ячейку, которая со списком?
А то я кроме Zoom ничего не поняла...
Заранее благодарю!

[EducatedFool]

у меня устанавливается масштаб 100% и все на этом замирает

А Вы пробовали после добавления макроса щелкать на ячейках с выпадающим списком?
У меня в Excel 2003 всё работает...

объясните, пожалуйста, на пальцах "чайнику"

Вкратце будет так:
При щелчке на ячейке с выпадающим списком (организованным через /данные-проверка-список/ ) устанавливается масштаб 300%
При выделении любой другой ячейки - 100%

res = ActiveCell.Validation.Type - в переменную res заносится тип проверки данных в выделенной ячейке. Если для данные-проверка установлен режим список, то значение типа равно 3
Если в ячейке не включен режим данные-проверка-список, то Excel генерирует ошибку, и переменная res остаётся пустой.

ActiveWindow.Zoom = IIf(res = 3, 300, 100) - устанавливает масштаб в зависимости от значения переменной res

А зачем Вам все эти подробные объяснения?
Работает, да и ладно

[Bezdar]

EducatedFool
Спасибо огромнейшее! Вот теперь все ясно и понятно (чего-откуда-и куда).
А то я "экспериментировала" с пустым листом/без списка/.

Восхищаюсь Вашими знаниями!

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

А зачем Вам все эти подробные объяснения?
Работает, да и ладно

Как же я буду "расти", если не задумываясь копировать чужие идеи?

[Demkin_V]

Спасибо, пригодилось)
Не сильно разбираюсь в VBA но была потребность в доработке: чтобы не просто при выделении выпадающего списка увеличивался масштаб, но и возвращался к ранее выбранному пользователем. Вот что получилось:

Public zoom1 As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next: res = ActiveCell.Validation.Type
    
    If ActiveWindow.Zoom < 150 Then zoom1 = ActiveWindow.Zoom 
        If res = 3 Then
        ActiveWindow.Zoom = 150 
        Else
        ActiveWindow.Zoom = zoom1 
    End If
 End Sub

вроде работает.
МОжет пригодится тоже кому

[DiemonStar]

    If ActiveWindow.Zoom < 150 Then zoom1 = ActiveWindow.Zoom 
        If res = 3 Then
        ActiveWindow.Zoom = 150 
        Else
        ActiveWindow.Zoom = zoom1 
    End If

можно в одну строчку:

With ActiveWindow : .Zoom = IIf((.Zoom < 150) And (Res = 3), 150, .Zoom) : End With