Рабочая тетрадь окр мир 4 кл: ГДЗ по окружающему миру для 4 класса рабочая тетрадь Плешаков Школа России

В этом руководстве я расскажу, как работать с книгами в Excel с использованием VBA.

В Excel «Рабочая книга» — это объект, который является частью коллекции «Рабочие книги». В рабочей книге у вас есть различные объекты, такие как рабочие листы, листы диаграмм, ячейки и диапазоны, объекты диаграмм, фигуры и т. Д.

С помощью VBA вы можете многое сделать с объектом рабочей книги — например, открыть определенную рабочую книгу, сохранить и закрыть рабочие книги, создать новые рабочие книги, изменить свойства рабочей книги и т. Д.

Итак, начнем.

Если вы заинтересованы в изучении VBA простым способом, ознакомьтесь с моим Online Excel VBA Training .

Ссылки на рабочую книгу с использованием VBA

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

Использование имен книг

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

Давайте начнем с простого примера.

Если у вас открыто две рабочие книги и вы хотите активировать рабочую книгу с именем — examples.xlsx, вы можете использовать следующий код:

 Sub ActivateWorkbook ()
Workbooks ( "Examples.xlsx"). Activate
End Sub 

Обратите внимание, что вам нужно использовать имя файла вместе с расширением, если файл был сохранен. Если оно не было сохранено, вы можете использовать имя без расширения файла.

Если вы не уверены, какое имя использовать, обратитесь за помощью в Project Explorer.

Если вы хотите активировать рабочую книгу и выбрать определенную ячейку на рабочем листе в этой рабочей книге, вам необходимо указать полный адрес ячейки (включая рабочую книгу и имя рабочего листа).

 Sub ActivateWorkbook ()
Workbooks ( "Examples.xlsx"). Worksheets ( "Лист1"). Activate
Range ( "A1"). Выберите
End Sub 

Приведенный выше код сначала активирует Sheet1 в рабочей книге examples.xlsx, а затем выбирает ячейку A1 на листе.

Вы часто будете видеть код, где делается ссылка на рабочий лист или ячейку / диапазон без ссылки на рабочую книгу.Это происходит, когда вы ссылаетесь на лист / диапазоны в той же книге, в которой есть код, а также на активную книгу. Однако в некоторых случаях вам необходимо указать рабочую книгу, чтобы убедиться, что код работает (подробнее об этом в разделе ThisWorkbook).

с использованием индексных номеров

Вы также можете ссылаться на рабочие книги на основе их номера индекса.

Например, если у вас открыто три рабочие книги, следующий код покажет вам имена трех рабочих книг в окне сообщения (по одной за раз).

 Sub WorkbookName ()
MsgBox Workbooks (1). Имя
MsgBox Workbooks (2). Имя
MsgBox Workbooks (3). Имя
End Sub 

В приведенном выше коде используется MsgBox — функция, которая отображает окно сообщения с указанным текстом / значением (в данном случае это имя книги).

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

Excel обрабатывает книгу, открытую первой, с индексом 1, а затем 2 и т. Д.

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

Приведенный ниже код будет перебирать все открытые рабочие книги и закрывать все, кроме рабочей книги с этим кодом VBA.

 Sub CloseWorkbooks ()
Dim WbCount As Integer
WbCount = Workbooks.Count
Для я = WbCount To 1 Шаг -1
Если Workbooks (i) .Name <> ThisWorkbook.Name Then
Рабочие книги (я) .close
End If
Далее я
End Sub 

Приведенный выше код подсчитывает количество открытых рабочих книг, а затем просматривает все рабочие книги с помощью цикла For Each.

Он использует условие IF, чтобы проверить, совпадает ли имя рабочей книги с именем рабочей книги, в которой выполняется код.

Если он не совпадает, он закрывает книгу и переходит к следующей.

Обратите внимание, что мы запустили цикл от WbCount до 1 с шагом -1. Это делается, как и в каждом цикле, количество открытых рабочих книг уменьшается.

ThisWorkbook подробно рассматривается в следующем разделе.

Использование ActiveWorkbook

