Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #16172 Mutt senior tag csferke #16166
    Új Válasz #16172
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Mutt

    senior tag

    válasz csferke #16166 üzenetére

    Hello,

    ...viszont olyan cella is amelyben legördülő listából kellene kiválasztani...
    Az alap INPUTBOX-al nem tudod ezt megoldani, de készíthetsz egy sajátot is. Ehhez kell egy Userform amire egy ComboBox-ot kell tened. Ez képes legördülő listákat kezelni.

    A minta fájlomat feltettem ide.

    A makró lényege lent látható:

    Private Sub UserForm_Initialize()
    Dim vErvenyesitesTipusa

    Me.Caption = Title
    Me.lPrompt = Prompt

    On Error Resume Next
    'az érvényesítés 0 és 7 közötti értéket vagy hibát vehet fel
    vErvenyesitesTipusa = ActiveCell.Validation.Type

    'attól függően hogy melyik érvényesítés van kicsivel másabb lesz a beviteli lap
    Select Case vErvenyesitesTipusa
    Case 3 'xlValidateList = legördülő lista
    Me.cbBevitel.RowSource = ActiveCell.Validation.Formula1 'a combobox-nak megadjuk az érvényesítés tartományát
    Me.cbBevitel = ActiveCell.Value 'kitesszük a korábbi értéket

    Case Else
    Me.cbBevitel.ShowDropButtonWhen = fmShowDropButtonWhenNever 'letiltjuk a legördülő nyilat
    Me.cbBevitel = ActiveCell.Value 'kitesszük a korábbi értéket

    End Select

    End Sub

    Remélem a minta segít a megoldásban.

    üdv.

Új hozzászólás Aktív témák