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

• #16172 Mutt senior tag csferke #16166

  Új Válasz 2013-01-13 17:28:25 #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