ActiveWorkbook, как следует из названия, относится к активной книге.

Приведенный ниже код покажет вам имя активной рабочей книги.

 Sub ActiveWorkbookName ()
MsgBox ActiveWorkbook.Name
End Sub 

При использовании VBA для активации другой книги часть ActiveWorkbook в VBA после этого начинает ссылаться на активированную книгу.

Вот пример этого.

Если у вас активна рабочая книга, и вы вставили в нее следующий код и запустили его, то сначала будет показано имя рабочей книги с кодом, а затем имя examples.xlsx (которое активируется кодом).

 Sub ActiveWorkbookName ()
MsgBox ActiveWorkbook.Name
Workbooks ( "Examples.xlsx"). Activate
MsgBox ActiveWorkbook.Name
End Sub 

Обратите внимание, что при создании новой рабочей книги с использованием VBA эта вновь созданная рабочая книга автоматически становится активной рабочей книгой.

Использование ThisWorkbook

Эта рабочая книга относится к рабочей книге, в которой выполняется код.

Каждая книга будет иметь объект ThisWorkbook как часть его (видимый в Project Explorer).

«ThisWorkbook» может хранить обычные макросы (аналогичные тем, которые мы добавляем в модули), а также процедуры обработки событий. Процедура события — это то, что запускается на основе события — например, двойной щелчок по ячейке или сохранение рабочей книги или активация рабочей таблицы.

Любая процедура обработки событий, сохраненная в этой «Рабочей книге», будет доступна во всей книге по сравнению с событиями на уровне листов, которые ограничены только конкретными листами.

Например, если дважды щелкнуть объект ThisWorkbook в Project Explorer и скопировать в него приведенный ниже код, он будет отображать адрес ячейки всякий раз, когда вы дважды щелкаете мышью по любой из ячеек во всей книге.

 Private Sub Workbook_SheetBeforeDoubleClick (ByVal Sh As Object, ByVal Target As Range, Cancel, As Boolean)
MsgBox Target.Address
End Sub 

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

Приведенный ниже код вернет имя книги, в которой выполняется код.

 Sub ThisWorkbookName ()
MsgBox ThisWorkbook.Name
End Sub 

Преимущество использования ThisWorkbook (по сравнению с ActiveWorkbook) заключается в том, что он будет ссылаться на одну и ту же книгу (ту, в которой есть код) во всех случаях. Таким образом, если вы используете код VBA для добавления новой книги, ActiveWorkbook изменится, но ThisWorkbook все равно будет ссылаться на ту, в которой есть код.

Создание нового объекта рабочей книги

Следующий код создаст новую книгу.

 Sub CreateNewWorkbook ()
Workbooks.Add
End Sub 

При добавлении новой рабочей книги она становится активной рабочей книгой.

Следующий код добавит новую рабочую книгу, а затем покажет вам имя этой рабочей книги (которое будет именем типа Book1 по умолчанию).

 Sub CreateNewWorkbook ()
Workbooks.Add
MsgBox ActiveWorkbook.Name
End Sub 

Откройте книгу с помощью VBA

Вы можете использовать VBA, чтобы открыть определенную книгу, когда вы знаете путь к файлу книги.

Приведенный ниже код откроет книгу — examples.xlsx, которая находится в папке «Документы» в моей системе.

 Sub OpenWorkbook ()
Workbooks.Open ("C: \ Users \ sumit \ Documents \ examples.xlsx")
End Sub 

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

 Sub OpenWorkbook ()
Workbooks.Open ("examples.xlsx")
End Sub 

Если книга, которую вы пытаетесь открыть, не существует, вы увидите ошибку.

Чтобы избежать этой ошибки, вы можете добавить несколько строк в ваш код, чтобы сначала проверить, существует ли файл или нет, и если он существует, попробуйте открыть его.

Приведенный ниже код будет проверять местоположение файла и, если он не существует, он покажет пользовательское сообщение (не сообщение об ошибке):

 Sub OpenWorkbook ()
