Как изменить значение в раскрывающемся списке Excel


1

У меня есть столбец, который использует значения из предопределенного набора (раскрывающийся список), реализованный с использованием проверки данных . Теперь, если я изменю какое-либо значение в списке , раскрывающийся список (при его открытии) немедленно предложит это новое значение. Однако таблица сама не будет автоматически обновляться , а это означает, что некоторые значения в столбце будут недействительными, пока я не исправлю их вручную.

Я видел решения, основанные на макросах / VBA, но нет ли какого-нибудь умного способа непосредственно в интерфейсе Excel?


Не используется проверка данных.
Чафф

@chuff Я готов использовать другой подход, если это работает, проверка данных не является обязательным требованием.
Борек Бернард

1
Извините, Борек, но это невозможно без макроса или VBA. Проверка данных - это проверка данных во время ввода. Вам нужно будет запустить что-то, чтобы обновить ячейки с этим значением.
Ник Перкинс

@NickPerkins И нет ли альтернативного подхода к проверке данных? Какой-то другой способ создать выпадающий список?
Борек Бернард

1
@Borek Вы можете использовать элемент управления со списком, но для этого также требуется VBA.
Ник Перкинс

Ответы:


2

Как я уже упоминал в комментариях, единственный способ сделать это - использовать VBA.

Вот один из вариантов. Я добавил комментарии по всему коду. Это предполагает, что вы используете именованный диапазон для списка проверки с именем «Список» и что он находится на том же листе, что и проверяемые ячейки.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim cell As Range
    Dim isect As Range
    Dim vOldValue As Variant, vNewValue As Variant


    Set isect = Application.Intersect(Target, ThisWorkbook.Names("List").RefersToRange)
    If Not isect Is Nothing Then
        ' Get previous value of this cell
        Application.EnableEvents = False
        With Target
            vNewValue = .Value
            Application.Undo
            vOldValue = .Value
            .Value = vNewValue
        End With

        ' For every cell with validation
        For Each cell In Me.UsedRange.SpecialCells(xlCellTypeAllValidation)
            With cell
                ' If it has list validation AND the validation formula matches AND the value is the old value
                If .Validation.Type = 3 And .Validation.Formula1 = "=List" And .Value = vOldValue Then
                    ' Change the cell value
                    cell.Value = vNewValue
                End If
            End With
        Next cell
        Application.EnableEvents = True
    End If
End Sub

Вы также можете скачать пример электронной таблицы, которую я собрал, чтобы проверить это. (Содержит макросы!)


Не могли бы вы предоставить эту ссылку Dropbox снова?
Дигеркам

0

но нет ли какого-нибудь умного способа непосредственно в интерфейсе Excel?

Я думаю, что я знаю один - по крайней мере, кажется, чтобы удовлетворить все ваши запросы:

  1. Вам необходимо установить динамически изменяемый именованный регион в качестве источника для проверки данных. Это может быть достигнуто с помощью OFFSETфункции. Предполагая, что у вас есть список значений для раскрывающегося списка в столбце A Sheet1(имя имеет значение только для формулы), ячейка A1имеет, например List of values, заголовок , а значения размещаются начиная A2и ниже, вы должны сделать следующее: перейти на ленту Formulas > Name Manager, создать новый регион ( давайте назовем его Items) и установить его область не указывает на клетки, но используя следующую формулу вместо: =OFFSET(Sheet1!$A$2;0;0;COUNTA(Sheet1!$A:$A)-1;1).
  2. Установите правила проверки данных : вместо указания диапазона ячеек для списка введите =Items- таким образом, ваш именованный регион будет использоваться в качестве источника элементов списка.
  3. В результате вышеизложенного вы получите действительно динамический список, который отвечает всем вашим требованиям: вы можете свободно изменять / добавлять элементы в столбец A, и эти изменения будут немедленно отражены в раскрывающемся списке при следующем его использовании. В то же время старые значения останутся нетронутыми.

Я использую это решение около 2 лет в моей работе. Надеюсь, вы тоже найдете это полезным!

PS вот фактический пример файла: Dynamic Dropdown


О, я думаю, что неправильно прочитал ввод - похоже, вам нужно обновить измененные значения в таблице, как только вы их измените. Мое решение предлагает динамический список, но старые значения останутся без изменений. Извините за путаницу.
Питер Л.
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.