Как переместить определенную строку на новый лист, если в Excel установлен флажок?
В этой статье говорится о перемещении определенной строки на новый лист, когда в Excel установлен флажок.
Переместить строку, когда флажок установлен с кодом VBA
Переместить строку, когда флажок установлен с кодом VBA
Пожалуйста, сделайте следующее, чтобы переместить определенную строку на указанный рабочий лист, установив флажок в Excel.
1. Перейдите к рабочему листу, в котором необходимо переместить строку на основе флажка, щелкните Застройщик > Вставить > Флажок (элемент ActiveX) чтобы установить флажок. Смотрите скриншот:
2. Щелкните вкладку листа правой кнопкой мыши, а затем щелкните Просмотреть код из контекстного меню. Смотрите скриншот:
3. В дебюте Microsoft Visual Basic для приложений окна, скопируйте и вставьте ниже код VBA в окно кода.
Код VBA: переместить строку на указанный рабочий лист, когда установлен флажок
Private Sub CheckBox1_Click()
Dim xRg As Range
Dim xAddress As String
On Error Resume Next
If CheckBox1.value Then
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range row you will move(single cell):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1).EntireRow
xRg.Copy
ActiveWorkbook.Sheets("Sheet3").Range("A1").PasteSpecial xlPasteAllUsingSourceTheme
xRg.Clear
Application.CutCopyMode = False
End If
End Sub
Внимание: В коде Shee3 и A1 указывают, что указанная строка будет перемещена в первую строку Sheet3. Пожалуйста, измените их в соответствии с вашими потребностями.
4. нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно.
5. Выключите режим дизайна, щелкнув значок Режим проектирования Кнопка на Застройщик меню.
6. Установите флажок, затем Kutools for Excel появится диалоговое окно, выберите первую ячейку строки (или всю строку), которую необходимо переместить, и щелкните OK кнопка. Затем указанная вся строка будет немедленно перемещена на определенный рабочий лист. Смотрите скриншот:
Статьи по теме:
- Как переместить всю строку на другой лист на основе значения ячейки в Excel?
- Как переместить всю строку в нижнюю часть активного листа на основе значения ячейки в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!