Выбор следующего значения из выпадающего списка через макрос

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Выбор следующего значения из выпадающего списка через макрос (Макросы/Sub)

makcum15

Дата: Воскресенье, 08.08.2021, 20:15 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Доброе время суток.
Подскажите, пожалуйста, возможно ли с помощью макроса выбрать следующее значение в ячейке с выпадающем списком?

К сообщению приложен файл: 2833172.xlsm (9.0 Kb)

Ответить

bmv98rus

Дата: Воскресенье, 08.08.2021, 21:33 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4115

Репутация: 769 ±

Замечаний: 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~~.

Ответить

Kuzmich

Дата: Воскресенье, 08.08.2021, 21:47 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 157 ±

Замечаний: 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]

Ответить

makcum15

Дата: Вторник, 10.08.2021, 14:31 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

bmv98rus, спасибо! то что нужно!

Ответить

Выбор следующего значения из выпадающего списка через макрос (Макросы/Sub)

Страница 1 из 1
1