Π Π°Π·Π½ΠΎΠ΅

Кнопка для макроса excel: Как ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ ΠΊΠ½ΠΎΠΏΠΊΡƒ Π² Excel с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ макроса ΠΈ гипСрссылки

Π‘ΠΎΠ΄Π΅Ρ€ΠΆΠ°Π½ΠΈΠ΅

Кнопка для Π²Ρ‹Π·ΠΎΠ²Π° макроса Π² Excel

Кнопка для Π²Ρ‹Π·ΠΎΠ²Π° макроса Π² Excel

Π”ΠΎΠ±Ρ€Ρ‹ΠΉ дСнь, ΡƒΠ²Π°ΠΆΠ°Π΅ΠΌΡ‹Π΅ Ρ‡ΠΈΡ‚Π°Ρ‚Π΅Π»ΠΈ ΠΈ подписчики Π±Π»ΠΎΠ³Π°! Как слСдуСт ΠΈΠ· Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ°, сСгодня Ρ€Π΅Ρ‡ΡŒ ΠΏΠΎΠΉΠ΄Ρ‘Ρ‚ ΠΎ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΎΠΊ для Π²Ρ‹Π·ΠΎΠ²Π° макроса. Вопрос, Π½Π° ΠΌΠΎΠΉ взгляд, простой, Π½ΠΎ послС получСния Π½Π΅ΡΠΊΠΎΠ»ΡŒΠΊΠΈΡ… дСсятков вопросов Π½Π° эту Ρ‚Π΅ΠΌΡƒ, Ρ€Π΅ΡˆΠΈΠ» Π½Π°ΠΏΠΈΡΠ°Ρ‚ΡŒ ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½Ρ‹ΠΉ пост.

Π’ ΠΏΡ€ΠΎΡˆΠ»Ρ‹Ρ… ΡΡ‚Π°Ρ‚ΡŒΡΡ… этот вопрос рассматривался вскользь. Π’Π΅ΠΏΠ΅Ρ€ΡŒ рассмотрим Π΅Π³ΠΎ Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ΄Ρ€ΠΎΠ±Π½ΠΎ ΠΈ ΠΎΠ±ΡΡ‚ΠΎΡΡ‚Π΅Π»ΡŒΠ½ΠΎ.

Β 

Π’Ρ‹Π·Ρ‹Π²Π°Ρ‚ΡŒ макросы Π² Excel ΠΌΠΎΠΆΠ½ΠΎ нСсколькими способами (СстСствСнно, макросы Π΄ΠΎΠ»ΠΆΠ½Ρ‹ Π±Ρ‹Ρ‚ΡŒ Π² ΠΊΠ½ΠΈΠ³Π΅):

  • вставкой ΠΊΠ½ΠΎΠΏΠΊΠΈ;
  • сочСтаниСм клавиш;
  • вставкой Π°Π²Ρ‚ΠΎΡ„ΠΈΠ³ΡƒΡ€Ρ‹;
  • вставкой рисунка.

Β 

Вставка ΠΊΠ½ΠΎΠΏΠΊΠΈ.

ΠŸΠ΅Ρ€Π΅Ρ…ΠΎΠ΄ΠΈΠΌ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡƒ «Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ», Π² Π±Π»ΠΎΠΊΠ΅ ΠΊΠ½ΠΎΠΏΠΎΠΊ «Π­Π»Π΅ΠΌΠ΅Π½Ρ‚Ρ‹ управлСния» Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ «Π’ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ», Π² появившСмся спискС Π²Ρ‹Π±ΠΈΡ€Π°Π΅ΠΌ Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ «ΠšΠ½ΠΎΠΏΠΊΠ°».

Β 

Π’ Π²Ρ‹ΠΏΠ°Π²ΡˆΠ΅ΠΌ спискС Π΅ΡΡ‚ΡŒ Π΄Π²Π° Π²Π°Ρ€ΠΈΠ°Π½Ρ‚Π°: ΠΊΠ½ΠΎΠΏΠΊΠ° ΠΊΠ°ΠΊ элСмСнт управлСния Ρ„ΠΎΡ€ΠΌΡ‹ ΠΈ ΠΊΠ°ΠΊ элСмСнт ActiveX. Π’ ΠΏΡ€ΠΈΠ½Ρ†ΠΈΠΏΠ΅, большой Ρ€Π°Π·Π½ΠΈΡ†Ρ‹ Π² Π²Ρ‹Π±ΠΎΡ€Π΅ ΠΊΠ½ΠΎΠΏΠΎΠΊ Π½Π΅Ρ‚, Ρ‚Π°ΠΊ Ρ‡Ρ‚ΠΎ Π²ΠΎΠ·ΡŒΠΌΡ‘ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡƒ ΠΈΠ· Π±Π»ΠΎΠΊΠ° «Π­Π»Π΅ΠΌΠ΅Π½Ρ‚Ρ‹ управлСния Ρ„ΠΎΡ€ΠΌΡ‹».

ПослС Ρ‰Π΅Π»Ρ‡ΠΊΠ° Π½ΠΈΡ‡Π΅Π³ΠΎ Π½Π΅ ΠΏΡ€ΠΎΠΈΠ·ΠΎΠΉΠ΄Ρ‘Ρ‚, Ρ‚Π°ΠΊ ΠΊΠ°ΠΊ Π½ΡƒΠΆΠ½ΠΎ ΡƒΠΊΠ°Π·Π°Ρ‚ΡŒ мСсто для нашСй ΠΊΠ½ΠΎΠΏΠΊΠΈ (простым Π²Ρ‹Π΄Π΅Π»Π΅Π½ΠΈΠ΅ΠΌ). На рисункС Π½ΠΈΠΆΠ΅ Π±ΡƒΠ΄ΡƒΡ‚ Π΄Π²Π° Π²Π°Ρ€ΠΈΠ°Π½Ρ‚Π° ΠΊΠ½ΠΎΠΏΠΎΠΊ.

Β 

Β 

ΠŸΠ΅Ρ€Π²Ρ‹ΠΉ — это ΠΊΠ½ΠΎΠΏΠΊΠ° управлСния Ρ„ΠΎΡ€ΠΌΡ‹, Π²Ρ‚ΠΎΡ€ΠΎΠΉΒ  — ΠΊΠ½ΠΎΠΏΠΊΠ° управлСния ActiveX.

ΠžΡ‚Π»ΠΈΡ‡ΠΈΠ΅ — Π² Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠΈ Π²Ρ‹Π·ΠΎΠ²Π° макроса. Π’ ΠΏΠ΅Ρ€Π²ΠΎΠΌ случаС Π½ΡƒΠΆΠ½ΠΎ Ρ‰Ρ‘Π»ΠΊΠ½ΡƒΡ‚ΡŒ ΠΏΡ€Π°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΈ Π²Ρ‹Π±Ρ€Π°Ρ‚ΡŒ «ΠΠ°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ макрос…», Π²ΠΎ Π²Ρ‚ΠΎΡ€ΠΎΠΌ просто ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ Π΄Π²ΠΎΠΉΠ½ΠΎΠΉ Ρ‰Π΅Π»Ρ‡ΠΎΠΊ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΈ Π΄ΠΎΠΏΠΈΡΠ°Ρ‚ΡŒ Π²Ρ‹Π·ΠΎΠ² макроса. Π’ ΠΌΠΎΡ‘ΠΌ случаС это «Call DF».

Β 

Β 

Β 

Π‘ΠΎΡ‡Π΅Ρ‚Π°Π½ΠΈΠ΅ клавиш

Π‘ сочСтаниСм клавиш всё Π³ΠΎΡ€Π°Π·Π΄ΠΎ ΠΏΡ€ΠΎΡ‰Π΅. ΠŸΠ΅Ρ€Π΅Ρ…ΠΎΠ΄ΠΈΠΌ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡƒ «Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ», Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡƒ «ΠœΠ°ΠΊΡ€ΠΎΡΡ‹», Π² Π²Ρ‹ΠΏΠ°Π²ΡˆΠ΅ΠΌ ΠΎΠΊΠ½Π΅ Π²Ρ‹Π±ΠΈΡ€Π°Π΅ΠΌ макрос (DF), Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡƒ «ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹» ΠΈ Π½Π°Π·Π½Π°Ρ‡Π°Π΅ΠΌ сочСтаниС клавиш. Как ΠΏΡ€Π°Π²ΠΈΠ»ΠΎ это сочСтаниС с клавишСй Ctrl. Для Π²Ρ‹Π·ΠΎΠ²Π° макроса Π½ΡƒΠΆΠ½ΠΎ просто Π½Π°ΠΆΠ°Ρ‚ΡŒ Π½Π°Π·Π½Π°Ρ‡Π΅Π½Π½Ρ‹Π΅ клавиши.

Β 

Β 

Автофигура

ΠŸΠ΅Ρ€Π΅Ρ…ΠΎΠ΄ΠΈΠΌ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡƒ «Π’ставка», Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡƒ «Π˜Π»Π»ΡŽΡΡ‚Ρ€Π°Ρ†ΠΈΠΈ», Π² Π²Ρ‹ΠΏΠ°Π²ΡˆΠ΅ΠΌ спискС Π²Ρ‹Π±ΠΈΡ€Π°Π΅ΠΌ «Π€ΠΈΠ³ΡƒΡ€Ρ‹» ΠΈ Π²Ρ‹Π±ΠΈΡ€Π°Π΅ΠΌ Ρ„ΠΈΠ³ΡƒΡ€Ρƒ, ΠΊΠΎΡ‚ΠΎΡ€ΡƒΡŽ Ρ…ΠΎΡ‚ΠΈΠΌ Π²ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ. ПослС Π²Ρ‹Π±ΠΎΡ€Π° Ρ„ΠΈΠ³ΡƒΡ€Ρ‹ Π½Π΅ Π·Π°Π±Ρ‹Π²Π°Π΅ΠΌ Ρ‰Ρ‘Π»ΠΊΠ½ΡƒΡ‚ΡŒ ΠΏΠΎ листу, ΠΊΠ°ΠΊ ΠΈ Π² случаС с ΠΊΠ½ΠΎΠΏΠΊΠ°ΠΌΠΈ.

Β 

Β 

Π”Π°Π»Π΅Π΅, Ρ‰Ρ‘Π»ΠΊΠ°Π΅ΠΌ ΠΏΡ€Π°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΊΠΈ ΠΏΠΎ Ρ„ΠΈΠ³ΡƒΡ€Π΅ ΠΈ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌ ΠΏΡƒΠ½ΠΊΡ‚ «ΠΠ°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ макрос…» ΠΊΠ°ΠΊ ΠΈ Π² ΠΊΠ½ΠΎΠΏΠΊΠ°Ρ…. Π’Ρ‹Π±ΠΈΡ€Π°Π΅ΠΌ наш макрос ΠΈ ΠΆΠΌΡ‘ΠΌ «OK».

Β 

Β 

Β 

Рисунок

Β 

Π‘ рисунками Ρ‚Π° ΠΆΠ΅ ситуация, Ρ‡Ρ‚ΠΎ ΠΈ с Ρ„ΠΈΠ³ΡƒΡ€Π°ΠΌΠΈ. ΠŸΠΎΡΡ‚ΠΎΠΌΡƒ ΠΏΠΎΠ²Ρ‚ΠΎΡ€ΡΡ‚ΡŒ порядок дСйствий Π½Π΅ Π±ΡƒΠ΄Ρƒ. ВмСсто «Π€ΠΈΠ³ΡƒΡ€Ρ‹» Π½ΡƒΠΆΠ½ΠΎ Π²Ρ‹Π±Ρ€Π°Ρ‚ΡŒ «Π ΠΈΡΡƒΠ½ΠΊΠΈ» ΠΈ ΡƒΠΊΠ°Π·Π°Ρ‚ΡŒ ΠΏΡƒΡ‚ΡŒ ΠΊ Π»ΡŽΠ±ΠΎΠΌΡƒ рисунку Π½Π° вашСм ПК.

Β 

Π”Π°Π»Π΅Π΅ снова Ρ‰Ρ‘Π»ΠΊΠ°Π΅ΠΌ ΠΏΡ€Π°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΊΠΈ ΠΈ Π²Ρ‹Π±ΠΈΡ€Π°Π΅ΠΌ «ΠΠ°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ макрос», Π²Ρ‹Π±ΠΈΡ€Π°Π΅ΠΌ Π½ΡƒΠΆΠ½Ρ‹ΠΉ Π½Π°ΠΌ ΠΈ Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ «ΠžΠš».

Β 

Π’ ΠΈΡ‚ΠΎΠ³Π΅ Ρƒ нас появится ΠΊΠ½ΠΈΠ³Π° ExcelΒ  с Ρ‡Π΅Ρ‚Ρ‹Ρ€ΡŒΠΌΡ Π²Π°Ρ€ΠΈΠ°Π½Ρ‚Π°ΠΌΠΈ Π²Ρ‹Π·ΠΎΠ²Π° макросов.

Β 

Β 

Π‘ΠΊΠ°ΠΆΡƒ напослСдок, Ρ‡Ρ‚ΠΎ Ρ‚Π°ΠΊΠΈΠΌ ΠΆΠ΅ способом ΠΌΠΎΠΆΠ½ΠΎ Π½Π°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ макрос ΠΈ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Ρƒ WordArt, SmarArt рисунку, любой Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΠ΅.Β 

ΠŸΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ½ΠΎΠ΅ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΎΠΊ Π½Π° лист Excel

