Dropdown album cum multi-selectis

Classica gutta-down album in an Excel sheet magna est, sed solum permittit ut unam optionem ex statuto praesentato desumas. Interdum id ipsum quod vis, sed condiciones sunt in quibus usus usor eligere possit quidam elementorum catalogus a.

Plures inspiciamus exsecutiones typicas talis indicem multi-electorum.

Option 1. Horizontalis

Usor res ex indice guttatim desumit singulatim, et iure mutatae cellae apparent, sponte horizontaliter recensentur:

Tabulae gutta-down in cellulis C2:C5 in hoc exemplo creantur in modo normae, ie

  1. selectis cellulis C2: C5
  2. tab vel menu Data eligere bigas Data Validation
  3. in fenestra quod aperit, optio elige album ac speciem rhoncus Source cellas fons notitia pro album A1: A8

Tunc tortor addere debes ad schedae moduli, quod omne opus principale faciet, id est bonas selectas ad ius cellularum viridium adde. Ad hoc faciendum, ius-click in scheda tab cum indices gutta-down et mandatum lego source codice. Crustulum sequens codicem in Visuali Basic editor fenestra aperiens:

Privata Sub Worksheet_Change(ByVal Target As Range) De Errore Resume Next Si non secent (Target, Range("C2:C5")) nihil est Et Target.Cells.Count = 1 Tunc Application.EnableEvents = Falsum si Len(Target.Offset (0, 1)) = 0 Deinde Target.Offset (0, 1) = target aliud Target.End (xlToRight) .Offset (0, 1) = target finem si Target.ClearContents Application.EnableEvents = Verum finem si finem Sub

Si opus est, sensitivas partes cinematographicarum C2:C5 in secunda linea huius codicis repone cum tua.

Optionem 2. Vertical

Eadem ac in priori versione, at nova bona selecta non ad dextram, sed ad fundum adjiciuntur;

Eodem prorsus modo fit, sed tracto tortor codicis leviter mutat;

Privata Sub Worksheet_Change(ByVal Target As Range) De Errore Resume Next Si non secat (Target, Range("C2:F2")) Nihil est Et Target.Cells.Count = 1 Tunc Application.EnableEvents = Falsum si Len(Target.Offset (I, 1)) = 0 Deinde Target.Offset (0, 1) = Target aliud Target.End(xlDown).Offset(0, 1) = Target finem Si Target.ClearContents Application.EnableEvents = Verum finis si finis Sub

Iterum, si opus est, sensitivas C2:F2 tabulas in linea huius codicis cum tua repone.

Optionem 3. Cum congestione in eadem cellula

In hac optione, cumulus fit in eadem cellula in qua ponitur album gutta-down. Elementa selecta nullo dato charactere separantur (exempli gratia comma);

Tabulae gutta-down in cellulis viridibus creantur modo prorsus mensurato, sicut in praecedentibus modis. Totum opus a Macro in scheda moduli iterum fit:

Privata Sub Worksheet_Change(ByVal Target As Range) De Error Resume Next Si non secat (Target, Range("C2:C5")) Nihil est Et Target.Cells.Count = 1 Tunc Application.EnableEvents = False newVal = Target Application.Undo oldval = Target Si Len(oldval) <>0 And oldval <> newVal Deinde Target = Target & "," & newVal Else Target = newVal Finis Si Len(newVal) = 0 Tunc Target.ClearContents Application.EnableEvents = Verum finem Si Finis Sub

Si placet, in linea IX codicis cum tua propria (exempli gratia, spatium vel semicolon reponere potes).

  • Quomodo creare simplex guttam album in excellent sheet cell?
  • Dropdown album cum content
  • Dropdown album cum absentis optiones additae
  • Quae sunt macra, quomodo illis utendum, ubi tortor codicem inserere in Visual Basic

Leave a Reply