Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выпадающий список с точным текстом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Выпадающий список с точным текстом
andreika2113 Дата: Суббота, 18.05.2024, 14:57 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте. Подскажите пожалуйста, как сделать выпадающий список с текстом который содержит верхний и нижний регистр и из списка по формуле уходил в другую ячейку без изменения
К сообщению приложен файл: knyga20240518.xlsx (9.4 Kb)
 
Ответить
СообщениеЗдравствуйте. Подскажите пожалуйста, как сделать выпадающий список с текстом который содержит верхний и нижний регистр и из списка по формуле уходил в другую ячейку без изменения

Автор - andreika2113
Дата добавления - 18.05.2024 в 14:57
cmivadwot Дата: Воскресенье, 19.05.2024, 23:32 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 481
Репутация: 88 ±
Замечаний: 0% ±

365
andreika2113, вариант....
К сообщению приложен файл: 6363711.xlsx (19.8 Kb)
 
Ответить
Сообщениеandreika2113, вариант....

Автор - cmivadwot
Дата добавления - 19.05.2024 в 23:32
Nic70y Дата: Понедельник, 20.05.2024, 09:26 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 8832
Репутация: 2301 ±
Замечаний: 0% ±

Excel 2010
вариант
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    On Error Resume Next
    a = Target.Validation.Formula1
    If a = "=dm" Then
        b = Application.Match(Target.Value, Range("dm"), 0)
        c = Range("dm")(b).Value
        d = Len(c)
        For e = 1 To d
            With Range("dm")(b).Characters(Start:=e, Length:=1).Font
                f = .Superscript
                g = .Subscript
            End With
            With ActiveCell.Characters(Start:=e, Length:=1).Font
                .Superscript = f
                .Subscript = g
            End With
        Next
    End If
    Application.EnableEvents = True
End Sub
[/vba]
К сообщению приложен файл: knyga20240518.xlsm (17.1 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщениевариант
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    On Error Resume Next
    a = Target.Validation.Formula1
    If a = "=dm" Then
        b = Application.Match(Target.Value, Range("dm"), 0)
        c = Range("dm")(b).Value
        d = Len(c)
        For e = 1 To d
            With Range("dm")(b).Characters(Start:=e, Length:=1).Font
                f = .Superscript
                g = .Subscript
            End With
            With ActiveCell.Characters(Start:=e, Length:=1).Font
                .Superscript = f
                .Subscript = g
            End With
        Next
    End If
    Application.EnableEvents = True
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 20.05.2024 в 09:26
andreika2113 Дата: Вторник, 21.05.2024, 18:31 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
cmivadwot, , Nic70y, Спасибо за помощью. Вы очень помоглию
 
Ответить
Сообщениеcmivadwot, , Nic70y, Спасибо за помощью. Вы очень помоглию

Автор - andreika2113
Дата добавления - 21.05.2024 в 18:31
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!