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

Вход

Регистрация

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

 

= Мир MS Excel/Выбор следующего значения из выпадающего списка через макрос - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбор следующего значения из выпадающего списка через макрос (Макросы/Sub)
Выбор следующего значения из выпадающего списка через макрос
makcum15 Дата: Воскресенье, 08.08.2021, 20:15 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Доброе время суток.
Подскажите, пожалуйста, возможно ли с помощью макроса выбрать следующее значение в ячейке с выпадающем списком?
К сообщению приложен файл: 2833172.xlsm (9.0 Kb)
 
Ответить
СообщениеДоброе время суток.
Подскажите, пожалуйста, возможно ли с помощью макроса выбрать следующее значение в ячейке с выпадающем списком?

Автор - makcum15
Дата добавления - 08.08.2021 в 20:15
bmv98rus Дата: Воскресенье, 08.08.2021, 21:33 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4098
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016
[vba]
Код
L = Split(Range("e4").Validation.Formula1, ";")
For I = 0 To UBound(L)
    If Range("e4") = L(I) Then
        I = I + 1
        If I > UBound(L) Then I = 0
        Range("E4") = L(I)
        Exit For
    End If
Next
[/vba]


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение[vba]
Код
L = Split(Range("e4").Validation.Formula1, ";")
For I = 0 To UBound(L)
    If Range("e4") = L(I) Then
        I = I + 1
        If I > UBound(L) Then I = 0
        Range("E4") = L(I)
        Exit For
    End If
Next
[/vba]

Автор - bmv98rus
Дата добавления - 08.08.2021 в 21:33
Kuzmich Дата: Воскресенье, 08.08.2021, 21:47 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 155 ±
Замечаний: 0% ±

Excel 2003
Цитата
возможно ли с помощью макроса выбрать следующее значение в ячейке с выпадающем списком?

В модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E4")) Is Nothing Then
  Application.EnableEvents = False
Dim iDate As Date
    iDate = CDate("1 " & Target & " 2021")
    Target = Format(DateSerial(Year(iDate), Month(iDate) + 1, 1), "MMMM")
End If
  Application.EnableEvents = True
End Sub
[/vba]
 
Ответить
Сообщение
Цитата
возможно ли с помощью макроса выбрать следующее значение в ячейке с выпадающем списком?

В модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E4")) Is Nothing Then
  Application.EnableEvents = False
Dim iDate As Date
    iDate = CDate("1 " & Target & " 2021")
    Target = Format(DateSerial(Year(iDate), Month(iDate) + 1, 1), "MMMM")
End If
  Application.EnableEvents = True
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 08.08.2021 в 21:47
makcum15 Дата: Вторник, 10.08.2021, 14:31 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

bmv98rus, спасибо! то что нужно!
 
Ответить
Сообщениеbmv98rus, спасибо! то что нужно!

Автор - makcum15
Дата добавления - 10.08.2021 в 14:31
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбор следующего значения из выпадающего списка через макрос (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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