If Dir ("C: \ Users \ sumit \ Documents \ examples.xlsx") <> "" Тогда
Workbooks.Open ("C: \ Users \ sumit \ Documents \ examples.xlsx")
еще
MsgBox "Файл не существует"
End If
End Sub 

Вы также можете использовать диалоговое окно Открыть, чтобы выбрать файл, который вы хотите открыть.

 Sub OpenWorkbook ()
При ошибке возобновить следующее
Dim FilePath As String
FilePath = Application.GetOpenFilename
Workbooks.Open (FilePath)
End Sub 

Приведенный выше код открывает диалоговое окно Открыть. Когда вы выбираете файл, который хотите открыть, он назначает путь к переменной FilePath. Затем Workbooks.Open использует путь к файлу, чтобы открыть файл.

Если пользователь не открывает файл и нажимает кнопку «Отмена», FilePath становится False. Чтобы избежать ошибки в этом случае, мы использовали оператор «On Error Resume Next».

Сохранение рабочей книги

Чтобы сохранить активную книгу, используйте код ниже:

 Sub SaveWorkbook ()
ActiveWorkbook.Save
End Sub 

Этот код работает для книг, которые уже были сохранены ранее. Кроме того, поскольку рабочая книга содержит вышеуказанный макрос, если он не был сохранен как файл .xlsm (или .xls), вы потеряете макрос при следующем открытии.

Если вы сохраняете книгу впервые, она покажет вам приглашение, как показано ниже:

При первом сохранении лучше использовать опцию «Сохранить».

Приведенный ниже код сохранит активную книгу в виде файла .xlsm в папке по умолчанию (которая является папкой документов в моей системе).

 Sub SaveWorkbook ()
ActiveWorkbook.SaveAs Имя файла: = "Test.xlsm", FileFormat: = xlOpenXMLWorkbookMacroEnabled
End Sub 

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

 Sub SaveWorkbook ()
ActiveWorkbook.Имя файла SaveAs: = "C: \ Users \ sumit \ Desktop \ Test.xlsm", FileFormat: = xlOpenXMLWorkbookMacroEnabled
End Sub 

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

 Sub SaveWorkbook ()
Dim FilePath As String
FilePath = Application.GetSaveAsFilename
ActiveWorkbook.SaveAs Имя файла: = FilePath & ".XLSM», FileFormat: = xlOpenXMLWorkbookMacroEnabled
End Sub 

Обратите внимание, что вместо использования FileFormat: = xlOpenXMLWorkbookMacroEnabled вы также можете использовать FileFormat: = 52, где 52 — это код xlOpenXMLWorkbookMacroEnabled.

Сохранение всех открытых рабочих книг

Если у вас открыто более одной рабочей книги и вы хотите сохранить все рабочие книги, используйте следующий код:

 Sub SaveAllWorkbooks ()
Dim wb As Workbook
Для каждого wb в книгах
wb.Save
Следующая ВБ
End Sub 

Выше сохранены все рабочие книги, включая те, которые никогда не были сохранены.Книги, которые не были сохранены ранее, будут сохранены в расположении по умолчанию.

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

 Sub SaveAllWorkbooks ()
Dim wb As Workbook
Для каждого wb в книгах
Если wb.Path <> "" Тогда
wb.Save
End If
Следующая ВБ
End Sub 

Сохранение и закрытие всех рабочих книг

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

 Sub Close и SaveWorkbooks ()
Dim wb As Workbook
Для каждого wb в книгах
Если wb.Name <> ThisWorkbook.Name Then
wb.Close SaveChanges: = True
End If
Следующая ВБ
End Sub 

Приведенный выше код закроет все рабочие книги (кроме рабочей книги с кодом — ThisWorkbook). Если в этих книгах есть изменения, они будут сохранены. В случае, если есть книга, которая никогда не была сохранена, в ней отобразится диалоговое окно «Сохранить как».

Сохранить копию рабочей книги (с отметкой времени)

Когда я работаю со сложными данными и панелью мониторинга в книгах Excel, я часто создаю разные версии своих книг.Это полезно в случае, если что-то пойдет не так с моей текущей книгой. Я бы по крайней мере сохранил копию этого файла под другим именем (и потерял бы только ту работу, которую сделал после создания копии).

