Как предотвратить копирование и вставку ячейки с выпадающим списком в Excel?
Для ячейки с раскрывающимся списком проверки данных при копировании содержимого из другой ячейки и вставке в нее раскрывающийся список исчезнет и будет заменен новым вставляемым содержимым. В некоторых случаях вы хотите предотвратить копирование и вставку другого содержимого в ячейку с помощью раскрывающегося списка, что бы вы сделали, чтобы с этим справиться? В этой статье вы познакомитесь с методом VBA для решения этой проблемы.
Запретить копирование и вставку ячейки с раскрывающимся списком в Excel
Запретить копирование и вставку ячейки с раскрывающимся списком в Excel
1. Откройте рабочий лист с ячейкой раскрывающегося списка, которую вы хотите запретить копировать и вставлять.
2. Нажмите другой + F11 клавиши одновременно, чтобы открыть Приложения Microsoft Visual Basic окно.
3. в Приложения Microsoft Visual Basic окна, дважды щелкните имя текущего рабочего листа на левой панели, затем скопируйте и вставьте приведенный ниже код VBA в редактор кода. Смотрите скриншот:
Код VBA: запретить копирование и вставку ячейки с раскрывающимся списком
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20200903
Dim xValue As String
Dim xCheck1 As String
Dim xCheck2 As String
Dim xRg As Range
Dim xArrCheck1() As String
Dim xArrCheck2() As String
Dim xArrValue()
Dim xCount, xJ As Integer
Dim xBol As Boolean
' If Target.Count > 1 Then
' Exit Sub
' End If
xCount = Target.Count
ReDim xArrCheck1(1 To xCount)
ReDim xArrCheck2(1 To xCount)
ReDim xArrValue(1 To xCount)
Application.EnableEvents = False
On Error Resume Next
xJ = 1
For Each xRg In Target
xArrValue(xJ) = xRg.Value
xArrCheck1(xJ) = xRg.Validation.InCellDropdown
xJ = xJ + 1
Next
Application.Undo
xJ = 1
For Each xRg In Target
xArrCheck2(xJ) = xRg.Validation.InCellDropdown
xJ = xJ + 1
Next
xBol = False
For xJ = 1 To xCount
If xArrCheck2(xJ) <> xArrCheck1(xJ) Then
xBol = True
Exit For
End If
Next
If xBol Then
MsgBox "The selected cells containg data validation drop-down lists, no pasting allowed."
Else
xJ = 1
For Each xRg In Target
xRg.Value = xArrValue(xJ)
xJ = xJ + 1
Next
End If
Application.EnableEvents = True
End Sub
4. Нажмите другой + Q ключи для выхода из Приложения Microsoft Visual Basic окно.
5. Когда вы вставляете содержимое в ячейку с раскрывающимся списком, появляется диалоговое окно, напоминающее вам, что вставка запрещена. Смотрите скриншот:
Внимание: Этот VBA просто работает при вставке одной ячейки. Если вы скопируете и вставите несколько ячеек, это не сработает.
Легко создать раскрывающийся список с флажками в Excel:
Ассоциация Раскрывающийся список с флажками полезности Kutools for Excel может помочь вам легко создать раскрывающийся список с флажками в указанном диапазоне, текущем листе, текущей книге или всех открытых книгах в зависимости от ваших потребностей.
Загрузите полнофункциональную 30-дневную бесплатную версию Kutools for Excel прямо сейчас!
Статьи по теме:
Как создать раскрывающийся список с несколькими флажками в Excel?
Многие пользователи Excel, как правило, создают раскрывающийся список с несколькими флажками, чтобы выбирать несколько элементов из списка за раз. На самом деле вы не можете создать список с несколькими флажками с проверкой данных. В этом руководстве мы покажем вам два метода создания раскрывающегося списка с несколькими флажками в Excel. В этом руководстве представлен метод решения проблемы.
Создать раскрывающийся список из другой книги в Excel
Создать раскрывающийся список проверки данных среди листов в книге довольно просто. Но если данные списка, необходимые для проверки данных, находятся в другой книге, что вы будете делать? В этом руководстве вы узнаете, как подробно создать раскрывающийся список из другой книги в Excel.
Создайте раскрывающийся список с возможностью поиска в Excel
Для раскрывающегося списка с многочисленными значениями найти подходящий - непростая задача. Ранее мы ввели метод автоматического заполнения раскрывающегося списка при вводе первой буквы в раскрывающемся списке. Помимо функции автозаполнения, вы также можете сделать раскрывающийся список доступным для поиска для повышения эффективности работы при поиске правильных значений в раскрывающемся списке. Чтобы сделать раскрывающийся список доступным для поиска, попробуйте метод, описанный в этом руководстве.
Автоматическое заполнение других ячеек при выборе значений в раскрывающемся списке Excel
Допустим, вы создали раскрывающийся список на основе значений в диапазоне ячеек B8: B14. При выборе любого значения в раскрывающемся списке необходимо, чтобы соответствующие значения в диапазоне ячеек C8: C14 автоматически заполнялись в выбранной ячейке. Для решения проблемы методы, описанные в этом руководстве, окажут вам услугу.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!