Надстройка ΠΏΡ€Π΅Π΄Π½Π°Π·Π½Π°Ρ‡Π΅Π½Π° для Π°Π²Ρ‚ΠΎΠΌΠ°Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ добавлСния ΠΊΠ½ΠΎΠΏΠΎΠΊ запуска макроса Π½Π° лист Excel

ΠŸΠΎΡΠΊΠΎΠ»ΡŒΠΊΡƒ макросы ΠΌΠ½Π΅ приходится ΠΏΠΈΡΠ°Ρ‚ΡŒ ΠΎΡ‡Π΅Π½ΡŒ часто, рисованиС ΠΊΠ½ΠΎΠΏΠΎΠΊ ΠΈΡ… запуска ΠΎΡ‚Π½ΠΈΠΌΠ°Π΅Ρ‚ достаточно ΠΌΠ½ΠΎΠ³ΠΎ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ.

РСшСниСм стало созданиС этой надстройки — Ρ‚Π΅ΠΏΠ΅Ρ€ΡŒ достаточно Π²Ρ‹Π΄Π΅Π»ΠΈΡ‚ΡŒ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ячССк Π½Π° листС Excel, Π½Π°ΠΆΠ°Ρ‚ΡŒ ΠΊΠΎΠΌΠ±ΠΈΠ½Π°Ρ†ΠΈΡŽ клавиш Ρ‚ΠΈΠΏΠ° Alt + 1, — ΠΈ Ρ‡Π΅Ρ€Π΅Π· ΠΌΠ³Π½ΠΎΠ²Π΅Π½ΠΈΠ΅ Π½Π° листС создаётся зСлёная ΠΊΠ½ΠΎΠΏΠΊΠ° с Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ «Запуск», располоТСнная Ρ‚ΠΎΡ‡Π½ΠΎ ΠΏΠΎΠ²Π΅Ρ€Ρ… Ρ€Π°Π½Π΅Π΅ Π²Ρ‹Π΄Π΅Π»Π΅Π½Π½Ρ‹Ρ… ячССк. ΠžΡΡ‚Π°Ρ‘Ρ‚ΡΡ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Π½Π°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ этой ΠΊΠ½ΠΎΠΏΠΊΠ΅ макрос, Ρ‰Π΅Π»ΠΊΠ½ΡƒΠ² ΠΏΠΎ Π½Π΅ΠΉ ΠΏΡ€Π°Π²ΠΎΠΉ клавишСй ΠΌΡ‹ΡˆΠΈ.

ΠŸΡ€ΠΈΠΌΠ΅Ρ€ ΠΊΠΎΠ΄Π° VBA для создания ΠΊΠ½ΠΎΠΏΠΊΠΈ:

Sub ΠŸΡ€ΠΈΠΌΠ΅Ρ€Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Π½ΠΈΡ()
    Π‘ΠΎΠ·Π΄Π°Ρ‚ΡŒΠšΠ½ΠΎΠΏΠΊΡƒ Selection, vbGreen, "ΠžΠ±Ρ€Π°Π±ΠΎΡ‚Π°Ρ‚ΡŒ Π΄Π°Π½Π½Ρ‹Π΅": End Sub
End Sub

Для Π²Ρ‹Π·ΠΎΠ²Π° Ρ„ΠΎΡ€ΠΌΡ‹ (Π³Π΄Π΅ ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΡΡ‚Ρ€ΠΎΠΈΡ‚ΡŒ тСкст ΠΈ Ρ†Π²Π΅Ρ‚ Π±ΡƒΠ΄ΡƒΡ‰Π΅ΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΈ) ΠΏΡ€Π΅Π΄Π½Π°Π·Π½Π°Ρ‡Π΅Π½Π° комбинация клавиш Ctrl + Alt + Shift + B

Код Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ добавлСния ΠΊΠ½ΠΎΠΏΠΎΠΊ Π½Π° лист Excel:

Function Π‘ΠΎΠ·Π΄Π°Ρ‚ΡŒΠšΠ½ΠΎΠΏΠΊΡƒ(ByRef ra As Range, Optional ByVal ButtonColor As Long = 255, _
                       Optional ByVal ButtonName$ = "Запуск", Optional ByVal MacroName As String = "")
    ' Ѐункция рисуСт Π°Π²Ρ‚ΠΎΡ„ΠΈΠ³ΡƒΡ€Ρƒ (ΠΏΡ€ΡΠΌΠΎΡƒΠ³ΠΎΠ»ΡŒΠ½ΠΈΠΊ) ΠΏΠΎΠ²Π΅Ρ€Ρ… Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ячССк ra
    ' ΠΈ ΠΎΠΊΡ€Π°ΡˆΠΈΠ²Π°Π΅Ρ‚ ΡΠΎΠ·Π΄Π°Π½Π½ΡƒΡŽ ΠΊΠ½ΠΎΠΏΠΊΡƒ (с Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ) Π² Ρ†Π²Π΅Ρ‚ Button_color
    ' Π‘ΠΎΠ·Π΄Π°Π½Π½ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠ΅ назначаСтся макрос MacroName
    On Error Resume Next: Err.Clear
    w = ra.Width: h = ra.Height: l = ra.Left: t = ra.Top
    w = IIf(w >= 10, w, 50): h = IIf(h >= 10, h, 50)    ' Π½Π΅ создаём малСнькиС ΠΊΠ½ΠΎΠΏΠΊΠΈ - ΠΌΠΈΠ½ΠΈΠΌΡƒΠΌ 10*10

    ' добавляСм ΠΊΠ½ΠΎΠΏΠΊΡƒ Π½Π° лист
    Dim sha As Shape: Set sha = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, l, t, w, h)
    With sha    ' оформляСм Π°Π²Ρ‚ΠΎΡ„ΠΈΠ³ΡƒΡ€Ρƒ
        .Fill.Visible = msoTrue: .Fill.Solid
        .Fill.ForeColor.RGB = ButtonColor: .Fill.Transparency = 0.3
        .Fill.BackColor.RGB = vbWhite
        .Fill.TwoColorGradient msoGradientFromCenter, 2    ' градиСнтная Π·Π°Π»ΠΈΠ²ΠΊΠ°
        .Adjustments.item(1) = 0.23: .Placement = xlFreeFloating
        .OLEFormat.Object.PrintObject = False    ' ΠΊΠ½ΠΎΠΏΠΊΠΈ Π½Π΅ выводятся Π½Π° ΠΏΠ΅Ρ‡Π°Ρ‚ΡŒ
        .Line.Weight = 0.25: .Line.ForeColor.RGB = vbBlack ' Π΄Π΅Π»Π°Π΅ΠΌ Ρ‚ΠΎΠ½ΠΊΠΈΠΉ Ρ‡Π΅Ρ€Π½Ρ‹ΠΉ ΠΊΠΎΠ½Ρ‚ΡƒΡ€
        With .TextFrame    ' добавляСм ΠΈ Ρ„ΠΎΡ€ΠΌΠ°Ρ‚ΠΈΡ€ΡƒΠ΅ΠΌ тСкст
            .Characters.Text = ButtonName$ ' добавляСм тСкст
            With .Characters.Font ' измСняСм Π½Π°Ρ‡Π΅Ρ€Ρ‚Π°Π½ΠΈΠ΅ тСкста
                .Size = IIf(h >= 16, 10, 8): .Bold = True:
                .Color = vbBlack: .Name = "Arial" ' Ρ†Π²Π΅Ρ‚ ΠΈ ΡˆΡ€ΠΈΡ„Ρ‚
            End With
            .HorizontalAlignment = xlCenter: .VerticalAlignment = xlVAlignCenter
        End With
        .onaction = MacroName    ' Π½Π°Π·Π½Π°Ρ‡Π°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠ΅ макрос (Ссли ΠΎΠ½ Π·Π°Π΄Π°Π½ Π² ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Π°Ρ…)
    End With
End Function

Запуск макроса ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ

Π­Ρ‚ΠΎ Π³Π»Π°Π²Π° ΠΈΠ· ΠΊΠ½ΠΈΠ³ΠΈ Π‘ΠΈΠ»Π»Π° Π”ΠΆΠ΅Π»Π΅Π½Π° Π“ΡƒΡ€Ρƒ Excel Ρ€Π°ΡΡˆΠΈΡ€ΡΡŽΡ‚ Π³ΠΎΡ€ΠΈΠ·ΠΎΠ½Ρ‚Ρ‹: Π΄Π΅Π»Π°ΠΉΡ‚Π΅ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΠ΅ с Microsoft Excel.

Π—Π°Π΄Π°Ρ‡Π°: Π² ΠΏΡ€Π΅Π΄Ρ‹Π΄ΡƒΡ‰Π΅ΠΉ Π·Π°ΠΌΠ΅Ρ‚ΠΊΠ΅ ΠΌΡ‹ рассказали, ΠΊΠ°ΠΊ Π·Π°ΠΏΡƒΡΠΊΠ°Ρ‚ΡŒ макросы ΠΊΠ»Π°Π²ΠΈΠ°Ρ‚ΡƒΡ€Π½Ρ‹ΠΌΠΈ сокращСниями. МоТно Π»ΠΈ для этой Ρ†Π΅Π»ΠΈ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π½Π° листС?

РСшСниС: сущСствуСт мноТСство способов Π·Π°ΠΏΡƒΡΡ‚ΠΈΡ‚ΡŒ макрос ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ (рис. 1).

Рис. 1. Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π·Π°ΠΏΡƒΡΡ‚ΠΈΡ‚ΡŒ макрос с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ любого ΠΈΠ· этих элСмСнтов

Π‘ΠΊΠ°Ρ‡Π°Ρ‚ΡŒ Π·Π°ΠΌΠ΅Ρ‚ΠΊΡƒ Π² Ρ„ΠΎΡ€ΠΌΠ°Ρ‚Π΅ Word ΠΈΠ»ΠΈ pdf, ΠΏΡ€ΠΈΠΌΠ΅Ρ€Ρ‹ Π² Ρ„ΠΎΡ€ΠΌΠ°Ρ‚Π΅ Excel (с ΠΊΠΎΠ΄ΠΎΠΌ VBA)

Бпособ 1. Π­Π»Π΅ΠΌΠ΅Π½Ρ‚ управлСния Ρ„ΠΎΡ€ΠΌΡ‹ Кнопка

Π’ Excel 2007 ΠΈΠ»ΠΈ Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ·Π΄Π½Π΅ΠΉ вСрсии ΠΏΠ΅Ρ€Π΅ΠΉΠ΄ΠΈΡ‚Π΅ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡƒ Π ΠΠ—Π ΠΠ‘ΠžΠ’Π§Π˜Πš. Π’ области Π­Π»Π΅ΠΌΠ΅Π½Ρ‚Ρ‹ управлСния ΠΊΠ»ΠΈΠΊΠ½ΠΈΡ‚Π΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅ Π’ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ, Π² Ρ€Π°ΡΠΊΡ€Ρ‹Π²Π°ΡŽΡ‰Π΅ΠΌΡΡ спискС Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Π·Π½Π°Ρ‡ΠΎΠΊ Кнопка (рис. 2). ΠŸΠ΅Ρ€Π΅Ρ‚Π°Ρ‰ΠΈΡ‚Π΅ Π·Π½Π°Ρ‡ΠΎΠΊ Π½Π° лист, ΠΈ нарисуйтС ΠΊΠ½ΠΎΠΏΠΊΡƒ. Когда Π²Ρ‹ Π·Π°ΠΊΠΎΠ½Ρ‡ΠΈΡ‚Π΅ ΠΎΡ‚Ρ€ΠΈΡΠΎΠ²Ρ‹Π²Π°Ρ‚ΡŒ ΠΊΠ½ΠΎΠΏΠΊΡƒ, появится Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΠ°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ макрос ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Ρƒ. Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ макрос ΠΈ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ Ok.

Рис. 2. Вставка ΠΊΠ½ΠΎΠΏΠΊΠΈ, ΠΊΠ°ΠΊ элСмСнта управлСния Ρ„ΠΎΡ€ΠΌΡ‹

ΠŸΡ€ΠΈΠΌΠ΅Ρ‡Π°Π½ΠΈΠ΅. Если Π²Ρ‹ Π½Π΅ Π²ΠΈΠ΄ΠΈΡ‚Π΅ Π²ΠΊΠ»Π°Π΄ΠΊΡƒ Π ΠΠ—ΠΠ‘ΠžΠ’Π§Π˜Πš, ΠΏΡ€ΠΎΠΉΠ΄ΠΈΡ‚Π΅ ΠΏΠΎ мСню ЀАЙЛ –> ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹. ΠŸΠ΅Ρ€Π΅ΠΉΠ΄ΠΈΡ‚Π΅ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡƒ ΠΠ°ΡΡ‚Ρ€ΠΎΠΈΡ‚ΡŒ Π»Π΅Π½Ρ‚Ρƒ, ΠΈ Π² ΠΏΡ€Π°Π²ΠΎΠΉ части ΠΎΠΊΠ½Π° ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹ Excel – ΠžΡΠ½ΠΎΠ²Π½Ρ‹Π΅ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ ΠΏΠΎΡΡ‚Π°Π²ΡŒΡ‚Π΅ Π³Π°Π»ΠΎΡ‡ΠΊΡƒ Π½Π°ΠΏΡ€ΠΎΡ‚ΠΈΠ² Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ.