Вот код VBA, который создаст копию вашей рабочей книги и сохранит ее в указанном месте.

 Sub CreateaCopyofWorkbook ()
ThisWorkbook.SaveCopyAs Filename: = "C: \ Users \ sumit \ Desktop \ BackupCopy.xlsm"
End Sub 

Приведенный выше код будет сохранять копию вашей книги при каждом запуске этого макроса.

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

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

 Private Sub Workbook_BeforeSave (ByVal SaveAsUI как логическое значение, отмена как логическое значение)
ThisWorkbook.SaveCopyAs Имя файла: = "C: \ Users \ sumit \ Desktop \ BackupCopy" & Format (Now (), "dd-mm-yy-hh-mm-ss-AMPM") & ".xlsm"
End Sub 

Приведенный выше код будет создавать копию при каждом запуске этого макроса и добавлять метку даты / времени к имени книги.

Создать новую рабочую книгу для каждого рабочего листа

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

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

Или, если у вас есть отчеты по отделам, и вы хотите разделить их на отдельные рабочие книги, чтобы вы могли отправить эти отдельные рабочие книги руководителям отделов.

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

 Sub CreateWorkbookforWorksheets ()
Dim ws As Worksheet
Dim wb As Workbook
Для каждого ws В ThisWorkbook.Worksheets
Set wb = Workbooks.Add
ws.Copy Before: = wb.Sheets (1)
Application.DisplayAlerts = False
wb.Sheets (2) .Delete
Application.DisplayAlerts = True
wb.SaveAs "C: \ Users \ sumit \ Desktop \ Test \" & ws.Name & ".xlsx"
wb.Close
Следующий ws
End Sub 

В приведенном выше коде мы использовали две переменные «ws» и «wb».

Код проходит через каждый лист (используя цикл «Для каждого следующего») и создает для него книгу.Он также использует метод копирования объекта листа для создания копии листа в новой книге.

Обратите внимание, что я использовал инструкцию SET, чтобы назначить переменную «wb» любой новой книге, созданной кодом.

Этот метод можно использовать для назначения объекта рабочей книги переменной. Это описано в следующем разделе.

Присвоить объект рабочей книги переменной

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

Например, в приведенном ниже коде я использую VBA для добавления новой книги, а затем назначаю эту книгу переменной wb. Для этого мне нужно использовать оператор SET.

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

 Sub AssigntoVariable ()
Dim wb As Workbook
Set wb = Workbooks.Add
wb.SaveAs Имя файла: = "C: \ Users \ sumit \ Desktop \ examples.xlsx"
End Sub 

Обратите внимание, что первым шагом в коде является объявление «wb» в качестве переменной типа книги.Это говорит VBA, что эта переменная может содержать объект книги.

Следующий оператор использует SET, чтобы назначить переменную новой книге, которую мы добавляем. Как только это назначение выполнено, мы можем использовать переменную wb для сохранения книги (или сделать что-нибудь еще с ней).

Цикл по открытым книгам

Мы уже видели несколько примеров кодов выше, которые использовали зацикливание в коде.

В этом разделе я объясню различные способы просмотра открытых книг с помощью VBA.

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

 Sub Close и SaveWorkbooks ()
Dim wb As Workbook
Для каждого wb в книгах
Если wb.Name <> ThisWorkbook.Name Тогда
wb.Close SaveChanges: = True
End If
Следующая ВБ
End Sub 

Приведенный выше код использует цикл For Each для просмотра каждой рабочей книги в коллекции Workbooks. Для этого сначала нужно объявить «wb» как переменную типа книги.

В каждом цикле цикла анализируется каждое имя рабочей книги, и если оно не совпадает с именем рабочей книги с кодом, оно закрывается после сохранения содержимого.

То же самое может быть достигнуто с другой петлей, как показано ниже:

 Sub CloseWorkbooks ()
Dim WbCount As Integer
WbCount = Workbooks.Count
Для я = WbCount To 1 Шаг -1
Если Workbooks (i) .Name <> ThisWorkbook.Name Then
Рабочие книги (i). Закрыть SaveChanges: = True
End If
Далее я
End Sub 

