{"draftJsState":{"blocks":[{"data":{"image":{"id":"655ce87e30c37c773db7a1b3"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Скриншот с моего ноутбука","type":"atomic:image","key":"46msr"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":3,"offset":183,"style":"BOLD"}],"text":"Язык программирования VBA предоставляет возможность использования методов, заимствованных из различных файлов, не связанных с Excel или VBA. Примером таких файлов являются библиотеки DLL (Dynamic Link Library - динамически подключаемые библиотеки), используемые операционной системой Windows и другими приложениями. Это открывает перед VBA возможность выполнять операции, выходящие за рамки стандартных функциональностей языка.","type":"unstyled","key":"bshju"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":11,"offset":0,"style":"BOLD"},{"length":12,"offset":223,"style":"BOLD"},{"length":7,"offset":251,"style":"BOLD"},{"length":3,"offset":319,"style":"BOLD"}],"text":"Windows API (Application Programming Interface - интерфейс прикладного программирования) представляет собой набор функций, доступных для программистов в среде Windows. Вызывая эти функции из VBA, мы фактически обращаемся к Windows API. Многие ресурсы Windows, используемые системными программистами, находятся в файлах DLL, где хранятся подпрограммы и функции, подключаемые в процессе выполнения модуля, а не во время компиляции.","type":"unstyled","key":"7fkn6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":11,"offset":8,"style":"BOLD"},{"length":25,"offset":22,"style":"BOLD"}],"text":"Функции Windows API и 64-разрядная версия Excel","type":"blockquote","key":"fvt6b"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":10,"offset":17,"style":"BOLD"},{"length":2,"offset":80,"style":"BOLD"},{"length":2,"offset":86,"style":"BOLD"},{"length":11,"offset":171,"style":"BOLD"}],"text":"С началом версии Excel 2010 разработчикам VBA необходимо учитывать особенности 32- и 64-разрядных выпусков. Для обеспечения совместимости с обеими версиями Excel функции Windows API следует объявлять дважды, используя соответствующие директивы компилятора.","type":"blockquote","key":"1aehv"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":2,"offset":44,"style":"BOLD"},{"length":2,"offset":105,"style":"BOLD"}],"text":"Например, следующее объявление совместимо с 32-разрядными версиями Excel, но вызовет ошибку компиляции в 64-разрядных версиях:","type":"blockquote","key":"arnu8"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":108,"offset":0,"style":"BOLD"}],"text":"Declare Function GetWindowsDirectoryA Lib \"kernel32\" (ByVal lpBuffer As String, ByVal nSize As Long) As Long","type":"blockquote","key":"f4vjm"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":57,"style":"BOLD"},{"length":7,"offset":87,"style":"BOLD"},{"length":2,"offset":128,"style":"BOLD"}],"text":"В большинстве случаев достаточно добавить ключевое слово PtrSafe после ключевого слова Declare для обеспечения совместимости с 64-разрядной версией Excel:","type":"blockquote","key":"5735m"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":116,"offset":0,"style":"BOLD"}],"text":"Declare PtrSafe Function GetWindowsDirectoryA Lib \"kernel32\" (ByVal lpBuffer As String, ByVal nSize As Long) As Long","type":"blockquote","key":"a60l4"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Однако следует помнить, что это не будет распознано в более ранних версиях Excel, таких как Excel 2007.","type":"blockquote","key":"a7hh"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":3,"offset":11,"style":"BOLD"}],"text":"Объявление API-функции и ее использование","type":"header-three","key":"lv2n"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":11,"offset":32,"style":"BOLD"},{"length":11,"offset":175,"style":"BOLD"},{"length":7,"offset":212,"style":"BOLD"}],"text":"Прежде чем использовать функцию Windows API, ее следует объявить вверху программного модуля. Если это нестандартный модуль VBA (например, модуль UserForm, Лист или ЭтаКнига), API-функцию необходимо объявить, как Private.","type":"unstyled","key":"efa3h"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":11,"offset":0,"style":"BOLD"},{"length":11,"offset":163,"style":"BOLD"}],"text":"API-функция должна быть объявлена максимально точно, включая имя используемой функции, библиотеку, в которой она находится, и аргументы функции. После объявления, API-функцию можно использовать в программе VBA.","type":"unstyled","key":"3m6qp"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Сбои при использовании функций Windows API в VBA могут возникнуть, поэтому рекомендуется сохранять работу перед тестированием.","type":"blockquote","key":"arinu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Пример использования функции GetKeyState","type":"header-three","key":"7pus1"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":5,"offset":131,"style":"BOLD"},{"length":5,"offset":193,"style":"BOLD"},{"length":11,"offset":219,"style":"BOLD"},{"length":11,"offset":231,"style":"BOLD"},{"length":5,"offset":362,"style":"BOLD"}],"text":"Допустим, вы написали макрос VBA, который будет выполняться по-разному, в зависимости от того, удерживает ли пользователь клавишу при нажатии кнопки. Для распознавания нажатия клавиши можно использовать API-функцию GetKeyState. Эта функция сообщает о состоянии конкретной клавиши, и ее можно использовать для определения, была ли нажата клавиша в момент вызова функции.","type":"unstyled","key":"btfsu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":11,"offset":64,"style":"BOLD"}],"text":"Приведенный ниже код демонстрирует пример использования функции GetKeyState:","type":"unstyled","key":"ao9f8"},{"data":{"image":{"id":"655ce95089a576758417e969"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Скриншот с моего ноутбука","type":"atomic:image","key":"dr2nl"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":8,"offset":40,"style":"BOLD"},{"length":5,"offset":68,"style":"BOLD"},{"length":11,"offset":86,"style":"BOLD"},{"length":5,"offset":168,"style":"BOLD"}],"text":"В данном примере используется константа VK_SHIFT для кода клавиши , и функция GetKeyState возвращает значение, которое позволяет определить, нажата ли клавиша .","type":"unstyled","key":"6prco"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":5,"offset":24,"style":"BOLD"}],"text":"При не нажатой клавиши и нажатии кнопки запуска макроса, выглядит так:","type":"unstyled","key":"3j24m"},{"data":{"image":{"id":"655ce9674167a92cc42bab48"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Скриншот с моего ноутбука","type":"atomic:image","key":"9k885"},{"data":{},"depth":0,"entityRanges":[{"key":0,"length":9,"offset":41}],"inlineStyleRanges":[{"length":10,"offset":41,"style":"BOLD"}],"text":"Как назначить макрос на кнопку описано в статье №6.","type":"blockquote","key":"92qc9"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":5,"offset":35,"style":"BOLD"},{"length":4,"offset":44,"style":"BOLD"},{"length":3,"offset":53,"style":"BOLD"}],"text":"Пример определения нажатий клавиш , и ","type":"header-three","key":"danfu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":5,"offset":86,"style":"BOLD"},{"length":4,"offset":95,"style":"BOLD"},{"length":3,"offset":104,"style":"BOLD"},{"length":11,"offset":134,"style":"BOLD"}],"text":"Ниже представлен пример, иллюстрирующий различные способы определения нажатий клавиш , и с использованием вызовов Windows API:","type":"unstyled","key":"btsan"},{"data":{"image":{"id":"655ce9934e1b2229493efb78"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Скриншот с моего ноутбука","type":"atomic:image","key":"5v2iq"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":77,"offset":31,"style":"BOLD"}],"text":"Обратите внимание, что строка: Declare Function GetKeyState Lib \"user32\" (ByVal nVirtKey As Long) As Integer – КРАСНАЯ. Как думаете почему? Но макрос работает!","type":"unstyled","key":"ak67u"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Давайте разберем код:","type":"unstyled","key":"e6qmh"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":23,"offset":0,"style":"BOLD"}],"text":"#If VBA7 And Win64 Then","type":"unordered-list-item","key":"fpq5"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":85,"offset":0,"style":"BOLD"}],"text":"Declare PtrSafe Function GetKeyState Lib \"user32\" (ByVal nVirtKey As Long) As Integer","type":"unordered-list-item","key":"cehqg"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":5,"offset":0,"style":"BOLD"}],"text":"#Else","type":"unordered-list-item","key":"1bljp"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":77,"offset":0,"style":"BOLD"}],"text":"Declare Function GetKeyState Lib \"user32\" (ByVal nVirtKey As Long) As Integer","type":"unordered-list-item","key":"713mt"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":0,"style":"BOLD"}],"text":"#End If","type":"unordered-list-item","key":"9qn2b"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Эта часть кода представляет собой условное компиляционное выражение (`#If...Then...#Else...#End If`), которое проверяет условие `VBA7 And Win64`. Если данное условие истинно, то используется объявление с ключевым словом `PtrSafe`, указывающим, что функция совместима с 64-битной версией VBA. В противном случае используется стандартное объявление функции без `PtrSafe`.","type":"blockquote","key":"hvtn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"' Константы для клавиш","type":"unstyled","key":"a8k7g"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":32,"offset":0,"style":"BOLD"}],"text":"Const КЛ_SHIFT As Integer = &H10","type":"unordered-list-item","key":"3g4lb"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":34,"offset":0,"style":"BOLD"}],"text":"Const КЛ_CONTROL As Integer = &H11","type":"unordered-list-item","key":"18p95"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":44,"offset":0,"style":"BOLD"}],"text":"Const КЛ_ALT As Integer = &H12 ' клавиша Alt","type":"unordered-list-item","key":"ceitn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Здесь определяются константы для клавиш Shift, Control и Alt с их соответствующими значениями. Например, `КЛ_SHIFT` имеет значение `&H10`, что представляет код клавиши Shift.","type":"blockquote","key":"du2qa"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"14sam"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":20,"offset":0,"style":"BOLD"}],"text":"Sub ПроверкаКлавиш()","type":"unordered-list-item","key":"311dg"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":25,"offset":0,"style":"BOLD"}],"text":"Dim TabChar As String * 1","type":"unordered-list-item","key":"ep3b"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":24,"offset":0,"style":"BOLD"}],"text":"Dim CRChar As String * 1","type":"unordered-list-item","key":"76ehm"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":56,"offset":0,"style":"BOLD"}],"text":"Dim Shift As Boolean, Control As Boolean, Alt As Boolean","type":"unordered-list-item","key":"8ue5b"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":17,"offset":0,"style":"BOLD"}],"text":"Dim Msg As String","type":"unordered-list-item","key":"6fsqr"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":16,"offset":0,"style":"BOLD"}],"text":"TabChar = Chr(9)","type":"unordered-list-item","key":"dp2tk"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":16,"offset":0,"style":"BOLD"}],"text":"CRChar = Chr(13)","type":"unordered-list-item","key":"4mdbp"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Здесь создаются переменные `TabChar` и `CRChar`, представляющие символы табуляции и возврата каретки соответственно. Эти символы будут использованы для форматирования сообщения.","type":"blockquote","key":"6ih83"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"7kofm"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"' Использование вызовов Windows API для идентификации нажатых клавиш","type":"unstyled","key":"2aksa"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":65,"offset":0,"style":"BOLD"}],"text":"If GetKeyState(КЛ_SHIFT) < 0 Then Shift = True Else Shift = False","type":"unstyled","key":"6dhu6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":71,"offset":0,"style":"BOLD"}],"text":"If GetKeyState(КЛ_CONTROL) < 0 Then Control = True Else Control = False","type":"unstyled","key":"e881k"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":59,"offset":0,"style":"BOLD"}],"text":"If GetKeyState(КЛ_ALT) < 0 Then Alt = True Else Alt = False","type":"unstyled","key":"3o0k5"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"В этой части кода вызываются функции Windows API с использованием объявленных ранее констант для определения состояния клавиш Shift, Control и Alt. Если клавиша нажата, соответствующей переменной (Shift, Control, Alt) присваивается значение `True`, в противном случае - `False`.","type":"blockquote","key":"fs52q"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"d29tc"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"' Создание сообщения","type":"unstyled","key":"c0mna"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":41,"offset":0,"style":"BOLD"}],"text":"Msg = \"Shift:\" & TabChar & Shift & CRChar","type":"unstyled","key":"6du3g"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":51,"offset":0,"style":"BOLD"}],"text":"Msg = Msg & \"Control:\" & TabChar & Control & CRChar","type":"unstyled","key":"b49kq"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":43,"offset":0,"style":"BOLD"}],"text":"Msg = Msg & \"Alt:\" & TabChar & Alt & CRChar","type":"unstyled","key":"3ug9p"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":3,"offset":25,"style":"BOLD"},{"length":15,"offset":71,"style":"BOLD"},{"length":3,"offset":88,"style":"BOLD"}],"text":"Здесь формируется строка Msg, содержащая информацию о состоянии клавиш Shift, Control и Alt. Символы табуляции и возврата каретки используются для удобного форматирования.","type":"blockquote","key":"cvdsl"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"4l0e3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"' Отображение окна сообщения","type":"unstyled","key":"e3cqd"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":46,"offset":0,"style":"BOLD"}],"text":"MsgBox Msg, vbInformation, \"Состояние клавиши\"","type":"unstyled","key":"b8j96"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":33,"style":"BOLD"},{"length":13,"offset":115,"style":"BOLD"},{"length":17,"offset":189,"style":"BOLD"}],"text":"И, наконец, используется функция MsgBox для отображения окна сообщения с информацией о состоянии клавиш. Параметр `vbInformation` определяет, что окно будет содержать информацию, а строка \"Состояние клавиши\" - заголовок окна.","type":"blockquote","key":"a03oc"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Теперь, как это выглядит:","type":"unstyled","key":"5be2g"},{"data":{"image":{"id":"655cea6c363b62143ff412a5"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Скриншот с моего ноутбука","type":"atomic:image","key":"13kis"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"8oelt"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"marker","key":"Zep16WQExcEbl2fAuSwS"}],"entityMap":{"0":{"data":{"url":"https://dzen.ru/a/ZChCYpZSeB60nXW-"},"mutability":"MUTABLE","type":"LINK"}}},"mentions":[]}