Как автоматически развернуть выпадающий список проверки

Question

Как автоматически развернуть выпадающий список проверки

Для Python 3 это

import sys
max = sys.maxsize
min = -sys.maxsize -1

0

excel vba validation dropdown

задан Przemyslaw Remin 1 March 2019 в 07:39

1 ответ

Другие вопросы по тегам:

excel vba validation dropdown

Похожие вопросы:

score 0 · Answer 1

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Const Trigger As String = "A3:B4"               ' modify to suit
    Const ValCell As String = "H3"                  ' modify as required

    Dim ValType As Long

    If Not Application.Intersect(Target, Range(Trigger)) Is Nothing Then
        Application.EnableEvents = False
        Range(ValCell).Activate

        On Error Resume Next
        ValType = ActiveCell.Validation.Type
        On Error GoTo 0
        If ValType = 3 Then SendKeys "%{DOWN}"

        Application.EnableEvents = True
    End If
End Sub

Приведенная выше процедура контролирует диапазон триггера A3: B4, который можно настроить в соответствии с вашими потребностями. Если щелкнуть одну из ячеек в этом диапазоне (это может быть один диапазон ячеек), раскрывающийся список в ячейке, имеющей валидацию, определенную как , ValCell , расширяется, если она существует. Код достигает этого, активируя ячейку CellVal.