Приведенный выше код использует цикл For Next для закрытия всех книг, кроме той, в которой есть код.В этом случае нам не нужно объявлять переменную рабочей книги, но вместо этого нам нужно подсчитать общее количество открытых рабочих книг. Когда у нас есть счетчик, мы используем цикл For Next для просмотра каждой книги. Также в этом случае мы используем индексный номер для ссылки на рабочие книги.

Обратите внимание, что в приведенном выше коде мы переходим от WbCount к 1 с шагом -1. Это необходимо, так как при каждом цикле рабочая книга закрывается, а количество рабочих книг уменьшается на 1.

Ошибка при работе с объектом книги (ошибка времени выполнения ‘9’)

Одной из наиболее распространенных ошибок, с которыми вы можете столкнуться при работе с книгами, является — Ошибка времени выполнения «9» — Индекс вне диапазона.

Как правило, ошибки VBA не очень информативны и часто позволяют вам выяснить, что пошло не так.

Вот некоторые из возможных причин, которые могут привести к этой ошибке:

• Книга, к которой вы пытаетесь обратиться, не существует. Например, если я пытаюсь получить доступ к пятой книге с помощью Workbooks (5), а открыто только 4 книги, я получу эту ошибку.
• Если вы используете неправильное имя для ссылки на рабочую книгу.Например, если имя вашей рабочей книги — examples.xlsx и вы используете Example.xlsx. тогда он покажет вам эту ошибку.
• Если вы не сохранили рабочую книгу и используете расширение, вы получите эту ошибку. Например, если имя вашей книги — Book1, и вы используете имя Book1.xlsx без его сохранения, вы получите эту ошибку.
• Книга, к которой вы пытаетесь получить доступ, закрыта.

Получить список всех открытых рабочих книг

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

 Sub GetWorkbookNames ()
Dim wbcount As Integer
wbcount = рабочие книги.подсчитывать
ThisWorkbook.Worksheets.Add
ActiveSheet.Range ( "A1"). Activate
Для i = 1 до wccount
Диапазон («А1»). Смещение (i - 1, 0). Значение = рабочие книги (i). Имя
Далее я
End Sub 

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

Если вы также хотите получить путь к файлу, вы можете использовать следующий код:

 Sub GetWorkbookNames ()
Dim wbcount As Integer
wbcount = Workbooks.Count
ThisWorkbook.Worksheets.Add
ActiveSheet.Range ( "A1"). Activate
Для i = 1 до wccount
Диапазон («А1»). Смещение (i - 1, 0). Значение = рабочие книги (i). Путь и «\» и рабочие книги (i). Имя
Далее я
End Sub 

Откройте указанную книгу, дважды щелкнув по ячейке

.

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

 Private Sub Workbook_SheetBeforeDoubleClick (ByVal Sh As Object, ByVal Target As Range, Cancel, As Boolean)
Workbooks.Открыть Target.Value
End Sub 

Этот код будет помещен в окно кода ThisWorkbook.

Для этого:

• Дважды щелкните объект ThisWorkbook в проводнике проекта. Обратите внимание, что объект ThisWorkbook должен находиться в книге, где вы хотите эту функцию.
• Скопируйте и вставьте вышеуказанный код.

Теперь, если у вас есть точный путь к файлам, которые вы хотите открыть, вы можете сделать это, просто дважды щелкнув по пути к файлу, и VBA мгновенно откроет эту книгу.

Где поставить код VBA

Хотите знать, где код VBA идет в вашей книге Excel?

У

Excel есть бэкэнд VBA, называемый редактором VBA. Вам нужно скопировать и вставить код в окно кода модуля VB Editor.

Вот шаги для этого:

1. Перейдите на вкладку Разработчик.
2. Нажмите на опцию Visual Basic. Это откроет редактор VB в бэкэнде.
3. На панели Project Explorer в редакторе VB щелкните правой кнопкой мыши любой объект для книги, в которую вы хотите вставить код.Если вы не видите Project Explorer, перейдите на вкладку View и щелкните Project Explorer.
4. Перейти к Вставить и нажмите на модуль. Это вставит объект модуля для вашей книги.
5. Скопируйте и вставьте код в окно модуля.

