Як перемістити певний рядок на новий аркуш, якщо в Excel встановлено прапорець?
У цій статті йдеться про переміщення певного рядка на новий аркуш, якщо в Excel встановлено прапорець.
Перемістити рядок, коли прапорець встановлений за допомогою коду VBA
Перемістити рядок, коли прапорець встановлений за допомогою коду VBA
Будь ласка, виконайте наступні дії, щоб перемістити певний рядок до вказаного робочого аркуша, встановивши прапорець у Excel.
1. Перейдіть до робочого аркуша, який потрібно перемістити, на основі прапорця, натисніть Розробник > Insert > Прапорець (керування 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. Поставте прапорець, а потім a Kutools для Excel відкриється діалогове вікно, виберіть першу комірку рядка (або весь рядок), який потрібно перемістити, і натисніть OK кнопку. Тоді вказаний весь рядок буде негайно переміщено на певний аркуш. Дивіться знімок екрана:
Статті по темі:
- Як перемістити весь рядок на інший аркуш на основі значення комірки в Excel?
- Як перемістити весь рядок до нижньої частини активного аркуша на основі значення комірки в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!