Как выделить и выделить диагональные ячейки в Excel?
В Excel нам обычно нужно выделить несколько ячеек, но пробовали ли вы когда-нибудь выделить и выделить диагональные ячейки в диапазоне? В этой статье я расскажу о программе VBA, которая поможет вам быстро выбрать диагональные ячейки.
Выделите и выделите диагональные ячейки
Выделите и выделите диагональные ячейки
Чтобы выделить диагональные ячейки, вы можете использовать код макроса.
1. Выберите ячейку, с которой нужно начать диагональное выделение, и нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули и вставьте ниже код в скрипт.
VBA: выберите диагональные ячейки
Sub selectDiag()
'UpdatebyExtendoffice20171128
Dim I As Long
Dim xCount As Long
Dim xRg As Range
On Error Resume Next
Set xRg = ActiveCell
If xRg Is Nothing Then Exit Sub
xCount = Val(InputBox("How many cells do you want to select diagonally?", "KuTools For Excel"))
If xCount = 0 Then Exit Sub
For I = 1 To (xCount - 1)
Set xRg = Union(xRg, ActiveCell.Offset(I, I))
Next I
xRg.Select
End Sub
3. Нажмите F5 и появится диалоговое окно, напоминающее вам о выборе ячеек, введите количество диагональных ячеек, которые вы хотите выбрать, в текстовое поле.
4. Нажмите OK. Выбраны диагональные ячейки.
Затем вы можете выделить ячейки цветом фона.
Разблокируйте магию Excel с помощью Kutools AI
- Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
- Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
- VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
- Интерпретация формулы: Легкое понимание сложных формул.
- Перевод текста: преодолевайте языковые барьеры в своих таблицах.
Относительные статьи
- Как условное форматирование значений не между двумя числами в Excel?
- Как выделить дубликаты и перекрывающиеся даты в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!