Вам также могут понравиться следующие учебные пособия по Excel VBA:

,

Worksheet.Cells свойство (Excel) | Microsoft Docs

• 30.05.2009
• 2 минуты, чтобы прочитать

В этой статье

Возвращает объект Range , представляющий все ячейки на рабочем листе (а не только те, которые используются в данный момент).

Синтаксис

выражение . Ячейки

выражение Переменная, представляющая объект Worksheet .

Замечания

Поскольку элемент по умолчанию Range перенаправляет вызовы с параметрами в свойство Item , вы можете указать индекс строки и столбца сразу после ключевого слова Cells вместо явного вызова Item .

Использование этого свойства без квалификатора объекта возвращает объект диапазона , который представляет все ячейки активной рабочей таблицы.

Пример

В этом примере устанавливается размер шрифта для ячейки C5 на листе 1 активной рабочей книги в 14 пунктов.

  Рабочие листы ("Лист1"). Ячейки (5, 3) .ont.Size = 14
  

Этот пример очищает формулу в первой ячейке на Листе 1 активной рабочей книги.

  Рабочие листы ("Sheet1"). Ячейки (1) .ClearContents
  

Этот пример устанавливает шрифт и размер шрифта для каждой ячейки на Листе 1 в Arial с 8 точками.

  с рабочими листами («Лист1»).Cells.Font
    .Name = "Arial"
    .Size = 8
Конец с
  

Этот пример переключает сортировку между возрастающим и убывающим порядком при двойном щелчке по любой ячейке в диапазоне данных. Данные отсортированы по столбцу ячейки, по которому дважды щелкнули.

  Опция Явная
Public blnToggle As Boolean

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Отменить как Boolean)
    Dim LastColumn As Long, keyColumn As Long, LastRow As Long
    Dim SortRange As Range
    LastColumn = Cells.Find (What: = "*", After: = Range ("A1"), SearchOrder: = xlByColumns, SearchDirection: = xlPrevious) .Column
    
    keyColumn = Target.Column
    
    If keyColumn <= LastColumn Then
    
        Application.ScreenUpdating = False
        Отмена = True
        LastRow = Cells (Rows.Count, keyColumn) .End (xlUp) .Row
        Set SortRange = Target.CurrentRegion
        
        blnToggle = не blnToggle
        Если blnToggle = True, то
            SortRange.Sort Key1: = Cells (2, keyColumn), Order1: = xlAscending, Header: = xlYes
        еще
            SortRange.Сортировка Key1: = Ячейки (2, keyColumn), Порядок1: = xlDescending, Заголовок: = xlYes
        End If
    
        Set SortRange = Nothing
        Application.ScreenUpdating = True
        
    End If
End Sub
  

Этот пример просматривает столбец C активного листа и для каждой ячейки, в которой есть комментарий, помещает текст комментария в столбец D и удаляет комментарий из столбца C.

  Public Sub SplitCommentsOnActiveSheet ()
   'Настройте свои переменные
   Dim cmt как комментарий
   Dim rowIndex As Integer
   
   Просмотрите все ячейки в столбце C и проверьте, есть ли в ячейке комментарий.Для rowIndex = 1 To WorksheetFunction.CountA (Columns (3))
      Установите cmt = Cells (rowIndex, 3) .Comment
      Если не смт ничего
      
         «Если есть комментарий, вставьте текст комментария в столбец D и удалите исходный комментарий.
         Ячейки (rowIndex, 4) = Ячейки (rowIndex, 3) .Comment.Text
         Ячейки (rowIndex, 3). Коммент. Удалить
      End If
   следующий
End Sub
  

Поддержка и обратная связь

Есть вопросы или отзывы о Office VBA или этой документации? Пожалуйста, ознакомьтесь с поддержкой и отзывами Office VBA, чтобы узнать, как можно получить поддержку, и оставить отзыв.

,Excel