Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Фев

Как по даблклику крутить значения ячейки по кругу (Microsoft Office Excel)?

Posted by obzor under VBA

На некоторые ячейки наложена проверка данных. Как по даблклику крутить значения ячейки по кругу?

Boxa_programmers

Код:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    st = Target.Validation.Type
    If st <> 3 Then Exit Sub
    st = Target.Validation.Formula1
    Cancel = True
    Set r_D = Range(st)
    If Err <> 0 Then
        D = Split(st, ";")
    Else
        D = WorksheetFunction.Transpose(r_D.Value)
    End If
    Err.Clear
    t_val = Target.Value
    'Math не работает сволочь, пришлось циклом
    'ind = WorksheetFunction.Math(t_val, D)
    'ind = ind + LBound(D) - 1
    For i = LBound(D) To UBound(D)
        If t_val = D(i) Then
            ind = i
            Exit For
        End If
    Next i
    If IsEmpty(ind) Then
        Target = D(LBound(D))
    Else
        ind = ind + 1
        If ind > UBound(D) Then ind = LBound(D)
        Target = D(ind)
    End If
End Sub