Excel макрос ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ: Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈ ΡƒΠ΄Π°Π»Π΅Π½ΠΈΠ΅ макроса Π² Excel для Mac

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

Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈ ΡƒΠ΄Π°Π»Π΅Π½ΠΈΠ΅ макроса Π² Excel для Mac

Excel для Microsoft 365 для Mac Excel 2021 для Mac ExcelΒ 2019 для Mac ExcelΒ 2016 для Mac Π•Ρ‰Π΅…МСньшС

Π§Ρ‚ΠΎΠ±Ρ‹ Π°Π²Ρ‚ΠΎΠΌΠ°Ρ‚ΠΈΠ·ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ΠΏΠΎΠ²Ρ‚ΠΎΡ€ΡΡŽΡ‰ΠΈΠ΅ΡΡ Π·Π°Π΄Π°Ρ‡ΠΈ ΠΎΠ΄Π½ΠΈΠΌ Ρ‰Π΅Π»Ρ‡ΠΊΠΎΠΌ ΠΌΡ‹ΡˆΠΈ, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ Π²ΠΊΠ»Π°Π΄ΠΊΡƒ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ Π² Excel для Mac для записи ΠΈ запуска макроса. ΠšΡ€ΠΎΠΌΠ΅ Ρ‚ΠΎΠ³ΠΎ, ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ макрос с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€ Visual Basic Π² Microsoft Visual Basic для ΠΏΡ€ΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ (VBA), написав собствСнный ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ½Ρ‹ΠΉ ΠΊΠΎΠ΄. ΠœΠ°ΠΊΡ€ΠΎΡ, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ Π²Ρ‹ большС Π½Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚Π΅, ΠΌΠΎΠΆΠ½ΠΎ ΡƒΠ΄Π°Π»ΠΈΡ‚ΡŒ.

Π—Π°ΠΏΠΈΡΡŒ макроса


ΠŸΡ€ΠΈ записи макроса всС Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΡ‹Π΅ дСйствия Π·Π°ΠΏΠΈΡΡ‹Π²Π°ΡŽΡ‚ΡΡ срСдством записи макроса. Π’Π°ΠΊΠΈΠΌΠΈ дСйствиями ΠΌΠΎΠΆΠ΅Ρ‚ Π±Ρ‹Ρ‚ΡŒ Π²Π²ΠΎΠ΄ тСкста ΠΈΠ»ΠΈ чисСл, Π²Ρ‹Π±ΠΎΡ€ ячССк ΠΈΠ»ΠΈ ΠΊΠΎΠΌΠ°Π½Π΄ Π½Π° Π»Π΅Π½Ρ‚Π΅ ΠΈΠ»ΠΈ Π² мСню, Ρ„ΠΎΡ€ΠΌΠ°Ρ‚ΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅, Π²Ρ‹Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ячССк, строк ΠΈΠ»ΠΈ столбцов, Π° Ρ‚Π°ΠΊΠΆΠ΅ Π²Ρ‹Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ячССк ΠΏΡƒΡ‚Π΅ΠΌ пСрСтаскивания указатСля ΠΌΡ‹ΡˆΠΈ. ΠšΠΎΠΌΠ°Π½Π΄Ρ‹ для записи, создания ΠΈ удалСния макросов доступны Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π»Π΅Π½Ρ‚Ρ‹ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ.

    org/ItemList»>

  1. Если Π²ΠΊΠ»Π°Π΄ΠΊΠ° Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ нСдоступна, Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚Π΅ пСрСчислСнныС Π½ΠΈΠΆΠ΅ дСйствия, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚ΡŒ Π΅Π΅.

    1. Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Excel > ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹ >Π»Π΅Π½Ρ‚Ρ‹ & ΠΏΠ°Π½Π΅Π»ΠΈ инструмСнтов.

    2. Π’ области Настройка Π»Π΅Π½Ρ‚Ρ‹Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠžΡΠ½ΠΎΠ²Π½Ρ‹Π΅ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ ΠΈ Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ.

    3. НаТмитС ΠΊΠ½ΠΎΠΏΠΊΡƒ Π‘ΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ, Π° Π·Π°Ρ‚Π΅ΠΌ Excel ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹.

  2. org/ListItem»>

    На Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠΊΠ½ΠΎΠΏΠΊΡƒ Π—Π°ΠΏΠΈΡΡŒ макроса.

    ΠŸΡ€ΠΈΠΌΠ΅Ρ‡Π°Π½ΠΈΠ΅:Β Π§Ρ‚ΠΎΠ±Ρ‹ ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ макрос ΠΈΠ· VBE, Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ Visual Basic. Π’ ΠΎΠΊΠ½Π΅ ΠΊΠΎΠ΄Π° модуля Π²Π²Π΅Π΄ΠΈΡ‚Π΅ ΠΊΠΎΠ΄ макроса.

  3. Π’ ΠΏΠΎΠ»Π΅ Имя макроса Π²Π²Π΅Π΄ΠΈΡ‚Π΅ имя макроса.

    ΠŸΠ΅Ρ€Π²Ρ‹ΠΌ символом ΠΈΠΌΠ΅Π½ΠΈ макроса Π΄ΠΎΠ»ΠΆΠ½Π° Π±Ρ‹Ρ‚ΡŒ Π±ΡƒΠΊΠ²Π°. ΠŸΠΎΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ символы ΠΌΠΎΠ³ΡƒΡ‚ Π±Ρ‹Ρ‚ΡŒ Π±ΡƒΠΊΠ²Π°ΠΌΠΈ, Ρ†ΠΈΡ„Ρ€Π°ΠΌΠΈ ΠΈΠ»ΠΈ Π·Π½Π°ΠΊΠ°ΠΌΠΈ подчСркивания. Π’ ΠΈΠΌΠ΅Π½ΠΈ макроса Π½Π΅ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΡΠΎΠ΄Π΅Ρ€ΠΆΠ°Ρ‚ΡŒΡΡ ΠΏΡ€ΠΎΠ±Π΅Π»ΠΎΠ²; Π² качСствС Ρ€Π°Π·Π΄Π΅Π»ΠΈΡ‚Π΅Π»Π΅ΠΉ слов слСдуСт ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Π·Π½Π°ΠΊΠΈ подчСркивания. Если ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ имя макроса, ΡΠ²Π»ΡΡŽΡ‰Π΅Π΅ΡΡ ссылкой Π½Π° ячСйку, ΠΌΠΎΠΆΠ΅Ρ‚ ΠΏΠΎΡΠ²ΠΈΡ‚ΡŒΡΡ сообщСниС ΠΎΠ± ошибкС, ΡƒΠΊΠ°Π·Ρ‹Π²Π°ΡŽΡ‰Π΅Π΅ Π½Π° нСдопустимоС имя макроса..

  4. Π’ спискС Π‘ΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ Π² Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ эта ΠΊΠ½ΠΈΠ³Π°.

  5. Π’ ΠΏΠΎΠ»Π΅ Π‘ΠΎΡ‡Π΅Ρ‚Π°Π½ΠΈΠ΅ клавиш Π²Π²Π΅Π΄ΠΈΡ‚Π΅ ΠΏΡ€ΠΎΠΏΠΈΡΠ½ΡƒΡŽ ΠΈΠ»ΠΈ ΡΡ‚Ρ€ΠΎΡ‡Π½ΡƒΡŽ Π±ΡƒΠΊΠ²Ρƒ, ΠΊΠΎΡ‚ΠΎΡ€ΡƒΡŽ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ.

    ΠŸΡ€ΠΈΠΌΠ΅Ρ‡Π°Π½ΠΈΠ΅:Β Π’Ρ‹Π±Ρ€Π°Π½Π½ΠΎΠ΅ сочСтаниС клавиш замСняСт всС ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡŽΡ‰ΠΈΠ΅ стандартныС сочСтания клавиш Excel Π½Π° Ρ‚ΠΎ врСмя, ΠΏΠΎΠΊΠ° ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚Π° ΠΊΠ½ΠΈΠ³Π°, содСрТащая ΡΠΎΠΎΡ‚Π²Π΅Ρ‚ΡΡ‚Π²ΡƒΡŽΡ‰ΠΈΠΉ макрос.

  6. Π’Π²Π΅Π΄ΠΈΡ‚Π΅ описаниС макроса Π² ΠΏΠΎΠ»Π΅ ОписаниС ΠΈ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠΊΠ½ΠΎΠΏΠΊΡƒ ОК.

  7. Π—Π°Π²Π΅Ρ€ΡˆΠΈΡ‚Π΅ запись макроса.

  8. На Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ ΠžΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ запись.


К Π½Π°Ρ‡Π°Π»Ρƒ страницы


Π£Π΄Π°Π»Π΅Π½ΠΈΠ΅ макроса


  1. На Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠΊΠ½ΠΎΠΏΠΊΡƒ ΠœΠ°ΠΊΡ€ΠΎΡΡ‹.

  2. Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Π² спискС макрос, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ трСбуСтся ΡƒΠ΄Π°Π»ΠΈΡ‚ΡŒ, ΠΈ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠΊΠ½ΠΎΠΏΠΊΡƒ «Π£Π΄Π°Π»ΠΈΡ‚ΡŒ».


К Π½Π°Ρ‡Π°Π»Ρƒ страницы


Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈ ΡƒΠ΄Π°Π»Π΅Π½ΠΈΠ΅ макросов

Β 

НиТС описываСтся созданиС ΠΈ ΡƒΠ΄Π°Π»Π΅Π½ΠΈΠ΅ макроса Π² ExcelΒ 2013 ΠΈ 2016.

Π—Π°ΠΏΠΈΡΡŒ макроса