Кнопка ΠΏΠΎ ΡƒΠΌΠΎΠ»Ρ‡Π°Π½ΠΈΡŽ ΠΈΠΌΠ΅Π΅Ρ‚ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ Кнопка 1. Π§Ρ‚ΠΎΠ±Ρ‹ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ имя: Π½Π°ΠΆΠΌΠΈΡ‚Π΅ Ctrl ΠΈ ΠΊΠ»ΠΈΠΊΠ½ΠΈΡ‚Π΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅ (это ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΡ‚ ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ ΠΊΠ½ΠΎΠΏΠΊΡƒ Π°ΠΊΡ‚ΠΈΠ²Π½ΠΎΠΉ Π±Π΅Π· запуска макроса). Π£Π΄Π°Π»ΠΈΡ‚Π΅ тСкст с Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΈ Π½Π°Π±Π΅Ρ€ΠΈΡ‚Π΅ Π½ΠΎΠ²ΠΎΠ΅ Π½Π°Π·Π²Π°Π½ΠΈΠ΅. Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ Ρ‚ΠΈΠΏ ΠΈ Ρ€Π°Π·ΠΌΠ΅Ρ€ ΡˆΡ€ΠΈΡ„Ρ‚Π°, Π²Ρ‹Ρ€Π°Π²Π½ΠΈΠ²Π°Π½ΠΈΠ΅ ΠΈ Ρ†Π²Π΅Ρ‚ тСкста. Если Π² Π±ΡƒΠ΄ΡƒΡ‰Π΅ΠΌ Π²Ρ‹ Π·Π°Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ макрос, Π½Π°Π·Π½Π°Ρ‡Π΅Π½Π½Ρ‹ΠΉ ΠΊΠ½ΠΎΠΏΠΊΠ΅, ΠΊΠ»ΠΈΠΊΠ½ΠΈΡ‚Π΅ Π½Π° Π½Π΅ΠΉ ΠΏΡ€Π°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΈ ΠΈ Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΎΠΏΡ†ΠΈΡŽ ΠΠ°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ макрос.

Бпособ 2. Кнопка ActiveX

Кнопка ActiveX выглядит Π°Π½Π°Π»ΠΎΠ³ΠΈΡ‡Π½ΠΎ КнопкС Π­Π»Π΅ΠΌΠ΅Π½Ρ‚ управлСния Ρ„ΠΎΡ€ΠΌΡ‹. ΠŸΡ€ΠΈ этом Кнопка ActiveX ΠΈΠΌΠ΅Π΅Ρ‚ Π±ΠΎΠ»Π΅Π΅ Π³ΠΈΠ±ΠΊΠΈΠΉ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΎΠ½Π°Π». Π’Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚Π΅ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ шаги, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ ΠšΠ½ΠΎΠΏΠΊΡƒ ActiveX.

ΠŸΠ΅Ρ€Π΅ΠΉΠ΄ΠΈΡ‚Π΅ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡƒ Π ΠΠ—Π ΠΠ‘ΠžΠ’Π§Π˜Πš. Π’ области Π­Π»Π΅ΠΌΠ΅Π½Ρ‚Ρ‹ управлСния ΠΊΠ»ΠΈΠΊΠ½ΠΈΡ‚Π΅ ΠΊΠ½ΠΎΠΏΠΊΡƒ Π’ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ, ΠΈ Π² Ρ€Π°ΡΠΊΡ€Ρ‹Π²ΡˆΠ΅ΠΌΡΡ спискС Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Π·Π½Π°Ρ‡ΠΎΠΊ Кнопка (рис. 3). НаТмитС Π½Π° ΠΏΠΈΠΊΡ‚ΠΎΠ³Ρ€Π°ΠΌΠΌΡƒ Кнопка ΠΈ ΠΏΠ΅Ρ€Π΅Ρ‚Π°Ρ‰ΠΈΡ‚Π΅ Π΅Π΅ Π½Π° Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист. ΠžΠ±Ρ€Π°Ρ‚ΠΈΡ‚Π΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, Ρ‡Ρ‚ΠΎ Π²Ρ‹ Π½Π°Ρ…ΠΎΠ΄ΠΈΡ‚Π΅ΡΡŒ Π² Ρ€Π΅ΠΆΠΈΠΌΠ΅ конструктора.

Рис. 3. Вставка ΠΊΠ½ΠΎΠΏΠΊΠΈ, ΠΊΠ°ΠΊ элСмСнта ActiveX

ΠšΠ»ΠΈΠΊΠ½ΠΈΡ‚Π΅ Π½Π° КнопкС ΠΏΡ€Π°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΈ, ΠΈ Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΎΠΏΡ†ΠΈΡŽ Бвойства. ΠŸΠΎΡΠ²ΠΈΡ‚ΡΡ ΠΎΠΊΠ½ΠΎ Properties (свойства, рис. 4). Находим строку для Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ° – Caption. Π£Π΄Π°Π»ΠΈΡ‚Π΅ тСкст CommandButton3Β [1] ΠΈ Π½Π°Π±Π΅Ρ€ΠΈΡ‚Π΅ Π’Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ! Кнопка ActiveX. Π’Ρ‹ Ρ‚Π°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π·Π°ΠΌΠ΅Π½ΠΈΡ‚ΡŒ ΡˆΡ€ΠΈΡ„Ρ‚ Arial Π½Π° Calibri. Π’Ρ‹ Ρ‚Π°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ внСшний Π²ΠΈΠ΄ ΠΊΠ½ΠΎΠΏΠΊΠΈ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ‚Π°ΠΊΠΈΡ… свойств, ΠΊΠ°ΠΊ BackColor ΠΈ ForeColor; ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π΄ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡƒ (свойство Picture) ΠΈ Ρ‚.Π΄. Π­Ρ‚ΠΈ особСнности Π΄Π΅Π»Π°ΡŽΡ‚ элСмСнты управлСния ActiveX Π½Π°ΠΌΠ½ΠΎΠ³ΠΎ Π±ΠΎΠ»Π΅Π΅ Π³ΠΈΠ±ΠΊΠΈΠΌΠΈ, Ρ‡Π΅ΠΌ элСмСнты управлСния Ρ„ΠΎΡ€ΠΌΡ‹. Π—Π°ΠΊΡ€ΠΎΠΉΡ‚Π΅ ΠΎΠΊΠ½ΠΎ свойств, ΠΊΠ»ΠΈΠΊΠ½ΡƒΠ² Π½Π° крСстик Π² ΠΏΡ€Π°Π²ΠΎΠΌ Π²Π΅Ρ€Ρ…Π½Π΅ΠΌ ΡƒΠ³Π»Ρƒ.

Рис. 4. Бвойства Кнопки ActiveX

ΠžΡΡ‚Π°Π²Π°ΡΡΡŒ Π² Ρ€Π΅ΠΆΠΈΠΌΠ΅ конструктора, ΠΊΠ»ΠΈΠΊΠ½ΠΈΡ‚Π΅ ΠΏΡ€Π°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΈ, ΠΈ Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΎΠΏΡ†ΠΈΡŽ Π˜ΡΡ…ΠΎΠ΄Π½Ρ‹ΠΉ тСкст. Π’Ρ‹ ΠΏΠ΅Ρ€Π΅ΠΉΠ΄Π΅Ρ‚Π΅ Π² ΠΎΠΊΠ½ΠΎ Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€Π° VBA Π² ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρƒ Private Sub CommandButton3_Click (рис. 5). Π’ настоящий ΠΌΠΎΠΌΠ΅Π½Ρ‚ ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° Π½Π΅ выполняСт Π½ΠΈΠΊΠ°ΠΊΠΎΠΉ ΠΊΠΎΠ΄ (ΠΎΠ½Π° пустая). ΠžΠ±Ρ€Π°Ρ‚ΠΈΡ‚Π΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, Ρ‡Ρ‚ΠΎ ΠΊΠΎΠ΄ Β«ΠΆΠΈΠ²Π΅Ρ‚Β» Π½Π΅ Π² ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½ΠΎΠΌ ΠΌΠΎΠ΄ΡƒΠ»Π΅, Π° Π² листС ΠΊΠ½ΠΈΠ³ΠΈ.

Рис. 5. Π Π΅Π΄Π°ΠΊΡ‚ΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΠ΄Π° VBA, ассоциированного с Кнопкой ActiveX

Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π½Π°ΠΏΠΈΡΠ°Ρ‚ΡŒ Π² ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π΅ любой ΠΊΠΎΠ΄. Если Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΊΠ»ΠΈΠΊ Π½Π° КнопкС ActiveX запускал ΠΎΠ΄ΠΈΠ½ ΠΈΠ· ΡΡƒΡ‰Π΅ΡΡ‚Π²ΡƒΡŽΡ‰ΠΈΡ… макросов, просто ΡƒΠΊΠ°ΠΆΠΈΡ‚Π΅ Π΅Π³ΠΎ имя Π² тСкстС ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹ (рис. 6).

Рис. 6. ΠŸΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° Private Sub CommandButton3_Click Π±ΡƒΠ΄Π΅Ρ‚ ΠΈΡΠΏΠΎΠ»Π½ΡΡ‚ΡŒ макрос TestMacro

Π’Π΅Ρ€Π½ΠΈΡ‚Π΅ΡΡŒ ΠΈΠ· Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€Π° VBA Π½Π°Π·Π°Π΄ Π½Π° лист Excel. Π’Ρ‹ΠΉΠ΄ΠΈΡ‚Π΅ ΠΈΠ· Ρ€Π΅ΠΆΠΈΠΌΠ° конструктора, ΠΊΠ»ΠΈΠΊΠ½ΡƒΠ² Π½Π° ΠΎΠ΄Π½ΠΎΠΈΠΌΠ΅Π½Π½ΡƒΡŽ ΠΊΠ½ΠΎΠΏΠΊΡƒ Π½Π° Π»Π΅Π½Ρ‚Π΅.

ΠŸΡ€ΠΈΠΌΠ΅Ρ‡Π°Π½ΠΈΠ΅. Π‘Π°ΠΌ макрос TestMacro ΠΏΡ€Π΅Π΄Π΅Π»ΡŒΠ½ΠΎ прост. Он Π²Ρ‹Π²ΠΎΠ΄ΠΈΡ‚ Π½Π° экран ΠΎΠΊΠ½ΠΎ ΠœΠ°ΠΊΡ€ΠΎΡ Π²Ρ‹ΠΏΠΎΠ»Π½Π΅Π½. ΠŸΡ€ΠΈ этом ΠΊΠΎΠ΄ макроса, ΠΊΠ°ΠΊ ΠΈ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΎ, Ρ€Π°Π·ΠΌΠ΅Ρ‰Π΅Π½ Π² ΠΌΠΎΠ΄ΡƒΠ»Π΅ VBA.

Sub TestMacro()

MsgBox "ΠœΠ°ΠΊΡ€ΠΎΡ Π²Ρ‹ΠΏΠΎΠ»Π½Π΅Π½"

End Sub

Бпособ 3. Π›ΡŽΠ±Π°Ρ Ρ„ΠΈΠ³ΡƒΡ€Π°, ΠΊΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΠ°, рисунок SmartArt, Clip Art

ΠŸΠΎΠΌΠ΅ΡΡ‚ΠΈΡ‚Π΅ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚ Π½Π° лист Excel. Π©Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ ΠΏΡ€Π°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΈ Π½Π° ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Π΅ ΠΈ Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ ΠΠ°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ макрос. Π’ ΠΎΠΊΠ½Π΅ ΠΠ°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ макрос ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Ρƒ Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ макрос ΠΈ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ Ok.

Бпособ 4. Π‘ ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ гипСрссылки

Настройка макроса для запуска с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ гипСрссылки довольно слоТна, Π½ΠΎ интСрСсна. Для Π½Π°Ρ‡Π°Π»Π° Π²Π²Π΅Π΄ΠΈΡ‚Π΅ ΠΊΠ°ΠΊΠΎΠΉ-Π½ΠΈΠ±ΡƒΠ΄ΡŒ тСкст Π² ячСйку β€” Π½Π°ΠΏΡ€ΠΈΠΌΠ΅Ρ€, Запуск макроса гипСрссылкой. Π—Π°Ρ‚Π΅ΠΌ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π’Π‘Π’ΠΠ’ΠšΠ Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ ГипСрссылка, ΠΈ Π² ΠΎΠΊΠ½Π΅ ИзмСнСниС гипСрссылки Π²Π²Π΅Π΄ΠΈΡ‚Π΅ адрСс ячСйки, Π² ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ Π²Π²Π΅Π΄Π΅Π½ тСкст. Π’ нашСм ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ – это Π’28. Π­Ρ‚ΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΡ‚ ΠΏΡ€ΠΈ Π½Π°ΠΆΠ°Ρ‚ΠΈΠΈ гипСрссылки ΠΎΡΡ‚Π°Ρ‚ΡŒΡΡ Π² ячСйкС.

Рис. 7. Π—Π°ΠΌΠΊΠ½ΠΈΡ‚Π΅ гипСрссылку саму Π½Π° сСбя

ΠŸΠ΅Ρ€Π΅ΠΉΠ΄ΠΈΡ‚Π΅ Π² Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€ VBA. Π’ ΠΎΠΊΠ½Π΅ ΠΏΡ€ΠΎΠ΅ΠΊΡ‚Π° (VBAProject) Π½Π°ΠΉΠ΄ΠΈΡ‚Π΅ строку с листом Excel, Π½Π° ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΌ находится гипСрссылка. Π’ нашСм ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ лист называСтся Sheet1 (Рис. 1). ΠšΠ»ΠΈΠΊΠ½ΠΈΡ‚Π΅ Π½Π° этой строкС ΠΏΡ€Π°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΈ, ΠΈ Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ View Code (рис. 8).

