[blackeangel]

a_axe,

Код:

Private Sub UserForm_Initialize()
ComboBox1.List = Split("Черный,Красный,Зеленый,Желтый,Синий,Пурпурный,Циан,Белый", ",") 'заполняем выпадающее поле
End Sub

Private Sub CommandButton1_Click()
    Dim strFindWhat As String
    Dim strFirstFoundAddress As String
    Dim objRange As Range
    Dim intFoundPosition As Integer
    strFindWhat = Val(TextBox1.Text) 'забираем данные из текстового поля
    sFontColorAsk = ComboBox1.Text 'забираем данные из выпадающего поля
    
    If sFontColorAsk = "Черный" Then sFontcolor = vbBlack
    If sFontColorAsk = "Красный" Then sFontcolor = vbRed
    If sFontColorAsk = "Зеленый" Then sFontcolor = vbGreen
    If sFontColorAsk = "Желтый" Then sFontcolor = vbYellow
    If sFontColorAsk = "Синий" Then sFontcolor = vbBlue
    If sFontColorAsk = "Пурпурный" Then sFontcolor = vbMagenta
    If sFontColorAsk = "Циан" Then sFontcolor = vbCyan
    If sFontColorAsk = "Белый" Then sFontcolor = vbWhite
    
    With ActiveSheet.UsedRange
        Set objRange = .Find(What:=strFindWhat, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
        If Not objRange Is Nothing Then
            strFirstFoundAddress = objRange.Address
            Do
                intFoundPosition = InStr(1, objRange.Value, strFindWhat, vbTextCompare)
                Do While intFoundPosition > 0
                    objRange.Characters(intFoundPosition, Len(strFindWhat)).Font.color = sFontcolor
                    intFoundPosition = InStr(intFoundPosition + 1, objRange.Value, strFindWhat, vbTextCompare)
                Loop
                Set objRange = .FindNext(After:=objRange)
            Loop Until objRange.Address = strFirstFoundAddress
        End If
    End With
End Sub

Теперь как уйти от If'ов?
Так же через Case?

[blackeangel]

a_axe, если интересно, то вот идея Ваша реализованная в UserForm. Получилось красиво)

[Iska]

Некрасиво.

1. Проверяйте возвращаемое значение методом .Show() и обрабатывайте только True:

Код:

If .Dialogs(xlDialogEditColor).Show(…) Then
    …
End If

2. Метод «.Dialogs(xlDialogEditColor).Show(40, …)» не просто показывает диалог выбора цвета для указанного индекса палитры Рабочей книги, но и действительно меняет его. Это есть совсем нехорошо. Посему недостаточно просто использовать данный метод и забыть про последствия. Необходимо предварительно сохранить текущий цвет из указанного индекса палитры, использовать метод, получить выбранный цвет, вернуть сохранённый цвет индексу палитры. Наподобие:

Код:

Option Explicit

Dim lngSelectedColor As Long                                  'переменная уровня модуля для использования её внутри формы

Private Sub btnGetColor_Click()
    Const intColorIndex = 40
    Dim lngPrevColor As Long
    
    
    lngPrevColor = ThisWorkbook.Colors(intColorIndex)
    
    If Application.Dialogs(xlDialogEditColor).Show(intColorIndex, 255, 0, 0) Then
        lngSelectedColor = ThisWorkbook.Colors(intColorIndex) 'получаем выбранный код цвета
        btnGetColor.BackColor = intResult                     'назначаем цвет специально выделенной кнопке
        ThisWorkbook.Colors(intColorIndex) = lngPrevColor
    End If
End Sub

[blackeangel]

1. Проверяйте возвращаемое значение методом .Show() и обрабатывайте только True: »

зачем?

2. Метод «.Dialogs(xlDialogEditColor).Show(40, …)» не просто показывает диалог выбора цвета для указанного индекса палитры Рабочей книги, но и действительно меняет его. Это есть совсем нехорошо »

Чем же это плохо? И потом,я создавал тему отдельно поэтому вопросу и там никто ничего не ответил.

Application.Dialogs(xlDialogEditColor).Show(intColorIndex, 255, 0, 0) »

и

Код:

Application.Dialogs(xlDialogEditColor).Show(20, 255, 0, 0)

это одно и тоже. то есть вы противоречите

но и действительно меняет его. Это есть совсем нехорошо. »

Необходимо предварительно сохранить текущий цвет из указанного индекса палитры, использовать метод, получить выбранный цвет, вернуть сохранённый цвет индексу палитры. »

зачем забор городить? да еще и возвращать тот цвет что не нужен, т.к. юзер его не выбирал?

[Iska]

зачем? »

Затем, что пользователь может нажать «Отмена».

Чем же это плохо? »

Тем что «поплывут» все места, где был использован данный индекс цвета палитры.

И потом,я создавал тему отдельно поэтому вопросу и там никто ничего не ответил. »

Не всё делается в то время, как Вам хочется, увы. У меня его тогда не было. Вы обратили внимание на время моего предыдущего сообщения? А этого? То-то.

это одно и тоже. »

Разумеется. Я просто заменил трёхкратное использование одного и того же постоянного числа константой. Но сие несущественно, и речь вовсе не об этом.

зачем забор городить?»

Затем, чтобы после отработки Вашего кода, внезапно не поменяли свои цвета ячейки рабочих листов и диаграммы.

да еще и возвращать тот цвет что не нужен, т.к. юзер его не выбирал? »

Это я пропустил при копировании. Должно быть, разумеется, не оставшийся по недосмотру «intResult», а «lngSelectedColor»:

Код:

        btnGetColor.BackColor = lngSelectedColor                     'назначаем цвет специально выделенной кнопке

(и если б Вы добавили приведённое в коде требование «Option Explicit» — сразу бы сие увидели). Приношу Вам свои извинения за недоработку.