макрос Excel для сброса / обновления столбца таблицы с выпадающим списком

Question

Макрос новичка в Excel, так что будьте добры, если мой вопрос выглядит глупо. Я создал таблицу (listobjects) на листе с четырьмя столбцами. Четвертый столбец содержит раскрывающиеся списки при проверке данных и имеет значения «a, b, c, none». Теперь я впервые открываю лист, выбираю значения из выпадающего списка, и он работает нормально, но во второй раз, когда я открываю лист, выпадающие значения в столбцах остаются такими же, как и ранее введенные. Может ли кто-нибудь помочь мне с макрос-кодом, который я могу назначить кнопке, щелкнув по которой можно сбросить раскрывающиеся значения на "нет" (как значение по умолчанию) и разрешить мне снова выбирать из вариантов, упомянутых в раскрывающемся списке.

Любые выводы будут оценены. Паван Патро

Answer 1

Я не уверен, почему вы хотели бы сделать это. Но следующий макрос должен работать (потому что я только что проверил его)

Предполагая, что имя вашей таблицы - Table1, это очистит весь контент и сделает его пустым:

Sub ClearChoice()
ActiveSheet.ListObjects("Table1").ListColumns(4).DataBodyRange.ClearContents
End Sub

В качестве альтернативы, вы можете установить его в "none", если хотите:

Sub ClearChoice()
ActiveSheet.ListObjects("Table1").ListColumns(4).DataBodyRange.Value = "none"
End Sub