A legördülő listából azzal a kiegészítéssel, az új elemek

Tehát van a következő helyzetet:

Feladat. do legördülő listából, a felhasználó választhat a névsort (A oszlop) a D2 cellában. Ha a kívánt nevet nem szerepel, a felhasználó megadhat egy új nevet közvetlenül a D2 cellában - ez automatikusan bekerül az oszlop az A és kezd megjelenni a legördülő listából a jövőben.

1. lépés: Hozzon létre egy elnevezett tartomány

Az angol változat Excel, akkor:

Ez a képlet az összes olyan töltött sejtek az A oszlopban, kezdve az A1 és lefelé, amíg a végén -, amíg az utolsó nevet.

2. lépés: Hozzon létre egy legördülő listából

Válassza a D2 cellában és nyitott Adatok menü - Ellenőrzés (Data - Validation). Ezután válassza ki a legördülő listából (Enged) összesen List (Lista), és írja be a húr Source (Forrás) hivatkozás az 1. lépésben létrehozott, a megnevezett tartomány:

Excel lehetővé teszi számunkra, hogy bekerüljenek a lista az új nevek, törölje az Üzenetek fülön bemenet (Input Message), és egy hibaüzenet (Hiba Alert), majd az OK gombra. Most van egy legördülő listából a D2 cellában. És ha például kézzel, hogy egy új név az A oszlopban, akkor automatikusan megjelenik a legördülő listában a D2 cellában mivel a neveket venni az emberek a dinamikus tartomány, amely automatikusan nyomon követi változásokat az oszlop A.

3. lépés: Add egy egyszerű makró

Private Sub Worksheet_Change (ByVal Target As Range)

Dim lReply As Long

Ha Target.Cells.Count> 1 Akkor Exit Sub
Ha Target.Address = "$ D $ 2" Akkor
Ha IsEmpty (Target), majd a Kilépés Sub
Ha WorksheetFunction.CountIf (tartomány ( "Emberek"), Target) = 0, akkor
lReply = MsgBox ( "Add a megadott név" _
célpont „A legördülő listában?”, VbYesNo + vbQuestion)
Ha lReply = vbYes Aztán
Tartomány ( "Emberek"). A sejteket (tartomány ( "Emberek"). Rows.Count + 1, 1) = Cél
End If
End If
End If
End Sub

Ha a legördülő lista nem a D2 cella vagy tartomány említette a nevét nem emberek. hanem valami más, akkor a csípés paramétereket egy makrót a saját.

Mindent! Most, amikor megpróbál belépni egy új nevet a D2 cellában Excel fogja kérni

és amikor igenlő választ felhasználó automatikusan egy új nevet a lista az A oszlopban és a legördülő listából a D2 cellában.

Hírek Fórum
Knights-éter elmélet

Kapcsolódó cikkek