Excel VBA "Неизбранный" хотят

Выберите любую ячейку и выключите CutCopy:

Range("A1").Select
  Application.CutCopyMode = False

В Excel всегда есть что-то выбранное. Нужна работа вокруг. Выбрав ячейку вне экрана, вы установите там фокус, так что это не будет работать само по себе. Этот код выводит курсор за пределы экрана, а затем прокручивает лист обратно вверх для просмотра A1.

Sub NoSelect()    
  Range("BB100").Select
  ActiveWindow.SmallScroll up:=100
  ActiveWindow.SmallScroll ToLeft:=44
End Sub

Если вы действительно хотите ‘ничего не выбранного’, вы можете использовать VBA для защиты листа в конце выполнения вашего кода, что приведет к тому, что ничего не будет выбрано. Вы можете либо добавить это в макрос, либо поместить это в ваш VBA напрямую.

Sub NoSelect()
   With ActiveSheet
   .EnableSelection = xlNoSelection
   .Protect
   End With
End Sub

Как только лист не будет защищен, курсор активирует ячейку.

Есть хитрый способ сделать это.

Создать объект, например, кнопку. Выберите эту кнопку, затем спрячьте ее, и ни одна ячейка не будет выделена.

ActiveSheet.Shapes("Button 1").Visible = True

ActiveSheet.Shapes("Button 1").Select

ActiveSheet.Shapes("Button 1").Visible = False

Это все.

Очень старый вопрос, но мой ответ для справки:

Вы можете использовать

With ActiveSheet
    .EnableSelection = xlNoSelection
    .Protect
End With

В зависимости от размера вашей подборки, чтобы избавиться от любого артефакта (я не знаю, является ли это также проблемой в 2013 Excel, но на Mac это было постоянной болью для меня), вы можете просто петлять по ячейкам и выбирать каждую.

При отключении обновления экрана перед выбором ячейки прокрутка до выбранных ячеек временно отключается.

Этот код проверяет, какие ячейки в настоящее время видны, и выбирает первую ячейку ниже видимого диапазона, который не виден. Eg, когда я попробую: Диапазон видимости - A1:BC79, поэтому этот код выбирает A80, прокручивает вниз и вправо, а при повторном запуске показывает, что Excel выбирает первую ячейку, НЕ видимую ниже первого видимого столбца.

Dim r As Range Application.ScreenUpdating = False Set r = Application.ActiveWindow.VisibleRange r(r.Cells.Count + 1).Select Application.ScreenUpdating = True

Единственный ответ - жульничать.

Скрыть столбец A и строку 1

Поместить курсор в A1. В углу B2 будет маленькая точка.

Используй трюк: Добавьте фигуру, затем выберите ее и спрячьте.

Исходный код для этого находится в ответе на другой вопрос на этом сайте.