Очистка всего, кроме формул

Рони хочет очистить все на листе, кроме ячеек, которые могут содержать формулы. Эту задачу можно выполнить вручную или с помощью макроса.

Если вы хотите выполнить очистку вручную, вы можете выполнить следующие действия:

  1. Нажмите F5 . Excel отображает диалоговое окно “Перейти”. (См. Рис. 1.)
  2. Рис. 1. Диалоговое окно “Перейти”.

  3. Нажмите кнопку “Специальная”. Excel отображает диалоговое окно «Перейти к специальному». (См. Рис. 2.)
  4. Рисунок 2. Диалоговое окно «Перейти к специальному».

  5. Установите переключатель «Константы». После этого станут доступны четыре флажка под параметром Формулы. (Это может немного сбивать с толку. Почему Microsoft установила переключатель «Константы» для управления некоторыми флажками под другим переключателем, непонятно сразу.)
  6. Убедитесь, что все флажки под переключателем «Формулы» кнопка выбрана. (Они должны быть выбраны по умолчанию.)
  7. Нажмите “ОК”. Excel выбирает все константы (ячейки, не содержащие формул) на листе.
  8. Нажмите клавишу Del .

Это отлично работает, если вам нужно только время от времени очищать содержимое листа, не являющееся формулами. Если вам нужно делать это чаще, вы можете просто использовать макрорекордер для записи вышеуказанных шагов. Или, если хотите, вы можете создать свой собственный макрос с нуля, например следующий:

 Sub ClearAllButFormulas () Dim wks As Worksheet 'игнорировать ошибки в случае, если есть только формулы On Error Resume  Далее для каждой недели в рабочих таблицах wks.Cells.SpecialCells (xlCellTypeConstants) .ClearContents Далее при ошибке GoTo 0 Установить wks = NothingEnd Sub 

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

При использовании этого макроса следует проявлять осторожность. Перед запуском этого макроса убедитесь, что вы действительно хотите очистить все, кроме ячеек, содержащих формулы, на листе или в книге. Было бы обидно случайно избавиться от содержимого ячеек, которое вам действительно нужно было сохранить. Если вы немного брезгливо относитесь к такой возможности, вы можете использовать следующую версию макроса:

 Sub ClearAllButFormulas2 () Dim wks As Worksheet Dim sTemp As String Dim iCheck As Integer sTemp =  "Этот макрос удаляет все в текущей книге" sTemp = sTemp & ", кроме формул. После выполнения" sTemp = sTemp & "его нельзя будет отменить.. "& vbCrLf & vbCrLf sTemp = sTemp &" Вы уверены, что хотите продолжить? "iCheck = MsgBox (sTemp, vbYesNo + vbExclamation," Внимание! ") Если iCheck = vbYes Тогда 'игнорировать ошибки, если есть только формулы On Error  Продолжить далее для каждой недели В рабочих таблицах wks.Cells.SpecialCells (xlCellTypeConstants) .ClearContents Далее при ошибке GoTo 0 Else MsgBox «Операция отменена.» End IfEnd Sub 

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

Оцените статью
Frestage.ru
Добавить комментарий