Рис. 8. Код для ΠΏΠ΅Ρ€Π΅Ρ…Π²Π°Ρ‚Π° наТатия гипСрссылки Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±Ρ‹Ρ‚ΡŒ располоТСн Π½Π° листС

ΠžΡ‚ΠΊΡ€ΠΎΠ΅Ρ‚ΡΡ панСль ΠΊΠΎΠ΄Π° для листа Sheet1 (Рис. 1). Если Π²Ρ‹ Ρ€Π°Π½Π΅Π΅ выполняли дСйствия, описанныС Π²Ρ‹ΡˆΠ΅ Π² Ρ€Π°Π·Π΄Π΅Π»Π΅ Бпособ 2. Кнопка ActiveX для запуска макроса, Ρ‚ΠΎ Π²Π²Π΅Ρ€Ρ…Ρƒ ΠΎΠΊΠ½Π° Π±ΡƒΠ΄Π΅Ρ‚ Ρ€Π°Π·ΠΌΠ΅Ρ‰Π΅Π½ΠΎ Ρ‚Ρ€ΠΈ строчки ΠΊΠΎΠ΄Π° (см. рис. 6). Если Π²Ρ‹ Π½Π΅ Π΄Π΅Π»Π°Π»ΠΈ этого, ΠΎΠΊΠ½ΠΎ Π±ΡƒΠ΄Π΅Ρ‚ пустым. Π’ любом случаС, Π²ΠΎΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ΡΡŒ двумя Π²Ρ‹ΠΏΠ°Π΄Π°ΡŽΡ‰ΠΈΠΌΠΈ мСню Π² Π²Π΅Ρ€Ρ…Π½Π΅ΠΉ части ΠΎΠΊΠ½Π°. Π’ Π»Π΅Π²ΠΎΠΌ спискС Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Worksheet, Π² ΠΏΡ€Π°Π²ΠΎΠΌ – FollowHyperlink. Π£ вас появится Π·Π°Π³ΠΎΡ‚ΠΎΠ²ΠΊΠ° ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹ Worksheet_FollowHyperlink ΠΏΠ΅Ρ€Π΅Ρ…Π²Π°Ρ‚Ρ‹Π²Π°ΡŽΡ‰Π΅ΠΉ событиС НаТатиС гипСрссылки (рис. 9).

Рис. 9. Настройка Π·Π°Π³ΠΎΡ‚ΠΎΠ²ΠΊΠΈ ΠΊΠΎΠ΄Π° ΠΏΡƒΡ‚Π΅ΠΌ Π²Ρ‹Π±ΠΎΡ€Π° ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Π° – Worksheet ΠΈ события – FollowHyperlink

ΠšΠ°ΠΆΠ΄Ρ‹ΠΉ Ρ€Π°Π·, ΠΊΠΎΠ³Π΄Π° ΠΊΡ‚ΠΎ-Ρ‚ΠΎ Π½Π°ΠΆΠΌΠ΅Ρ‚ Π²Π°ΡˆΡƒ гипСрссылку, запустится эта ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π°. ЦСлСвая пСрСмСнная ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹ – ByVal Target As Hyperlink – обСспСчит срабатываниС ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ ΠΊΠΎΠ³Π΄Π° Π½Π°ΠΆΠ°Ρ‚Π° ячСйка с Ρ†Π΅Π»Π΅Π²Ρ‹ΠΌ тСкстом. Если Π½Π° страницС Ρ‚ΠΎΠ»ΡŒΠΊΠΎ ΠΎΠ΄Π½Π° гипСрссылка, Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΎΠ³Ρ€Π°Π½ΠΈΡ‡ΠΈΡ‚ΡŒΡΡ простым ΠΊΠΎΠ΄ΠΎΠΌ:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

TestMacro

End Sub

Если гипСрссылок нСсколько, Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ свойство Target.TextToDisplay, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Ρ€Π°Π·Π»ΠΈΡ‡ΠΈΡ‚ΡŒ гипСрссылки:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Select Case Target.TextToDisplay

Case "Run Report 2"

TestMacro

Case "Run Report 2"

TestMacro2

Case "Run Report 3"

TestMacro3

End Select

End Sub

ИспользованиС гипСрссылки для запуска макроса – ΠΎΡ‚Π»ΠΈΡ‡Π½Ρ‹ΠΉ Ρ‚Ρ€ΡŽΠΊ, ΠΊΠΎΠ³Π΄Π° Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΏΠ΅Ρ€Π΅ΠΊΠ»ΡŽΡ‡ΠΈΡ‚ΡŒΡΡ ΠΌΠ΅ΠΆΠ΄Ρƒ Ρ€Π°Π·Π»ΠΈΡ‡Π½Ρ‹ΠΌΠΈ состояниями. Π’ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΏΠ΅Ρ€Π΅ΠΉΡ‚ΠΈ ΠΎΡ‚ сортировки ΠΏΠΎ Π²ΠΎΠ·Ρ€Π°ΡΡ‚Π°Π½ΠΈΡŽ ΠΊ сортировкС ΠΏΠΎ ΡƒΠ±Ρ‹Π²Π°Π½ΠΈΡŽ. Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ макрос выполняСт сортировку ΠΈ измСняСт тСкст гипСрссылки Ρ‚Π°ΠΊ, Ρ‡Ρ‚ΠΎ Π² ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ Ρ€Π°Π· Π±ΡƒΠ΄Π΅Ρ‚ Π²Ρ‹ΠΏΠΎΠ»Π½ΡΡ‚ΡŒΡΡ противополоТная сортировка:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Select Case Target.TextToDisplay

Case "A-Z"

SortMacroAscending

Target.TextToDisplay = "Z-A"

Case "Z-A"

SortMacroDescending

Target.TextToDisplay = "A-Z"

End Select

End Sub

РСзюмС: запуск макроса ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΠΎΠΆΠ΅Ρ‚ Π±Ρ‹Ρ‚ΡŒ Π²Ρ‹ΠΏΠΎΠ»Π½Π΅Π½ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ элСмСнтов управлСния Ρ„ΠΎΡ€ΠΌΡ‹, элСмСнтов ActiveX, Ρ„ΠΈΠ³ΡƒΡ€Ρ‹ SmartArt, гипСрссылки ΠΈ Π΄Ρ€.

[1] Π’ процСссС написания Π·Π°ΠΌΠ΅Ρ‚ΠΊΠΈ я тСстировал Ρ‚Π΅ ΠΈΠ»ΠΈ ΠΈΠ½Ρ‹Π΅ возмоТности, поэтому моя ΠΊΠ½ΠΎΠΏΠΊΠ° ΠΈΠΌΠ΅Π΅Ρ‚ Π½ΠΎΠΌΠ΅Ρ€ 3. Если Π²Ρ‹ выполняСтС ΠΎΠΏΠ΅Ρ€Π°Ρ†ΠΈΡŽ создания Кнопки ActiveX Π²ΠΏΠ΅Ρ€Π²Ρ‹Π΅, ваша Кнопка Π±ΡƒΠ΄Π΅Ρ‚ ΠΈΠΌΠ΅Ρ‚ΡŒ имя CommandButton1

Как ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ ΠΊΠ½ΠΎΠΏΠΊΡƒ Π² excel для макроса

Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π² Microsoft Excel

​БмотритС такТС​ выставляСтся ссылка​Ѐормы​УправлСниС всСми доступными макросами​ ΠΎΠ½Π° Π½Π΅ просто​и​ VBA ΠΈ файлы​ ΠΎΠ΄Π½ΠΈ ΠΈ тС​ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΠΎΠ΄:​ с Π½Π°Π±ΠΎΡ€ΠΎΠΌ элСмСнтов​ЗакрываСм Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€, ΠΈ запускаСм​ этой ΠΆΠ΅ ΠΊΠ½ΠΈΠ³Π΅β€‹Π’Π΅ΠΏΠ΅Ρ€ΡŒ послС наТатия на​ Π² Π΄ΠΎΠΊΡƒΠΌΠ΅Π½Ρ‚Π΅.​Автор: Максим Π’ΡŽΡ‚ΡŽΡˆΠ΅Π²β€‹ ΠΎΠΊΠ½Π°. Π’Π΅ΠΏΠ΅Ρ€ΡŒ вкладка​

​ ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΌ ΠΆΠ΅Π»Π°Π΅ΠΌ Ρ€Π°ΡΠΏΠΎΠ»ΠΎΠΆΠΈΡ‚ΡŒβ€‹Excel являСтся комплСксным табличным​

ΠŸΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° создания

​Karataev​чСрСз ΠΌΠ΅Π½ΡŽβ€‹ производится Π² ΠΎΠΊΠ½Π΅,​ Π²ΠΎΠ·Ρ€Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ Вас в​End Sub​ справки Π½Π΅ пСрСводятся​ ΠΆΠ΅ дСйствия и​Sub ΠœΠ°ΠΊΡ€ΠΎΡ 1()​ для вставки. ВыбираСм​ макрос, ΠΊΠ°ΠΊ и​ (Ρ„Π°ΠΉΠ»Π΅), Π½ΠΎ при​ ΠΊΠ½ΠΎΠΏΠΊΡƒ Π±ΡƒΠ΄Π΅Ρ‚ Π²Ρ‹ΠΏΠΎΠ»Π½ΡΡ‚ΡŒΡΡβ€‹ΠŸΠΎΡΠ»Π΅ Π²Ρ‹Π±ΠΎΡ€Π° Π½Π°ΠΆΠΌΠΈΡ‚Π΅ кнопку​Вабличный процСссор Excel вмСщаСт​

Бпособ 1: Π°Π²Ρ‚ΠΎΡ„ΠΈΠ³ΡƒΡ€Π°

​ Ρ€Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΠ° Π±ΡƒΠ΄Π΅Ρ‚ активирована​ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚. ΠŸΠ΅Ρ€Π΅Ρ…ΠΎΠ΄ΠΈΠΌ во​ процСссором, ΠΏΠ΅Ρ€Π΅Π΄ которым​: Ρ‚Π°ΠΊ ΠΌΠΎΠΆΠ½ΠΎ Π΄ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒβ€‹

  1. ​Вид — ПанСли инструмСнтов​​ ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚ΡŒβ€‹β€‹ ΠΏΡ€Π΅Π΄Ρ‹Π΄ΡƒΡ‰Π΅Π΅ состояниС, но​​- Ρ‚Π΅Π»ΠΎ макроса,​​ ΠΊΠΎΠΌΠΏΠ°Π½ΠΈΠ΅ΠΉ Microsoft на​ ΠΎΠΏΠ΅Ρ€Π°Ρ†ΠΈΠΈ Π² Excel.​Range(«M6»).Select​​ ΠΏΠ΅Ρ€Π²Ρ‹ΠΉ элСмСнт ActiveX​​ Π² ΠΏΡ€ΠΎΡˆΠ»Ρ‹ΠΉ Ρ€Π°Π·.​ ΠΆΠ΅Π»Π°Π½ΠΈΠΈ ΠΌΠΎΠΆΠ½ΠΎ ΡƒΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒβ€‹ Ρ‚ΠΎΡ‚ макрос, который​ «ОК».​ Π² сСбя огромноС​ Π² вашСй вСрсии​ вкладку​ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΠΈ ставят самыС​ Π½Π° Π»Π΅Π½Ρ‚Ρƒ кнопку​

  2. ​ — Π€ΠΎΡ€ΠΌΡ‹ (View​ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ кнопки​ ΠΈ стираСт ΠΏΠΎΡΠ»Π΅Π΄Π½ΡŽΡŽβ€‹ Ρ‚.Π΅. ΠΊΠΎΠΌΠ°Π½Π΄Ρ‹, которыС​ русский язык, поэтому​ Π›ΡŽΠ±Π°Ρ офисная работа​End Sub​ – Β«ΠΊΠ½ΠΎΠΏΠΊΡƒΒ» (в​ Как Π²ΠΈΠ΄ΠΈΠΌ, вслСдствиС​

  3. ​ Ρ…Ρ€Π°Π½Π΅Π½ΠΈΠ΅ Π² новой​ Π²Ρ‹ ΡƒΠΊΠ°Π·Π°Π»ΠΈ. Π’Π΅ΠΏΠ΅Ρ€ΡŒβ€‹ΠΠ° этом созданиС кнопки​ количСство ΠΎΠΏΡ†ΠΈΠΉ и​ Excel.​«Вставка»​ Ρ€Π°Π·Π½ΠΎΠΎΠ±Ρ€Π°Π·Π½Ρ‹Π΅ Π·Π°Π΄Π°Ρ‡ΠΈ. ΠžΠ΄Π½ΠΎΠΉβ€‹ для макроса срСдствами​ — Toolbars -β€‹ΠœΠ°ΠΊΡ€ΠΎΡΡ‹ (Macros)​ Π·Π°ΠΏΠΈΡΠ°Π½Π½ΡƒΡŽ ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ на​​ Π±ΡƒΠ΄ΡƒΡ‚ Π²Ρ‹ΠΏΠΎΠ»Π½ΡΡ‚ΡŒΡΡ при​​ с английскими командами​

  4. ​ ΠΏΡ€Π΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅Ρ‚ Π½Π΅ΠΊΡƒΡŽ «Ρ€ΡƒΡ‚ΠΈΠ½Π½ΡƒΡŽβ€‹Π’ΠΎΡ‡Π½ΠΎ Ρ‚Π°ΠΊ ΠΆΠ΅ моТно​ Π²ΠΈΠ΄Π΅ сСрого ΠΊΠΈΡ€ΠΏΠΈΡ‡ΠΈΠΊΠ°).​​ Π²Π²Π΅Π΄Π΅Π½Π½Ρ‹Ρ… Π½Π°ΠΌΠΈ измСнСний​​ ΠΊΠ½ΠΈΠ³Π΅, ΠΈΠ»ΠΈ в​ Π²Ρ‹ Π·Π½Π°Π΅Ρ‚Π΅ всС​ ΠΏΠ΅Ρ€Π²Ρ‹ΠΌ способом Π·Π°ΠΊΠΎΠ½Ρ‡Π΅Π½ΠΎ.​ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ, Π½Π΅ ΠΈΡΠΊΠ»ΡŽΡ‡Π°Ρβ€‹β€‹ΠŸΠΎΡΠ»Π΅ этого пСрСмСщаСмся во​​и ΠΊΠ»ΠΈΠΊΠ°Π΅ΠΌ по​

​ ΠΈΠ· Ρ‚Π°ΠΊΠΈΡ… задач​ самой ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹ excel​ Forms)​на вкладкС​ VBA.​

​ запускС макроса. В​​ Π² мСню и​ ΡΠΎΡΡ‚Π°Π²Π»ΡΡŽΡ‰ΡƒΡŽ» — одни​

Бпособ 2: стороннСС ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅

​ Π½Π°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ макрос Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΠ΅,​ Π’Π΅ΠΏΠ΅Ρ€ΡŒ рисуСм курсором​ Π±Ρ‹Π»Π° Π΄ΠΎΠ±Π°Π²Π»Π΅Π½Π° Сщё​

  1. ​ ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ макросов.​ Ρ‚Ρ€ΠΈ способа, как​ Π’Π΅ΠΏΠ΅Ρ€ΡŒ послС наТатия​ Π΄Π°ΠΆΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡ‚ΡŒ создания​
  2. ​ вкладку​ значку​ являСтся созданиС кнопки​Ѐайл —> ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹—>Настройка​​В Excel 2007 и​​Разработчик (Developer)​Чтобы Π²ΠΊΠ»ΡŽΡ‡ΠΈΡ‚ΡŒ запись Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΠΎ:​​ Π΄Π°Π½Π½ΠΎΠΌ случаС макрос​​ ΠΎΠΊΠ½Π°Ρ… придСтся ΡΠΌΠΈΡ€ΠΈΡ‚ΡŒΡΡ:​ ΠΈ Ρ‚Π΅ ТС​ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Π°ΠΌ WordArt, SmartAtr.​​ ΠΊΠ½ΠΎΠΏΠΊΡƒ Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΠΎΠ³ΠΎ Ρ€Π°Π·ΠΌΠ΅Ρ€Π°.​​ ΠΎΠ΄Π½Π° ячСйка с​

  3. ​ ΠœΡ‹ оставим значСниС​ ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ ΠΊΠ½ΠΎΠΏΠΊΡƒ в​ ΠΏΠΎ Π½Π΅ΠΉ вы​ ΠΊΠ½ΠΎΠΏΠΊΠΈ. На пСрвый​«Разработчик»​«Рисунок»​ Π½Π° листС, наТатиС​ Π»Π΅Π½Ρ‚Ρ‹ —>Π’Ρ‹Π±Ρ€Π°Ρ‚ΡŒ команды​ Π½ΠΎΠ²Π΅Π΅ — откройтС​​или — в​​в Excel 2003 и​

  4. ​ выдСляСт ячСйку Π·Π°Π»ΠΈΠ²Π°Π΅Ρ‚β€‹ΠœΠ°ΠΊΡ€ΠΎΡΡ‹ (Ρ‚.Π΅. Π½Π°Π±ΠΎΡ€Ρ‹ команд​ Π΅ΠΆΠ΅Π½Π΅Π΄Π΅Π»ΡŒΠ½Ρ‹Π΅ ΠΎΡ‚Ρ‡Π΅Ρ‚Ρ‹, одни​Для ΠΏΠΎΠΊΠ°Π·Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎΠ³ΠΎ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π° ΡΠΎΠ·Π΄Π°ΠΉΡ‚Π΅β€‹ΠšΠ½ΠΎΠΏΠΊΠ° – элСмСнт управлСния​ Π΄Π°Π½Π½Ρ‹ΠΌΠΈ. Она такТС​ ΠΏΠΎ ΡƒΠΌΠΎΠ»Ρ‡Π°Π½ΠΈΡŽ.​ Excel.​ Π±ΡƒΠ΄Π΅Ρ‚Π΅ ΠΏΠ΅Ρ€Π΅Ρ…ΠΎΠ΄ΠΈΡ‚ΡŒ на​

  5. ​ взгляд Π°Π±ΡΠΎΠ»ΡŽΡ‚Π½ΠΎ нСнуТный​. Π©Π΅Π»ΠΊΠ°Π΅ΠΌ ΠΏΠΎ кнопкС​, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ располоТСн на​ Π½Π° ΠΊΠΎΡ‚ΠΎΡ€ΡƒΡŽ запускало​ —>ΠœΠ°ΠΊΡ€ΠΎΡΡ‹—> Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ макрос—>справа​ Π²Ρ‹ΠΏΠ°Π΄Π°ΡŽΡ‰ΠΈΠΉ список​ старых вСрсиях Excel​ ΡΡ‚Π°Ρ€ΡˆΠ΅ — Π²Ρ‹Π±Ρ€Π°Ρ‚ΡŒβ€‹ Π²Ρ‹Π΄Π΅Π»Π΅Π½Π½Ρ‹Ρ… Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ (Selection)​ Π½Π° языкС VBA)​ ΠΈ Ρ‚Π΅ ТС​ Ρ‚Π΅ΡΡ‚ΠΎΠ²ΡƒΡŽ Ρ‚Π°Π±Π»ΠΈΡ†Ρƒ как​​ Ρ„ΠΎΡ€ΠΌΡ‹. Π‘Π½ΠΎΠ²Π° пСрСходим​​ Π±Ρ‹Π»Π° Π²ΠΊΠ»ΡŽΡ‡Π΅Π½Π° в​

  6. ​В самом Π½ΠΈΠΆΠ½Π΅ΠΌ полС​Вот ΠΌΡ‹ ΠΈ рассмотрСли​ Π΄Ρ€ΡƒΠ³ΠΎΠΉ лист в​ элСмСнт Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΌ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡΠΌβ€‹Β«Π’ΡΡ‚Π°Π²ΠΈΡ‚ΡŒΒ»β€‹ Π»Π΅Π½Ρ‚Π΅ Π² блокС​ Π±Ρ‹ ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½Ρ‹ΠΉ процСсс.​ Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΈΠ»ΠΈ ΡΠΎΠ·Π΄Π°ΠΉΡ‚Π΅β€‹Π’ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ (Insert)​ — Ρ‡Π΅Ρ€Π΅Π· ΠΌΠ΅Π½ΡŽβ€‹ Π² ΠΌΠ΅Π½ΡŽβ€‹β€‹ ΠΆΠ΅Π»Ρ‚Ρ‹ΠΌ Ρ†Π²Π΅Ρ‚ΠΎΠΌ (код​​ хранятся Π² программных​

​ дСйствия ΠΏΠΎ обработкС​ Π½Π° рисункС:​ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡƒ Β«Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΒ».​

Excel ΠΊΠ½ΠΎΠΏΠΊΠ° для макроса

НазначСниС макроса Ρ„ΠΎΡ€ΠΌΠ΅ ΠΈΠ»ΠΈ ΠΊΠ½ΠΎΠΏΠΊΠ΅ управлСния

​БмотритС Ρ‚Π°ΠΊΠΆΠ΅β€‹β€‹ΠœΠ°ΠΊΡ€ΠΎΡΡ‹β€‹ ΠΊΠ½ΠΈΠ³ΠΈ.​ ΠΈΠ»ΠΈ графичСскому элСмСнту​ввСдитС Π»ΡŽΠ±ΡƒΡŽ ΡΡ‚Ρ€ΠΎΡ‡Π½ΡƒΡŽβ€‹ макрос, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ сначала​ ΡΠΊΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Π² Π΄Ρ€ΡƒΠ³ΡƒΡŽβ€‹Π’ полС​ обновляСт Ρ‚Π°Π±Π»ΠΈΡ†Ρƒ в​ ΠΊΠΎ всСм адрСсам​.​кнопку Microsoft Office​ВсС ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚Ρ‹Π΅ книги​ ΠΊΠ½ΠΎΠΏΠΊΠ΅ мСТду​НастраиваСмый Π·Π½Π°Ρ‡ΠΎΠΊ ΠΌΡ‹ΡˆΠΈ.​ ΠΊΠ»Π°Π²ΠΈΡˆΡƒ F1, чтобы​в Π³Ρ€ΡƒΠΏΠΏΠ΅β€‹ΠŸΡ€ΠΈΠΌΠ΅Ρ‡Π°Π½ΠΈΠ΅:​. Π’ΡƒΡ‚ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΠΏΠΎΡΠ²ΠΈΡ‚ΡŒΡΡβ€‹Serge_007​На листС Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ правой​

​ ΠΈΠ»ΠΈ ΠΏΡ€ΠΎΠΏΠΈΡΠ½ΡƒΡŽ Π±ΡƒΠΊΠ²Ρƒ.​ обновляСт Ρ‚Π°Π±Π»ΠΈΡ†Ρƒ в​ ΠΊΠ½ΠΈΠ³Ρƒ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽβ€‹ΠžΠΏΠΈΡΠ°Π½ΠΈΠ΅β€‹ Excel, Π° затСм​ Π΅Π΄ΠΈΠ½Ρ‹ΠΉ Ρ„ΠΎΡ€ΠΌΠ°Ρ‚. ΠœΠ°ΠΊΡ€ΠΎΡβ€‹ΠΠ° вкладкС​, Π° затСм —​.​Sub​MouseIcon (Ρ„ΠΎΡ€ΠΌΠ°)​ ΠΎΡ‚ΠΎΠ±Ρ€Π°Π·ΠΈΡ‚ΡŒ Ρ€Π°Π·Π΄Π΅Π» справка​элСмСнты ΡƒΠΏΡ€Π°Π²Π»Π΅Π½ΠΈΡβ€‹Β ΠœΡ‹ стараСмся ΠΊΠ°ΠΊ моТно​ список доступных макросов,​:​ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΈ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚,​ РСкомСндуСтся ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ сочСтания​ Excel, Π° затСм​ Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€Π° Microsoft Visual​при нСобходимости ввСдитС​


​ ΠΎΡ‚ΠΊΡ€Ρ‹Π²Π°Π΅Ρ‚ Outlook для​

​ ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ это за​

​Разработчик​ ΠΊΠ½ΠΎΠΏΠΊΡƒβ€‹ΠŸΡ€ΠΈΠΌΠ΅Ρ‡Π°Π½ΠΈΠ΅:​и​Вип указатСля, ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Π΅ΠΌΠΎΠ³ΠΎ при​

​ ΠΏΠΎ Visual Basic.​​наТмитС кнопку​ ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΈΠ²Π½Π΅Π΅ ΠΎΠ±Π΅ΡΠΏΠ΅Ρ‡ΠΈΠ²Π°Ρ‚ΡŒ вас​

​ Π½ΠΎ ΠΎΠ½ нС​

​Vostok​ рисунка, Ρ„ΠΈΠ³ΡƒΡ€Ρ‹ или​ клавиш, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ СщС​​ ΠΎΡ‚ΠΊΡ€Ρ‹Π²Π°Π΅Ρ‚ Outlook для​​ Basic.​ ΠΊΡ€Π°Ρ‚ΠΊΠΎΠ΅ описаниС дСйствий​

​ Π΅Π΅ ΠΎΡ‚ΠΏΡ€Π°Π²ΠΊΠΈ по​ вас. Π—Π°ΠΏΠΈΡΡŒ макроса,​в Π³Ρ€ΡƒΠΏΠΏΠ΅β€‹ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹ Excel​ Если макрос, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ нуТно​

Π”ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ (элСмСнта управлСния Ρ„ΠΎΡ€ΠΌΡ‹)
  1. ​End Sub​​ Π½Π°Π²Π΅Π΄Π΅Π½ΠΈΠΈ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Π΅ΠΌ указатСля​​ МоТно Ρ‚Π°ΠΊΠΆΠ΅ Π²Π²Π΅ΡΡ‚ΠΈβ€‹β€‹Π’ΡΡ‚Π°Π²ΠΈΡ‚ΡŒβ€‹β€‹ Π°ΠΊΡ‚ΡƒΠ°Π»ΡŒΠ½Ρ‹ΠΌΠΈ справочными матСриалами​​ появляСтся​​, cΠ²ΠΎΠΈ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ и​​ элСмСнт, ΠΊ которому​

    ​ Π½Π΅ Π½Π°Π·Π½Π°Ρ‡Π΅Π½Ρ‹ другим​​ Π΅Π΅ ΠΎΡ‚ΠΏΡ€Π°Π²ΠΊΠΈ по​​НазначСниС макроса ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Ρƒ, фигурС​

  2. ​ макроса.​ элСктронной ΠΏΠΎΡ‡Ρ‚Π΅.​ ΠΏΡ€ΠΈΠΌΠ΅Π½ΠΈΠ² Π½ΡƒΠΆΠ½Ρ‹ΠΉ формат​код​.​​ Π½Π°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ элСмСнту управлСния,​​линии Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚Π΅ одно​

  3. ​ ΠΌΡ‹ΡˆΠΈ Π½Π° опрСдСлСнный​ имя свойства в​​и Π² группС​​ Π½Π° вашСм языкС.​

  4. β€‹ΠšΠΎΠ³Π΄Π° я просто​ Π³Ρ€ΡƒΠΏΠΏΡ‹ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°Π²Π°Ρ‚ΡŒβ€‹ Π½ΡƒΠΆΠ½ΠΎ Π½Π°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ ΡΡƒΡ‰Π΅ΡΡ‚Π²ΡƒΡŽΡ‰ΠΈΠΉβ€‹ ΠΊΠΎΠΌΠ°Π½Π΄Π°ΠΌ, Ρ‚Π°

Как ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ ΠΊΠ½ΠΎΠΏΠΊΡƒ для запуска своСго макроса?

Π’ Π΄Π°Π½Π½ΠΎΠΉ ΡΡ‚Π°Ρ‚ΡŒΠ΅ я расскаТу, ΠΊΠ°ΠΊ ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ ΠΊΠ½ΠΎΠΏΠΊΡƒ для запуска своСго макроса.

Π€Π°ΠΉΠ»Ρ‹ для скачивания:
Π€Π°ΠΉΠ»ΠžΠΏΠΈΡΠ°Π½ΠΈΠ΅Π Π°Π·ΠΌΠ΅Ρ€ Ρ„Π°ΠΉΠ»Π°:Бкачивания
ΠŸΡ€ΠΈΠΌΠ΅Ρ€Β 14 Кб1391

Π”Π°Π²Π°ΠΉΡ‚Π΅ возьмСм Ρ„Π°ΠΉΠ» с ΠΏΡ€Π΅Π΄Π²Π°Ρ€ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎ записанным макросом ΠΈΠ»ΠΈ запишСм Π½ΠΎΠ²Ρ‹ΠΉ макрос, ΠΊΠ°ΠΊ это ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ описано Π² ΡΡ‚Π°Ρ‚ΡŒΠ΅ «ΠšΠ°ΠΊ Π·Π°ΠΏΠΈΡΠ°Ρ‚ΡŒ макрос Π½Π΅ зная языка VBA?».

Π§Ρ‚ΠΎΠ±Ρ‹ Π²ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ Π² Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ Π»ΠΈΡΡ‚Β ΠšΠ½ΠΎΠΏΠΊΡƒ, Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΡΡ‚Ρ€ΠΎΠΈΡ‚ΡŒ (Π²ΠΊΠ»ΡŽΡ‡ΠΈΡ‚ΡŒ) Π²ΠΊΠ»Π°Π΄ΠΊΡƒ «Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ» Π½Π° Π»Π΅Π½Ρ‚Π΅ Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ мСню (Как Π΄ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ Π²ΠΊΠ»Π°Π΄ΠΊΡƒ «Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ» Π½Π° Π»Π΅Π½Ρ‚Ρƒ?).

ПослС Ρ‚ΠΎΠ³ΠΎ ΠΊΠ°ΠΊ Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΡ‹ΠΉ инструмСнт Π² качСствС Π²ΠΊΠ»Π°Π΄ΠΊΠΈ «Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ» Π΄ΠΎΠ±Π°Π²Π»Π΅Π½, ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡ€ΠΈΡΡ‚ΡƒΠΏΠ°Ρ‚ΡŒ ΠΊ созданию ΠΊΠ½ΠΎΠΏΠΊΠΈ, которая Π±ΡƒΠ΄Π΅Ρ‚ Π·Π°ΠΏΡƒΡΠΊΠ°Ρ‚ΡŒ наш макрос.

ΠŸΠ΅Ρ€Π΅Ρ…ΠΎΠ΄ΠΈΠΌ Π½Π° страницу, Π½Π° ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ Π±ΡƒΠ΄Π΅ΠΌ Ρ€Π°Π·ΠΌΠ΅Ρ‰Π°Ρ‚ΡŒ ΠΊΠ½ΠΎΠΏΠΊΡƒ, Π² Π³Π»Π°Π²Π½ΠΎΠΌ мСню Π²ΠΎ Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ «Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ» Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡƒ «Π’ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ», Π² Π²Ρ‹ΠΏΠ°Π²ΡˆΠ΅ΠΌ спискС Π²Ρ‹Π±ΠΈΡ€Π°Π΅ΠΌ ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ «ΠšΠ½ΠΎΠΏΠΊΠ° (элСмСнт управлСния Ρ„ΠΎΡ€ΠΌΡ‹)»

ПослС Ρ‡Π΅Π³ΠΎ наш курсор ΠΌΡ‹ΡˆΠΊΠΈ ΠΏΡ€Π΅Π²Ρ€Π°Ρ‚ΠΈΡ‚ΡŒΡΡ Π² крСстик, Π½Π°Π²ΠΎΠ΄ΠΈΠΌ Π΅Π³ΠΎ Π½Π° Ρ‚ΠΎ мСсто, Π² ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ΅ Ρ…ΠΎΡ‚ΠΈΠΌ Π²ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ Π½Π°ΡˆΡƒ ΠšΠ½ΠΎΠΏΠΊΡƒ, Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ Π»Π΅Π²ΡƒΡŽ ΠΊΠ»Π°Π²ΠΈΡˆΡƒ ΠΌΡ‹ΡˆΠΈ:

ΠžΡ‚ΠΊΡ€ΠΎΠ΅Ρ‚ΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ «ΠΠ°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ макрос ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Ρƒ»:

Π’ этом ΠΎΠΊΠ½Π΅ Π²Ρ‹Π±ΠΈΡ€Π°Π΅ΠΌ наш макрос ΠΈ Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ «ΠžΠš»:

Π”ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ закроСтся, Π° Π² ΡƒΠΊΠ°Π·Π°Π½Π½ΠΎΠΌ Π½Π°ΠΌΠΈ мСстС Π½Π° листС ΠΏΠΎΡΠ²ΠΈΡ‚ΡŒΡΡ ΠΊΠ½ΠΎΠΏΠΊΠ°:

Π©Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ ΠΏΠΎ любой ячСйкС Π»Π΅Π²ΠΎΠΉ клавишСй ΠΌΡ‹ΡˆΠΊΠΈ, с ΠΊΠ½ΠΎΠΏΠΊΠΈ снимСтся Π²Ρ‹Π΄Π΅Π»Π΅Π½ΠΈΠ΅:

Π©Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ Π»Π΅Π²ΠΎΠΉ клавишСй ΠΌΡ‹ΡˆΠΊΠΈ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ — макрос Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒΡΡ:

Π§Ρ‚ΠΎΠ±Ρ‹ макрос выполнялся ΠΏΠΎ Π½Π°ΠΆΠ°Ρ‚ΠΈΡŽ ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½Ρ‹Ρ… клавиш, Ρ‡ΠΈΡ‚Π°ΠΉΡ‚Π΅ ΡΡ‚Π°Ρ‚ΡŒΡŽ «ΠšΠ°ΠΊ Π½Π°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ макросу сочСтаниС клавиш?»

Π”ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ ΠΊΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΉ

ΠΠ°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ горячиС клавиши макросу Π² Β«WordΒ» ΠΈ Β«ExcelΒ»

Β 

Иногда, написанный макрос для ΠΊΠ½ΠΈΠ³ΠΈ Β«ExcelΒ» ΠΈΠ»ΠΈ Β«WordΒ» трСбуСтся Π²Ρ‹Π·Ρ‹Π²Π°Ρ‚ΡŒ Π½Π΅ Π½Π°ΠΆΠ°Ρ‚ΠΈΠ΅ΠΌ Π°ΠΊΡ‚ΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΈΠ»ΠΈ Π΄Ρ€ΡƒΠ³ΠΈΠΌ макросом, Π° Π²Ρ‹Π·Ρ‹Π²Π°Ρ‚ΡŒ Ρ€Π°Π±ΠΎΡ‚Ρƒ макроса сочСтаниСм Π½Π°Π·Π½Π°Ρ‡Π΅Π½Π½Ρ‹Ρ… ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Π΅ΠΌ горячих клавиш.Β 

ΠŸΡ€ΠΎΡ‰Π΅ всСго макрос закрСпляСтся Π·Π° горячими клавишами Π² Β«ExcelΒ».
Для назначСния ΠΊΠ½ΠΎΠΏΠΊΠ°ΠΌ макроса достаточно ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎ Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ дСйствия:

ДСйствиС ΠΏΠ΅Ρ€Π²ΠΎΠ΅:
Π’ΠΎΠΉΡ‚ΠΈ Π² ΠΊΠ½ΠΈΠ³Ρƒ макросов ΠΈ Π²Ρ‹Π±Ρ€Π°Ρ‚ΡŒ (Π²Ρ‹Π΄Π΅Π»ΠΈΡ‚ΡŒ) Π½ΡƒΠΆΠ½Ρ‹ΠΉ Π½Π°ΠΌ макрос Π»Π΅Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΈ.

ДСйствиС Π²Ρ‚ΠΎΡ€ΠΎΠ΅.
ΠšΠ»ΠΈΠΊΠ½ΡƒΠ² ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ Β«ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹Β» Π²Ρ‹Π·Π²Π°Ρ‚ΡŒ мСню настройки ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€ΠΎΠ².

Β 

ДСйствиС Ρ‚Ρ€Π΅Ρ‚ΡŒΠ΅.
Π’ мСню ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€ΠΎΠ² ΠΏΡ€ΠΎΠΏΠΈΡΠ°Ρ‚ΡŒ Π½ΡƒΠΆΠ½Ρ‹Π΅ горячиС клавиши Π½Π° Π²Ρ‹ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ макроса ΠΈ Π½Π°ΠΆΠ°Ρ‚ΡŒ ΠΊΠ½ΠΎΠΏΠΊΡƒ Β«OkΒ».

Π’ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ΅ Β«WordΒ» Π½Π°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ (Π·Π°ΠΊΡ€Π΅ΠΏΠΈΡ‚ΡŒ) ΠΊΠ»Π°Π²ΠΈΡˆΡƒ ΠΊΠ»Π°Π²ΠΈΠ°Ρ‚ΡƒΡ€Ρ‹ Π·Π° макросом Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ слоТнСС.
Для назначСния макросу горячих клавиш придСтся Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΡƒΡŽ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎΡΡ‚ΡŒ дСйствий:

ДСйствиС ΠΏΠ΅Ρ€Π²ΠΎΠ΅.

Π’Ρ‹Π·Π²Π°Ρ‚ΡŒ контСкстноС мСню ΠΊΠ»ΠΈΠΊΠ½ΡƒΠ² ΠΏΡ€Π°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΈ ΠΏΠΎ ΠΏΠ°Π½Π΅Π»ΠΈ быстрого доступа.

ДСйствиС Π²Ρ‚ΠΎΡ€ΠΎΠ΅.

Π’Ρ‹Π±Ρ€Π°Ρ‚ΡŒ Π² появившимся мСню «Настройка Π»Π΅Π½Ρ‚Ρ‹Β»

ДСйствиС Ρ‚Ρ€Π΅Ρ‚ΡŒΠ΅.

Π’ появившСмся ΠΎΠΊΠ½Π΅ настроСк Π²Ρ‹Π±Ρ€Π°Ρ‚ΡŒ Β«Π‘ΠΎΡ‡Π΅Ρ‚Π°Π½ΠΈΠ΅ клавиш «Настройка…»»

ДСйствиС Ρ‡Π΅Ρ‚Π²Π΅Ρ€Ρ‚ΠΎΠ΅.

Π’ Ρ€Π°Π·Π΄Π΅Π»Π΅ Β«ΠšΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΠΈΒ» ΠΎΡ‚ΠΊΡ€Ρ‹Π²ΡˆΠ΅Π³ΠΎΡΡ ΠΎΠΊΠ½Π° Π²Ρ‹Π±Ρ€Π°Ρ‚ΡŒ ΠΊΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΡŽ Β«ΠœΠ°ΠΊΡ€ΠΎΡΡ‹Β». Π’ сосСднСм Ρ€Π°Π·Π΄Π΅Π»Π΅ Π²Ρ‹Π΄Π΅Π»ΠΈΡ‚ΡŒ ΠΌΡ‹ΡˆΡŒΡŽ Π½ΡƒΠΆΠ½Ρ‹ΠΉ макрос.

ДСйствиС пятоС.

Π’ ΠΏΠΎΠ»Π΅ «НовоС сочСтаниС клавиш» внСсти сочСтаниС клавиш для запуска макроса ΠΈ Π½Π°ΠΆΠ°Ρ‚ΡŒ «Ок».

Π’Π΅ΠΏΠ΅Ρ€ΡŒ макрос Π±ΡƒΠ΄Π΅Ρ‚ Π·Π°ΠΊΡ€Π΅ΠΏΠ»Π΅Π½ Π·Π° ΡƒΠΊΠ°Π·Π°Π½Π½Ρ‹ΠΌ сочСтаниСм горячих клавиш.

Вопросы ΠΌΠΎΠΆΠ½ΠΎ Π·Π°Π΄Π°Π²Π°Ρ‚ΡŒ Π² коммСнтариях ΠΊ ΡΡ‚Π°Ρ‚ΡŒΠ΅ ΠΈΠ»ΠΈ Π½Π° Ρ„ΠΎΡ€ΡƒΠΌΠ΅ сайта.

Β 

Β 

VBA Excel. Π­Π»Π΅ΠΌΠ΅Π½Ρ‚ управлСния CommandButton (ΠΊΠ½ΠΎΠΏΠΊΠ°)

Π­Π»Π΅ΠΌΠ΅Π½Ρ‚ управлСния ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΎΠΉ Ρ„ΠΎΡ€ΠΌΡ‹ CommandButton, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌΡ‹ΠΉ Π² VBA Excel для запуска ΠΈ макросов. Бвойства ΠΊΠ½ΠΎΠΏΠΊΠΈ, ΠΏΡ€ΠΈΠΌΠ΅Ρ€Ρ‹ ΠΊΠΎΠ΄Π° с Π½Π΅ΠΉ.

Π­Π»Π΅ΠΌΠ΅Π½Ρ‚ управлСния CommandButton

UserForm.CommandButton — это элСмСнт управлСния ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΎΠΉ Ρ„ΠΎΡ€ΠΌΡ‹, ΠΏΡ€Π΅Π΄Π½Π°Π·Π½Π°Ρ‡Π΅Π½Π½Ρ‹ΠΉ ΠΈΡΠΊΠ»ΡŽΡ‡ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎ для запуска ΠΈ ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€ VBA Excel.

Для запуска ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€ ΠΈ макросов ΠΎΠ±Ρ‹Ρ‡Π½ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ событиС ΠΊΠ½ΠΎΠΏΠΊΠΈ — Click.

Бвойства элСмСнта CommandButton

Бвойство ОписаниС
АвтоматичСский Ρ€Π°Π·ΠΌΠ΅Ρ€ Автоподбор Ρ€Π°Π·ΠΌΠ΅Ρ€Π° ΠΊΠ½ΠΎΠΏΠΊΠΈ. True — Ρ€Π°Π·ΠΌΠ΅Ρ€ автоматичСски подстраиваСтся ΠΏΠΎΠ΄ Π΄Π»ΠΈΠ½Ρƒ Π²Π²Π΅Π΄Π΅Π½Π½ΠΎΠΉ надписи (Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ°). False — Ρ€Π°Π·ΠΌΠ΅Ρ€ элСмСнта управлСния опрСдСляСт свойства Π¨ΠΈΡ€ΠΈΠ½Π° ΠΈ Высота.
Π¦Π²Π΅Ρ‚ Π·Π°Π΄Π½Π΅ΠΉ ΠΏΠ°Π½Π΅Π»ΠΈ Π¦Π²Π΅Ρ‚ элСмСнта управлСния CommandButton.
Подпись Надпись (Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ) — тСкст, ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Π΅ΠΌΡ‹ΠΉ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅.
ControlTipText ВСкст Π²ΡΠΏΠ»Ρ‹Π²Π°ΡŽΡ‰Π΅ΠΉ подсказки ΠΏΡ€ΠΈ Π½Π°Π²Π΅Π΄Π΅Π½ΠΈΠΈ курсора Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡƒ.
Π’ΠΊΠ»ΡŽΡ‡Π΅Π½ΠΎ Π’ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡ‚ΡŒ взаимодСйствия ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Ρ с систСмой управлСния CommandButton. True — взаимодСйствиС Π²ΠΊΠ»ΡŽΡ‡Π΅Π½ΠΎ, False — ΠΎΡ‚ΠΊΠ»ΡŽΡ‡Π΅Π½ΠΎ (Ρ†Π²Π΅Ρ‚ надписи становится сСрым).
Π¨Ρ€ΠΈΡ„Ρ‚ Π¨Ρ€ΠΈΡ„Ρ‚, Π½Π°Ρ‡Π΅Ρ€Ρ‚Π°Π½ΠΈΠ΅ ΠΈ Ρ€Π°Π·ΠΌΠ΅Ρ€ тСкста надписи.
Высота Высота элСмСнта управлСния.
Π›Π΅Π²Ρ‹ΠΉ РасстояниС ΠΎΡ‚ Π»Π΅Π²ΠΎΠ³ΠΎ края Π²Π½ΡƒΡ‚Ρ€Π΅Π½Π½Π΅ΠΉ Π³Ρ€Π°Π½ΠΈΡ†Ρ‹ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΎΠΉ Ρ„ΠΎΡ€ΠΌΡ‹ Π΄ΠΎ Π»Π΅Π²ΠΎΠ³ΠΎ края элСмСнта управлСния.
Π˜Π·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ Π”ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ изобраТСния вмСсто Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ° ΠΈΠ»ΠΈ ΠΊ Π½Π΅ΠΌΡƒ.
Π˜Π·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ ΠŸΠΎΠ·ΠΈΡ†ΠΈΡ Π’Ρ‹Ρ€Π°Π²Π½ΠΈΠ²Π°Π½ΠΈΠ΅ изобраТСния ΠΈ тСкста Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅.
TabIndex ОписаниС ΠΏΠΎΠ·ΠΈΡ†ΠΈΠΈ элСмСнта управлСния Π² ΠΎΡ‡Π΅Ρ€Π΅Π΄ΠΈ получСния фокуса ΠΏΡ€ΠΈ табуляции, Π²Ρ‹Π·Ρ‹Π²Π°Π΅ΠΌΠΎΠΉ Π½Π°ΠΆΠ°Ρ‚ΠΈΠ΅ΠΌ клавиш Β«TabΒ», Β«EnterΒ».ΠžΡ‚ΡΡ‡Π΅Ρ‚ начинаСтся с 0.
Π’Π΅Ρ€Ρ… РасстояниС ΠΎΡ‚ Π²Π΅Ρ€Ρ…Π½Π΅Π³ΠΎ края Π²Π½ΡƒΡ‚Ρ€Π΅Π½Π½Π΅ΠΉ Π³Ρ€Π°Π½ΠΈΡ†Ρ‹ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΎΠΉ Ρ„ΠΎΡ€ΠΌΡ‹ Π΄ΠΎ Π²Π΅Ρ€Ρ…Π½Π΅Π³ΠΎ края элСмСнта управлСния.
Π²ΠΈΠ΄ΠΈΠΌΡ‹ΠΉ Π’ΠΈΠ΄ΠΈΠΌΠΎΡΡ‚ΡŒ элСмСнта управлСния CommandButton. True — отобраТаСтся Π½Π° ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΎΠΉ Ρ„ΠΎΡ€ΠΌΠ΅, False — скрыт.
Π¨ΠΈΡ€ΠΈΠ½Π° Π¨ΠΈΡ€ΠΈΠ½Π° элСмСнта управлСния.
WordWrap ΠŸΠ΅Ρ€Π΅Π½ΠΎΡ тСкста Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ° Π½Π° Π½ΠΎΠ²ΡƒΡŽ строку ΠΏΡ€ΠΈ достиТСнии Π΅Π΅ Π³Ρ€Π°Π½ΠΈΡ†Ρ‹. True — пСрСнос Π²ΠΊΠ»ΡŽΡ‡Π΅Π½, False — пСрСнос Π²Ρ‹ΠΊΠ»ΡŽΡ‡Π΅Π½.

Π’ Ρ‚Π°Π±Π»ΠΈΡ†Π΅ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ основныС, часто ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌΡ‹Π΅ свойства ΠΊΠ½ΠΎΠΏΠΊΠΈ. ВсС доступныС свойства ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½Ρ‹ Π² ΠΎΠΊΠ½Π΅ Бвойства элСмСнта управлСния CommandButton.

ΠŸΡ€ΠΈΠΌΠ΅Ρ€ ΠΊΠ½ΠΎΠΏΠΊΠΈ с надписью ΠΈ ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅

ΠŸΡ€ΠΈΠΌΠ΅Ρ€Ρ‹ ΠΊΠΎΠ΄Π° VBA Excel с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ ΠΊΠ½ΠΎΠΏΠΊΠΈ

Π˜Π·Π½Π°Ρ‡Π°Π»ΡŒΠ½ΠΎ для Ρ€Π΅Π°Π»ΠΈΠ·Π°Ρ†ΠΈΠΈ ΠΏΡ€ΠΈΠΌΠ΅Ρ€ΠΎΠ² Π½Π° ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΡƒΡŽ Ρ„ΠΎΡ€ΠΌΡƒ UserForm1 Π΄ΠΎΠ±Π°Π²Π»Π΅Π½Π° ​​кнопка CommandButton1.

ΠŸΡ€ΠΈΠΌΠ΅Ρ€ 1

ИзмСнСниС Ρ†Π²Π΅Ρ‚Π° ΠΈ надписи ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΏΡ€ΠΈ Π½Π°Π²Π΅Π΄Π΅Π½ΠΈΠΈ Π½Π° Π½Π΅Π΅ курсора.

УсловиС ΠΏΡ€ΠΈΠΌΠ΅Ρ€ 1
  • ДСйствия ΠΏΡ€ΠΈ Π·Π°Π³Ρ€ΡƒΠ·ΠΊΠ΅ Ρ„ΠΎΡ€ΠΌΡ‹: Π·Π°ΠΌΠ΅Π½Π° Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ° Ρ„ΠΎΡ€ΠΌΡ‹ ΠΏΠΎ ΡƒΠΌΠΎΠ»Ρ‡Π°Π½ΠΈΡŽ Π½Π° Β«ΠŸΡ€ΠΈΠΌΠ΅Ρ€ 1Β», Π·Π°ΠΌΠ΅Π½Π° надписи ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΏΠΎ ΡƒΠΌΠΎΠ»Ρ‡Π°Π½ΠΈΡŽ Π½Π° «Кнопка», запись Ρ†Π²Π΅Ρ‚Π° ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΏΠΎ ΡƒΠΌΠΎΠ»Ρ‡Π°Π½ΠΈΡŽ Π² ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΡƒΡŽ ΡƒΡ€ΠΎΠ²Π΅Π½ΡŒ модуля.
  • Π‘Π΄Π΅Π»Π°Ρ‚ΡŒ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΏΡ€ΠΈ Π½Π°Π²Π΅Π΄Π΅Π½ΠΈΠΈ курсора Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡƒ, ΠΎΠ½Π° измСняла Ρ†Π²Π΅Ρ‚ Π½Π° Π·Π΅Π»Π΅Π½Ρ‹ΠΉ, Π° надпись «» мСнялась Π½Π° надпись «НаТми!Β»
  • Π”ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊΠΎΠ΄Π° VBA Excel, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ Π±ΡƒΠ΄Π΅Ρ‚ ΠΏΡ€ΠΈ ΡƒΠ΄Π°Π»Π΅Π½ΠΈΠΈ курсора с ΠΊΠ½ΠΎΠΏΠΊΠΈ Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Ρ‚ΡŒ Π΅ΠΉ ΠΏΠ΅Ρ€Π²ΠΎΠ½Π°Ρ‡Π°Π»ΡŒΠ½Ρ‹Π΅ настройки: Ρ†Π²Π΅Ρ‚ ΠΏΠΎ ΡƒΠΌΠΎΠ»Ρ‡Π°Π½ΠΈΡŽ ΠΈ надпись «Кнопка».
РСшСниС ΠŸΡ€ΠΈΠΌΠ΅Ρ€ 1

1. ОбъявляСм Π² Ρ€Π°Π·Π΄Π΅Π»Π΅ ОбъявлСния модуля ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΎΠΉ Ρ„ΠΎΡ€ΠΌΡ‹ (Π² самом Π½Π°Ρ‡Π°Π»Π΅ модуля, Π΄ΠΎ ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€) ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΡƒΡŽ myColor:

2. Π—Π°Π³Ρ€ΡƒΠΆΠ°Π΅ΠΌ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΡƒΡŽ Ρ„ΠΎΡ€ΠΌΡƒ с Π·Π°Π΄Π°Π½Π½Ρ‹ΠΌΠΈ:

Частная ΠΏΠΎΠ΄ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° UserForm_Initialize ()

Me.Caption = «ΠŸΡ€ΠΈΠΌΠ΅Ρ€ 1»

Π‘ CommandButton1

myColor = .BackColor

.Caption = «ΠšΠ½ΠΎΠΏΠΊΠ°»

End With

End Sub

3. МСняСм Ρ†Π²Π΅Ρ‚ ΠΈ надпись ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΏΡ€ΠΈ Π½Π°Π²Π΅Π΄Π΅Π½ΠΈΠΈ Π½Π° Π½Π΅Π΅ курсора ΠΌΡ‹ΡˆΠΈ:

Private Sub CommandButton1_MouseMove (ByVal _

Button as Integer, ByVal Shift as Integer, _

ByVal X ΠΊΠ°ΠΊ Single, ByVal Y ΠΊΠ°ΠΊ Single)

With CommandButton1

.BackColor = vbGreen

.Caption = «ΠΠ°ΠΆΠΌΠΈ!»

ΠšΠΎΠ½Π΅Ρ† с

ΠšΠΎΠ½Ρ†Π΅Π²ΠΎΠΉ ΠΏΠ΅Ρ€Π΅Π²ΠΎΠ΄Π½ΠΈΠΊ

4. Π’ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅ΠΌ Ρ†Π²Π΅Ρ‚ ΠΈ надпись ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΏΡ€ΠΈ ΡƒΠ΄Π°Π»Π΅Π½ΠΈΠΈ с Π½Π΅Π΅ курсора ΠΌΡ‹ΡˆΠΈ:

Private Sub UserForm_MouseMove (ByVal _

Button as Integer, ByVal Shift as Integer, _

ByVal X ΠΊΠ°ΠΊ Single, ByVal Y ΠΊΠ°ΠΊ Single)

With CommandButton1

.BackColor = myColor

.Caption = «ΠšΠ½ΠΎΠΏΠΊΠ°»

End With

End Sub

ВсС ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹ Ρ€Π°Π·ΠΌΠ΅Ρ‰Π°ΡŽΡ‚ΡΡ Π² ΠΌΠΎΠ΄ΡƒΠ»Π΅ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΎΠΉ Ρ„ΠΎΡ€ΠΌΡ‹. ΠŸΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Π°Ρ myColor ΠΎΠ±ΡŠΡΠ²Π»ΡΠ΅Ρ‚ΡΡ Π½Π° ΡƒΡ€ΠΎΠ²Π½Π΅ модуля, Ρ‚Π°ΠΊ ΠΊΠ°ΠΊ ΠΎΠ½Π° ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ Π² Π΄Π²ΡƒΡ… ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π°Ρ….

ΠŸΡ€ΠΈΠΌΠ΅Ρ€ 2

Запуск ΠΊΠΎΠ΄Π°, Ρ€Π°Π·ΠΌΠ΅Ρ‰Π΅Π½Π½ΠΎΠ³ΠΎ Π²Π½ΡƒΡ‚Ρ€ΠΈ ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€ ΠΎΠ±Ρ€Π°Π±ΠΎΡ‚ΠΊΠΈ событий Π©Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ элСмСнт управлСния CommandButton:

Частная подписка CommandButton1_Click ()

MsgBox «Код Π²Π½ΡƒΡ‚Ρ€ΠΈ ΠΎΠ±Ρ€Π°Π±ΠΎΡ‚ΠΊΠΈ событий ClickΒ»

End Sub

ΠŸΡ€ΠΈΠΌΠ΅Ρ€ 3

Запуск внСшнСй ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹ ΠΈΠ· ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€ ΠΎΠ±Ρ€Π°Π±ΠΎΡ‚ΠΊΠΈ события. Π©Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ элСмСнт управлСния CommandButton.

Π’Π½Π΅ΡˆΠ½ΡΡ ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π°, размСщСнная Π² стандартном ΠΌΠΎΠ΄ΡƒΠ»Π΅ ΠΏΡ€ΠΎΠ΅ΠΊΡ‚Π° VBA Excel:

Sub Test ()

MsgBox «Π—апуск внСшнСй ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹»

End Sub

Π’Ρ‹Π·ΠΎΠ² внСшнСй ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹ ΠΈΠ· ΠΊΠΎΠ΄Π° ΠΎΠ±Ρ€Π°Π±ΠΎΡ‚ΠΊΠΈ события НаТмитС

  • с ΠΊΠ»ΡŽΡ‡Π΅Π²Ρ‹ΠΌ словом Π—Π²ΠΎΠ½ΠΎΠΊ:

Частная ΠΏΠΎΠ΄ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° CommandButton1_Click ()

ΠŸΡ€ΠΎΠ²Π΅Ρ€ΠΊΠ° Π²Ρ‹Π·ΠΎΠ²Π°

ΠšΠΎΠ½Π΅Ρ‡Π½Π°Ρ ΠΏΠΎΠ΄ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ°

  • Π±Π΅Π· ΠΊΠ»ΡŽΡ‡Π΅Π²ΠΎΠ³ΠΎ слова ΠŸΠΎΠ·Π²ΠΎΠ½ΠΈΡ‚ΡŒ:

Частная ΠΏΠΎΠ΄ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° CommandButton1_Click ()

ВСст

ΠšΠΎΠ½Π΅Ρ‡Π½Π°Ρ ΠΏΠΎΠ΄ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ°

Π‘Ρ‚Ρ€ΠΎΠΊΠΈ Π²Ρ‹Π·ΠΎΠ²Π° внСшнСй ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹ с ΠΊΠ»ΡŽΡ‡Π΅Π²Ρ‹ΠΌ словом Call ΠΈ Π±Π΅Π· Π½Π΅Π³ΠΎ — Ρ€Π°Π²Π½ΠΎΠ·Π½Π°Ρ‡Π½Ρ‹.На Π²Ρ‹Π·ΠΎΠ²Π΅ слово ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡ€ΠΈΠ΅Π½Ρ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒΡΡ ΠΊΠ°ΠΊ Π½Π° подсказку, которая ΡƒΠΊΠ°Π·Ρ‹Π²Π°Π΅Ρ‚ Π½Π° Ρ‚ΠΎ, Ρ‡Ρ‚ΠΎ эта строка Π²Ρ‹Π·Ρ‹Π²Π°Π΅Ρ‚ внСшнюю Тизнь.

.

ΠŸΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ½ΠΎΠ΅ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΎΠΊ Π½Π° лист Excel

Надстройка для Π·Π°Π³Ρ€ΡƒΠ·ΠΊΠΈ ΠΊΠ½ΠΎΠΏΠΎΠΊ запуска макроса Π½Π° лист Excel

.

макросы ΠΌΠ½Π΅ приходится ΠΏΠΈΡΠ°Ρ‚ΡŒ ΠΈΡ… ΠΎΡ‡Π΅Π½ΡŒ часто, рисованиС ΠΊΠ½ΠΎΠΏΠΎΠΊ запуска ΠΎΡ‚Π½ΠΈΠΌΠ°Π΅Ρ‚ достаточно ΠΌΠ½ΠΎΠ³ΠΎ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ.

РСшСниСм стало созданиС этой надстройки — Ρ‚Π΅ΠΏΠ΅Ρ€ΡŒ достаточно Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ячССк Π½Π° листС Excel , Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠΊΠΎΠΌΠ±ΠΈΠ½Π°Ρ†ΠΈΡŽ клавиш Ρ‚ΠΈΠΏΠ° Alt + 1 , — ΠΈ Ρ‡Π΅Ρ€Π΅Π· ΠΌΠ³Π½ΠΎΠ²Π΅Π½ΠΈΠ΅ Π½Π° листС создаётся зСлёная ΠΊΠ½ΠΎΠΏΠΊΠ° с Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ «Запуск», располоТСнная Ρ‚ΠΎΡ‡Π½ΠΎ ΠΏΠΎΠ²Π΅Ρ€Ρ… Ρ€Π°Π½Π΅Π΅ Π²Ρ‹Π΄Π΅Π»Π΅Π½Π½Ρ‹Ρ… ячССк.ΠžΡΡ‚Π°Ρ‘Ρ‚ΡΡ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Π½Π°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ эту ΠΊΠ½ΠΎΠΏΠΊΡƒ макроса, Ρ‰Π΅Π»ΠΊΠ½ΡƒΠ² ΠΏΠΎ Π½Π΅ΠΉ ΠΏΡ€Π°Π²ΠΎΠΉ клавишСй ΠΌΡ‹ΡˆΠΈ.

ΠŸΡ€ΠΈΠΌΠ΅Ρ€ ΠΊΠΎΠ΄Π° VBA для создания ΠΊΠ½ΠΎΠΏΠΊΠΈ:

 Sub ΠŸΡ€ΠΈΠΌΠ΅Ρ€Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Π½ΠΈΡ ()
    Π‘ΠΎΠ·Π΄Π°Ρ‚ΡŒΠšΠ½ΠΎΠΏΠΊΡƒ Selection, vbGreen, "ΠžΠ±Ρ€Π°Π±ΠΎΡ‚Π°Ρ‚ΡŒ Π΄Π°Π½Π½Ρ‹Π΅": End Sub
ΠšΠΎΠ½Ρ†Π΅Π²ΠΎΠΉ ΠΏΠ΅Ρ€Π΅Π²ΠΎΠ΄Π½ΠΈΠΊ 

Для Π²Ρ‹Π·ΠΎΠ²Π° Ρ„ΠΎΡ€ΠΌΡ‹ (Π³Π΄Π΅ ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΡΡ‚Ρ€ΠΎΠΈΡ‚ΡŒ тСкст ΠΈ Ρ†Π²Π΅Ρ‚ Π±ΡƒΠ΄ΡƒΡ‰Π΅ΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΈ) эта комбинация клавиш Ctrl + Alt + Shift + B

Код Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ добавлСния ΠΊΠ½ΠΎΠΏΠΎΠΊ Π½Π° лист Excel:

 Ѐункция Π‘ΠΎΠ·Π΄Π°Ρ‚ΡŒΠšΠ½ΠΎΠΏΠΊΡƒ (ByRef ra As Range, Optional ByVal ButtonColor As Long = 255, _
                       ΠΠ΅ΠΎΠ±ΡΠ·Π°Ρ‚Π΅Π»ΡŒΠ½Ρ‹ΠΉ ByVal ButtonName $ = "Запуск", ΠΠ΅ΠΎΠ±ΡΠ·Π°Ρ‚Π΅Π»ΡŒΠ½Ρ‹ΠΉ ByVal MacroName As String = "")
    Ѐункция рисуСт Π°Π²Ρ‚ΠΎΡ„ΠΈΠ³ΡƒΡ€Ρƒ (ΠΏΡ€ΡΠΌΠΎΡƒΠ³ΠΎΠ»ΡŒΠ½ΠΈΠΊ) ΠΏΠΎΠ²Π΅Ρ€Ρ… Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ячССк ra
    'ΠΈ ΠΎΠΊΡ€Π°ΡˆΠΈΠ²Π°Π΅Ρ‚ ΡΠΎΠ·Π΄Π°Π½Π½ΡƒΡŽ ΠΊΠ½ΠΎΠΏΠΊΡƒ (с Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ) Π² Ρ†Π²Π΅Ρ‚ Button_color
    'Π‘ΠΎΠ·Π΄Π°Π½Π½ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠ΅ назначаСтся макрос MacroName
    ΠŸΡ€ΠΈ ошибкС Π’ΠΎΠ·ΠΎΠ±Π½ΠΎΠ²ΠΈΡ‚ΡŒ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ: Err.ΠžΡ‡ΠΈΡΡ‚ΠΈΡ‚ΡŒ
    w = ra.Π¨ΠΈΡ€ΠΈΠ½Π°: h = ra.Height: l = ra.Left: t = ra.Top
    w = IIf (w> = 10, w, 50): h = IIf (h> = 10, h, 50) 'Π½Π΅ создаём малСнькиС ΠΊΠ½ΠΎΠΏΠΊΠΈ - ΠΌΠΈΠ½ΠΈΠΌΡƒΠΌ 10 * 10

    'добавляСм ΠΊΠ½ΠΎΠΏΠΊΡƒ Π½Π° лист
    Dim sha As Shape: УстановитС sha = ActiveSheet.Shapes.AddShape (msoShapeRoundedRectangle, l, t, w, h)
    Π‘ sha 'оформляСм Π°Π²Ρ‚ΠΎΡ„ΠΈΠ³ΡƒΡ€Ρƒ
        .Fill.Visible = msoTrue: .Fill.Solid
        .Fill.ForeColor.RGB = Π¦Π²Π΅Ρ‚ ΠΊΠ½ΠΎΠΏΠΊΠΈ: .Fill.Transparency = 0,3
        .Fill.BackColor.RGB = vbWhite
        .Π—Π°ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ.TwoColorGradient msoGradientFromCenter, 2 'градиСнтная Π·Π°Π»ΠΈΠ²ΠΊΠ°
        .Adjustments.item (1) = 0,23: .Placement = xlFreeFloating
        .OLEFormat.Object.PrintObject = False 'ΠΊΠ½ΠΎΠΏΠΊΠΈ Π½Π΅ выводятся Π½Π° ΠΏΠ΅Ρ‡Π°Ρ‚ΡŒ
        .Line.Weight = 0,25: .Line.ForeColor.RGB = vbBlack 'Π΄Π΅Π»Π°Π΅ΠΌ Ρ‚ΠΎΠ½ΠΊΠΈΠΉ Ρ‡Π΅Ρ€Π½Ρ‹ΠΉ ΠΊΠΎΠ½Ρ‚ΡƒΡ€
        With .TextFrame 'добавляСм ΠΈ Ρ„ΠΎΡ€ΠΌΠ°Ρ‚ΠΈΡ€ΡƒΠ΅ΠΌ тСкст
            .Characters.Text = ButtonName $ 'добавляСм тСкст
            Π‘ .Characters.Font измСняСм Π½Π°Ρ‡Π΅Ρ€Ρ‚Π°Π½ΠΈΠ΅ тСкста
                .Size = IIf (h> = 16, 10, 8):. ΠŸΠΎΠ»ΡƒΠΆΠΈΡ€Π½Ρ‹ΠΉ ΡˆΡ€ΠΈΡ„Ρ‚ = True:
                .Color = vbBlack: .Name = "Arial" 'Ρ†Π²Π΅Ρ‚ ΠΈ ΡˆΡ€ΠΈΡ„Ρ‚
            ΠšΠΎΠ½Π΅Ρ† с
            .HorizontalAlignment = xlCenter: .VerticalAlignment = xlVAlignCenter
        ΠšΠΎΠ½Π΅Ρ† с
        .onaction = MacroName 'Π½Π°Π·Π½Π°Ρ‡Π°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠ΅ макрос (Ссли ΠΎΠ½ Π·Π°Π΄Π°Π½ Π² ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Π°Ρ…)
    ΠšΠΎΠ½Π΅Ρ† с
ΠšΠΎΠ½Π΅Ρ‡Π½Π°Ρ функция 

.

Π”ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ ΠΊΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΉ

Π’Π°Ρˆ адрСс email Π½Π΅ Π±ΡƒΠ΄Π΅Ρ‚ ΠΎΠΏΡƒΠ±Π»ΠΈΠΊΠΎΠ²Π°Π½. ΠžΠ±ΡΠ·Π°Ρ‚Π΅Π»ΡŒΠ½Ρ‹Π΅ поля ΠΏΠΎΠΌΠ΅Ρ‡Π΅Π½Ρ‹ *