Podpowiedzi z tabli w excel

Question

Dzień dobry,

chciałbym  poprosić o pomoc, chciałbym aby nie trzeba było za każdym razem klikać na rozwinięcie listy w arkuszu. Tylko aby wszystkie opcje od razu się pokazywały po kliknięciu w komórkę.

Czy ktoś mógłby wyjaśnić mi krok po kroku jak do tego dojść ??

Dokładniej chodzi o to aby zamiast tego przycisku do rozsuwania listy wyboru, miał od razu listę po kliknięciu w komórkę.

 

Answer 1

Próbowałeś tak, przez podwójne kliknięcie w komórkę, zapisz kod vba w Arkuszu

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim validationList As String
    Dim cell As Range

    On Error Resume Next
    validationList = Target.Validation.Formula1
    
    ' Jeśli komórka ma opcje wyboru, wyświetl listę po podwójnym kliknięciu
    If Not validationList = vbNullString Then
        If cell Is Nothing Then
            Set cell = Target
        End If
        cell.Select
        SendKeys "%{DOWN}"
        Cancel = True
    End If
End Sub