ΠŸΡ€ΠΈ записи макроса всС Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΡ‹Π΅ дСйствия Π·Π°ΠΏΠΈΡΡ‹Π²Π°ΡŽΡ‚ΡΡ срСдством записи макроса. Π’Π°ΠΊΠΈΠΌΠΈ дСйствиями ΠΌΠΎΠΆΠ΅Ρ‚ Π±Ρ‹Ρ‚ΡŒ Π²Π²ΠΎΠ΄ тСкста ΠΈΠ»ΠΈ чисСл, Π²Ρ‹Π±ΠΎΡ€ ячССк ΠΈΠ»ΠΈ ΠΊΠΎΠΌΠ°Π½Π΄ Π½Π° Π»Π΅Π½Ρ‚Π΅ ΠΈΠ»ΠΈ Π² мСню, Ρ„ΠΎΡ€ΠΌΠ°Ρ‚ΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅, Π²Ρ‹Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ячССк, строк ΠΈΠ»ΠΈ столбцов, Π° Ρ‚Π°ΠΊΠΆΠ΅ Π²Ρ‹Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ячССк ΠΏΡƒΡ‚Π΅ΠΌ пСрСтаскивания указатСля ΠΌΡ‹ΡˆΠΈ. ΠšΠΎΠΌΠ°Π½Π΄Ρ‹ для записи, создания ΠΈ удалСния макросов доступны Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π»Π΅Π½Ρ‚Ρ‹ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ.

    1. Если Π²ΠΊΠ»Π°Π΄ΠΊΠ° Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ нСдоступна, Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚Π΅ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ дСйствия для Π΅Π΅ отобраТСния:
        1. ΠžΡ‚ΠΊΡ€ΠΎΠΉΡ‚Π΅ Π²ΠΊΠ»Π°Π΄ΠΊΡƒ Π€Π°ΠΉΠ».
        2. НаТмитС ΠΊΠ½ΠΎΠΏΠΊΡƒ ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹ ΠΈ Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ Настройка Π»Π΅Π½Ρ‚Ρ‹.
        3. Π’ ΠΊΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΠΈ Настройка Π»Π΅Π½Ρ‚Ρ‹ Π² спискС ΠžΡΠ½ΠΎΠ²Π½Ρ‹Π΅ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ установитС Ρ„Π»Π°ΠΆΠΎΠΊ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ, Π° Π·Π°Ρ‚Π΅ΠΌ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠΊΠ½ΠΎΠΏΠΊΡƒ ОК.
      1. Π§Ρ‚ΠΎΠ±Ρ‹ Ρ€Π°Π·Ρ€Π΅ΡˆΠΈΡ‚ΡŒ всС макросы, Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, сначала потрСбуСтся ΡƒΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ ΡƒΡ€ΠΎΠ²Π΅Π½ΡŒ бСзопасности. Для этого Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚Π΅ ΡƒΠΊΠ°Π·Π°Π½Π½Ρ‹Π΅ Π½ΠΈΠΆΠ΅ дСйствия.
        1. На Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ Π² Π³Ρ€ΡƒΠΏΠΏΠ΅ Код Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠΊΠ½ΠΎΠΏΠΊΡƒ Π‘Π΅Π·ΠΎΠΏΠ°ΡΠ½ΠΎΡΡ‚ΡŒ макросов.
        2. Π’ Π³Ρ€ΡƒΠΏΠΏΠ΅ ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹ макросов Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΏΠ΅Ρ€Π΅ΠΊΠ»ΡŽΡ‡Π°Ρ‚Π΅Π»ΡŒ Π’ΠΊΠ»ΡŽΡ‡ΠΈΡ‚ΡŒ всС макросы (Π½Π΅ рСкомСндуСтся, Π²ΠΎΠ·ΠΌΠΎΠΆΠ΅Π½ запуск опасной ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹), Π° Π·Π°Ρ‚Π΅ΠΌ Π΄Π²Π°ΠΆΠ΄Ρ‹ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠΊΠ½ΠΎΠΏΠΊΡƒ ОК.

          Π’ΠΠ˜ΠœΠΠΠ˜Π• : Для прСдотвращСния запуска ΠΏΠΎΡ‚Π΅Π½Ρ†ΠΈΠ°Π»ΡŒΠ½ΠΎ опасного ΠΊΠΎΠ΄Π° ΠΏΠΎ Π·Π°Π²Π΅Ρ€ΡˆΠ΅Π½ΠΈΠΈ Ρ€Π°Π±ΠΎΡ‚Ρ‹ с макросами рСкомСндуСтся Π²Π΅Ρ€Π½ΡƒΡ‚ΡŒ ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹, ΠΎΡ‚ΠΊΠ»ΡŽΡ‡Π°ΡŽΡ‰ΠΈΠ΅ всС макросы.

      2. Нравится? ПодСлись с Π΄Ρ€ΡƒΠ·ΡŒΡΠΌΠΈ Π² ΡΠΎΡ†ΠΈΠ°Π»ΡŒΠ½Ρ‹Ρ… сСтях, Π½Π°ΠΆΠΌΠΈ ΠΏΠΎΠ΄Π΅Π»ΠΈΡ‚ΡŒΡΡ

          1. На Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ Π² Π³Ρ€ΡƒΠΏΠΏΠ΅ Код Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠΊΠ½ΠΎΠΏΠΊΡƒ Π—Π°ΠΏΠΈΡΡŒ макроса.
          2. Π’ ΠΏΠΎΠ»Π΅ Имя Π²Π²Π΅Π΄ΠΈΡ‚Π΅ имя макроса .

            ΠŸΠ Π˜ΠœΠ•Π§ΠΠΠ˜Π• :Β ΠŸΠ΅Ρ€Π²Ρ‹ΠΌ символом ΠΈΠΌΠ΅Π½ΠΈ макроса Π΄ΠΎΠ»ΠΆΠ½Π° Π±Ρ‹Ρ‚ΡŒ Π±ΡƒΠΊΠ²Π°. ΠŸΠΎΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ символы ΠΌΠΎΠ³ΡƒΡ‚ Π±Ρ‹Ρ‚ΡŒ Π±ΡƒΠΊΠ²Π°ΠΌΠΈ, Ρ†ΠΈΡ„Ρ€Π°ΠΌΠΈ ΠΈΠ»ΠΈ Π·Π½Π°ΠΊΠ°ΠΌΠΈ подчСркивания. Π’ ΠΈΠΌΠ΅Π½ΠΈ макроса Π½Π΅ Π΄ΠΎΠΏΡƒΡΠΊΠ°ΡŽΡ‚ΡΡ ΠΏΡ€ΠΎΠ±Π΅Π»Ρ‹; Π² качСствС Ρ€Π°Π·Π΄Π΅Π»ΠΈΡ‚Π΅Π»Π΅ΠΉ слов слСдуСт ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Π·Π½Π°ΠΊΠΈ подчСркивания. Если ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ имя макроса, ΡΠ²Π»ΡΡŽΡ‰Π΅Π΅ΡΡ ссылкой Π½Π° ячСйку, ΠΌΠΎΠΆΠ΅Ρ‚ ΠΏΠΎΡΠ²ΠΈΡ‚ΡŒΡΡ сообщСниС ΠΎΠ± ошибкС, ΡƒΠΊΠ°Π·Ρ‹Π²Π°ΡŽΡ‰Π΅Π΅ Π½Π° нСдопустимоС имя макроса.

          3. Π§Ρ‚ΠΎΠ±Ρ‹ Π½Π°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ сочСтаниС клавиш с клавишСй CTRL для запуска макроса, Π² ΠΏΠΎΠ»Π΅ Π‘ΠΎΡ‡Π΅Ρ‚Π°Π½ΠΈΠ΅ клавиш Π²Π²Π΅Π΄ΠΈΡ‚Π΅ Π»ΡŽΠ±ΡƒΡŽ ΡΡ‚Ρ€ΠΎΡ‡Π½ΡƒΡŽ ΠΈΠ»ΠΈ ΠΏΡ€ΠΎΠΏΠΈΡΠ½ΡƒΡŽ Π±ΡƒΠΊΠ²Ρƒ.Π’Ρ‹Π±Ρ€Π°Π½Π½ΠΎΠ΅ сочСтаниС клавиш замСняСт всС ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡŽΡ‰ΠΈΠ΅ стандартныС сочСтания клавиш Excel Π½Π° Ρ‚ΠΎ врСмя, ΠΏΠΎΠΊΠ° ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚Π° ΠΊΠ½ΠΈΠ³Π°, содСрТащая Π΄Π°Π½Π½Ρ‹ΠΉ макрос.
          1. Π’ ΠΏΠΎΠ»Π΅ Π‘ΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ Π² Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΊΠ½ΠΈΠ³Ρƒ, Π² ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ Π½ΡƒΠΆΠ½ΠΎ ΡΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ макрос.Если Π²Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π΄Π°Π½Π½Ρ‹ΠΉ макрос Π±Ρ‹Π» всСгда доступСн ΠΏΡ€ΠΈ Ρ€Π°Π±ΠΎΡ‚Π΅ Π² Excel, Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ Личная ΠΊΠ½ΠΈΠ³Π° макросов. ΠŸΡ€ΠΈ Π²Ρ‹Π±ΠΎΡ€Π΅ этого Π²Π°Ρ€ΠΈΠ°Π½Ρ‚Π° создаСтся скрытая личная ΠΊΠ½ΠΈΠ³Π° макросов (Personal.xlsb) (Ссли ΠΎΠ½Π° Π΅Ρ‰Π΅ Π½Π΅ сущСствуСт), Π² ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ сохраняСтся Π΄Π°Π½Π½Ρ‹ΠΉ макрос. Π’ WindowsΒ 7 ΠΈ Windows Vista эта ΠΊΠ½ΠΈΠ³Π° сохраняСтся Π² ΠΏΠ°ΠΏΠΊΠ΅ C:\Users\имя_ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Ρ\Application Data\Microsoft\Excel\XLStart. Π’ Microsoft WindowsΒ XP эта ΠΊΠ½ΠΈΠ³Π° сохраняСтся Π² ΠΏΠ°ΠΏΠΊΠ΅ C:\Documents and Settings\имя_ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Ρ\Application Data\Microsoft\Excel\XLStart, ΠΎΡ‚ΠΊΡƒΠ΄Π° ΠΎΠ½Π° Π±ΡƒΠ΄Π΅Ρ‚ автоматичСски Π·Π°Π³Ρ€ΡƒΠΆΠ°Ρ‚ΡŒΡΡ ΠΏΡ€ΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠΌ запускС прилоТСния Excel. Если Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ автоматичСски Π²Ρ‹ΠΏΠΎΠ»Π½ΡΡ‚ΡŒ макрос ΠΈΠ· Π»ΠΈΡ‡Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Π² Π΄Ρ€ΡƒΠ³ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅, слСдуСт Ρ‚Π°ΠΊΠΆΠ΅ ΡΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ эту ΠΊΠ½ΠΈΠ³Ρƒ Π² ΠΏΠ°ΠΏΠΊΠ΅ XLStart, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΏΡ€ΠΈ запускС Excel ΠΎΡ‚ΠΊΡ€Ρ‹Π²Π°Π»ΠΈΡΡŒ ΠΎΠ±Π΅ ΠΊΠ½ΠΈΠ³ΠΈ.
          2. Π’Π²Π΅Π΄ΠΈΡ‚Π΅ описаниС макроса Π² ΠΏΠΎΠ»Π΅ ОписаниС.
          3. Для Π½Π°Ρ‡Π°Π»Π° записи макроса Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠΊΠ½ΠΎΠΏΠΊΡƒ ОК.
          4. Π’Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚Π΅ дСйствия, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π½ΡƒΠΆΠ½ΠΎ Π·Π°ΠΏΠΈΡΠ°Ρ‚ΡŒ.
          5. На Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ Π² Π³Ρ€ΡƒΠΏΠΏΠ΅ Код Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠΊΠ½ΠΎΠΏΠΊΡƒ ΠžΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ запись .

          Β 

          Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ макроса с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ VBA

          1. На Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ Π² Π³Ρ€ΡƒΠΏΠΏΠ΅ Код Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠΊΠ½ΠΎΠΏΠΊΡƒ Visual Basic.
          2. ΠŸΡ€ΠΈ нСобходимости Π² мСню Insert Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ Module.

            ΠŸΠ Π˜ΠœΠ•Π§ΠΠΠ˜Π• :Β ΠœΠΎΠ΄ΡƒΠ»ΠΈ Π±ΡƒΠ΄ΡƒΡ‚ созданы автоматичСски для всСх листов ΠΊΠ½ΠΈΠ³ΠΈ.

          3. Π’ ΠΎΠΊΠ½Π΅ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹ модуля Π²Π²Π΅Π΄ΠΈΡ‚Π΅ ΠΈΠ»ΠΈ скопируйтС Π½ΡƒΠΆΠ½Ρ‹ΠΉ тСкст макроса.
          4. Для запуска макроса ΠΈΠ· ΠΎΠΊΠ½Π° модуля Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠΊΠ»Π°Π²ΠΈΡˆΡƒ F5.
          5. Когда макрос Π±ΡƒΠ΄Π΅Ρ‚ создан, Π² мСню File Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ Close and Return to Microsoft Excel.

          Нравится? Подпишись Π½Π° рассылку ΠΏΠΎΠ»Π΅Π·Π½Ρ‹Ρ… совСтов ΠΎΡ‚ prodma.ru

          [wysija_form id=Β»1β€³]
          ΠšΠΎΠΏΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅ части макроса для создания Π½ΠΎΠ²ΠΎΠ³ΠΎ макроса

          1. ΠžΡ‚ΠΊΡ€ΠΎΠΉΡ‚Π΅ ΠΊΠ½ΠΈΠ³Ρƒ, ΡΠΎΠ΄Π΅Ρ€ΠΆΠ°Ρ‰ΡƒΡŽ макрос, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ Π½ΡƒΠΆΠ½ΠΎ ΡΠΊΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ.
          2. На Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ Π² Π³Ρ€ΡƒΠΏΠΏΠ΅ Код Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠΊΠ½ΠΎΠΏΠΊΡƒ ΠœΠ°ΠΊΡ€ΠΎΡΡ‹.
          3. Π’ ΠΏΠΎΠ»Π΅ Имя Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ имя макроса, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ Π½ΡƒΠΆΠ½ΠΎ ΡΠΊΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ.
          4. НаТмитС ΠΊΠ½ΠΎΠΏΠΊΡƒ Π˜Π·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ.
          5. Π’ ΠΎΠΊΠ½Π΅ Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€Π° Visual Basic Π²Ρ‹Π΄Π΅Π»ΠΈΡ‚Π΅ строки макроса, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π½ΡƒΠΆΠ½ΠΎ ΡΠΊΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ.

            Π‘ΠžΠ’Π•Π’ :Β Π§Ρ‚ΠΎΠ±Ρ‹ ΡΠΊΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ макрос Ρ†Π΅Π»ΠΈΠΊΠΎΠΌ, Π²ΠΊΠ»ΡŽΡ‡ΠΈΡ‚Π΅ Π² Π²Ρ‹Π΄Π΅Π»Π΅Π½Π½ΡƒΡŽ Ρ‡Π°ΡΡ‚ΡŒ строки Sub ΠΈ End Sub.

          6. Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Π² мСню ΠŸΡ€Π°Π²ΠΊΠ° ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ ΠšΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ.
          7. Π’ ΠΏΠΎΠ»Π΅ Procedure ΠΎΠΊΠ½Π° ΠΊΠΎΠ΄Π° Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΌΠΎΠ΄ΡƒΠ»ΡŒ, ΠΊΡƒΠ΄Π° Π½ΡƒΠΆΠ½ΠΎ ΠΏΠΎΠΌΠ΅ΡΡ‚ΠΈΡ‚ΡŒ тСкст.
          8. Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Π² мСню ΠŸΡ€Π°Π²ΠΊΠ° ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ Π’ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ.

          Π›ΠΈΡ‡Π½ΡƒΡŽ ΠΊΠ½ΠΈΠ³Ρƒ макросов (Ρ„Π°ΠΉΠ» Personal.xls) Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ нСльзя, ΠΏΠΎΡΠΊΠΎΠ»ΡŒΠΊΡƒ ΠΎΠ½Π° являСтся скрытой ΠΊΠ½ΠΈΠ³ΠΎΠΉ, которая всСгда ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚Π°. Π‘Π½Π°Ρ‡Π°Π»Π° Π΅Π΅ слСдуСт ΠΎΡ‚ΠΎΠ±Ρ€Π°Π·ΠΈΡ‚ΡŒ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ ΠΊΠΎΠΌΠ°Π½Π΄Ρ‹ ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ. Π­Ρ‚ΠΎΡ‚ Ρ„Π°ΠΉΠ» Ρ‚Π°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚ΡŒ Π² Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€Π΅ Visual Basic, Π½Π°ΠΆΠ°Π² клавиши ALT+F11.

          НазначСниС макроса ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Ρƒ, графичСскому ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Ρƒ ΠΈ элСмСнту управлСния

          1. Π©Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ Π½Π° листС ΠΏΡ€Π°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΈ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚, графичСский ΠΎΠ±ΡŠΠ΅ΠΊΡ‚ ΠΈΠ»ΠΈ элСмСнт управлСния, ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΌΡƒ Π½ΡƒΠΆΠ½ΠΎ Π½Π°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ ΡΡƒΡ‰Π΅ΡΡ‚Π²ΡƒΡŽΡ‰ΠΈΠΉ макрос, Π° Π·Π°Ρ‚Π΅ΠΌ Π² контСкстном мСню Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ ΠΠ°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ макрос.
          2. Π’ ΠΏΠΎΠ»Π΅ Имя Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ макрос, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ Π½ΡƒΠΆΠ½ΠΎ Π½Π°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ.

          Β 

          Π£Π΄Π°Π»Π΅Π½ΠΈΠ΅ макроса

          1. Π’Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚Π΅ ΠΎΠ΄Π½ΠΎ ΠΈΠ· ΡƒΠΊΠ°Π·Π°Π½Π½Ρ‹Ρ… Π½ΠΈΠΆΠ΅ дСйствий.
            • ΠžΡ‚ΠΊΡ€ΠΎΠΉΡ‚Π΅ ΠΊΠ½ΠΈΠ³Ρƒ, ΡΠΎΠ΄Π΅Ρ€ΠΆΠ°Ρ‰ΡƒΡŽ макрос, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ Π½ΡƒΠΆΠ½ΠΎ ΡƒΠ΄Π°Π»ΠΈΡ‚ΡŒ.
            • Если макрос, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ трСбуСтся ΡƒΠ΄Π°Π»ΠΈΡ‚ΡŒ, хранится Π² Π»ΠΈΡ‡Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ макросов (Personal. xlsb) ΠΈ эта ΠΊΠ½ΠΈΠ³Π° скрыта, для Π΅Π΅ отобраТСния Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚Π΅ ΡƒΠΊΠ°Π·Π°Π½Π½Ρ‹Π΅ Π½ΠΈΠΆΠ΅ дСйствия.
              1. На Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π’ΠΈΠ΄ Π² Π³Ρ€ΡƒΠΏΠΏΠ΅ Окно Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠΊΠ½ΠΎΠΏΠΊΡƒ ΠžΡ‚ΠΎΠ±Ρ€Π°Π·ΠΈΡ‚ΡŒ ΠΎΠΊΠ½ΠΎ.
              2. Π’ Ρ€Π°Π·Π΄Π΅Π»Π΅ ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ скрытоС ΠΎΠΊΠ½ΠΎ ΠΊΠ½ΠΈΠ³ΠΈ Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΏΡƒΠ½ΠΊΡ‚ PERSONAL ΠΈ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠΊΠ½ΠΎΠΏΠΊΡƒ ОК.
          2. Π’ спискС Находится Π² Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Ρ€Π°Π±ΠΎΡ‡ΡƒΡŽ ΠΊΠ½ΠΈΠ³Ρƒ с макросом, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ трСбуСтся ΡƒΠ΄Π°Π»ΠΈΡ‚ΡŒ. НапримСр, Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ Π­Ρ‚Π° ΠΊΠ½ΠΈΠ³Π°.
          3. Π’ спискС Имя Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ имя макроса, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ трСбуСтся ΡƒΠ΄Π°Π»ΠΈΡ‚ΡŒ.
          4. НаТмитС ΠΊΠ½ΠΎΠΏΠΊΡƒ Π£Π΄Π°Π»ΠΈΡ‚ΡŒ.

          Руководство ΠΏΠΎ созданию Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ макроса Π² Excel

          Как Π΄ΠΎΠ±Π°Π²Π»ΡΡ‚ΡŒ, Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ΠΈ Ρ€Π°Π·ΠΌΠ΅Ρ‰Π°Ρ‚ΡŒ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹ Π² Excel с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ VBA.

          Π’ этом руководствС рассказываСтся, Ρ‡Ρ‚ΠΎ Π΄Π΅Π»Π°Ρ‚ΡŒ ΠΏΡ€ΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠΈ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹.

          Π Π°Π·Π΄Π΅Π»Ρ‹:

          Π”ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ VBA/макросов

          Π—Π°Π΄Π°Ρ‚ΡŒ исходныС Π΄Π°Π½Π½Ρ‹Π΅ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹

          Π—Π°Π΄Π°Ρ‚ΡŒ Ρ‚ΠΈΠΏ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹

          Π˜Π·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹

          Π—Π°Π΄Π°Ρ‚ΡŒ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΈ ΠΊΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΠΉ ΠΈ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠΉ 900 03

          Π’ΠΊΠ»ΡŽΡ‡ΠΈΡ‚ΡŒ Π»Π΅Π³Π΅Π½Π΄Ρƒ

          Π˜Π·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ Ρ€Π°Π·ΠΌΠ΅Ρ€ ΠΈ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹

          МСньшС Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ΠΎΠ²

          ΠŸΡ€ΠΈΠΌΠ΅Ρ‡Π°Π½ΠΈΡ

          Π”ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ VBA/макросов

           Sub CreateChart()
          'Π‘ΠΊΠ°ΠΆΠΈΡ‚Π΅ макросу ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΡƒΡŽ, которая ΠΌΠΎΠΆΠ΅Ρ‚ ΡΠΎΠ΄Π΅Ρ€ΠΆΠ°Ρ‚ΡŒ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ. 
          Dim myChart ΠΊΠ°ΠΊ ChartObject
          'Π‘ΠΎΠ·Π΄Π°ΠΉΡ‚Π΅ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ ΠΈ помСститС Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Ρ‡Ρ‚ΠΎ ΡΠΎΠ·Π΄Π°Π½Π½ΡƒΡŽ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ Π²Π½ΡƒΡ‚Ρ€ΡŒ созданной Π²Ρ‹ΡˆΠ΅ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
          УстановитС myChart = Worksheets("sheet1").ChartObjects.Add(10, 80, 300, 175)
          'Π”ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ нСсколько основных элСмСнтов Π½Π° Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ
          myChart.Chart.ChartWizard _
          Π˜ΡΡ‚ΠΎΡ‡Π½ΠΈΠΊ: = Π Π°Π±ΠΎΡ‡ΠΈΠ΅ листы ("Лист1"). Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1: E4"), _
          ГалСрСя:=xlLine, _
          Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ:="НазваниС Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹", _
          CategoryTitle:="НазваниС ΠΊΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΠΈ", _
          ValueTitle:="Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ значСния", _
          HasLegend:=Π˜ΡΡ‚ΠΈΠ½Π°
          ΠšΠΎΠ½Π΅Ρ† суб 

          Π­Ρ‚ΠΎ основной ΠΊΠΎΠ΄ для добавлСния Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹ Π½Π° Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ макроса. ΠšΠ°ΠΆΠ΄Ρ‹ΠΉ Ρ€Π°Π·Π΄Π΅Π» ΠΊΠΎΠ΄Π° Π² макросС ΠΈΠΌΠ΅Π΅Ρ‚ ΠΊΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΉ, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ ΠΎΠ±ΡŠΡΡΠ½ΡΠ΅Ρ‚, Ρ‡Ρ‚ΠΎ Π΄Π΅Π»Π°Π΅Ρ‚ этот Ρ€Π°Π·Π΄Π΅Π», Π° Ρ‚Π°ΠΊΠΆΠ΅ ΠΊΠ°ΠΆΠ΄Ρ‹ΠΉ Ρ€Π°Π·Π΄Π΅Π» Π½ΠΈΠΆΠ΅ здСсь Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ΄Ρ€ΠΎΠ±Π½ΠΎ ΠΎΠ±ΡŠΡΡΠ½ΡΠ΅Ρ‚, ΠΊΠ°ΠΊ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ ΠΈ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ макрос.

          Π£ΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ исходныС Π΄Π°Π½Π½Ρ‹Π΅ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹

          Π£ΠΊΠ°Π·Ρ‹Π²Π°Π΅Ρ‚ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΠ΅, ΠΊΠ°ΠΊΠΈΠ΅ Π΄Π°Π½Π½Ρ‹Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ.

           Sub CreateChart()
          'Π‘ΠΊΠ°ΠΆΠΈΡ‚Π΅ макросу ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΡƒΡŽ, которая ΠΌΠΎΠΆΠ΅Ρ‚ ΡΠΎΠ΄Π΅Ρ€ΠΆΠ°Ρ‚ΡŒ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ.
          Dim myChart ΠΊΠ°ΠΊ ChartObject
          'Π‘ΠΎΠ·Π΄Π°ΠΉΡ‚Π΅ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ ΠΈ помСститС Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Ρ‡Ρ‚ΠΎ ΡΠΎΠ·Π΄Π°Π½Π½ΡƒΡŽ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ Π²Π½ΡƒΡ‚Ρ€ΡŒ созданной Π²Ρ‹ΡˆΠ΅ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ. 
          УстановитС myChart = Worksheets("sheet1").ChartObjects.Add(10, 80, 300, 175)
          'Π”ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ нСсколько основных элСмСнтов Π½Π° Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ
          myChart.Chart.ChartWizard _
           Π˜ΡΡ‚ΠΎΡ‡Π½ΠΈΠΊ: = Π Π°Π±ΠΎΡ‡ΠΈΠ΅ листы ("Лист1"). Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1: E4"), _ 
          ГалСрСя:=xlLine, _
          Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ:="НазваниС Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹", _
          CategoryTitle:="НазваниС ΠΊΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΠΈ", _
          ValueTitle:="Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ значСния", _
          HasLegend:=Π˜ΡΡ‚ΠΈΠ½Π°
          End Sub 

          Source:=Worksheets(«Sheet1»).Range(«A1:E4»)  содСрТит ссылку Π½Π° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ для Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹.

          Π Π°Π±ΠΎΡ‡ΠΈΠ΅ листы(«Π›ΠΈΡΡ‚1»).Range(«A1:E4») β€” ссылка Π½Π° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½.

          ΠžΠ±ΡΠ·Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎ ΡƒΠΊΠ°ΠΆΠΈΡ‚Π΅, с ΠΊΠ°ΠΊΠΎΠ³ΠΎ Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ исходныС Π΄Π°Π½Π½Ρ‹Π΅, Π² ΠΏΡ€ΠΎΡ‚ΠΈΠ²Π½ΠΎΠΌ случаС ΠΎΠ½ΠΈ Π±ΡƒΠ΄ΡƒΡ‚ ΠΏΠΎΡΡ‚ΡƒΠΏΠ°Ρ‚ΡŒ с Ρ‚Π΅ΠΊΡƒΡ‰Π΅Π³ΠΎ Π°ΠΊΡ‚ΠΈΠ²Π½ΠΎΠ³ΠΎ ΠΈΠ»ΠΈ Π²ΠΈΠ΄ΠΈΠΌΠΎΠ³ΠΎ Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа.

          Π’ΠΎΠ·ΠΌΠΎΠΆΠ½Ρ‹Π΅ значСния

          Π›ΡŽΠ±ΠΎΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΠΈΠ· любого Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа, Π²ΠΊΠ»ΡŽΡ‡Π°Ρ ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½Π½Ρ‹Π΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ‹.

          Π£ΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ Ρ‚ΠΈΠΏ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹

          УправляСт Ρ‚ΠΈΠΏΠΎΠΌ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌΠΎΠΉ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹.

           Sub CreateChart()
          'Π‘ΠΊΠ°ΠΆΠΈΡ‚Π΅ макросу ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΡƒΡŽ, которая ΠΌΠΎΠΆΠ΅Ρ‚ ΡΠΎΠ΄Π΅Ρ€ΠΆΠ°Ρ‚ΡŒ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ. 
          Dim myChart ΠΊΠ°ΠΊ ChartObject
          'Π‘ΠΎΠ·Π΄Π°ΠΉΡ‚Π΅ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ ΠΈ помСститС Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Ρ‡Ρ‚ΠΎ ΡΠΎΠ·Π΄Π°Π½Π½ΡƒΡŽ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ Π²Π½ΡƒΡ‚Ρ€ΡŒ созданной Π²Ρ‹ΡˆΠ΅ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
          УстановитС myChart = Worksheets("sheet1").ChartObjects.Add(10, 80, 300, 175)
          'Π”ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ нСсколько основных элСмСнтов Π½Π° Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ
          myChart.Chart.ChartWizard _
          Π˜ΡΡ‚ΠΎΡ‡Π½ΠΈΠΊ: = Π Π°Π±ΠΎΡ‡ΠΈΠ΅ листы ("Лист1"). Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1: E4"), _
           ГалСрСя:=xlLine, _ 
          Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ:="НазваниС Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹", _
          CategoryTitle:="НазваниС ΠΊΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΠΈ", _
          ValueTitle:="Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ значСния", _
          HasLegend:=Π˜ΡΡ‚ΠΈΠ½Π°
          ΠšΠΎΠ½Π΅Ρ† сабвуфСра
           

          ГалСрСя:=xlLine  имя этого Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚Π°Β  ГалСрСя , Ρ‡Ρ‚ΠΎ ΠΌΠΎΠΆΠ΅Ρ‚ ΠΏΠΎΠΊΠ°Π·Π°Ρ‚ΡŒΡΡ Π·Π°ΠΏΡƒΡ‚Π°Π½Π½Ρ‹ΠΌ, Π½ΠΎ ΠΎΠ½ просто управляСт Ρ‚ΠΈΠΏΠΎΠΌ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹, которая Π±ΡƒΠ΄Π΅Ρ‚ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒΡΡ для отобраТСния исходных Π΄Π°Π½Π½Ρ‹Ρ…. xlLine β€” это Ρ‚ΠΈΠΏ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ Π±ΡƒΠ΄Π΅Ρ‚ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒΡΡ. Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΏΡ€ΠΎΡΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ ΠΏΠΎΠ»Π½Ρ‹ΠΉ список Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Ρ‹Ρ… Ρ‚ΠΈΠΏΠΎΠ² Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌ Π½ΠΈΠΆΠ΅ здСсь.

          Бписок Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Ρ‹Ρ… Ρ‚ΠΈΠΏΠΎΠ² Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌ:

          Имя Π—Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ ОписаниС
          xl3DArea -4098 3D-ΠΎΠ±Π»Π°ΡΡ‚ΡŒ.
          xl3DAreaStacked 78 ΠžΠ±Π»Π°ΡΡ‚ΡŒ с Π½Π°ΠΊΠΎΠΏΠ»Π΅Π½ΠΈΠ΅ΠΌ 3D.
          xl3DAreaStacked100 79 100 % ΠΏΠ»ΠΎΡ‰Π°Π΄ΡŒ стопки.
          ксл3дбаркластСрСд 60 3D кластСрный Π±Π°Ρ€.
          ксл3дбарстСкСд 61 3D Боставная панСль.
          ксл3дбарстакСд100 62 3D 100% Stacked Bar.
          ксл3Π΄ΠΊΠΎΠ»ΡƒΠΌΠ½ -4100 3D-столбСц.
          xl3DColumnClustered 54 ВрСхмСрная кластСризованная ΠΊΠΎΠ»ΠΎΠ½ΠΊΠ°.
          xl3DColumnStacked 55 3D составная ΠΊΠΎΠ»ΠΎΠ½Π½Π°.
          xl3DColumnStacked100 56 Колонка 3D 100% Stacked.
          xl3DLine -4101 3D-линия.
          xl3DPie -4102 Π’Ρ€Π΅Ρ…ΠΌΠ΅Ρ€Π½Ρ‹ΠΉ ΠΏΠΈΡ€ΠΎΠ³.
          xl3DPieExploded 70 Π’Π·ΠΎΡ€Π²Π°Π½Π½Ρ‹ΠΉ 3D-ΠΊΡ€ΡƒΠ³.
          xlArea 1 Π Π°ΠΉΠΎΠ½
          xlAreaStacked 76 БлоТСнная ΠΎΠ±Π»Π°ΡΡ‚ΡŒ.
          ксларСастакСд100 77 100 % ΠΏΠ»ΠΎΡ‰Π°Π΄ΡŒ стопки.
          кслбаркластСрСд 57 Π‘Π»ΠΈΡ‚Π½Ρ‹ΠΉ слиток.
          кслбарофпиС 71 ΠŸΠ»ΠΈΡ‚ΠΊΠ° ΠΏΠΈΡ€ΠΎΠ³Π°.
          xlBarStacked 58 Боставной Π±Π°Ρ€.
          кслбарстСкСд100 59 100% составной брусок.
          xlBubble 15 ΠŸΡƒΠ·Ρ‹Ρ€ΡŒ.
          xlBubble3DEffect 87 ΠŸΡƒΠ·Ρ‹Ρ€ΡŒ с 3D-эффСктами.
          кслколумнкластСрСд 51 ΠšΠ»Π°ΡΡ‚Π΅Ρ€Π½Ρ‹ΠΉ столбСц.
          кслколумнстакСд 52 Боставная ΠΊΠΎΠ»ΠΎΠ½Π½Π°.
          кслколумнстакСд100 53 Колонка со 100% Π½Π°ΠΊΠΎΠΏΠ»Π΅Π½ΠΈΠ΅ΠΌ.
          кслконСбаркластСрСд 102 ΠšΠΎΠ½ΡƒΡΠ½Ρ‹ΠΉ ΡΡ‚Π΅Ρ€ΠΆΠ΅Π½ΡŒ с Π³Ρ€ΠΎΠ·Π΄ΡŒΡΠΌΠΈ.
          кслконСбарстСкСд 103 ΠœΠ½ΠΎΠ³ΠΎΡΠ»ΠΎΠΉΠ½Ρ‹ΠΉ конусный ΡΡ‚Π΅Ρ€ΠΆΠ΅Π½ΡŒ.
          кслконСбарстакСд100 104 100% составной конусный ΡΡ‚Π΅Ρ€ΠΆΠ΅Π½ΡŒ.
          XLConeCol 105 3D конусная ΠΊΠΎΠ»ΠΎΠ½Π½Π°.
          кслконСколкластСрСд 99 Бгруппированная конусная ΠΊΠΎΠ»ΠΎΠ½Π½Π°.
          кслконСколстакСд 100 Многослойная конусная ΠΊΠΎΠ»ΠΎΠ½Π½Π°.
          кслконСколстакСд100 101 100% многослойная конусная ΠΊΠΎΠ»ΠΎΠ½ΠΊΠ°.
          xlCylinderBarClustered 95 Π‘Π³Ρ€ΡƒΠΏΠΏΠΈΡ€ΠΎΠ²Π°Π½Π½Ρ‹ΠΉ цилиндричСский ΡΡ‚Π΅Ρ€ΠΆΠ΅Π½ΡŒ.
          xlCylinderBarStacked 96 Боставной цилиндричСский ΡΡ‚Π΅Ρ€ΠΆΠ΅Π½ΡŒ.
          xlCylinderBarStacked100 97 100% составной цилиндричСский ΡΡ‚Π΅Ρ€ΠΆΠ΅Π½ΡŒ.
          xlCylinderCol 98 3D цилиндричСская ΠΊΠΎΠ»ΠΎΠ½Π½Π°.
          xlCylinderColClustered 92 Бгруппированная конусная ΠΊΠΎΠ»ΠΎΠ½Π½Π°.
          xlCylinderColStacked 93 Многослойная конусная ΠΊΠΎΠ»ΠΎΠ½Π½Π°.
          xlCylinderColStacked100 94 ЦилиндричСская ΠΊΠΎΠ»ΠΎΠ½ΠΊΠ° со 100%-Π½Ρ‹ΠΌ ΡˆΡ‚Π°Π±Π΅Π»ΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ.
          XLΠŸΠΎΠ½Ρ‡ΠΈΠΊ -4120 ΠŸΠΎΠ½Ρ‡ΠΈΠΊ.
          xlDoughnutΠ’Π·ΠΎΡ€Π²Π°Π½Π½Ρ‹ΠΉ 80 Π’Π·ΠΎΡ€Π²Π°Π½Π½Ρ‹ΠΉ ΠΏΠΎΠ½Ρ‡ΠΈΠΊ.
          XLLine 4 Линия.
          xlLineMarkers 65 Линия с ΠΌΠ°Ρ€ΠΊΠ΅Ρ€Π°ΠΌΠΈ.
          xlLineMarkersStacked 66 Боставная линия с ΠΌΠ°Ρ€ΠΊΠ΅Ρ€Π°ΠΌΠΈ.
          xlLineMarkersStacked100 67 Линия со 100% стопкой ΠΈ ΠΌΠ°Ρ€ΠΊΠ΅Ρ€Π°ΠΌΠΈ.
          xlLineStacked 63 Боставная линия.
          ксллайнстакСд100 64 Линия со 100% Π½Π°ΠΊΠΎΠΏΠ»Π΅Π½ΠΈΠ΅ΠΌ.
          xlPie 5 ΠŸΠΈΡ€ΠΎΠ³.
          xlPieExploded 69 Π’Π·ΠΎΡ€Π²Π°Π½Π½Ρ‹ΠΉ ΠΏΠΈΡ€ΠΎΠ³.
          XLPieOfPie 68 ΠŸΠΈΡ€ΠΎΠ³ ΠΏΠΈΡ€ΠΎΠ³Π°.
          кслпирамидбаркластСрСд 109 ΠŸΠΈΡ€Π°ΠΌΠΈΠ΄Π°Π»ΡŒΠ½Ρ‹ΠΉ слиток.
          xlPyramidBarStacked 110 ΠŸΠΈΡ€Π°ΠΌΠΈΠ΄Π°Π»ΡŒΠ½Ρ‹ΠΉ ΡΡ‚Π΅Ρ€ΠΆΠ΅Π½ΡŒ.
          xlPyramidBarStacked100 111 100% составной ΠΏΠΈΡ€Π°ΠΌΠΈΠ΄Π°Π»ΡŒΠ½Ρ‹ΠΉ брусок.
          xlPyramidCol 112 3D ΠŸΠΈΡ€Π°ΠΌΠΈΠ΄Π°Π»ΡŒΠ½Π°Ρ ΠΊΠΎΠ»ΠΎΠ½Π½Π°.
          кслпирамидколкластСрСд 106 Бгруппированная ΠΏΠΈΡ€Π°ΠΌΠΈΠ΄Π°Π»ΡŒΠ½Π°Ρ ΠΊΠΎΠ»ΠΎΠ½Π½Π°.
          xlPyramidColStacked 107 ΠŸΠΈΡ€Π°ΠΌΠΈΠ΄Π°Π»ΡŒΠ½Π°Ρ ΠΊΠΎΠ»ΠΎΠ½Π½Π°.
          кслпирамидколстэкСд100 108 ΠŸΠΈΡ€Π°ΠΌΠΈΠ΄Π°Π»ΡŒΠ½Π°Ρ ΠΊΠΎΠ»ΠΎΠ½Π½Π°, состоящая ΠΈΠ· 100% слоСв.
          XLRadar -4151 Π Π°Π΄Π°Ρ€.
          xlRadarFilled 82 Π—Π°ΠΏΠΎΠ»Π½Π΅Π½Π½Ρ‹ΠΉ Ρ€Π°Π΄Π°Ρ€.
          xlRadarMarkers 81 Π Π°Π΄Π°Ρ€ с ΠΌΠ°Ρ€ΠΊΠ΅Ρ€Π°ΠΌΠΈ Π΄Π°Π½Π½Ρ‹Ρ….
          xlStockHLC 88 High-Low-Close.
          XLStockOHLC 89 ΠžΡ‚ΠΊΡ€Ρ‹Ρ‚ΡŒ-Высокий-Низкий-Π—Π°ΠΊΡ€Ρ‹Ρ‚ΡŒ.
          кслстоквхлк 90 Volume-High-Low-Close.
          xlStockVOHLC 91 Volume-Open-High-Low-Close.
          xlSurface 83 3D-ΠΏΠΎΠ²Π΅Ρ€Ρ…Π½ΠΎΡΡ‚ΡŒ.
          кслсурфацСтопвиСв 85 ΠŸΠΎΠ²Π΅Ρ€Ρ…Π½ΠΎΡΡ‚ΡŒ (Π²ΠΈΠ΄ свСрху).
          кслсурфацСтопвиСвкаркас 86 ΠŸΠΎΠ²Π΅Ρ€Ρ…Π½ΠΎΡΡ‚ΡŒ (каркас Π²ΠΈΠ΄Π° свСрху).
          xlSurfaceWireframe 84 3D-ΠΏΠΎΠ²Π΅Ρ€Ρ…Π½ΠΎΡΡ‚ΡŒ (каркас).
          xlXYScatter -4169 Π‘ΠΊΠ°Ρ‚Ρ‚Π΅Ρ€.
          xlXYScatterLines 74 Π‘ΠΊΠ°Ρ‚Ρ‚Π΅Ρ€ с линиями.
          xlXYScatterLinesNoMarkers 75 Scatter с линиями ΠΈ Π±Π΅Π· ΠΌΠ°Ρ€ΠΊΠ΅Ρ€ΠΎΠ² Π΄Π°Π½Π½Ρ‹Ρ….
          xlXYScatterSmooth 72 Разброс со сглаТСнными линиями.
          xlXYScatterSmoothNoMarkers 73 Разброс со сглаТСнными линиями ΠΈ Π±Π΅Π· ΠΌΠ°Ρ€ΠΊΠ΅Ρ€ΠΎΠ² Π΄Π°Π½Π½Ρ‹Ρ….

          Π˜Π·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹

          НазваниС Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹.

           ΠŸΠΎΠ΄ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° CreateChart()
          'Π‘ΠΊΠ°ΠΆΠΈΡ‚Π΅ макросу ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΡƒΡŽ, которая ΠΌΠΎΠΆΠ΅Ρ‚ ΡΠΎΠ΄Π΅Ρ€ΠΆΠ°Ρ‚ΡŒ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ.
          Dim myChart ΠΊΠ°ΠΊ ChartObject
          'Π‘ΠΎΠ·Π΄Π°ΠΉΡ‚Π΅ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ ΠΈ помСститС Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Ρ‡Ρ‚ΠΎ ΡΠΎΠ·Π΄Π°Π½Π½ΡƒΡŽ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ Π²Π½ΡƒΡ‚Ρ€ΡŒ созданной Π²Ρ‹ΡˆΠ΅ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
          УстановитС myChart = Worksheets("sheet1").ChartObjects.Add(10, 80, 300, 175)
          'Π”ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ нСсколько основных элСмСнтов Π½Π° Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ
          myChart.Chart.ChartWizard _
          Π˜ΡΡ‚ΠΎΡ‡Π½ΠΈΠΊ: = Π Π°Π±ΠΎΡ‡ΠΈΠ΅ листы ("Лист1"). Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1: E4"), _
          ГалСрСя:=xlLine, _
           Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ:="Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹", _ 
          CategoryTitle:="НазваниС ΠΊΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΠΈ", _
          ValueTitle:="Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ значСния", _
          HasLegend:=Π˜ΡΡ‚ΠΈΠ½Π°
          ΠšΠΎΠ½Π΅Ρ† сабвуфСра
           

          Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ:=»Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹»Β  помСститС всС, Ρ‡Ρ‚ΠΎ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅, Π² ΠΊΠ°Π²Ρ‹Ρ‡ΠΊΠΈ для названия Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹.

          Π£ΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΈ ΠΊΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΠΉ ΠΈ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠΉ

           Sub CreateChart()
          'Π‘ΠΊΠ°ΠΆΠΈΡ‚Π΅ макросу ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΡƒΡŽ, которая ΠΌΠΎΠΆΠ΅Ρ‚ ΡΠΎΠ΄Π΅Ρ€ΠΆΠ°Ρ‚ΡŒ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ.
          Dim myChart ΠΊΠ°ΠΊ ChartObject
          'Π‘ΠΎΠ·Π΄Π°ΠΉΡ‚Π΅ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ ΠΈ помСститС Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Ρ‡Ρ‚ΠΎ ΡΠΎΠ·Π΄Π°Π½Π½ΡƒΡŽ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ Π²Π½ΡƒΡ‚Ρ€ΡŒ созданной Π²Ρ‹ΡˆΠ΅ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
          УстановитС myChart = Worksheets("sheet1").ChartObjects.Add(10, 80, 300, 175)
          'Π”ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ нСсколько основных элСмСнтов Π½Π° Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ
          myChart.Chart.ChartWizard _
          Π˜ΡΡ‚ΠΎΡ‡Π½ΠΈΠΊ: = Π Π°Π±ΠΎΡ‡ΠΈΠ΅ листы ("Лист1"). Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1: E4"), _
          ГалСрСя:=xlLine, _
          Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ:="НазваниС Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹", _
            Β  Β  CategoryTitle:="НазваниС ΠΊΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΠΈ", _ 
            Β  Β  ValueTitle:="Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ значСния", _ 
          HasLegend:=Π˜ΡΡ‚ΠΈΠ½Π°
          ΠšΠΎΠ½Π΅Ρ† сабвуфСра
           

          CategoryTitle:=»ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ ΠΊΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΠΈ» Β Π½Π°Π·Π²Π°Π½ΠΈΠ΅, ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ΅ располагаСтся Π²Π½ΠΈΠ·Ρƒ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹. ΠŸΠΎΠΌΠ΅ΡΡ‚ΠΈΡ‚Π΅ всС, Ρ‡Ρ‚ΠΎ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅, Π² ΠΊΠ°Π²Ρ‹Ρ‡ΠΊΠΈ.

          ValueTitle:=»Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ значСния» Β Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ Π² Π»Π΅Π²ΠΎΠΉ части Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹. ΠŸΠΎΠΌΠ΅ΡΡ‚ΠΈΡ‚Π΅ всС, Ρ‡Ρ‚ΠΎ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅, Π² ΠΊΠ°Π²Ρ‹Ρ‡ΠΊΠΈ.

          Π’ΠΊΠ»ΡŽΡ‡ΠΈΡ‚ΡŒ Π»Π΅Π³Π΅Π½Π΄Ρƒ

           Sub CreateChart()
          'Π‘ΠΊΠ°ΠΆΠΈΡ‚Π΅ макросу ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΡƒΡŽ, которая ΠΌΠΎΠΆΠ΅Ρ‚ ΡΠΎΠ΄Π΅Ρ€ΠΆΠ°Ρ‚ΡŒ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ. 
          Dim myChart ΠΊΠ°ΠΊ ChartObject
          'Π‘ΠΎΠ·Π΄Π°ΠΉΡ‚Π΅ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ ΠΈ помСститС Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Ρ‡Ρ‚ΠΎ ΡΠΎΠ·Π΄Π°Π½Π½ΡƒΡŽ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ Π²Π½ΡƒΡ‚Ρ€ΡŒ созданной Π²Ρ‹ΡˆΠ΅ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
          УстановитС myChart = Worksheets("sheet1").ChartObjects.Add(10, 80, 300, 175)
          'Π”ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ нСсколько основных элСмСнтов Π½Π° Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ
          myChart.Chart.ChartWizard _
          Π˜ΡΡ‚ΠΎΡ‡Π½ΠΈΠΊ: = Π Π°Π±ΠΎΡ‡ΠΈΠ΅ листы ("Лист1"). Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1: E4"), _
          ГалСрСя:=xlLine, _
          Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ:="НазваниС Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹", _
          CategoryTitle:="НазваниС ΠΊΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΠΈ", _
          ValueTitle:="Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ значСния", _
           HasLegend:=Π˜ΡΡ‚ΠΈΠ½Π° 
          ΠšΠΎΠ½Π΅Ρ† сабвуфСра
           

          HasLegend:=True  Ссли установлСно Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅Β  True , появится Π»Π΅Π³Π΅Π½Π΄Π°, Π° Ρ‚Π°ΠΊΠΆΠ΅ часто ΠΏΠΎ ΡƒΠΌΠΎΠ»Ρ‡Π°Π½ΠΈΡŽ появляСтся Π»Π΅Π³Π΅Π½Π΄Π°. Если Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΡƒΠ±Π΅Π΄ΠΈΡ‚ΡŒΡΡ, Ρ‡Ρ‚ΠΎ Π»Π΅Π³Π΅Π½Π΄Π° отсутствуСт, установитС для этого значСния Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ False .

          Π’ΠΎΠ·ΠΌΠΎΠΆΠ½Ρ‹Π΅ значСния

          True ΠΏΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ Π»Π΅Π³Π΅Π½Π΄Ρƒ.

          Π›ΠΎΠΆΡŒ Π½Π΅ ΠΏΠΎΠΊΠ°Π·Ρ‹Π²Π°Ρ‚ΡŒ Π»Π΅Π³Π΅Π½Π΄Ρƒ.

          Иногда Π»Π΅Π³Π΅Π½Π΄Ρ‹ ΠΏΠΎΡΠ²Π»ΡΡŽΡ‚ΡΡ ΠΏΠΎ ΡƒΠΌΠΎΠ»Ρ‡Π°Π½ΠΈΡŽ; ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ False, Ссли Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π½ΠΈΡ‡Π΅Π³ΠΎ Π½Π΅ ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Π»ΠΎΡΡŒ.

          Π˜Π·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ Ρ€Π°Π·ΠΌΠ΅Ρ€ ΠΈ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹

           Sub CreateChart()
          'Π‘ΠΊΠ°ΠΆΠΈΡ‚Π΅ макросу ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΡƒΡŽ, которая ΠΌΠΎΠΆΠ΅Ρ‚ ΡΠΎΠ΄Π΅Ρ€ΠΆΠ°Ρ‚ΡŒ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ.
          Dim myChart ΠΊΠ°ΠΊ ChartObject
          'Π‘ΠΎΠ·Π΄Π°ΠΉΡ‚Π΅ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ ΠΈ помСститС Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Ρ‡Ρ‚ΠΎ ΡΠΎΠ·Π΄Π°Π½Π½ΡƒΡŽ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ Π²Π½ΡƒΡ‚Ρ€ΡŒ созданной Π²Ρ‹ΡˆΠ΅ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
            Set myChart = Worksheets("лист1").ChartObjects.Add(10, 80, 300, 175) 
          'Π”ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ нСсколько основных элСмСнтов Π½Π° Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ
          myChart.Chart.ChartWizard _
          Π˜ΡΡ‚ΠΎΡ‡Π½ΠΈΠΊ: = Π Π°Π±ΠΎΡ‡ΠΈΠ΅ листы ("Лист1"). Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1: E4"), _
          ГалСрСя:=xlLine, _
          Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ:="НазваниС Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹", _
          CategoryTitle:="НазваниС ΠΊΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΠΈ", _
          ValueTitle:="Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ значСния", _
          HasLegend:=Π˜ΡΡ‚ΠΈΠ½Π°
          ΠšΠΎΠ½Π΅Ρ† сабвуфСра
           

          ChartObjects.Add(10, 80, 300, 175) числа здСсь ΡƒΠΏΡ€Π°Π²Π»ΡΡŽΡ‚ Ρ€Π°Π·ΠΌΠ΅Ρ€ΠΎΠΌ ΠΈ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ΠΌ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹.

          Π”ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ (слСва, свСрху, ΡˆΠΈΡ€ΠΈΠ½Π°, высота)

          10 β€” это позиция с Π»Π΅Π²ΠΎΠΉ стороны Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа. Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΡƒΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ это число ΠΊΠ°ΠΊ ΡƒΠ³ΠΎΠ΄Π½ΠΎ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΠ° Ρ…ΠΎΡ€ΠΎΡˆΠΎ Π²ΠΏΠΈΡΡ‹Π²Π°Π»Π°ΡΡŒ Π² ваши Π΄Π°Π½Π½Ρ‹Π΅.

          80  это позиция ΠΈΠ· Π²Π΅Ρ€Ρ…Π½ΠΈΡ… Ρ€Π°Π±ΠΎΡ‡ΠΈΡ… листов. Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΡƒΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ это число ΠΊΠ°ΠΊ ΡƒΠ³ΠΎΠ΄Π½ΠΎ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΠ° Ρ…ΠΎΡ€ΠΎΡˆΠΎ Π²ΠΏΠΈΡΡ‹Π²Π°Π»Π°ΡΡŒ Π² ваши Π΄Π°Π½Π½Ρ‹Π΅.

          300 β€” ΡˆΠΈΡ€ΠΈΠ½Π° Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹.

          175 β€” это высота Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹.

          ΠŸΠΎΡΠΊΡΠΏΠ΅Ρ€ΠΈΠΌΠ΅Π½Ρ‚ΠΈΡ€ΡƒΠΉΡ‚Π΅ с этими значСниями, ΠΏΠΎΠΊΠ° Π½Π΅ ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚Π΅ ΠΆΠ΅Π»Π°Π΅ΠΌΡ‹ΠΉ Ρ€Π°Π·ΠΌΠ΅Ρ€ ΠΈ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹ Π½Π° листС. ΠžΠ±Ρ€Π°Ρ‚ΠΈΡ‚Π΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, Ρ‡Ρ‚ΠΎ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π»Π΅Π³Π΅Π½Π΄Ρ‹ ΠΊ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΠ΅ сдСлаСт Π΅Π΅ мСньшС, ΠΏΠΎΡΠΊΠΎΠ»ΡŒΠΊΡƒ для ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Π΅ΠΌΡ‹Ρ… Π΄Π°Π½Π½Ρ‹Ρ… Π±ΡƒΠ΄Π΅Ρ‚ мСньшС мСста.

          МСньшС Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ΠΎΠ²

          ΠŸΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½Ρ‹ΠΉ Π²Ρ‹ΡˆΠ΅ ΠΏΡ€ΠΈΠΌΠ΅Ρ€ Π²ΠΊΠ»ΡŽΡ‡Π°Π΅Ρ‚ своСго Ρ€ΠΎΠ΄Π° «интСрСсный» способ записи Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ΠΎΠ² для Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Π² VBA.

           myChart.Chart.ChartWizard _
          Π˜ΡΡ‚ΠΎΡ‡Π½ΠΈΠΊ: = Π Π°Π±ΠΎΡ‡ΠΈΠ΅ листы ("Лист1"). Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1: E4"), _
          ГалСрСя:=xlLine, _
          Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ:="НазваниС Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹", _
          CategoryTitle:="НазваниС ΠΊΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΠΈ", _
          ValueTitle:="Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ значСния", _
          HasLegend:=True 

          ΠšΠ°ΠΆΠ΄Ρ‹ΠΉ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ для ChartWizard помСщаСтся Π² ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½ΡƒΡŽ строку ΠΈ ΠΈΠΌΠ΅Π΅Ρ‚ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ Ρ„ΠΎΡ€ΠΌΠ°Ρ‚:

          Π˜ΡΡ‚ΠΎΡ‡Π½ΠΈΠΊ:= каТдая строка начинаСтся с ΠΈΠΌΠ΅Π½ΠΈ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚Π° ΠΈ :=

          , _ 9004 0 каТдая строка заканчиваСтся запятой ΠΈ символом подчСркивания.

          ПослСдняя строка это Π²Π°ΠΆΠ½ΠΎ! ПослСдняя строка для ChartWizard Π½Π΅ Π΄ΠΎΠ»ΠΆΠ½Π° Π·Π°ΠΊΠ°Π½Ρ‡ΠΈΠ²Π°Ρ‚ΡŒΡΡ Π½Π°Β  , _ ΠžΠ±Ρ€Π°Ρ‚ΠΈΡ‚Π΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, Ρ‡Ρ‚ΠΎ послСдняя строка Ρ‚Π°ΠΊΠΎΠ²Π°: HasLegend:=True , Π½ΠΎ Ссли Π²Ρ‹ Π½Π΅ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ Π²ΠΊΠ»ΡŽΡ‡Π°Ρ‚ΡŒ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ HasLegend ΠΈ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΎΠ½ заканчивался Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ΠΎΠΌ ValueTitle, Π²Ρ‹ Π΄ΠΎΠ»ΠΆΠ½Ρ‹ ΡƒΠ΄Π°Π»ΠΈΡ‚ΡŒ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ HasLegend (вся строка) ΠΈ ΡƒΠ΄Π°Π»ΠΈΡ‚ΡŒ , _ ΠΈΠ· Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚Π° Value Title, Π½Π°ΠΏΡ€ΠΈΠΌΠ΅Ρ€:

           myChart.Chart.ChartWizard _
          Π˜ΡΡ‚ΠΎΡ‡Π½ΠΈΠΊ: = Π Π°Π±ΠΎΡ‡ΠΈΠ΅ листы ("Лист1"). Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1: E4"), _
          ГалСрСя:=xlLine, _
          Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ:="НазваниС Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹", _
          CategoryTitle:="НазваниС ΠΊΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΠΈ", _
          ValueTitle:="Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ значСния" 

          Π‘Π½Π°Ρ‡Π°Π»Π° это ΠΌΠΎΠΆΠ΅Ρ‚ ΠΏΠΎΠΊΠ°Π·Π°Ρ‚ΡŒΡΡ Π·Π°ΠΏΡƒΡ‚Π°Π½Π½Ρ‹ΠΌ, Π½ΠΎ это стандартная ΠΏΡ€Π°ΠΊΡ‚ΠΈΠΊΠ° Π² VBA ΠΈ макросах.

          ΠŸΡ€ΠΈΠΌΠ΅Ρ‡Π°Π½ΠΈΡ

          БущСствуСт мноТСство способов добавлСния Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌ Π² Excel, особСнно учитывая Π½ΠΎΠ²Ρ‹Π΅ ΠΈ старыС вСрсии ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹; ΠΎΠ΄Π½Π°ΠΊΠΎ Π² ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²Ρ‹ΡˆΠ΅ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ прСдставлСно Π½Π°Π΄Π΅ΠΆΠ½ΠΎΠ΅ Ρ€Π΅ΡˆΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ΅ Π±ΡƒΠ΄Π΅Ρ‚ Ρ€Π°Π±ΠΎΡ‚Π°Ρ‚ΡŒ Π²ΠΎ ΠΌΠ½ΠΎΠ³ΠΈΡ… вСрсиях Excel.

          Π—Π°Π³Ρ€ΡƒΠ·ΠΈΡ‚Π΅ ΠΎΠ±Ρ€Π°Π·Π΅Ρ† Ρ„Π°ΠΉΠ»Π°, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΡƒΠ²ΠΈΠ΄Π΅Ρ‚ΡŒ ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½Ρ‹Π΅ Π²Ρ‹ΡˆΠ΅ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Ρ‹ Π² Excel.

          Как ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ макрос Π² Excel: пошаговоС руководство

          Excel

          Как ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ макрос Π² Excel: пошаговоС руководство

          Как ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ макрос Π² Excel: пошаговоС руководство

          Если Π²Ρ‹ ΠΊΠΎΠ³Π΄Π°-Π»ΠΈΠ±ΠΎ ΠΎΠΊΠ°Π·Ρ‹Π²Π°Π»ΠΈΡΡŒ Π² ситуации, ΠΊΠΎΠ³Π΄Π° Π²Π°ΠΌ ΠΏΡ€ΠΈΡ…ΠΎΠ΄ΠΈΠ»ΠΎΡΡŒ Π²Ρ‹ΠΏΠΎΠ»Π½ΡΡ‚ΡŒ ΠΎΠ΄Π½Ρƒ ΠΈ Ρ‚Ρƒ ΠΆΠ΅ Π·Π°Π΄Π°Ρ‡Ρƒ Π² Microsoft Excel снова ΠΈ снова, Π²Ρ‹ Π·Π½Π°Π΅Ρ‚Π΅, ΠΊΠ°ΠΊ ΠΌΠ½ΠΎΠ³ΠΎ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ ΠΈ ΡƒΡ‚ΠΎΠΌΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎ это ΠΌΠΎΠΆΠ΅Ρ‚ Π±Ρ‹Ρ‚ΡŒ. Π’ΠΎΡ‚ Ρ‚ΡƒΡ‚-Ρ‚ΠΎ ΠΈ ΠΏΠΎΡΠ²Π»ΡΡŽΡ‚ΡΡ макросы. ΠœΠ°ΠΊΡ€ΠΎΡ β€” это запись ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎΡΡ‚ΠΈ дСйствий, ΠΊΠΎΡ‚ΠΎΡ€ΡƒΡŽ Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π²ΠΎΡΠΏΡ€ΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡ‚ΡŒ ΡΡ‚ΠΎΠ»ΡŒΠΊΠΎ Ρ€Π°Π·, сколько Π·Π°Ρ…ΠΎΡ‚ΠΈΡ‚Π΅. Π’ Excel макросы Π·Π°ΠΏΠΈΡΡ‹Π²Π°ΡŽΡ‚ΡΡ Π½Π° Visual Basic для ΠΏΡ€ΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ (VBA) β€” языкС программирования, встроСнном Π² Microsoft Office. Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΡƒΡ срСдство записи макросов, Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ автоматичСски ΡΠΎΠ·Π΄Π°Π²Π°Ρ‚ΡŒ макросы Π±Π΅Π· нСобходимости изучСния VBA.

          ΠŸΡ€Π΅ΠΆΠ΄Π΅ Ρ‡Π΅ΠΌ Π½Π°Ρ‡Π°Ρ‚ΡŒ

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

          Π¨Π°Π³ 1. Π’ΠΊΠ»ΡŽΡ‡ΠΈΡ‚Π΅ Π²ΠΊΠ»Π°Π΄ΠΊΡƒ Β«Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΒ»

          Если Π²ΠΊΠ»Π°Π΄ΠΊΠ° Β«Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΒ» Π½Π΅ отобраТаСтся, Π΅Π΅ Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΠΎ Π²ΠΊΠ»ΡŽΡ‡ΠΈΡ‚ΡŒ. На Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Β«Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΒ» Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Ρ€Π°Π·Ρ€Π°Π±Π°Ρ‚Ρ‹Π²Π°Ρ‚ΡŒ макросы, Π° Ρ‚Π°ΠΊΠΆΠ΅ ΠΏΠΈΡΠ°Ρ‚ΡŒ ΠΈ Ρ‚Π΅ΡΡ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ΠΊΠΎΠ΄. Π’ΠΎΡ‚ ΠΊΠ°ΠΊ Π²ΠΊΠ»ΡŽΡ‡ΠΈΡ‚ΡŒ Π²ΠΊΠ»Π°Π΄ΠΊΡƒ Β«Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΒ»:

          1. Π©Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ Π€Π°ΠΉΠ» > ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹ . ΠŸΠΎΡΠ²ΠΈΡ‚ΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹ Excel .
          2. Π©Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ ΠΠ°ΡΡ‚Ρ€ΠΎΠΈΡ‚ΡŒ Π»Π΅Π½Ρ‚Ρƒ Π½Π° Π»Π΅Π²ΠΎΠΉ ΠΏΠ°Π½Π΅Π»ΠΈ.
          3. На ΠΏΡ€Π°Π²ΠΎΠΉ ΠΏΠ°Π½Π΅Π»ΠΈ Π² Ρ€Π°Π·Π΄Π΅Π»Π΅ ΠžΡΠ½ΠΎΠ²Π½Ρ‹Π΅ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ установитС Ρ„Π»Π°ΠΆΠΎΠΊ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ ΠΈ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ OK .

          Π¨Π°Π³ 2. НачнитС запись макроса

          ПослС Π²ΠΊΠ»ΡŽΡ‡Π΅Π½ΠΈΡ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ Β«Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΒ» Π²Ρ‹ Π³ΠΎΡ‚ΠΎΠ²Ρ‹ Π½Π°Ρ‡Π°Ρ‚ΡŒ запись макроса. Π’ΠΎΡ‚ ΠΊΠ°ΠΊ:

          1. На Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ Π² Π³Ρ€ΡƒΠΏΠΏΠ΅ Код Π½Π°ΠΆΠΌΠΈΡ‚Π΅ Π—Π°ΠΏΠΈΡΡŒ макроса .
          2. Π’ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ Π—Π°ΠΏΠΈΡΡŒ макроса Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚Π΅ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ дСйствия:
          • Π’ ΠΏΠΎΠ»Π΅ Имя макроса Π²Π²Π΅Π΄ΠΈΡ‚Π΅ имя макроса. Имя ΠΌΠΎΠΆΠ΅Ρ‚ ΡΠΎΠ΄Π΅Ρ€ΠΆΠ°Ρ‚ΡŒ Π΄ΠΎ 64 символов ΠΈ ΠΌΠΎΠΆΠ΅Ρ‚ Π²ΠΊΠ»ΡŽΡ‡Π°Ρ‚ΡŒ Π±ΡƒΠΊΠ²Ρ‹, Ρ†ΠΈΡ„Ρ€Ρ‹ ΠΈ Π·Π½Π°ΠΊΠΈ подчСркивания.
          • Π§Ρ‚ΠΎΠ±Ρ‹ Π½Π°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ макросу ΠΊΠΎΠΌΠ±ΠΈΠ½Π°Ρ†ΠΈΡŽ клавиш, Π½Π°ΠΆΠΌΠΈΡ‚Π΅ Клавиша быстрого доступа , Π° Π·Π°Ρ‚Π΅ΠΌ Π²Π²Π΅Π΄ΠΈΡ‚Π΅ ΠΊΠΎΠΌΠ±ΠΈΠ½Π°Ρ†ΠΈΡŽ клавиш.
          • Π’ Π‘ΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ макрос Π² спискС , Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ Личная ΠΊΠ½ΠΈΠ³Π° макросов , Ссли Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅, Ρ‡Ρ‚ΠΎΠ±Ρ‹ макрос Π±Ρ‹Π» доступСн ΠΏΡ€ΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠΌ запускС Excel.
          • НаТмитС OK .

          Π¨Π°Π³ 3: Π’Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚Π΅ дСйствия, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ Π·Π°ΠΏΠΈΡΠ°Ρ‚ΡŒ

          ПослС Ρ‚ΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ Π²Ρ‹ Π½Π°ΠΆΠΌΠ΅Ρ‚Π΅ OK , Excel ΠΏΠ΅Ρ€Π΅ΠΉΠ΄Π΅Ρ‚ Π² Ρ€Π΅ΠΆΠΈΠΌ записи макроса ΠΈ ΠΎΡ‚ΠΎΠ±Ρ€Π°Π·ΠΈΡ‚ Π—Π°ΠΏΠΈΡΡŒ макроса Π² строкС состояния. Когда Π²Ρ‹ Π½Π°Ρ…ΠΎΠ΄ΠΈΡ‚Π΅ΡΡŒ Π² Ρ€Π΅ΠΆΠΈΠΌΠ΅ записи макросов, Excel записываСт всС ваши шаги, ΠΏΠΎΠΊΠ° Π²Ρ‹ Π½Π΅ Π½Π°ΠΆΠΌΠ΅Ρ‚Π΅ Π½ΠΈ ΠΎΠ΄Π½Ρƒ ΠΈΠ· ΠΊΠΎΠΌΠ°Π½Π΄Π½Ρ‹Ρ… ΠΊΠ½ΠΎΠΏΠΎΠΊ Π½Π° 9-ΠΉ ΠΏΠ°Π½Π΅Π»ΠΈ.0039 ΠžΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ запись ПанСль инструмСнтов. Если Π²Ρ‹ допустили ΠΎΡˆΠΈΠ±ΠΊΡƒ ΠΈΠ»ΠΈ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΎΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ запись Π΄ΠΎ Ρ‚ΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ Π·Π°ΠΊΠΎΠ½Ρ‡ΠΈΡ‚Π΅, Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π½Π°ΠΆΠ°Ρ‚ΡŒ ΠžΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ запись Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ инструмСнтов ΠžΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ запись . Если Π²Ρ‹ это сдСлаСтС, Π²Π°ΠΌ Π±ΡƒΠ΄Π΅Ρ‚ ΠΏΡ€Π΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΎ ΡΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ макрос; Ссли Π²Ρ‹ Π½Π°ΠΆΠΌΠ΅Ρ‚Π΅ No , макрос Π±ΡƒΠ΄Π΅Ρ‚ ΡƒΠ΄Π°Π»Π΅Π½.

          Π¨Π°Π³ 4: ΠžΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚Π΅ запись макроса

          Когда Π²Ρ‹ Π·Π°ΠΊΠΎΠ½Ρ‡ΠΈΡ‚Π΅ запись макроса, Π½Π°ΠΆΠΌΠΈΡ‚Π΅ ΠžΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ запись Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ инструмСнтов ΠžΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ запись .

          Π¨Π°Π³ 5. ΠŸΡ€ΠΎΠ²Π΅Ρ€ΠΊΠ° макроса

          Π’Π΅ΠΏΠ΅Ρ€ΡŒ, ΠΊΠΎΠ³Π΄Π° Π²Ρ‹ записали макрос, Π½Π΅ΠΏΠ»ΠΎΡ…ΠΎ ΠΏΡ€ΠΎΡ‚Π΅ΡΡ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Π΅Π³ΠΎ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΡƒΠ±Π΅Π΄ΠΈΡ‚ΡŒΡΡ, Ρ‡Ρ‚ΠΎ ΠΎΠ½ Ρ€Π°Π±ΠΎΡ‚Π°Π΅Ρ‚ Ρ‚Π°ΠΊ, ΠΊΠ°ΠΊ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅. Π’ΠΎΡ‚ ΠΊΠ°ΠΊ:

          1. ΠžΡ‚ΠΊΡ€ΠΎΠΉΡ‚Π΅ ΠΊΠ½ΠΈΠ³Ρƒ, Π² ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΏΡ€ΠΎΠ²Π΅Ρ€ΠΈΡ‚ΡŒ макрос.
          2. На Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ Π² Π³Ρ€ΡƒΠΏΠΏΠ΅ Код Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ ΠœΠ°ΠΊΡ€ΠΎΡΡ‹ .
          3. Π’ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ ΠœΠ°ΠΊΡ€ΠΎΡΡ‹ Π² Ρ€Π°Π·Π΄Π΅Π»Π΅ ΠœΠ°ΠΊΡ€ΠΎΡΡ‹ Π² Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ Личная ΠΊΠ½ΠΈΠ³Π° макросов .