Note: The other languages of the website are Google-translated. Back to English

Как переместить определенную строку на новый лист, если в 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 кнопка. Затем указанная вся строка будет немедленно перемещена на определенный рабочий лист. Смотрите скриншот:


Статьи по теме:


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (1)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Извините, что я новичок в этом, но мне нужна электронная таблица, чтобы сделать это, но скопировать элемент, а не переместить его, как мне это сделать?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL