Мога ли да променя големината на шрифта в падащото меню създадено с Data Validation?

Здравей, това е един малък недостатък на падащите меню (Data Validation).

Като цяло няма как да увеличиш само шрифта на Data validation.

Естествено има няколко заобиколни варианта за справяне с казуса

Вариант 1:

За да се виждат добре имената в падащото меню, трябва да увеличиш целия екран - снимка 1 позиция 1 с плазгача.

Вариант 2:

Може да изпозлваш този VBA код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim lZoom As Long
  Dim lZoomDV As Long
  Dim lDVType As Long
  lZoom = 100
  lZoomDV = 120
  lDVType = 0

  Application.EnableEvents = False
  On Error Resume Next
  lDVType = Target.Validation.Type

    On Error GoTo errHandler
    If lDVType <> 3 Then
      With ActiveWindow
        If .Zoom <> lZoom Then
          .Zoom = lZoom
        End If
      End With
    Else
      With ActiveWindow
        If .Zoom <> lZoomDV Then
          .Zoom = lZoomDV
        End If
      End With
    End If

exitHandler:
  Application.EnableEvents = True
  Exit Sub
errHandler:
  GoTo exitHandler
End Sub 

Слага се в листа (sheet-a), в който се намира падащото меню (снимка 2 позиция 1 и 2), след което се запазва (снимка 2 позиция 3) и се стартира (снимка 2 позиция 4) еднократно.

Ако се отиде в клетка която НЕ съдържа падащо меню (снимка 3 позиция 1), то следва да доближаването да е 100% (снимка 3 позиция 2).

Ако се отиде обаче в клетката в която е направено падащо меню с Data Validation (снимка 4 позиция 1), TO следва екрана автоматично да се увеличи на 120% (снимка 4 позиция 2).

Тук удобството е че увеличението за което споменах в Метод 1 е автоматично. Ако в кода промените стойността на lZoomDV = 120, например я направите lZoomDV = 160, то следва при избор да се увеличи от 100 на 160.

Метод 3:

Може да заменим Data validation с ComboBox.

Вече за ComboBox - a може да променяме височина и шрифта.

Как да създадем ComboBox?

Отиваме на Ribbon раздела Developer (снимка 5 позиция 1), след което в раздела Controls кликваме на Insert (снимка 5 позиция 2) и в раздела ActiveX Control (снимка 5 позиция 3) избираме иконката за ComboBox -a (снимка 5 позиция 4).

Появява се маркер тип плюсче (+) (снимка 6 позиция 1), с който може да очертаваме полето на Combobox - a.

Изчертахме полето на ComboBox-a (снимка 7 позиция 1). В Developer -a (снимка 7 позиция 2) прозореца кликваме върху Design View (снимка 7 позиция 3), за да влезнем в режима на дизайн на Combo Box.Едва след като бутона е включен (бутона на Design View свети в сиво, когато е включен) селектираме ComboBox - a (снимка 7 позиция 4).

След като сме селектирали обекта - ComboBox -a (снимка 8 позиция 1), следва пак в Developer (снимка 8 позиция 2) избираме опцията Properties (снимка 8 позиция 3), следва да ни се появи прозорец Properties (снимка 8 позиция 4).В раздела Alphabetic (снимка 8 позиция 5) този прозорец в полето LinkedCell (снимка 8 позиция 6) записваме, към коя клетка точно ще свържем ComboBox -a, в случая избираме клетката C5, в полето ListFillRange (снимка 8 позиция 7) записваме диапазона H2:H9 в който се намира списъка с имена участващ и в Падащото меню (Data validation). Затваряме прозореца с X бутона горе в дясно.

Така направихме ComboBox, да върши същата работа както падащото меню създадено с Data Validation.Селектираме с левия бутона на мишката задържаме и преместваме ComboBox - a върху падащото меню (снимка 9 позиция 1).Натискаме бутона Design View за да излезнем от режима на модификация (снимка 9 позиция 2), след натискането му бутона несвети (снимка 9 позиция 2), което означава че не сме в режим на модификация.

Избирайки стрелкичката на ComboBox-a, то се показва падащо меню досущ като това създадено чрез data validation - a (снимка 10 позиция 1).Обръщам внимание на това че увеличението на екрана е 100% (снимка 10 позиция 2), а буквите се виждат доста добре.Това е така защото тези букви са направени с доста по-голям шрифт.

Как да увеличим или намалим шрифта на тези букви?

Отиваме в Developer (снимка 11 позиция 1), след което включваме режима на модификация натискайки бутона Design Mode (снимка 11 позиция 2), след като бутона е светнал ! селектираме ComboBox-a (снимка 11 позиция 3), след товa избираме Properties (снимка 11 позиция 5) и избираме раздела Categorize (снимка 11 позиция 6), селектираме полето Font (снимка 11 позиция 7), след това кликаме на трите точки в края на полето (снимка 11 позиция 8).

Отваря ни се прозорец Font снимка 12 позиция 1, в този прозорец може да променим стила и височината на текста (снимка 12 позиция 2 и 3). От 16pt нека го променим да бъде с височина 22pt. С ОК запазваме промените.Програмата ни връща в прозореца Properties, който прозорец затваряме с X.

Излизаме от режима на модифициране по показания вече начин.Кликваме на падащото меню и отново при увеличение 100% виждаме че текста е станал доста по-голям.

Надявам се да съм бил полезен с отговора.

Леле направо съм изумена. Благодаря много за бързия и толкова полезен отговор. Бяхте полезен :) Отново благодаря

Ако нямате активиран Developer, ето от къде може да направите това.

АКО ИЗПИШЕМ ИМЕНАТА САМО С ГЛАВНИ БУКВИ СТАВАТ ПО-ЧЕТЛИВИ В ПАДАЩОТО МЕНЮ.

Здравейте г-н Кръстев, направих Combo Box-a по вашите указания и всичко е наред с него. Но направих и функцията VLOOKUP за телефон, фирмен номер и разходен център. Странното е, че работи за всички останали именат в списъка, освен за Алек Траянов. Само при него връща грешка #N/A. Къде би могъл да е проблема? На e-mail [email protected] Ви изпращам и файла.

Здравей, Деси.

Проблема идва от това че не е зададен Exact Match в Vlookup функцията.

Тя трябва да излгежда така в случая за да работи коректно.

=VLOOKUP($C$5;$H$2:$K$9;2;FALSE)

FALSE трябва да има в края на всяка една от vlookup функциите ти.

Благодаря, тествах всички варианти и ми се получиха, научих много нови неща.