Vba ΠΏΡ€ΠΈΠΌΠ΅Ρ€ excel: ΠœΠ°ΠΊΡ€ΠΎΡΡ‹ для Excel с исходными ΠΊΠΎΠ΄Π°ΠΌΠΈ ΠΈ описаниСм Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ

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

24 ΠΏΠΎΠ»Π΅Π·Π½Ρ‹Ρ… ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π° макросов Excel для Π½Π°Ρ‡ΠΈΠ½Π°ΡŽΡ‰ΠΈΡ… с VBA (Π³ΠΎΡ‚ΠΎΠ²Ρ‹Π΅ ΠΊ использованию)

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

  • ИспользованиС ΠΊΠΎΠ΄Π° ΠΈΠ· ΠΏΡ€ΠΈΠΌΠ΅Ρ€ΠΎΠ² макросов Excel
  • Как Π·Π°ΠΏΡƒΡΡ‚ΠΈΡ‚ΡŒ макрос
  • ΠŸΡ€ΠΈΠΌΠ΅Ρ€Ρ‹ макросов Excel

ИспользованиС макросов Excel ΠΌΠΎΠΆΠ΅Ρ‚ ΡƒΡΠΊΠΎΡ€ΠΈΡ‚ΡŒ Ρ€Π°Π±ΠΎΡ‚Ρƒ ΠΈ ΡΡΠΊΠΎΠ½ΠΎΠΌΠΈΡ‚ΡŒ ΠΌΠ½ΠΎΠ³ΠΎ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ.

Один ΠΈΠ· способов ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ ΠΊΠΎΠ΄ VBA — Π·Π°ΠΏΠΈΡΠ°Ρ‚ΡŒ макрос ΠΈ Π²Π·ΡΡ‚ΡŒ ΠΊΠΎΠ΄, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ ΠΎΠ½ Π³Π΅Π½Π΅Ρ€ΠΈΡ€ΡƒΠ΅Ρ‚. Однако этот ΠΊΠΎΠ΄ макроса записи часто ΠΏΠΎΠ»ΠΎΠ½ ΠΊΠΎΠ΄Π°, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ Π½Π° самом Π΄Π΅Π»Π΅ Π½Π΅ Π½ΡƒΠΆΠ΅Π½. Π’Π°ΠΊΠΆΠ΅ Ρƒ ΠΌΠ°ΠΊΡ€ΠΎ-Ρ€Π΅ΠΊΠΎΡ€Π΄Π΅Ρ€Π° Π΅ΡΡ‚ΡŒ Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ограничСния.

ΠŸΠΎΡΡ‚ΠΎΠΌΡƒ стоит ΠΈΠΌΠ΅Ρ‚ΡŒ ΠΊΠΎΠ»Π»Π΅ΠΊΡ†ΠΈΡŽ ΠΏΠΎΠ»Π΅Π·Π½Ρ‹Ρ… ΠΌΠ°ΠΊΡ€ΠΎΠΊΠΎΠ΄ΠΎΠ² VBA, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΠΌΠΎΠΆΠ½ΠΎ Π½ΠΎΡΠΈΡ‚ΡŒ Π² Π·Π°Π΄Π½Π΅ΠΌ ΠΊΠ°Ρ€ΠΌΠ°Π½Π΅ ΠΈ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ ΠΏΡ€ΠΈ нСобходимости.

Π₯отя написаниС ΠΌΠ°ΠΊΡ€ΠΎΠΊΠΎΠ΄Π° Excel VBA Π½Π° Π½Π°Ρ‡Π°Π»ΡŒΠ½ΠΎΠΌ этапС ΠΌΠΎΠΆΠ΅Ρ‚ Π·Π°Π½ΡΡ‚ΡŒ Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ΅ врСмя, послС Π΅Π³ΠΎ Π·Π°Π²Π΅Ρ€ΡˆΠ΅Π½ΠΈΡ Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΡΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ Π΅Π³ΠΎ доступным Π² качСствС справочника ΠΈ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Π² ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ Ρ€Π°Π·, ΠΊΠΎΠ³Π΄Π° ΠΎΠ½ понадобится.

Π’ этой ΠΎΠ±ΡˆΠΈΡ€Π½ΠΎΠΉ ΡΡ‚Π°Ρ‚ΡŒΠ΅ я ΡΠΎΠ±ΠΈΡ€Π°ΡŽΡΡŒ ΠΏΠ΅Ρ€Π΅Ρ‡ΠΈΡΠ»ΠΈΡ‚ΡŒ нСсколько ΠΏΠΎΠ»Π΅Π·Π½Ρ‹Ρ… ΠΏΡ€ΠΈΠΌΠ΅Ρ€ΠΎΠ² макросов Excel, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΠΌΠ½Π΅ часто Π½ΡƒΠΆΠ½Ρ‹ ΠΈ ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ я Ρ…Ρ€Π°Π½ΡŽ Π² ΠΌΠΎΠ΅ΠΌ Π»ΠΈΡ‡Π½ΠΎΠΌ Ρ…Ρ€Π°Π½ΠΈΠ»ΠΈΡ‰Π΅.

Π― Π±ΡƒΠ΄Ρƒ ΠΏΡ€ΠΎΠ΄ΠΎΠ»ΠΆΠ°Ρ‚ΡŒ ΠΎΠ±Π½ΠΎΠ²Π»ΡΡ‚ΡŒ этот ΡƒΡ‡Π΅Π±Π½ΠΈΠΊ, добавляя большС ΠΏΡ€ΠΈΠΌΠ΅Ρ€ΠΎΠ² макросов. Если Π²Ρ‹ считаСтС, Ρ‡Ρ‚ΠΎ Ρ‡Ρ‚ΠΎ-Ρ‚ΠΎ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±Ρ‹Ρ‚ΡŒ Π² спискС, просто ΠΎΡΡ‚Π°Π²ΡŒΡ‚Π΅ ΠΊΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΉ.

Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π΄ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ эту страницу Π² Π·Π°ΠΊΠ»Π°Π΄ΠΊΠΈ для дальнСйшСго использования.

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

ИспользованиС ΠΊΠΎΠ΄Π° ΠΈΠ· ΠΏΡ€ΠΈΠΌΠ΅Ρ€ΠΎΠ² макросов Excel

Π’ΠΎΡ‚ шаги, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΠΎ Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ ΠΊΠΎΠ΄ ΠΈΠ· любого ΠΈΠ· ΠΏΡ€ΠΈΠΌΠ΅Ρ€ΠΎΠ²:

  • ΠžΡ‚ΠΊΡ€ΠΎΠΉΡ‚Π΅ ΠΊΠ½ΠΈΠ³Ρƒ, Π² ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ макрос.
  • УдСрТивая ΠΊΠ»Π°Π²ΠΈΡˆΡƒ ALT, Π½Π°ΠΆΠΌΠΈΡ‚Π΅ F11. ΠžΡ‚ΠΊΡ€ΠΎΠ΅Ρ‚ΡΡ Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€ VB.
  • Π©Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ ΠΏΡ€Π°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΈ любой ΠΈΠ· ΠΎΠ±ΡŠΠ΅ΠΊΡ‚ΠΎΠ² Π² ΠΏΡ€ΠΎΠ²ΠΎΠ΄Π½ΠΈΠΊΠ΅ ΠΏΡ€ΠΎΠ΅ΠΊΡ‚Π°.
  • ΠŸΠ΅Ρ€Π΅ΠΉΠ΄ΠΈΡ‚Π΅ Π² Insert -> Module.
  • Π‘ΠΊΠΎΠΏΠΈΡ€ΡƒΠΉΡ‚Π΅ ΠΈ Π²ΡΡ‚Π°Π²ΡŒΡ‚Π΅ ΠΊΠΎΠ΄ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π° модуля.

Если Π² ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ говорится, Ρ‡Ρ‚ΠΎ Π²Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ Π²ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ ΠΊΠΎΠ΄ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π° Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа, Π΄Π²Π°ΠΆΠ΄Ρ‹ Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚ Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа ΠΈ скопируйтС ΠΈ Π²ΡΡ‚Π°Π²ΡŒΡ‚Π΅ ΠΊΠΎΠ΄ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π°.

ПослС Ρ‚ΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ Π²Ρ‹ вставили ΠΊΠΎΠ΄ Π² ΠΊΠ½ΠΈΠ³Ρƒ, Π²Π°ΠΌ Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ Π΅Π³ΠΎ с Ρ€Π°ΡΡˆΠΈΡ€Π΅Π½ΠΈΠ΅ΠΌ .XLSM ΠΈΠ»ΠΈ .XLS.

Как Π·Π°ΠΏΡƒΡΡ‚ΠΈΡ‚ΡŒ макрос

ПослС Ρ‚ΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ Π²Ρ‹ скопировали ΠΊΠΎΠ΄ Π² Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€Π΅ VB, Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚Π΅ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ дСйствия для запуска макроса:

  • ΠŸΠ΅Ρ€Π΅ΠΉΠ΄ΠΈΡ‚Π΅ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡƒ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ.
  • Π©Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ ΠœΠ°ΠΊΡ€ΠΎΡΡ‹.
  • Π’ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ Β«ΠœΠ°ΠΊΡ€ΠΎΡΒ» Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ макрос, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ Π½ΡƒΠΆΠ½ΠΎ Π·Π°ΠΏΡƒΡΡ‚ΠΈΡ‚ΡŒ.
  • НаТмитС ΠΊΠ½ΠΎΠΏΠΊΡƒ Β«Π’Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒΒ».

Если Π²Ρ‹ Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π½Π°ΠΉΡ‚ΠΈ Π²ΠΊΠ»Π°Π΄ΠΊΡƒ Ρ€Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΠ° Π½Π° Π»Π΅Π½Ρ‚Π΅, ΠΏΡ€ΠΎΡ‡Ρ‚ΠΈΡ‚Π΅ это руководство, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΡƒΠ·Π½Π°Ρ‚ΡŒ, ΠΊΠ°ΠΊ Π΅Π΅ ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ.

БвязанноС руководство: Ρ€Π°Π·Π»ΠΈΡ‡Π½Ρ‹Π΅ способы запуска макроса Π² Excel.

Если ΠΊΠΎΠ΄ вставлСн Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π° Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа, Π²Π°ΠΌ Π½Π΅ Π½ΡƒΠΆΠ½ΠΎ Π±Π΅ΡΠΏΠΎΠΊΠΎΠΈΡ‚ΡŒΡΡ ΠΎ Π΅Π³ΠΎ запускС. Он Π±ΡƒΠ΄Π΅Ρ‚ автоматичСски Π·Π°ΠΏΡƒΡΠΊΠ°Ρ‚ΡŒΡΡ ΠΏΡ€ΠΈ Π²Ρ‹ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΡƒΠΊΠ°Π·Π°Π½Π½ΠΎΠ³ΠΎ дСйствия.

Π’Π΅ΠΏΠ΅Ρ€ΡŒ ΠΏΠ΅Ρ€Π΅ΠΉΠ΄Π΅ΠΌ ΠΊ ΠΏΠΎΠ»Π΅Π·Π½Ρ‹ΠΌ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π°ΠΌ макросов, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΠΏΠΎΠΌΠΎΠ³ΡƒΡ‚ Π°Π²Ρ‚ΠΎΠΌΠ°Ρ‚ΠΈΠ·ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Ρ€Π°Π±ΠΎΡ‚Ρƒ ΠΈ ΡΡΠΊΠΎΠ½ΠΎΠΌΠΈΡ‚ΡŒ врСмя.

ΠŸΡ€ΠΈΠΌΠ΅Ρ‡Π°Π½ΠΈΠ΅. Π’Ρ‹ Π½Π°ΠΉΠ΄Π΅Ρ‚Π΅ мноТСство ΠΏΡ€ΠΈΠΌΠ΅Ρ€ΠΎΠ² апострофа (β€˜), Π·Π° ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΌ слСдуСт ΠΏΠ°Ρ€Π° строк. Π­Ρ‚ΠΎ ΠΊΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΠΈΠ³Π½ΠΎΡ€ΠΈΡ€ΡƒΡŽΡ‚ΡΡ ΠΏΡ€ΠΈ запускС ΠΊΠΎΠ΄Π° ΠΈ ΠΏΠΎΠΌΠ΅Ρ‰Π°ΡŽΡ‚ΡΡ ΠΊΠ°ΠΊ Π·Π°ΠΌΠ΅Ρ‚ΠΊΠΈ для сСбя / читатСля.

Если Π²Ρ‹ ΠΎΠ±Π½Π°Ρ€ΡƒΠΆΠΈΡ‚Π΅ ΠΎΡˆΠΈΠ±ΠΊΡƒ Π² ΡΡ‚Π°Ρ‚ΡŒΠ΅ ΠΈΠ»ΠΈ ΠΊΠΎΠ΄Π΅, поТалуйста, Π΄Π°ΠΉΡ‚Π΅ ΠΌΠ½Π΅ Π·Π½Π°Ρ‚ΡŒ.

ΠŸΡ€ΠΈΠΌΠ΅Ρ€Ρ‹ макросов Excel

Π’ этой ΡΡ‚Π°Ρ‚ΡŒΠ΅ Ρ€Π°ΡΡΠΌΠ°Ρ‚Ρ€ΠΈΠ²Π°ΡŽΡ‚ΡΡ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Ρ‹ макросов:

ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ всС Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ листы Π·Π° ΠΎΠ΄ΠΈΠ½ Ρ€Π°Π·

Если Π²Ρ‹ Ρ€Π°Π±ΠΎΡ‚Π°Π΅Ρ‚Π΅ с ΠΊΠ½ΠΈΠ³ΠΎΠΉ, Π² ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ Π΅ΡΡ‚ΡŒ нСсколько скрытых листов, Π²Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Ρ‚ΡŒ эти листы ΠΎΠ΄ΠΈΠ½ Π·Π° Π΄Ρ€ΡƒΠ³ΠΈΠΌ. Π­Ρ‚ΠΎ ΠΌΠΎΠΆΠ΅Ρ‚ Π·Π°Π½ΡΡ‚ΡŒ Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ΅ врСмя, Ссли Π΅ΡΡ‚ΡŒ ΠΌΠ½ΠΎΠ³ΠΎ скрытых листов.

Π’ΠΎΡ‚ ΠΊΠΎΠ΄, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ ΠΏΠΎΠΊΠ°ΠΆΠ΅Ρ‚ всС Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ листы Π² ΠΊΠ½ΠΈΠ³Π΅.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ ΠΎΡ‚ΠΎΠ±Ρ€Π°Π·ΠΈΡ‚ всС листы Π² ΠΊΠ½ΠΈΠ³Π΅ Sub UnhideAllWoksheets () Dim ws As Worksheet для ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws Π² ActiveWorkbook.Worksheets ws.Visible = xlSheetVisible Next ws End Sub

Π’ ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²Ρ‹ΡˆΠ΅ ΠΊΠΎΠ΄Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ Ρ†ΠΈΠΊΠ» VBA (для ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ) для просмотра всСх листов Π² ΠΊΠ½ΠΈΠ³Π΅. Π—Π°Ρ‚Π΅ΠΌ ΠΎΠ½ измСняСт Π²ΠΈΠ΄ΠΈΠΌΠΎΠ΅ свойство Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа Π½Π° Π²ΠΈΠ΄ΠΈΠΌΠΎΠ΅.

Π’ΠΎΡ‚ ΠΏΠΎΠ΄Ρ€ΠΎΠ±Π½ΠΎΠ΅ руководство ΠΎ Ρ‚ΠΎΠΌ, ΠΊΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Ρ€Π°Π·Π»ΠΈΡ‡Π½Ρ‹Π΅ ΠΌΠ΅Ρ‚ΠΎΠ΄Ρ‹ для отобраТСния листов Π² Excel.

Π‘ΠΊΡ€Ρ‹Ρ‚ΡŒ всС Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ листы, ΠΊΡ€ΠΎΠΌΠ΅ Π°ΠΊΡ‚ΠΈΠ²Π½ΠΎΠ³ΠΎ листа

Если Π²Ρ‹ Ρ€Π°Π±ΠΎΡ‚Π°Π΅Ρ‚Π΅ с ΠΎΡ‚Ρ‡Π΅Ρ‚ΠΎΠΌ ΠΈΠ»ΠΈ панСлью ΠΌΠΎΠ½ΠΈΡ‚ΠΎΡ€ΠΈΠ½Π³Π° ΠΈ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΡΠΊΡ€Ρ‹Ρ‚ΡŒ всю Ρ‚Π°Π±Π»ΠΈΡ†Ρƒ, ΠΊΡ€ΠΎΠΌΠ΅ Ρ‚ΠΎΠΉ, которая содСрТит ΠΎΡ‚Ρ‡Π΅Ρ‚ / панСль ΠΌΠΎΠ½ΠΈΡ‚ΠΎΡ€ΠΈΠ½Π³Π°, Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ этот ΠΊΠΎΠ΄ макроса.

'Π­Ρ‚ΠΎΡ‚ макрос скроСт вСсь Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист, ΠΊΡ€ΠΎΠΌΠ΅ Π°ΠΊΡ‚ΠΈΠ²Π½ΠΎΠ³ΠΎ листа Sub HideAllExceptActiveSheet () Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name ActiveSheet.Name Then ws.Visible = xlSheetHidden Next ws End Sub

Π‘ΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²ΠΊΠ° листов ΠΏΠΎ Π°Π»Ρ„Π°Π²ΠΈΡ‚Ρƒ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ VBA

Если Ρƒ вас Π΅ΡΡ‚ΡŒ ΠΊΠ½ΠΈΠ³Π° с большим количСством листов ΠΈ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΎΡ‚ΡΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ΠΈΡ… Π² Π°Π»Ρ„Π°Π²ΠΈΡ‚Π½ΠΎΠΌ порядкС, этот ΠΊΠΎΠ΄ макроса ΠΌΠΎΠΆΠ΅Ρ‚ ΠΎΠΊΠ°Π·Π°Ρ‚ΡŒΡΡ Π΄Π΅ΠΉΡΡ‚Π²ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎ ΠΏΠΎΠ»Π΅Π·Π½Ρ‹ΠΌ. Π­Ρ‚ΠΎ ΠΌΠΎΠΆΠ΅Ρ‚ Π±Ρ‹Ρ‚ΡŒ Ρ‚Π°ΠΊ, Ссли Ρƒ вас Π΅ΡΡ‚ΡŒ ΠΈΠΌΠ΅Π½Π° листов Π² Π²ΠΈΠ΄Π΅ Π»Π΅Ρ‚, ΠΈΠΌΠ΅Π½ сотрудников ΠΈΠ»ΠΈ ΠΏΡ€ΠΎΠ΄ΡƒΠΊΡ‚ΠΎΠ².

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ Π±ΡƒΠ΄Π΅Ρ‚ ΠΎΡ‚ΡΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ листы ΠΏΠΎ Π°Π»Ρ„Π°Π²ΠΈΡ‚Ρƒ Sub SortSheetsTabName () Application. ScreenUpdating = False Dim ShCount As Integer, i As Integer, j As Integer ShCount = Sheets.Count For i = 1 To ShCount - 1 For j = i + 1 To ShCount If Sheets (j) .Name <Sheets (i) .Name Then Sheets (j) .Move before: = Sheets (i) End If Next j Next i Application.ScreenUpdating = True End Sub

Π—Π°Ρ‰ΠΈΡ‚ΠΈΡ‚Π΅ всС Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ листы Π·Π° ΠΎΠ΄ΠΈΠ½ Ρ€Π°Π·

Если Ρƒ вас ΠΌΠ½ΠΎΠ³ΠΎ листов Π² ΠΊΠ½ΠΈΠ³Π΅ ΠΈ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ Π·Π°Ρ‰ΠΈΡ‚ΠΈΡ‚ΡŒ всС листы, Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ этот ΠΊΠΎΠ΄ макроса.

Π­Ρ‚ΠΎ позволяСт Π²Π°ΠΌ ΡƒΠΊΠ°Π·Π°Ρ‚ΡŒ ΠΏΠ°Ρ€ΠΎΠ»ΡŒ Π² ΠΊΠΎΠ΄Π΅. Π­Ρ‚ΠΎΡ‚ ΠΏΠ°Ρ€ΠΎΠ»ΡŒ понадобится Π²Π°ΠΌ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΡΠ½ΡΡ‚ΡŒ Π·Π°Ρ‰ΠΈΡ‚Ρƒ с листа.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ Π·Π°Ρ‰ΠΈΡ‚ΠΈΡ‚ всС листы Π·Π° ΠΎΠ΄ΠΈΠ½ Ρ€Π°Π· Sub ProtectAllSheets () Dim ws As Worksheet Dim password As String password = "Test123"' Π·Π°ΠΌΠ΅Π½ΠΈΡ‚Π΅ Test123 Π½ΡƒΠΆΠ½Ρ‹ΠΌ ΠΏΠ°Ρ€ΠΎΠ»Π΅ΠΌ. Для ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws In Worksheets ws.Protect password: = password Π”Π°Π»Π΅Π΅ ws ΠšΠΎΠ½Π΅Ρ† подписки

Π‘Π½ΡΡ‚ΡŒ Π·Π°Ρ‰ΠΈΡ‚Ρƒ со всСх листов Π·Π° ΠΎΠ΄ΠΈΠ½ Ρ€Π°Π·

Если Ρƒ вас Π΅ΡΡ‚ΡŒ Π·Π°Ρ‰ΠΈΡ‰Π΅Π½Π½Ρ‹Π΅ Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΠΈΠ»ΠΈ всС Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ листы, Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ просто ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Π½Π΅Π±ΠΎΠ»ΡŒΡˆΡƒΡŽ ΠΌΠΎΠ΄ΠΈΡ„ΠΈΠΊΠ°Ρ†ΠΈΡŽ ΠΊΠΎΠ΄Π°, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌΠΎΠ³ΠΎ для Π·Π°Ρ‰ΠΈΡ‚Ρ‹ листов, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΡΠ½ΡΡ‚ΡŒ Π΅Π³ΠΎ Π·Π°Ρ‰ΠΈΡ‚Ρƒ.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ Π·Π°Ρ‰ΠΈΡ‚ΠΈΡ‚ всС листы Π·Π° ΠΎΠ΄ΠΈΠ½ Ρ€Π°Π·. Sub ProtectAllSheets () Dim ws As Worksheet Dim password As String password = "Test123"' Π·Π°ΠΌΠ΅Π½ΠΈΡ‚Π΅ Test123 Π½ΡƒΠΆΠ½Ρ‹ΠΌ ΠΏΠ°Ρ€ΠΎΠ»Π΅ΠΌ. For Each ws In Worksheets () ws.Unprotect password: = password Next ws ΠšΠΎΠ½Π΅Ρ† подписки

ΠžΠ±Ρ€Π°Ρ‚ΠΈΡ‚Π΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, Ρ‡Ρ‚ΠΎ ΠΏΠ°Ρ€ΠΎΠ»ΡŒ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΡΠΎΠ²ΠΏΠ°Π΄Π°Ρ‚ΡŒ с ΠΏΠ°Ρ€ΠΎΠ»Π΅ΠΌ, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ использовался для Π±Π»ΠΎΠΊΠΈΡ€ΠΎΠ²ΠΊΠΈ Ρ€Π°Π±ΠΎΡ‡ΠΈΡ… листов. Π’ ΠΏΡ€ΠΎΡ‚ΠΈΠ²Π½ΠΎΠΌ случаС Π²Ρ‹ ΡƒΠ²ΠΈΠ΄ΠΈΡ‚Π΅ сообщСниС ΠΎΠ± ошибкС.

ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ всС строки ΠΈ столбцы

Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ макроса ΠΏΠΎΠΊΠ°ΠΆΠ΅Ρ‚ всС скрытыС строки ΠΈ столбцы.

Π­Ρ‚ΠΎ ΠΌΠΎΠΆΠ΅Ρ‚ Π±Ρ‹Ρ‚ΡŒ Π΄Π΅ΠΉΡΡ‚Π²ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ, Ссли Π²Ρ‹ ΠΏΠΎΠ»ΡƒΡ‡ΠΈΠ»ΠΈ Ρ„Π°ΠΉΠ» ΠΎΡ‚ ΠΊΠΎΠ³ΠΎ-Ρ‚ΠΎ Π΄Ρ€ΡƒΠ³ΠΎΠ³ΠΎ ΠΈ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΡƒΠ±Π΅Π΄ΠΈΡ‚ΡŒΡΡ, Ρ‡Ρ‚ΠΎ Π² Π½Π΅ΠΌ Π½Π΅Ρ‚ скрытых строк / столбцов.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ ΠΎΡ‚ΠΎΠ±Ρ€Π°Π·ΠΈΡ‚ всС строки ΠΈ столбцы Π² подмСню Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа UnhideRowsColumns () Columns.EntireColumn.Hidden = False Rows.EntireRow.Hidden = False End Sub

Π Π°Π·ΡŠΠ΅Π΄ΠΈΠ½ΠΈΡ‚ΡŒ всС ΠΎΠ±ΡŠΠ΅Π΄ΠΈΠ½Π΅Π½Π½Ρ‹Π΅ ячСйки

ΠžΠ±Ρ‹Ρ‡Π½ΠΎ ячСйки ΠΎΠ±ΡŠΠ΅Π΄ΠΈΠ½ΡΡŽΡ‚ Π² ΠΎΠ΄Π½Ρƒ. Пока ΠΎΠ½ выполняСт свою Ρ€Π°Π±ΠΎΡ‚Ρƒ, ΠΏΡ€ΠΈ объСдинСнии ячССк Π²Ρ‹ Π½Π΅ смоТСтС ΡΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Π΄Π°Π½Π½Ρ‹Π΅.

Если Π²Ρ‹ Ρ€Π°Π±ΠΎΡ‚Π°Π΅Ρ‚Π΅ с листом с ΠΎΠ±ΡŠΠ΅Π΄ΠΈΠ½Π΅Π½Π½Ρ‹ΠΌΠΈ ячСйками, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½Ρ‹ΠΉ Π½ΠΈΠΆΠ΅ ΠΊΠΎΠ΄, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΎΠ±ΡŠΠ΅Π΄ΠΈΠ½ΠΈΡ‚ΡŒ всС ΠΎΠ±ΡŠΠ΅Π΄ΠΈΠ½Π΅Π½Π½Ρ‹Π΅ ячСйки Π·Π° ΠΎΠ΄ΠΈΠ½ Ρ€Π°Π·.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ ΠΎΠ±ΡŠΠ΅Π΄ΠΈΠ½ΠΈΡ‚ всС ΠΎΠ±ΡŠΠ΅Π΄ΠΈΠ½Π΅Π½Π½Ρ‹Π΅ ячСйки Sub UnmergeAllCells () ActiveSheet.Cells.UnMerge End Sub

ΠžΠ±Ρ€Π°Ρ‚ΠΈΡ‚Π΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, Ρ‡Ρ‚ΠΎ вмСсто Β«ΠžΠ±ΡŠΠ΅Π΄ΠΈΠ½ΠΈΡ‚ΡŒ ΠΈ Ρ†Π΅Π½Ρ‚Ρ€ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒΒ» я Ρ€Π΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡƒΡŽ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€ Β«Π¦Π΅Π½Ρ‚Ρ€ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ΠΏΠΎ всСму Π²Ρ‹Π΄Π΅Π»Π΅Π½ΠΈΡŽΒ».

Π‘ΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ ΠΊΠ½ΠΈΠ³Ρƒ с ΠΎΡ‚ΠΌΠ΅Ρ‚ΠΊΠΎΠΉ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ Π² Π΅Π΅ ΠΈΠΌΠ΅Π½ΠΈ

Много Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ, Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, Π²Π°ΠΌ понадобится ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ вСрсии своСй Ρ€Π°Π±ΠΎΡ‚Ρ‹. Они ΠΎΡ‡Π΅Π½ΡŒ ΠΏΠΎΠ»Π΅Π·Π½Ρ‹ Π² Π΄Π»ΠΈΠ½Π½Ρ‹Ρ… ΠΏΡ€ΠΎΠ΅ΠΊΡ‚Π°Ρ…, ΠΊΠΎΠ³Π΄Π° Π²Ρ‹ Ρ€Π°Π±ΠΎΡ‚Π°Π΅Ρ‚Π΅ с Ρ„Π°ΠΉΠ»ΠΎΠΌ Π² Ρ‚Π΅Ρ‡Π΅Π½ΠΈΠ΅ Π΄ΠΎΠ»Π³ΠΎΠ³ΠΎ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ.

Π₯ΠΎΡ€ΠΎΡˆΠ°Ρ ΠΏΡ€Π°ΠΊΡ‚ΠΈΠΊΠ° — ΡΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ Ρ„Π°ΠΉΠ» с ΠΎΡ‚ΠΌΠ΅Ρ‚ΠΊΠ°ΠΌΠΈ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ.

ИспользованиС Π²Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹Ρ… ΠΌΠ΅Ρ‚ΠΎΠΊ ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΡ‚ Π²Π°ΠΌ Π²Π΅Ρ€Π½ΡƒΡ‚ΡŒΡΡ ΠΊ ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌΡƒ Ρ„Π°ΠΉΠ»Ρƒ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΡƒΠ²ΠΈΠ΄Π΅Ρ‚ΡŒ, ΠΊΠ°ΠΊΠΈΠ΅ измСнСния Π±Ρ‹Π»ΠΈ внСсСны ΠΈΠ»ΠΈ ΠΊΠ°ΠΊΠΈΠ΅ Π΄Π°Π½Π½Ρ‹Π΅ Π±Ρ‹Π»ΠΈ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Π½Ρ‹.

Π’ΠΎΡ‚ ΠΊΠΎΠ΄, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ автоматичСски сохранит ΠΊΠ½ΠΈΠ³Ρƒ Π² ΡƒΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ ΠΏΠ°ΠΏΠΊΠ΅ ΠΈ Π΄ΠΎΠ±Π°Π²ΠΈΡ‚ ΠΌΠ΅Ρ‚ΠΊΡƒ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ ΠΏΡ€ΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠΌ сохранСнии.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ сохранит Ρ„Π°ΠΉΠ» с ΠΌΠ΅Ρ‚ΠΊΠΎΠΉ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ Π² Π΅Π³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ Sub SaveWorkbookWithTimeStamp () Вусклая ΠΌΠ΅Ρ‚ΠΊΠ° Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ Π² Π²ΠΈΠ΄Π΅ строки timestamp = Format (Date, "dd-mm-yyyy") & "_" & Format (Time, "hh-ss") ThisWorkbook. SaveAs "C: UsersUsernameDesktopWorkbookName" ΠΈ ΠΎΡ‚ΠΌΠ΅Ρ‚ΠΊΠ° Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ End Sub

Π’Π°ΠΌ Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΠΎ ΡƒΠΊΠ°Π·Π°Ρ‚ΡŒ располоТСниС ΠΏΠ°ΠΏΠΊΠΈ ΠΈ имя Ρ„Π°ΠΉΠ»Π°.

Π’ ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²Ρ‹ΡˆΠ΅ ΠΊΠΎΠ΄Π΅ Β«C: UsersUsernameDesktop — это ΠΏΠ°ΠΏΠΊΠ°, ΠΊΠΎΡ‚ΠΎΡ€ΡƒΡŽ я использовал. Π’Π°ΠΌ Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΠΎ ΡƒΠΊΠ°Π·Π°Ρ‚ΡŒ ΠΏΠ°ΠΏΠΊΡƒ, Π² ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΡΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ Ρ„Π°ΠΉΠ». ΠšΡ€ΠΎΠΌΠ΅ Ρ‚ΠΎΠ³ΠΎ, я использовал ΠΎΠ±Ρ‰Π΅Π΅ имя Β«WorkbookNameΒ» Π² качСствС прСфикса ΠΈΠΌΠ΅Π½ΠΈ Ρ„Π°ΠΉΠ»Π°. Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΡƒΠΊΠ°Π·Π°Ρ‚ΡŒ Ρ‚ΠΎ, Ρ‡Ρ‚ΠΎ связано с вашим ΠΏΡ€ΠΎΠ΅ΠΊΡ‚ΠΎΠΌ ΠΈΠ»ΠΈ ΠΊΠΎΠΌΠΏΠ°Π½ΠΈΠ΅ΠΉ.

БохраняйтС ΠΊΠ°ΠΆΠ΄Ρ‹ΠΉ Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист ΠΊΠ°ΠΊ ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½Ρ‹ΠΉ PDF-Ρ„Π°ΠΉΠ»

Если Π²Ρ‹ Ρ€Π°Π±ΠΎΡ‚Π°Π΅Ρ‚Π΅ с Π΄Π°Π½Π½Ρ‹ΠΌΠΈ Π·Π° Ρ€Π°Π·Π½Ρ‹Π΅ Π³ΠΎΠ΄Ρ‹, подраздСлСния ΠΈΠ»ΠΈ ΠΏΡ€ΠΎΠ΄ΡƒΠΊΡ‚Ρ‹, Π²Π°ΠΌ ΠΌΠΎΠΆΠ΅Ρ‚ ΠΏΠΎΡ‚Ρ€Π΅Π±ΠΎΠ²Π°Ρ‚ΡŒΡΡ ΡΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ Ρ€Π°Π·Π½Ρ‹Π΅ Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ листы Π² Π²ΠΈΠ΄Π΅ Ρ„Π°ΠΉΠ»ΠΎΠ² PDF.

Π₯отя это ΠΌΠΎΠΆΠ΅Ρ‚ Π·Π°Π½ΡΡ‚ΡŒ ΠΌΠ½ΠΎΠ³ΠΎ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ, Ссли Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ Π΅Π³ΠΎ Π²Ρ€ΡƒΡ‡Π½ΡƒΡŽ, VBA Π΄Π΅ΠΉΡΡ‚Π²ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎ ΠΌΠΎΠΆΠ΅Ρ‚ Π΅Π³ΠΎ ΡƒΡΠΊΠΎΡ€ΠΈΡ‚ΡŒ.

Π’ΠΎΡ‚ ΠΊΠΎΠ΄ VBA, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ сохранит ΠΊΠ°ΠΆΠ΄Ρ‹ΠΉ Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист ΠΊΠ°ΠΊ ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½Ρ‹ΠΉ PDF-Ρ„Π°ΠΉΠ».

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ сохранит ΠΊΠ°ΠΆΠ΄Ρ‹ΠΉ Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист ΠΊΠ°ΠΊ ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½Ρ‹ΠΉ PDF-Ρ„Π°ΠΉΠ» Sub SaveWorkshetAsPDF () Dim ws As Worksheet для ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws Π² Ρ€Π°Π±ΠΎΡ‡ΠΈΡ… Ρ‚Π°Π±Π»ΠΈΡ†Π°Ρ… ws. ExportAsFixedFormat xlTypePDF, "C: UsersSumitDesktopTest" & ws.Name & ".pdf" Next ws End Sub

Π’ ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²Ρ‹ΡˆΠ΅ ΠΊΠΎΠ΄Π΅ я ΡƒΠΊΠ°Π·Π°Π» адрСс ΠΏΠ°ΠΏΠΊΠΈ, Π² ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ я Ρ…ΠΎΡ‡Ρƒ ΡΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ PDF-Ρ„Π°ΠΉΠ»Ρ‹. ΠšΡ€ΠΎΠΌΠ΅ Ρ‚ΠΎΠ³ΠΎ, ΠΊΠ°ΠΆΠ΄Ρ‹ΠΉ PDF-Ρ„Π°ΠΉΠ» ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ Ρ‚ΠΎ ΠΆΠ΅ имя, Ρ‡Ρ‚ΠΎ ΠΈ Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист. Π’Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ Π±ΡƒΠ΄Π΅Ρ‚ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ располоТСниС этой ΠΏΠ°ΠΏΠΊΠΈ (Ссли Ρ‚ΠΎΠ»ΡŒΠΊΠΎ вашС имя Π½Π΅ Sumit ΠΈ Π²Ρ‹ Π½Π΅ сохраняСтС Π΅Π³ΠΎ Π² тСстовой ΠΏΠ°ΠΏΠΊΠ΅ Π½Π° Ρ€Π°Π±ΠΎΡ‡Π΅ΠΌ столС).

ΠžΠ±Ρ€Π°Ρ‚ΠΈΡ‚Π΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, Ρ‡Ρ‚ΠΎ этот ΠΊΠΎΠ΄ Ρ€Π°Π±ΠΎΡ‚Π°Π΅Ρ‚ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ с листами (Π° Π½Π΅ с Ρ‚Π°Π±Π»ΠΈΡ†Π°ΠΌΠΈ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌ).

БохраняйтС ΠΊΠ°ΠΆΠ΄Ρ‹ΠΉ Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист ΠΊΠ°ΠΊ ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½Ρ‹ΠΉ PDF-Ρ„Π°ΠΉΠ»

Π’ΠΎΡ‚ ΠΊΠΎΠ΄, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ сохранит всю Π²Π°ΡˆΡƒ ΠΊΠ½ΠΈΠ³Ρƒ Π² Π²ΠΈΠ΄Π΅ PDF-Ρ„Π°ΠΉΠ»Π° Π² ΡƒΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ ΠΏΠ°ΠΏΠΊΠ΅.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ сохранит всю ΠΊΠ½ΠΈΠ³Ρƒ ΠΊΠ°ΠΊ PDF Sub SaveWorkshetAsPDF () ThisWorkbook.ExportAsFixedFormat xlTypePDF, "C: UsersSumitDesktopTest" & ThisWorkbook.Name & ".pdf" End Sub

Π’Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ Π±ΡƒΠ΄Π΅Ρ‚ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ располоТСниС ΠΏΠ°ΠΏΠΊΠΈ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ этот ΠΊΠΎΠ΄.

ΠŸΡ€Π΅ΠΎΠ±Ρ€Π°Π·ΠΎΠ²Π°Π½ΠΈΠ΅ всСх Ρ„ΠΎΡ€ΠΌΡƒΠ» Π² значСния

Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ этот ΠΊΠΎΠ΄, Ссли Ρƒ вас Π΅ΡΡ‚ΡŒ Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист, содСрТащий мноТСство Ρ„ΠΎΡ€ΠΌΡƒΠ», ΠΈ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΏΡ€Π΅ΠΎΠ±Ρ€Π°Π·ΠΎΠ²Π°Ρ‚ΡŒ эти Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ Π² значСния.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ ΠΏΡ€Π΅ΠΎΠ±Ρ€Π°Π·ΡƒΠ΅Ρ‚ всС Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ Π² значСния Sub ConvertToValues ​​() With ActiveSheet.UsedRange .Value = .Value End With End Sub

Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ автоматичСски опрСдСляСт ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌΡ‹Π΅ ячСйки ΠΈ ΠΏΡ€Π΅ΠΎΠ±Ρ€Π°Π·ΡƒΠ΅Ρ‚ ΠΈΡ… Π² значСния.

Π—Π°Ρ‰ΠΈΡ‚Π° / Π±Π»ΠΎΠΊΠΈΡ€ΠΎΠ²ΠΊΠ° ячССк с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΠΎΡ€ΠΌΡƒΠ»

Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π·Π°Π±Π»ΠΎΠΊΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ячСйки с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΠΎΡ€ΠΌΡƒΠ», ΠΊΠΎΠ³Π΄Π° Ρƒ вас ΠΌΠ½ΠΎΠ³ΠΎ вычислСний, ΠΈ Π²Ρ‹ Π½Π΅ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ случайно ΡƒΠ΄Π°Π»ΠΈΡ‚ΡŒ ΠΈΠ»ΠΈ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ Π΅Π³ΠΎ.

Π’ΠΎΡ‚ ΠΊΠΎΠ΄, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ Π·Π°Π±Π»ΠΎΠΊΠΈΡ€ΡƒΠ΅Ρ‚ всС ячСйки с Ρ„ΠΎΡ€ΠΌΡƒΠ»Π°ΠΌΠΈ, Π² Ρ‚ΠΎ врСмя ΠΊΠ°ΠΊ всС ΠΎΡΡ‚Π°Π»ΡŒΠ½Ρ‹Π΅ ячСйки Π½Π΅ Π·Π°Π±Π»ΠΎΠΊΠΈΡ€ΠΎΠ²Π°Π½Ρ‹.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ макроса Π·Π°Π±Π»ΠΎΠΊΠΈΡ€ΡƒΠ΅Ρ‚ всС ячСйки с Ρ„ΠΎΡ€ΠΌΡƒΠ»Π°ΠΌΠΈ Sub LockCellsWithFormulas () с ActiveSheet .Unprotect .Cells.Locked = False .Cells.SpecialCells (xlCellTypeFormulas) .Locked = True .Protect AllowDeletingRows: = True End With End Sub

БвязанноС руководство: Как Π·Π°Π±Π»ΠΎΠΊΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ячСйки Π² Excel.

Π—Π°Ρ‰ΠΈΡ‚ΠΈΡ‚ΡŒ всС Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ листы Π² ΠΊΠ½ΠΈΠ³Π΅

Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½Ρ‹ΠΉ Π½ΠΈΠΆΠ΅ ΠΊΠΎΠ΄, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π·Π°Ρ‰ΠΈΡ‚ΠΈΡ‚ΡŒ всС Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ листы Π² ΠΊΠ½ΠΈΠ³Π΅ Π·Π° ΠΎΠ΄ΠΈΠ½ Ρ€Π°Π·.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ Π±ΡƒΠ΄Π΅Ρ‚ Π·Π°Ρ‰ΠΈΡ‰Π°Ρ‚ΡŒ всС листы Π² ΠΊΠ½ΠΈΠ³Π΅ Sub ProtectAllSheets () Dim ws As Worksheet для ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws In Worksheets ws.Protect Next ws End Sub

Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ Π±ΡƒΠ΄Π΅Ρ‚ ΠΏΡ€ΠΎΡΠΌΠ°Ρ‚Ρ€ΠΈΠ²Π°Ρ‚ΡŒ всС Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ листы ΠΎΠ΄ΠΈΠ½ Π·Π° Π΄Ρ€ΡƒΠ³ΠΈΠΌ ΠΈ Π·Π°Ρ‰ΠΈΡ‰Π°Ρ‚ΡŒ Π΅Π³ΠΎ.

Если Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΡΠ½ΡΡ‚ΡŒ Π·Π°Ρ‰ΠΈΡ‚Ρƒ со всСх листов, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ Π² ΠΊΠΎΠ΄Π΅ ws.Unprotect вмСсто ws.Protect.

Π’ΡΡ‚Π°Π²Π»ΡΡ‚ΡŒ строку послС ΠΊΠ°ΠΆΠ΄ΠΎΠΉ Π΄Ρ€ΡƒΠ³ΠΎΠΉ строки Π² Π²Ρ‹Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌ Ρ„Ρ€Π°Π³ΠΌΠ΅Π½Ρ‚Π΅

Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ этот ΠΊΠΎΠ΄, Ссли Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ Π²ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ ΠΏΡƒΡΡ‚ΡƒΡŽ строку послС ΠΊΠ°ΠΆΠ΄ΠΎΠΉ строки Π² Π²Ρ‹Π±Ρ€Π°Π½Π½ΠΎΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ вставит строку послС ΠΊΠ°ΠΆΠ΄ΠΎΠΉ строки Π² Π²Ρ‹Π±Ρ€Π°Π½Π½ΠΎΠΌ Sub InsertAlternateRows () Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng.EntireRow.Count For i = 1 To CountRow ActiveCell.EntireRow. Π’ΡΡ‚Π°Π²ΡŒΡ‚Π΅ ActiveCell.Offset (2, 0). Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Next i End Sub

Π’ΠΎΡ‡Π½ΠΎ Ρ‚Π°ΠΊ ΠΆΠ΅ Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ этот ΠΊΠΎΠ΄, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π²ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ пустой столбСц послС ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ столбца Π² Π²Ρ‹Π±Ρ€Π°Π½Π½ΠΎΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅.

АвтоматичСски Π²ΡΡ‚Π°Π²Π»ΡΡ‚ΡŒ Π΄Π°Ρ‚Ρƒ ΠΈ врСмя Π² сосСднюю ячСйку

ΠžΡ‚ΠΌΠ΅Ρ‚ΠΊΠ° Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ — это Ρ‚ΠΎ, Ρ‡Ρ‚ΠΎ Π²Ρ‹ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚Π΅, ΠΊΠΎΠ³Π΄Π° Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΎΡ‚ΡΠ»Π΅ΠΆΠΈΠ²Π°Ρ‚ΡŒ дСйствия.

НапримСр, Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΎΡ‚ΡΠ»Π΅ΠΆΠΈΠ²Π°Ρ‚ΡŒ дСйствия, Π½Π°ΠΏΡ€ΠΈΠΌΠ΅Ρ€, ΠΊΠΎΠ³Π΄Π° Π±Ρ‹Π»ΠΈ понСсСны ΠΊΠΎΠ½ΠΊΡ€Π΅Ρ‚Π½Ρ‹Π΅ расходы, Π² ΠΊΠ°ΠΊΠΎΠ΅ врСмя Π±Ρ‹Π» создан счСт-Ρ„Π°ΠΊΡ‚ΡƒΡ€Π° ΠΏΡ€ΠΎΠ΄Π°ΠΆΠΈ, ΠΊΠΎΠ³Π΄Π° Π±Ρ‹Π» ΠΏΡ€ΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ Π²Π²ΠΎΠ΄ Π΄Π°Π½Π½Ρ‹Ρ… Π² ячСйку, ΠΊΠΎΠ³Π΄Π° послСдний Ρ€Π°Π· обновлялся ΠΎΡ‚Ρ‡Π΅Ρ‚ ΠΈ Ρ‚. Π”.

Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ этот ΠΊΠΎΠ΄ для вставки ΠΎΡ‚ΠΌΠ΅Ρ‚ΠΊΠΈ Π΄Π°Ρ‚Ρ‹ ΠΈ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ Π² сосСднюю ячСйку, ΠΊΠΎΠ³Π΄Π° дСлаСтся запись ΠΈΠ»ΠΈ рСдактируСтся ΡΡƒΡ‰Π΅ΡΡ‚Π²ΡƒΡŽΡ‰Π΅Π΅ содСрТимоС.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ вставит ΠΌΠ΅Ρ‚ΠΊΡƒ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ Π² сосСднюю ячСйку Private Sub Worksheet_Change (ByVal Target As Range) ΠŸΡ€ΠΈ ошибкС GoTo Handler Если Target.Column = 1 And Target.Value "" Π’ΠΎΠ³Π΄Π° Application.EnableEvents = False Target.Offset (0, 1) = Format (Now (), Β«Π΄Π΄-ΠΌΠΌ-Π³Π³Π³Π³ Ρ‡Ρ‡: ΠΌΠΌ: сс») Application.EnableEvents = True End If Handler: End Sub

ΠžΠ±Ρ€Π°Ρ‚ΠΈΡ‚Π΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, Ρ‡Ρ‚ΠΎ Π²Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ Π²ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ этот ΠΊΠΎΠ΄ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π° Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа (Π° Π½Π΅ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π° модуля, ΠΊΠ°ΠΊ ΠΌΡ‹ это Π΄Π΅Π»Π°Π»ΠΈ Π΄ΠΎ сих ΠΏΠΎΡ€ Π² Π΄Ρ€ΡƒΠ³ΠΈΡ… ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π°Ρ… макросов Excel). Для этого Π² Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€Π΅ VB Π΄Π²Π°ΠΆΠ΄Ρ‹ Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ имя листа, Π½Π° ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΌ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ эту Ρ„ΡƒΠ½ΠΊΡ†ΠΈΡŽ. Π—Π°Ρ‚Π΅ΠΌ скопируйтС ΠΈ Π²ΡΡ‚Π°Π²ΡŒΡ‚Π΅ этот ΠΊΠΎΠ΄ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π° этого листа.

ΠšΡ€ΠΎΠΌΠ΅ Ρ‚ΠΎΠ³ΠΎ, этот ΠΊΠΎΠ΄ заставляСт Ρ€Π°Π±ΠΎΡ‚Π°Ρ‚ΡŒ, ΠΊΠΎΠ³Π΄Π° Π²Π²ΠΎΠ΄ Π΄Π°Π½Π½Ρ‹Ρ… выполняСтся Π² столбцС A (ΠΎΠ±Ρ€Π°Ρ‚ΠΈΡ‚Π΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, Ρ‡Ρ‚ΠΎ Π² ΠΊΠΎΠ΄Π΅ Π΅ΡΡ‚ΡŒ строка Target.Column = 1). Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ это ΡΠΎΠΎΡ‚Π²Π΅Ρ‚ΡΡ‚Π²ΡƒΡŽΡ‰ΠΈΠΌ ΠΎΠ±Ρ€Π°Π·ΠΎΠΌ.

Π’Ρ‹Π΄Π΅Π»ΠΈΡ‚Π΅ Π°Π»ΡŒΡ‚Π΅Ρ€Π½Π°Ρ‚ΠΈΠ²Π½Ρ‹Π΅ строки Π² Π²Ρ‹Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌ Ρ„Ρ€Π°Π³ΠΌΠ΅Π½Ρ‚Π΅

Π’Ρ‹Π΄Π΅Π»Π΅Π½ΠΈΠ΅ Π°Π»ΡŒΡ‚Π΅Ρ€Π½Π°Ρ‚ΠΈΠ²Π½Ρ‹Ρ… строк ΠΌΠΎΠΆΠ΅Ρ‚ Π·Π½Π°Ρ‡ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎ ΠΏΠΎΠ²Ρ‹ΡΠΈΡ‚ΡŒ ΡƒΠ΄ΠΎΠ±ΠΎΡ‡ΠΈΡ‚Π°Π΅ΠΌΠΎΡΡ‚ΡŒ Π²Π°ΡˆΠΈΡ… Π΄Π°Π½Π½Ρ‹Ρ…. Π­Ρ‚ΠΎ ΠΌΠΎΠΆΠ΅Ρ‚ Π±Ρ‹Ρ‚ΡŒ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ, ΠΊΠΎΠ³Π΄Π° Π²Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ распСчатку ΠΈ ΠΏΡ€ΠΎΡΠΌΠΎΡ‚Ρ€Π΅Ρ‚ΡŒ Π΄Π°Π½Π½Ρ‹Π΅.

Π’ΠΎΡ‚ ΠΊΠΎΠ΄, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ ΠΌΠ³Π½ΠΎΠ²Π΅Π½Π½ΠΎ выдСляСт Π°Π»ΡŒΡ‚Π΅Ρ€Π½Π°Ρ‚ΠΈΠ²Π½Ρ‹Π΅ строки Π² Π²Ρ‹Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌ Ρ„Ρ€Π°Π³ΠΌΠ΅Π½Ρ‚Π΅.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ Π±ΡƒΠ΄Π΅Ρ‚ Π²Ρ‹Π΄Π΅Π»ΡΡ‚ΡŒ Π°Π»ΡŒΡ‚Π΅Ρ€Π½Π°Ρ‚ΠΈΠ²Π½Ρ‹Π΅ строки Π² Π²Ρ‹Π΄Π΅Π»Π΅Π½ΠΈΠΈ Sub HighlightAlternateRows () Dim Myrange As Range Dim Myrow As Range Set Myrange = Selection For Each Myrow In Myrange.Rows If Myrow.Row Mod 2 = 1 Then Myrow.Interior.Color = vbCyan End Если ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ Myrow End Sub

ΠžΠ±Ρ€Π°Ρ‚ΠΈΡ‚Π΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, Ρ‡Ρ‚ΠΎ Π² ΠΊΠΎΠ΄Π΅ я ΡƒΠΊΠ°Π·Π°Π» Ρ†Π²Π΅Ρ‚ ΠΊΠ°ΠΊ vbCyan. Π’Ρ‹ Ρ‚Π°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΡƒΠΊΠ°Π·Π°Ρ‚ΡŒ Π΄Ρ€ΡƒΠ³ΠΈΠ΅ Ρ†Π²Π΅Ρ‚Π° (Π½Π°ΠΏΡ€ΠΈΠΌΠ΅Ρ€, vbRed, vbGreen, vbBlue).

Π’Ρ‹Π΄Π΅Π»ΠΈΡ‚Π΅ ячСйки с ошибками Π² написании слов

Π’ Excel Π½Π΅Ρ‚ ΠΏΡ€ΠΎΠ²Π΅Ρ€ΠΊΠΈ ΠΎΡ€Ρ„ΠΎΠ³Ρ€Π°Ρ„ΠΈΠΈ, ΠΊΠ°ΠΊ Π² Word ΠΈΠ»ΠΈ PowerPoint. Π₯отя Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π·Π°ΠΏΡƒΡΡ‚ΠΈΡ‚ΡŒ ΠΏΡ€ΠΎΠ²Π΅Ρ€ΠΊΡƒ ΠΎΡ€Ρ„ΠΎΠ³Ρ€Π°Ρ„ΠΈΠΈ, Π½Π°ΠΆΠ°Π² ΠΊΠ»Π°Π²ΠΈΡˆΡƒ F7, Π½Π΅Ρ‚ Π²ΠΈΠ·ΡƒΠ°Π»ΡŒΠ½ΠΎΠΉ подсказки, ΠΊΠΎΠ³Π΄Π° Π΅ΡΡ‚ΡŒ орфографичСская ошибка.

Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ этот ΠΊΠΎΠ΄, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΌΠ³Π½ΠΎΠ²Π΅Π½Π½ΠΎ Π²Ρ‹Π΄Π΅Π»ΠΈΡ‚ΡŒ всС ячСйки, Π² ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Ρ… Π΅ΡΡ‚ΡŒ орфографичСская ошибка.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ Π±ΡƒΠ΄Π΅Ρ‚ Π²Ρ‹Π΄Π΅Π»ΡΡ‚ΡŒ ячСйки, содСрТащиС слова с ошибками Sub HighlightMisspelledCells () Dim cl As Range For Each cl In ActiveSheet.UsedRange If Not Application.CheckSpelling (word: = cl.Text) Then cl.Interior.Color = vbRed End If Next cl End Sub

ΠžΠ±Ρ€Π°Ρ‚ΠΈΡ‚Π΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, Ρ‡Ρ‚ΠΎ Π²Ρ‹Π΄Π΅Π»Π΅Π½Π½Ρ‹Π΅ ячСйки содСрТат тСкст, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ Excel считаСт орфографичСской ошибкой. Π’ΠΎ ΠΌΠ½ΠΎΠ³ΠΈΡ… случаях ΠΎΠ½ Ρ‚Π°ΠΊΠΆΠ΅ выдСляСт названия ΠΈΠ»ΠΈ названия Π±Ρ€Π΅Π½Π΄ΠΎΠ², ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Ρ… ΠΎΠ½ Π½Π΅ ΠΏΠΎΠ½ΠΈΠΌΠ°Π΅Ρ‚.

ΠžΠ±Π½ΠΎΠ²ΠΈΡ‚ΡŒ всС сводныС Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ Π² ΠΊΠ½ΠΈΠ³Π΅

Если Ρƒ вас Π² ΠΊΠ½ΠΈΠ³Π΅ нСсколько сводных Ρ‚Π°Π±Π»ΠΈΡ†, Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ этот ΠΊΠΎΠ΄ для ΠΎΠ΄Π½ΠΎΠ²Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ обновлСния всСх этих сводных Ρ‚Π°Π±Π»ΠΈΡ†.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ ΠΎΠ±Π½ΠΎΠ²ΠΈΡ‚ всю ΡΠ²ΠΎΠ΄Π½ΡƒΡŽ Ρ‚Π°Π±Π»ΠΈΡ†Ρƒ Π² ΠΏΠΎΠ΄ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ΅ Workbook Sub RefreshAllPivotTables () Dim PT As PivotTable для ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ PT Π² ActiveSheet.PivotTables PT.RefreshTable Next PT End Sub

Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΡƒΠ·Π½Π°Ρ‚ΡŒ большС ΠΎΠ± ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠΈ сводных Ρ‚Π°Π±Π»ΠΈΡ† здСсь.

Π˜Π·ΠΌΠ΅Π½ΠΈΡ‚Π΅ рСгистр Π±ΡƒΠΊΠ² Π²Ρ‹Π±Ρ€Π°Π½Π½Ρ‹Ρ… ячССк Π½Π° Π²Π΅Ρ€Ρ…Π½ΠΈΠΉ рСгистр

Π₯отя Π² Excel Π΅ΡΡ‚ΡŒ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ для измСнСния рСгистра Π±ΡƒΠΊΠ² тСкста, ΠΎΠ½ заставляСт вас Π΄Π΅Π»Π°Ρ‚ΡŒ это Π² Π΄Ρ€ΡƒΠ³ΠΎΠΌ Π½Π°Π±ΠΎΡ€Π΅ ячССк.

Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ этот ΠΊΠΎΠ΄, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΌΠ³Π½ΠΎΠ²Π΅Π½Π½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ рСгистр Π±ΡƒΠΊΠ² Π² Π²Ρ‹Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌ тСкстС.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ Π²Ρ‹Π΄Π΅Π»Π΅Π½ΠΈΠ΅ Π½Π° Π²Π΅Ρ€Ρ…Π½ΠΈΠΉ рСгистр Sub ChangeCase () Dim Rng As Range For Each Rng In Selection.Cells If Rng.HasFormula = False Then Rng.Value = UCase (Rng.Value) End If Next Rng End Sub

ΠžΠ±Ρ€Π°Ρ‚ΠΈΡ‚Π΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, Ρ‡Ρ‚ΠΎ Π² этом случаС я использовал UCase, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ тСкстовый рСгистр Upper. Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ LCase для Π½ΠΈΠΆΠ½Π΅Π³ΠΎ рСгистра.

Π’Ρ‹Π΄Π΅Π»ΠΈΡ‚Π΅ всС ячСйки коммСнтариями

Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½Ρ‹ΠΉ Π½ΠΈΠΆΠ΅ ΠΊΠΎΠ΄, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π²Ρ‹Π΄Π΅Π»ΠΈΡ‚ΡŒ всС ячСйки, Π² ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Ρ… Π΅ΡΡ‚ΡŒ ΠΊΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ.

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ Π±ΡƒΠ΄Π΅Ρ‚ Π²Ρ‹Π΄Π΅Π»ΡΡ‚ΡŒ ячСйки с коммСнтариями` Sub HighlightCellsWithComments () ActiveSheet.Cells.SpecialCells (xlCellTypeComments) .Interior.Color = vbBlue End Sub

Π’ этом случаС я использовал vbBlue, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΏΡ€ΠΈΠ΄Π°Ρ‚ΡŒ ячСйкам синий Ρ†Π²Π΅Ρ‚. Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ Π΅Π³ΠΎ Π½Π° Π΄Ρ€ΡƒΠ³ΠΈΠ΅ Ρ†Π²Π΅Ρ‚Π°, Ссли Ρ…ΠΎΡ‚ΠΈΡ‚Π΅.

Π’Ρ‹Π΄Π΅Π»ΠΈΡ‚Π΅ пустыС ячСйки с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ VBA

Π₯отя Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π²Ρ‹Π΄Π΅Π»ΠΈΡ‚ΡŒ ΠΏΡƒΡΡ‚ΡƒΡŽ ячСйку с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ условного форматирования ΠΈΠ»ΠΈ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° Β«ΠŸΠ΅Ρ€Π΅ΠΉΡ‚ΠΈ ΠΊ ΡΠΏΠ΅Ρ†ΠΈΠ°Π»ΡŒΠ½ΠΎΠΌΡƒΒ», Ссли Π²Π°ΠΌ приходится Π΄Π΅Π»Π°Ρ‚ΡŒ это довольно часто, Π»ΡƒΡ‡ΡˆΠ΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ макрос.

ПослС создания Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Ρ€Π°Π·ΠΌΠ΅ΡΡ‚ΠΈΡ‚ΡŒ этот макрос Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ быстрого доступа ΠΈΠ»ΠΈ ΡΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ Π΅Π³ΠΎ Π² своСй Π»ΠΈΡ‡Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ макросов.

Π’ΠΎΡ‚ ΠΊΠΎΠ΄ макроса VBA:

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ Π²Ρ‹Π΄Π΅Π»ΠΈΡ‚ всС пустыС ячСйки Π² Sub HighlightBlankCells () Dim Dataset ΠΊΠ°ΠΊ Range Set Dataset = Selection Dataset.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbRed End Sub

Π’ этом ΠΊΠΎΠ΄Π΅ я ΡƒΠΊΠ°Π·Π°Π», Ρ‡Ρ‚ΠΎ пустыС ячСйки Π±ΡƒΠ΄ΡƒΡ‚ Π²Ρ‹Π΄Π΅Π»Π΅Π½Ρ‹ красным Ρ†Π²Π΅Ρ‚ΠΎΠΌ. Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π²Ρ‹Π±Ρ€Π°Ρ‚ΡŒ Π΄Ρ€ΡƒΠ³ΠΈΠ΅ Ρ†Π²Π΅Ρ‚Π°, Ρ‚Π°ΠΊΠΈΠ΅ ΠΊΠ°ΠΊ синий, ΠΆΠ΅Π»Ρ‚Ρ‹ΠΉ, Π³ΠΎΠ»ΡƒΠ±ΠΎΠΉ ΠΈ Ρ‚. Π”.

Как ΠΎΡ‚ΡΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Π΄Π°Π½Π½Ρ‹Π΅ ΠΏΠΎ ΠΎΠ΄Π½ΠΎΠΌΡƒ столбцу

Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½Ρ‹ΠΉ Π½ΠΈΠΆΠ΅ ΠΊΠΎΠ΄ для сортировки Π΄Π°Π½Π½Ρ‹Ρ… ΠΏΠΎ ΡƒΠΊΠ°Π·Π°Π½Π½ΠΎΠΌΡƒ столбцу.

Sub SortDataHeader () Range ("DataRange"). Sort Key1: = Range ("A1"), Order1: = xlAscending, Header: = xlYes End Sub

ΠžΠ±Ρ€Π°Ρ‚ΠΈΡ‚Π΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, Ρ‡Ρ‚ΠΎ я создал ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½Π½Ρ‹ΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ с ΠΈΠΌΠ΅Π½Π΅ΠΌ DataRange ΠΈ использовал Π΅Π³ΠΎ вмСсто ссылок Π½Π° ячСйки.

Π’Π°ΠΊΠΆΠ΅ здСсь ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΡŽΡ‚ΡΡ Ρ‚Ρ€ΠΈ ΠΊΠ»ΡŽΡ‡Π΅Π²Ρ‹Ρ… ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Π°:

  • Key1 — это Ρ‚ΠΎΡ‚, ΠΏΠΎ ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΌΡƒ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΎΡ‚ΡΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Π½Π°Π±ΠΎΡ€ Π΄Π°Π½Π½Ρ‹Ρ…. Π’ ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²Ρ‹ΡˆΠ΅ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ ΠΊΠΎΠ΄Π° Π΄Π°Π½Π½Ρ‹Π΅ Π±ΡƒΠ΄ΡƒΡ‚ отсортированы Π½Π° основС Π·Π½Π°Ρ‡Π΅Π½ΠΈΠΉ Π² столбцС A.
  • ΠŸΠΎΡ€ΡΠ΄ΠΎΠΊ — здСсь Π²Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ ΡƒΠΊΠ°Π·Π°Ρ‚ΡŒ, Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ Π»ΠΈ Π²Ρ‹ ΠΎΡ‚ΡΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Π΄Π°Π½Π½Ρ‹Π΅ Π² порядкС возрастания ΠΈΠ»ΠΈ убывания.
  • Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ — здСсь Π²Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ ΡƒΠΊΠ°Π·Π°Ρ‚ΡŒ, Π΅ΡΡ‚ΡŒ Π»ΠΈ Ρƒ Π²Π°ΡˆΠΈΡ… Π΄Π°Π½Π½Ρ‹Ρ… Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΈ ΠΈΠ»ΠΈ Π½Π΅Ρ‚.

Π£Π·Π½Π°ΠΉΡ‚Π΅ большС ΠΎ Ρ‚ΠΎΠΌ, ΠΊΠ°ΠΊ ΡΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Π΄Π°Π½Π½Ρ‹Π΅ Π² Excel с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ VBA.

Как ΠΎΡ‚ΡΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Π΄Π°Π½Π½Ρ‹Π΅ ΠΏΠΎ нСскольким столбцам

ΠŸΡ€Π΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠΈΠΌ, Ρƒ вас Π΅ΡΡ‚ΡŒ Π½Π°Π±ΠΎΡ€ Π΄Π°Π½Π½Ρ‹Ρ…, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½ΠΈΠΆΠ΅:

НиТС ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½ ΠΊΠΎΠ΄, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ сортируСт Π΄Π°Π½Π½Ρ‹Π΅ ΠΏΠΎ нСскольким столбцам:

Sub SortMultipleColumns () с ΠΊΠ»ΡŽΡ‡ΠΎΠΌ ActiveSheet. Sort .SortFields.Add: = Range ("A1"), Order: = xlAscending .SortFields.Add Key: = Range ("B1"), Order: = xlAscending .SetRange Range ("A1 : C13 ") .Header = xlYes. ΠŸΡ€ΠΈΠΌΠ΅Π½ΠΈΡ‚ΡŒ End With End Sub

ΠžΠ±Ρ€Π°Ρ‚ΠΈΡ‚Π΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, Ρ‡Ρ‚ΠΎ здСсь я ΡƒΠΊΠ°Π·Π°Π» сначала сортировку ΠΏΠΎ столбцу A, Π° Π·Π°Ρ‚Π΅ΠΌ ΠΏΠΎ столбцу B.

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚ Π±ΡƒΠ΄Π΅Ρ‚ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π½ΠΎ Ρ‚Π°ΠΊΠΈΠΌ, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½ΠΈΠΆΠ΅:

Как ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Ρ‡ΠΈΡΠ»ΠΎΠ²ΡƒΡŽ Ρ‡Π°ΡΡ‚ΡŒ ΠΈΠ· строки Π² Excel

Если Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΈΠ·Π²Π»Π΅Ρ‡ΡŒ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Ρ‡ΠΈΡΠ»ΠΎΠ²ΡƒΡŽ Ρ‡Π°ΡΡ‚ΡŒ ΠΈΠ»ΠΈ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Ρ‚Π΅ΠΊΡΡ‚ΠΎΠ²ΡƒΡŽ Ρ‡Π°ΡΡ‚ΡŒ ΠΈΠ· строки, Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΡƒΡŽ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΡŽ Π² VBA.

Π—Π°Ρ‚Π΅ΠΌ Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ эту Ρ„ΡƒΠ½ΠΊΡ†ΠΈΡŽ VBA Π½Π° листС (ΠΊΠ°ΠΊ ΠΈ ΠΎΠ±Ρ‹Ρ‡Π½Ρ‹Π΅ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Excel), ΠΈ ΠΎΠ½Π° Π±ΡƒΠ΄Π΅Ρ‚ ΠΈΠ·Π²Π»Π΅ΠΊΠ°Ρ‚ΡŒ ΠΈΠ· строки Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Ρ‡ΠΈΡΠ»ΠΎΠ²ΡƒΡŽ ΠΈΠ»ΠΈ Ρ‚Π΅ΠΊΡΡ‚ΠΎΠ²ΡƒΡŽ Ρ‡Π°ΡΡ‚ΡŒ.

Π§Ρ‚ΠΎ-Ρ‚ΠΎ Π²Ρ€ΠΎΠ΄Π΅ Ρ‚ΠΎΠ³ΠΎ, Ρ‡Ρ‚ΠΎ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½ΠΈΠΆΠ΅:

НиТС ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½ ΠΊΠΎΠ΄ VBA, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ создаст Ρ„ΡƒΠ½ΠΊΡ†ΠΈΡŽ для извлСчСния числовой части ΠΈΠ· строки:

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ VBA создаст Ρ„ΡƒΠ½ΠΊΡ†ΠΈΡŽ для получСния числовой части ΠΈΠ· строки. Ѐункция GetNumeric (CellRef As String) Dim StringLength As Integer StringLength = Len (CellRef) For i = 1 To StringLength If IsNumeric (Mid (CellRef, i, 1) ) Π—Π°Ρ‚Π΅ΠΌ Result = Result & Mid (CellRef, i, 1) Next i GetNumeric = Result End Function

Π’Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ ΠΏΠΎΠΌΠ΅ΡΡ‚ΠΈΡ‚ΡŒ ΠΊΠΎΠ΄ Π² ΠΌΠΎΠ΄ΡƒΠ»ΡŒ, Π° Π·Π°Ρ‚Π΅ΠΌ Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΡŽ = GetNumeric Π½Π° листС.

Π­Ρ‚Π° функция Π±ΡƒΠ΄Π΅Ρ‚ ΠΏΡ€ΠΈΠ½ΠΈΠΌΠ°Ρ‚ΡŒ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ ΠΎΠ΄ΠΈΠ½ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ являСтся ссылкой Π½Π° ячСйку, ΠΈΠ· ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ Ρ‡ΠΈΡΠ»ΠΎΠ²ΡƒΡŽ Ρ‡Π°ΡΡ‚ΡŒ.

Π’ΠΎΡ‡Π½ΠΎ Ρ‚Π°ΠΊ ΠΆΠ΅ Π½ΠΈΠΆΠ΅ ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π° функция, которая Π²Π΅Ρ€Π½Π΅Ρ‚ Π²Π°ΠΌ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Ρ‚Π΅ΠΊΡΡ‚ΠΎΠ²ΡƒΡŽ Ρ‡Π°ΡΡ‚ΡŒ ΠΈΠ· строки Π² Excel:

'Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ VBA создаст Ρ„ΡƒΠ½ΠΊΡ†ΠΈΡŽ для получСния тСкстовой части ΠΈΠ· строки. Ѐункция GetText (CellRef As String) Dim StringLength As Integer StringLength = Len (CellRef) For i = 1 To StringLength If Not (IsNumeric (Mid (CellRef, i, 1))) Π—Π°Ρ‚Π΅ΠΌ Result = Result & Mid (CellRef, i, 1) Next i GetText = Result End Function

Π˜Ρ‚Π°ΠΊ, это Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΠΈΠ· ΠΏΠΎΠ»Π΅Π·Π½Ρ‹Ρ… ΠΊΠΎΠ΄ΠΎΠ² макросов Excel, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Π² своСй повсСднСвной Ρ€Π°Π±ΠΎΡ‚Π΅ для Π°Π²Ρ‚ΠΎΠΌΠ°Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ Π·Π°Π΄Π°Ρ‡ ΠΈ ΠΏΠΎΠ²Ρ‹ΡˆΠ΅Π½ΠΈΡ ΠΏΡ€ΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎΡΡ‚ΠΈ.

ΠŸΡ€ΠΈΠ΅ΠΌΡ‹ :: ΠŸΠ»Π°Π½Π΅Ρ‚Π° Excel

Π‘ΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²ΠΊΠ°:
Π΄Π°Ρ‚Π° создания
Π΄Π°Ρ‚Π° измСнСния
просмотры
ΠΊΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ

5 ΠΏΡ€ΠΈΠΌΠ΅Ρ€ΠΎΠ² использования Π½ΠΎΠ²ΠΎΠΉ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ IMAGE Π² Excel

Π Π°Π·Π±ΠΈΡ€Π°Π΅ΠΌ Π½Π° ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π°Ρ… Π²Π°Ρ€ΠΈΠ°Π½Ρ‚Ρ‹ использования Π½ΠΎΠ²ΠΎΠΉ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Π˜Π—ΠžΠ‘Π ΠΠ–Π•ΠΠ˜Π• (IMAGE) для вставки ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠΉ ΠΏΠΎ ссылкам Π½Π° лист Excel + Π΄Π΅Π»Π°Π΅ΠΌ собствСнный Π°Π½Π°Π»ΠΎΠ³ Π½Π° VBA для вставки ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠΉ ΠΈΠ· Π»ΠΎΠΊΠ°Π»ΡŒΠ½Ρ‹Ρ… Ρ„Π°ΠΉΠ»ΠΎΠ².

ChatGPT ΠΈ Excel

ΠŸΡ€ΠΈΠΌΠ΅Ρ€Ρ‹ использования искусствСнного ΠΈΠ½Ρ‚Π΅Π»Π»Π΅ΠΊΡ‚Π° Open AI ChatGPT для Ρ€Π΅ΡˆΠ΅Π½ΠΈΡ повсСднСвных Π·Π°Π΄Π°Ρ‡ Π² Microsoft Excel: Π²Π²ΠΎΠ΄ Ρ„ΠΎΡ€ΠΌΡƒΠ», созданиС макросов ΠΈ М-Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ Π² Power Query.

Поиск ΠΎΡ‚Π»ΠΈΡ‡ΠΈΠΉ Π² 2 тСкстовых строках

Как ΡΡ€Π°Π²Π½ΠΈΡ‚ΡŒ 2 тСкстовых строки ΠΈ Π½Π°ΠΉΡ‚ΠΈ отличия (Π΄Π°ΠΆΠ΅ Ссли Π²ΠΈΠ·ΡƒΠ°Π»ΡŒΠ½ΠΎ ΠΎΠ½ΠΈ, Π²Ρ€ΠΎΠ΄Π΅ Π±Ρ‹, ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡŽΡ‚).

ΠžΡΠ½ΠΎΠ²Ρ‹ Ρ€Π°Π±ΠΎΡ‚Ρ‹ Π² Microsoft Power BI

ΠŸΠΎΡˆΠ°Π³ΠΎΠ²Ρ‹ΠΉ Ρ€Π°Π·Π±ΠΎΡ€ всСго процСсса ΠΈ Π³Π»Π°Π²Π½Ρ‹Ρ… ΠΏΡ€ΠΈΠ½Ρ†ΠΈΠΏΠΎΠ² Ρ€Π°Π±ΠΎΡ‚Ρ‹ Π² Microsoft Power BI — ΠΎΡ‚ сырых Ρ„Π°ΠΉΠ»ΠΎΠ² с исходными Π΄Π°Π½Π½Ρ‹ΠΌΠΈ Π΄ΠΎ ΠΎΠΏΡƒΠ±Π»ΠΈΠΊΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ Π² ΠΎΠ±Π»Π°ΠΊΠΎ ΠΈΠ½Ρ‚Π΅Ρ€Π°ΠΊΡ‚ΠΈΠ²Π½ΠΎΠ³ΠΎ аналитичСского ΠΎΡ‚Ρ‡Ρ‘Ρ‚Π°.

Π”ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΠ° выполнСния ΠΏΠ»Π°Π½Π°

Π•Ρ‰Ρ‘ ΠΎΠ΄ΠΈΠ½ наглядный Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ Π²ΠΈΠ·ΡƒΠ°Π»ΠΈΠ·Π°Ρ†ΠΈΠΈ выполнСния ΠΏΠ»Π°Π½Π° с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ столбчатой гистограммы с Π½Π°ΠΊΠΎΠΏΠ»Π΅Π½ΠΈΠ΅ΠΌ ΠΈ «ΡƒΡΠΎΠ²» ΠΏΠΎΠ³Ρ€Π΅ΡˆΠ½ΠΎΡΡ‚Π΅ΠΉ Π² Microsoft Excel.

РСшСниС систСмы ΡƒΡ€Π°Π²Π½Π΅Π½ΠΈΠΉ Π² Excel

Как Ρ€Π΅ΡˆΠΈΡ‚ΡŒ систСму ΡƒΡ€Π°Π²Π½Π΅Π½ΠΈΠΉ (Π»ΠΈΠ½Π΅ΠΉΠ½Ρ‹Ρ… ΠΈ Π½Π΅Π»ΠΈΠ½Π΅ΠΉΠ½Ρ‹Ρ…) Π² Microsoft Excel с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ ΠΎΠ±Ρ€Π°Ρ‚Π½ΠΎΠΉ ΠΌΠ°Ρ‚Ρ€ΠΈΡ†Ρ‹ ΠšΡ€Π°ΠΌΠ΅Ρ€Π° ΠΈ ΠΏΠΎΠ΄Π±ΠΎΡ€ΠΎΠΌ Π² надстройкС Поиск Ρ€Π΅ΡˆΠ΅Π½ΠΈΡ (Solver).

РСгистро НЕ Ρ‡ΡƒΠ²ΡΡ‚Π²ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎΡΡ‚ΡŒ Π² Power Query (ΠΈ Power BI)

Как ΠΏΠΎΠ±Π΅Π΄ΠΈΡ‚ΡŒ Ρ€Π΅Π³ΠΈΡΡ‚Ρ€ΠΎΡ‡ΡƒΠ²ΡΡ‚Π²ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎΡΡ‚ΡŒ Π² Power Query ΠΏΡ€ΠΈ Ρ„ΠΈΠ»ΡŒΡ‚Ρ€Π°Ρ†ΠΈΠΈ, ΡƒΠ΄Π°Π»Π΅Π½ΠΈΠΈ Π΄ΡƒΠ±Π»ΠΈΠΊΠ°Ρ‚ΠΎΠ² ΠΈ объСдинСнии Ρ‚Π°Π±Π»ΠΈΡ† с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Comparer. OrdinalIgnoreCase

Π‘ΠΊΠ»Π΅ΠΉΠΊΠ° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠ² Π½ΠΎΠ²Ρ‹ΠΌΠΈ функциями VSTACK ΠΈ HSTACK

Как ΡΠΊΠ»Π΅ΠΈΡ‚ΡŒ (Π΄Ρ€ΡƒΠ³ ΠΏΠΎΠ΄ Π΄Ρ€ΡƒΠ³ΠΎΠΌ ΠΈΠ»ΠΈ Π΄Ρ€ΡƒΠ³ рядом с Π΄Ρ€ΡƒΠ³ΠΎΠΌ) нСсколько Ρ‚Π°Π±Π»ΠΈΡ† (Π² Ρ‚ΠΎΠΌ числС с Π½Π΅ΡΠΊΠΎΠ»ΡŒΠΊΠΈΡ… листов) с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Π½ΠΎΠ²Ρ‹Ρ… Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ Office 365 — Π’Π‘Π’ΠžΠ›Π‘Π˜Πš (VSTACK) ΠΈ Π“Π‘Π’ΠžΠ›Π‘Π˜Πš (HSTACK).

ДинамичСский «Π’ΠΎΠΏ-N + Π”Ρ€ΡƒΠ³ΠΈΠ΅» Π² сводной Ρ‚Π°Π±Π»ΠΈΡ†Π΅

Как ΠΏΡ€ΠΈ ΠΏΠΎΠΌΠΎΡ‰ΠΈ запроса Power Query Ρ€Π΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Ρ‚ΡŒ Π² сводной Ρ‚Π°Π±Π»ΠΈΡ†Π΅ Π²Ρ‹Π²ΠΎΠ΄ динамичСского «Π’ΠΎΠΏ-N + Π”Ρ€ΡƒΠ³ΠΈΠ΅».

БыстроС ΠΏΡ€ΠΎΠ³Π½ΠΎΠ·ΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅ Π² Microsoft Excel

Как ΠΏΡ€ΠΈ ΠΏΠΎΠΌΠΎΡ‰ΠΈ Листа ΠŸΡ€ΠΎΠ³Π½ΠΎΠ·Π° Π·Π° ΠΏΠ°Ρ€Ρƒ ΠΌΠΈΠ½ΡƒΡ‚ ΡΡ„ΠΎΡ€ΠΌΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ΠΏΠΎ историчСским Π΄Π°Π½Π½Ρ‹ΠΌ ΠΏΡ€ΠΎΠ³Π½ΠΎΠ· Π½Π° Π±ΡƒΠ΄ΡƒΡ‰Π΅Π΅ ΠΏΠΎ ΠΌΠ΅Ρ‚ΠΎΠ΄Ρƒ ΡΠΊΡΠΏΠΎΠ½Π΅Π½Ρ†ΠΈΠ°Π»ΡŒΠ½ΠΎΠ³ΠΎ сглаТивания.

ΠŸΡƒΡ‚ΡŒ ΠΊ Ρ‚Π΅ΠΊΡƒΡ‰Π΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅ ΠΈ новая функция LET

Как с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΠΎΡ€ΠΌΡƒΠ» ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ Π² ячСйкС листа обновляСмый ΠΏΡƒΡ‚ΡŒ ΠΊ Ρ‚Π΅ΠΊΡƒΡ‰Π΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅.

ΠŸΠΎΠ΄Ρ€ΠΎΠ±Π½Π΅Π΅…

Риск бСзопасности ΠΈ Π±Π»ΠΎΠΊΠΈΡ€ΠΎΠ²ΠΊΠ° макросов

Как Ρ€Π°Π·Π±Π»ΠΎΠΊΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ макросы ΠΏΡ€ΠΈ появлСнии сообщСния РИБК Π‘Π•Π—ΠžΠŸΠΠ‘ΠΠžΠ‘Π’Π˜, ΠΊΠΎΠ³Π΄Π° Ρ„Π°ΠΉΠ» Π±Ρ‹Π»Π° скачана ΠΈΠ· ΠΈΠ½Ρ‚Π΅Ρ€Π½Π΅Ρ‚Π°.

Π‘Π»ΡƒΡˆΠ°Π΅ΠΌ ΠΈΠ½Ρ‚Π΅Ρ€Π½Π΅Ρ‚-Ρ€Π°Π΄ΠΈΠΎ Π² Excel

Как Π·Π° ΠΏΠ°Ρ€Ρƒ ΠΌΠΈΠ½ΡƒΡ‚ Ρ€Π΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Ρ‚ΡŒ Π² Excel ΠΏΡ€ΠΎΡΠ»ΡƒΡˆΠΈΠ²Π°Π½ΠΈΠ΅ ΠΈΠ½Ρ‚Π΅Ρ€Π½Π΅Ρ‚-радиостанций с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Π²Π½Π΅Π΄Ρ€Π΅Π½Π½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ‚Π° Windows Media Player ΠΈ макроса Π² Π΄Π²Π΅ строки.

Π“ΠΎΡ€ΠΈΠ·ΠΎΠ½Ρ‚Π°Π»ΡŒΠ½Π°Ρ Ρ„ΠΈΠ»ΡŒΡ‚Ρ€Π°Ρ†ΠΈΡ столбцов Π² Excel

Π’Ρ€ΠΈ способа Ρ€Π΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Ρ‚ΡŒ Π³ΠΎΡ€ΠΈΠ·ΠΎΠ½Ρ‚Π°Π»ΡŒΠ½ΡƒΡŽ Ρ„ΠΈΠ»ΡŒΡ‚Ρ€Π°Ρ†ΠΈΡŽ столбцов, которая ΠΈΠ·Π½Π°Ρ‡Π°Π»ΡŒΠ½ΠΎ отсутствуСт Π² Microsoft Excel: с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Π€Π˜Π›Π¬Π’Π , запроса Power Query + сводная Ρ‚Π°Π±Π»ΠΈΡ†Π° ΠΈ макросом Π½Π° VBA.

ΠŸΠ΅Ρ€Π΅ΠΊΠ»ΡŽΡ‡Π΅Π½ΠΈΠ΅ вычислСний Π² сводной Ρ‚Π°Π±Π»ΠΈΡ†Π΅ срСзами

Как ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ срСзы (графичСскиС ΠΊΠ½ΠΎΠΏΠΊΠΈ) для ΠΏΠ΅Ρ€Π΅ΠΊΠ»ΡŽΡ‡Π΅Π½ΠΈΡ Ρ€Π΅ΠΆΠΈΠΌΠΎΠ² вычислСний (сумма, срСднСС, количСство ΠΈ Ρ‚.Π΄.) Π² сводной Ρ‚Π°Π±Π»ΠΈΡ†Π΅ ΠΏΠΎ ΠΌΠΎΠ΄Π΅Π»ΠΈ Π΄Π°Π½Π½Ρ‹Ρ… Power Pivot.

ΠšΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ сумму Π²Ρ‹Π΄Π΅Π»Π΅Π½Π½Ρ‹Ρ… ячССк Π² Π‘ΡƒΡ„Π΅Ρ€ ΠΎΠ±ΠΌΠ΅Π½Π°

Как быстро ΡΠΊΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Π² Π‘ΡƒΡ„Π΅Ρ€ сумму Π²Ρ‹Π΄Π΅Π»Π΅Π½Π½Ρ‹Ρ… Π½Π° листС ячССк. А Ρ‚Π°ΠΊΠΆΠ΅ Π½Π΅ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ сумму (срСднСС, количСство ΠΈ Ρ‚.Π΄.) ΠΈ Π½Π΅ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Π²Ρ‹Π΄Π΅Π»Π΅Π½Π½Ρ‹Ρ… (Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Π²ΠΈΠ΄ΠΈΠΌΡ‹Ρ…, ΡƒΠ΄ΠΎΠ²Π»Π΅Ρ‚Π²ΠΎΡ€ΡΡŽΡ‰ΠΈΡ… Π·Π°Π΄Π°Π½Π½Ρ‹ΠΌ условиям ΠΈ Ρ‚.Π΄.)

Как ΠΏΡ€Π°Π²ΠΈΠ»ΡŒΠ½ΠΎ Ρ€Π°Π·Π²ΠΎΡ€Π°Ρ‡ΠΈΠ²Π°Ρ‚ΡŒ Π²Π»ΠΎΠΆΠ΅Π½Π½Ρ‹Π΅ Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ Π² Power Query

Как ΠΈΠ·Π±Π΅ΠΆΠ°Ρ‚ΡŒ ΠΏΡ€ΠΎΠ±Π»Π΅ΠΌ ΠΏΡ€ΠΈ Ρ€Π°Π·Π²ΠΎΡ€Π°Ρ‡ΠΈΠ²Π°Π½ΠΈΠΈ Π²Π»ΠΎΠΆΠ΅Π½Π½Ρ‹Ρ… Ρ‚Π°Π±Π»ΠΈΡ† Π² Power Query, Ссли Π² исходных Π΄Π°Π½Π½Ρ‹Ρ… Π΄ΠΎΠ±Π°Π²Π»ΡΡŽΡ‚ΡΡ ΠΈΠ»ΠΈ ΡƒΠ΄Π°Π»ΡΡŽΡ‚ΡΡ столбцы.

ΠœΠΎΠ΄Π΅Π»ΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅ Π»ΠΎΡ‚Π΅Ρ€Π΅ΠΈ Π² Excel

Π‘Ρ‡ΠΈΡ‚Π°Π΅ΠΌ Π²Π΅Ρ€ΠΎΡΡ‚Π½ΠΎΡΡ‚ΡŒ Π²Ρ‹ΠΈΠ³Ρ€Ρ‹ΡˆΠ° Π² Π»ΠΎΡ‚Π΅Ρ€Π΅ΡŽ, частоты выпадСния ΡˆΠ°Ρ€ΠΎΠ² ΠΈ ΠΌΠΎΠ΄Π΅Π»ΠΈΡ€ΡƒΠ΅ΠΌ ΠΈΠ³Ρ€Ρƒ ΠΏΠΎ Ρ€Π°Π·Π»ΠΈΡ‡Π½Ρ‹ΠΌ стратСгиям с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ макроса.

Π‘Ρ‚ΠΎΠ»Π±Π΅Ρ† ΠΈΠ· ΠΏΡ€ΠΈΠΌΠ΅Ρ€ΠΎΠ² — искуствСнный ΠΈΠ½Ρ‚Π΅Π»Π»Π΅ΠΊΡ‚ Π² Power Query

ΠŸΠΎΠ΄Ρ€ΠΎΠ±Π½Ρ‹ΠΉ Ρ€Π°Π·Π±ΠΎΡ€ инструмСнта Π‘Ρ‚ΠΎΠ»Π±Π΅Ρ† ΠΈΠ· ΠΏΡ€ΠΈΠΌΠ΅Ρ€ΠΎΠ² (Column from Examples), автоматичСски ΠΏΠΎΠ΄Π±ΠΈΡ€Π°ΡŽΡ‰Π΅Π³ΠΎ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρƒ для прСобразования Π²Π°ΡˆΠΈΡ… Π΄Π°Π½Π½Ρ‹Ρ… ΠΏΠΎ Π·Π°Π΄Π°Π½Π½ΠΎΠΌΡƒ ΠΎΠ±Ρ€Π°Π·Ρ†Ρƒ.

Π”ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΠ° ΠΏΠΎ Π²Ρ‹Π΄Π΅Π»Π΅Π½Π½ΠΎΠΉ ячСйкС

Как ΠΏΠΎΡΡ‚Ρ€ΠΎΠΈΡ‚ΡŒ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ, Π³Π΄Π΅ Π±ΡƒΠ΄ΡƒΡ‚ ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Ρ‚ΡŒΡΡ Π΄Π°Π½Π½Ρ‹Π΅ ΠΈΠ· Ρ‚ΠΎΠΉ строки, Π³Π΄Π΅ сСйчас стоит активная ячСйка.

Π‘Π±ΠΎΡ€ΠΊΠ° Ρ€Π°Π·Π½ΠΎΡ„ΠΎΡ€ΠΌΠ°Ρ‚Π½Ρ‹Ρ… Ρ‚Π°Π±Π»ΠΈΡ† с ΠΎΠ΄Π½ΠΎΠ³ΠΎ листа Π² Power Query

Как ΡΠΎΠ±Ρ€Π°Ρ‚ΡŒ нСсколько Ρ€Π°Π·Π½ΠΎΡ„ΠΎΡ€ΠΌΠ°Ρ‚Π½Ρ‹Ρ… простых (Π½Π΅ ΡƒΠΌΠ½Ρ‹Ρ…!) Ρ‚Π°Π±Π»ΠΈΡ† с ΠΎΠ΄Π½ΠΎΠ³ΠΎ листа Excel, Π° Π·Π°Ρ‚Π΅ΠΌ Ρ€Π°Π·Π²Π΅Ρ€Π½ΡƒΡ‚ΡŒ ΠΈΡ… Π² плоскиС (Π½ΠΎΡ€ΠΌΠ°Π»ΠΈΠ·ΠΎΠ²Π°Ρ‚ΡŒ) ΠΈ ΡΠΎΠ΅Π΄ΠΈΠ½ΠΈΡ‚ΡŒ Π² Π΅Π΄ΠΈΠ½ΠΎΠ΅ Ρ†Π΅Π»ΠΎΠ΅ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Power Query.

ΠŸΠΎΠ΄Ρ€ΠΎΠ±Π½Π΅Π΅…

ΠΠ°Ρ€Π°ΡΡ‚Π°ΡŽΡ‰ΠΈΠΉ ΠΈΡ‚ΠΎΠ³ Π² Excel

Π§Ρ‚ΠΎ Ρ‚Π°ΠΊΠΎΠ΅ Π½Π°Ρ€Π°ΡΡ‚Π°ΡŽΡ‰ΠΈΠ΅ ΠΈΡ‚ΠΎΠ³ΠΈ (Running Totals) ΠΈ ΠΊΠ°ΠΊ Π²Ρ‹Ρ‡ΠΈΡΠ»ΠΈΡ‚ΡŒ Π² Microsoft Excel Ρ€Π°Π·Π½Ρ‹ΠΌΠΈ способами: Ρ„ΠΎΡ€ΠΌΡƒΠ»Π°ΠΌΠΈ, Π² сводной Ρ‚Π°Π±Π»ΠΈΡ†Π΅, Π² запросС Power Query.

LAMBDA — новая супСрфункция Excel

ΠŸΠΎΠ΄Ρ€ΠΎΠ±Π½Ρ‹ΠΉ Ρ€Π°Π·Π±ΠΎΡ€ с ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π°ΠΌΠΈ Π½ΠΎΠ²ΠΎΠΉ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ LAMBDA, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡŽΡ‰Π΅ΠΉ ΡΠΎΠ·Π΄Π°Π²Π°Ρ‚ΡŒ свои собствСнныС Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Π² Microsoft Excel (Π²ΠΊΠ»ΡŽΡ‡Π°Ρ Ρ€Π΅Π°Π»ΠΈΠ·Π°Ρ†ΠΈΡŽ Π΄Π°ΠΆΠ΅ рСкурсивных вычислСний).

Π‘ΠΎΡ…Ρ€Π°Π½Π΅Π½ΠΈΠ΅ истории ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠΉ запросов Power Query

Как ΠΏΡ€ΠΈ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠΈ запросов Power Query ΡΠΎΡ…Ρ€Π°Π½ΡΡ‚ΡŒ старыС значСния для истории, Π° Π½Π΅ Π·Π°ΠΌΠ΅Π½ΡΡ‚ΡŒ ΠΈΡ… Π½Π° Π½ΠΎΠ²Ρ‹Π΅.

Π”Π΅Π»Π΅Π½ΠΈΠ΅ слипшСгося тСкста Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠ΅ΠΉ Π€Π˜Π›Π¬Π’Π .XML

Быстрый способ Ρ€Π°Π·Π΄Π΅Π»ΠΈΡ‚ΡŒ слипшиСся Π΄Π°Π½Π½Ρ‹Π΅ Π½Π° нСсколько ячССк с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Π€Π˜Π›Π¬Π’Π .XML, ΠΏΡ€Π΅Π²Ρ€Π°Ρ‚ΠΈΠ² исходный тСкст Π² XML-ΠΊΠΎΠ΄.

ΠžΠ±Π½ΠΎΠ²Π»ΡΠ΅ΠΌΡ‹ΠΉ курс Π²Π°Π»ΡŽΡ‚ Π² Excel

Как ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ ВЕББЛУЖБА (WEBSERVICE) ΠΈ Π€Π˜Π›Π¬Π’Π .XML (FILTERXML) для Π·Π°Π³Ρ€ΡƒΠ·ΠΊΠΈ ΠΌΠ³Π½ΠΎΠ²Π΅Π½Π½ΠΎ обновляСмого курса любой Π²Π°Π»ΡŽΡ‚Ρ‹ Π½Π° любой ΠΈΠ½Ρ‚Π΅Ρ€Π²Π°Π» Π΄Π°Ρ‚.

БистСма ΡƒΡ‡Π΅Ρ‚Π° Π·Π°ΠΊΠ°Π·ΠΎΠ² Π½Π° Google Calendar ΠΈ Excel

Как вСсти ΡƒΡ‡Π΅Ρ‚ Π·Π°ΠΊΠ°Π·ΠΎΠ² Π² Google-ΠΊΠ°Π»Π΅Π½Π΄Π°Ρ€Π΅ ΠΈ Π·Π°Π³Ρ€ΡƒΠΆΠ°Ρ‚ΡŒ ΠΏΠΎΡ‚ΠΎΠΌ ΠΎΡ‚Ρ‚ΡƒΠ΄Π° Π΄Π°Π½Π½Ρ‹Π΅ Π² Excel с ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ΠΌ Ρ‡Π΅Ρ€Π΅Π· Power Query.

ДинамичСскиС гипСрссылки ΠΌΠ΅ΠΆΠ΄Ρƒ Ρ‚Π°Π±Π»ΠΈΡ†Π°ΠΌΠΈ

Как ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ ΡƒΠ΄ΠΎΠ±Π½Ρ‹Π΅ динамичСскиС гипСрссылки, Ρ‡Ρ‚ΠΎΠ±Ρ‹ быстро ΠΏΠ΅Ρ€Π΅Ρ…ΠΎΠ΄ΠΈΡ‚ΡŒ ΠΈΠ· ΠΎΠ΄Π½ΠΎΠΉ Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ Π² Π΄Ρ€ΡƒΠ³ΡƒΡŽ — ΠΊ Π·Π°Π΄Π°Π½Π½ΠΎΠΌΡƒ Π·Π½Π°Ρ‡Π΅Π½ΠΈΡŽ Π² строкС ΠΈ столбцС. Π§Ρ‚ΠΎ-Ρ‚ΠΎ Ρ‚ΠΈΠΏΠ° Π’ΠŸΠ , Π½ΠΎ Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°ΡŽΡ‰Π°Ρ ссылку, Π° Π½Π΅ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅.

Поиск ΠΊΠ»ΡŽΡ‡Π΅Π²Ρ‹Ρ… слов Π² тСкстС

Как быстро Π½Π°ΠΉΡ‚ΠΈ Π² исходном тСкстС всС ΠΊΠ»ΡŽΡ‡Π΅Π²Ρ‹Π΅ слова ΠΈΠ· справочника ΠΈ вывСсти ΠΈΡ… рядом с ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ячСйкой Π΄Π°Π½Π½Ρ‹Ρ… Ρ‡Π΅Ρ€Π΅Π· Π·Π°Π΄Π°Π½Π½Ρ‹ΠΉ символ-Ρ€Π°Π·Π΄Π΅Π»ΠΈΡ‚Π΅Π»ΡŒ. ΠŸΠΎΠΏΡƒΡ‚Π½ΠΎ разбираСмся с Π±ΡƒΡ„Π΅Ρ€ΠΈΠ·Π°Ρ†ΠΈΠ΅ΠΉ запросов Π² Power Query с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Table.Buffer для ускорСния ΠΎΠ±Ρ€Π°Π±ΠΎΡ‚ΠΊΠΈ.

Π‘Π±ΠΎΡ€ΠΊΠ° Ρ‚Π°Π±Π»ΠΈΡ† с Ρ€Π°Π·Π½Ρ‹ΠΌΠΈ шапками ΠΈΠ· Π½Π΅ΡΠΊΠΎΠ»ΡŒΠΊΠΈΡ… ΠΊΠ½ΠΈΠ³

Как ΠΏΡ€ΠΈ ΠΏΠΎΠΌΠΎΡ‰ΠΈ Power Query ΡΠΎΠ±Ρ€Π°Ρ‚ΡŒ Π΄Π°Π½Π½Ρ‹Π΅ ΠΈΠ· всСх Ρ„Π°ΠΉΠ»ΠΎΠ² Π·Π°Π΄Π°Π½Π½ΠΎΠΉ ΠΏΠ°ΠΏΠΊΠΈ, Ссли Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΈ столбцов Π² Π½ΠΈΡ… ΠΎΡ‚Π»ΠΈΡ‡Π°ΡŽΡ‚ΡΡ.

Π Π°Π·Π΄Π΅Π»Π΅Π½ΠΈΠ΅ Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ ΠΏΠΎ листам

Как Ρ€Π°Π·ΠΎΠ±Ρ€Π°Ρ‚ΡŒ Π΄Π°Π½Π½Ρ‹Π΅ ΠΈΠ· ΠΎΠ΄Π½ΠΎΠΉ Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ сразу Π½Π° нСсколько листов ΠΏΠΎ Π·Π°Π΄Π°Π½Π½ΠΎΠΌΡƒ ΠΊΡ€ΠΈΡ‚Π΅Ρ€ΠΈΡŽ. Π Π°Π·Π±ΠΈΡ€Π°Π΅ΠΌ Π΄Π²Π° способа — с ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ΠΌ (Ρ‡Π΅Ρ€Π΅Π· Power Query) ΠΈ Π±Π΅Π· (Ρ‚ΠΎΠ»ΡŒΠΊΠΎ VBA).

ΠžΠ΄Π½ΠΎΠ²Ρ€Π΅ΠΌΠ΅Π½Π½Π°Ρ Ρ„ΠΈΠ»ΡŒΡ‚Ρ€Π°Ρ†ΠΈΡ Π½Π΅ΡΠΊΠΎΠ»ΡŒΠΊΠΈΡ… сводных Ρ‚Π°Π±Π»ΠΈΡ†

Как Ρ„ΠΈΠ»ΡŒΡ‚Ρ€ΠΎΠ²Π°Ρ‚ΡŒ сразу нСсколько сводных Ρ‚Π°Π±Π»ΠΈΡ† Π² Π΄Π°ΡˆΠ±ΠΎΡ€Π΄Π΅ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ ΠΎΠ±Ρ‰Π΅Π³ΠΎ срСза. Π Π°Π·Π±ΠΎΡ€ 2 способов для сводных, построСнных ΠΏΠΎ ΠΎΠ΄Π½ΠΎΠΌΡƒ ΠΈ ΠΏΠΎ Ρ€Π°Π·Π½Ρ‹ΠΌ источникам Π΄Π°Π½Π½Ρ‹Ρ….

ΠšΠ°Ρ€Ρ‚ΠΈΠ½ΠΊΠΈ ΠΊΠ°ΠΊ подписи Π½Π° Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΠ΅

Как Π΄ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ Π½Π° Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ изобраТСния (Π»ΠΎΠ³ΠΎΡ‚ΠΈΠΏΡ‹, Π±Ρ€Π΅Π½Π΄Ρ‹, Ρ„Π»Π°Π³ΠΈ, Ρ„ΠΎΡ‚ΠΎΠ³Ρ€Π°Ρ„ΠΈΠΈ) Π² качСствС подписСй Π΄Π°Π½Π½Ρ‹Ρ….

ΠŸΡ€Π΅ΠΈΠΌΡƒΡ‰Π΅ΡΡ‚Π²Π° сводной ΠΏΠΎ МодСли Π”Π°Π½Π½Ρ‹Ρ…

Как ΠΈ Π·Π°Ρ‡Π΅ΠΌ ΡΡ‚Ρ€ΠΎΠΈΡ‚ΡŒ ΡΠ²ΠΎΠ΄Π½ΡƒΡŽ Π² Excel ΠΏΠΎ МодСли Π”Π°Π½Π½Ρ‹Ρ… (Data Model) ΠΈ ΠΊΠ°ΠΊΠΈΠ΅ прСимущСства это Π΄Π°Ρ‘Ρ‚ ΠΏΠΎ ΡΡ€Π°Π²Π½Π΅Π½ΠΈΡŽ с классичСской сводной Ρ‚Π°Π±Π»ΠΈΡ†Π΅ΠΉ?

Поиск послСднСго вхоТдСния (ΠΈΠ½Π²Π΅Ρ€Ρ‚ΠΈΡ€ΠΎΠ²Π°Π½Π½Ρ‹ΠΉ Π’ΠŸΠ )

ВсС стандартныС Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ поиска (Π’ΠŸΠ , Π“ΠŸΠ , ΠŸΠžΠ˜Π‘ΠšΠŸΠžΠ— ΠΈ Ρ‚. Π΄.) ΠΈΡ‰ΡƒΡ‚ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ свСрху-Π²Π½ΠΈΠ· ΠΈ слСва-Π½Π°ΠΏΡ€Π°Π²ΠΎ. Π§Ρ‚ΠΎ ΠΆΠ΅ Π΄Π΅Π»Π°Ρ‚ΡŒ, Ссли Π½ΡƒΠΆΠ½ΠΎ Ρ€Π΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Ρ‚ΡŒ ΠΎΠ±Ρ€Π°Ρ‚Π½Ρ‹ΠΉ поиск совпадСний, Ρ‚.Π΅. ΠΈΡΠΊΠ°Ρ‚ΡŒ Π½Π΅ ΠΏΠ΅Ρ€Π²ΠΎΠ΅, Π° послСднСС Π²Ρ…ΠΎΠΆΠ΄Π΅Π½ΠΈΠ΅ Ρ‚Ρ€Π΅Π±ΡƒΠ΅ΠΌΠΎΠ³ΠΎ значСния Π² спискС?

ΠŸΠ°Ρ€ΡΠΈΠ½Π³ Π½Π΅Ρ‚Π°Π±Π»ΠΈΡ‡Π½Ρ‹Ρ… Π΄Π°Π½Π½Ρ‹Ρ… с сайтов

Π˜ΠΌΠΏΠΎΡ€Ρ‚ Π½Π΅Ρ‚Π°Π±Π»ΠΈΡ‡Π½Ρ‹Ρ… Π΄Π°Π½Π½Ρ‹Ρ…, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΠΎΠ±Ρ‹Ρ‡Π½ΠΎ «Π½Π΅ Π²ΠΈΠ΄ΠΈΡ‚» Power Query, Π½Π° ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ парсинга Ρ†Π΅Π½ ΠΈ Ρ‚ΠΎΠ²Π°Ρ€ΠΎΠ² с сайта Wildberries.

РаспрСдСляСм список ΠΏΠΎ Π½Π°Π±ΠΎΡ€Π°ΠΌ

Как Ρ€Π°Π·Π΄Π΅Π»ΠΈΡ‚ΡŒ список ΠΏΠΎ Π½Π°Π±ΠΎΡ€Π°ΠΌ Π½Π΅ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²ΠΎΠ³ΠΎ Ρ€Π°Π·ΠΌΠ΅Ρ€Π° — Ρ€Π°Π·Π±ΠΎΡ€ 3 способов: Π²Ρ€ΡƒΡ‡Π½ΡƒΡŽ Ρ‡Π΅Ρ€Π΅Π· ΡΠ²ΠΎΠ΄Π½ΡƒΡŽ, запросом Π² Power Query ΠΈ функциями динамичСских массивов.

Бводная ΠΏΠΎ Ρ‚Π°Π±Π»ΠΈΡ†Π΅ с многострочной шапкой

Как ΠΏΠΎΡΡ‚Ρ€ΠΎΠΈΡ‚ΡŒ ΡΠ²ΠΎΠ΄Π½ΡƒΡŽ Ρ‚Π°Π±Π»ΠΈΡ†Ρƒ ΠΏΠΎ исходным Π΄Π°Π½Π½Ρ‹ΠΌ с многострочной шапкой, ΠΏΡ€Π΅ΠΎΠ±Ρ€Π°Π·ΠΎΠ²Π°Π² ΠΈΡ… Π² Π½ΠΎΡ€ΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ Π²ΠΈΠ΄ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ надстройки Power Query.

Π’Ρ‹ΠΏΠ°Π΄Π°ΡŽΡ‰ΠΈΠΉ список с ΠΏΠΎΠΊΠ°Π·ΠΎΠΌ ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠΉ

Как ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ Π² Excel 2013 ΠΈ Π½ΠΎΠ²Π΅Π΅ Π²Ρ‹ΠΏΠ°Π΄Π°ΡŽΡ‰ΠΈΠΉ список, ΠΏΡ€ΠΈ Π²Ρ‹Π±ΠΎΡ€Π΅ ΠΈΠ· ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ³ΠΎ рядом Π±ΡƒΠ΄Π΅Ρ‚ ΠΏΠΎΡΠ²Π»ΡΡ‚ΡŒΡΡ ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ Π²Ρ‹Π±Ρ€Π°Π½Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Π° (Ρ‚ΠΎΠ²Π°Ρ€Π°, Ρ‡Π΅Π»ΠΎΠ²Π΅ΠΊΠ° ΠΈ Ρ‚.Π΄.)

Как ΠΏΡ€Π°Π²ΠΈΠ»ΡŒΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ стили Π² Excel

Π—Π°Ρ‡Π΅ΠΌ (Π½Π° самом Π΄Π΅Π»Π΅!) Π½ΡƒΠΆΠ½Ρ‹ Π‘Ρ‚ΠΈΠ»ΠΈ Π² Excel ΠΈ ΠΊΠ°ΠΊ ΠΏΡ€Π°Π²ΠΈΠ»ΡŒΠ½ΠΎ ΠΈΡ… ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ для быстрого форматирования Π²Π°ΡˆΠΈΡ… Π΄Π°Π½Π½Ρ‹Ρ….

Π˜ΡΠΏΡ€Π°Π²Π»Π΅Π½ΠΈΠ΅ чисСл, ΠΏΡ€Π΅Π²Ρ€Π°Ρ‚ΠΈΠ²ΡˆΠΈΡ…ΡΡ Π² Π΄Π°Ρ‚Ρ‹

Π’Ρ€ΠΈ способа ΠΈΡΠΏΡ€Π°Π²ΠΈΡ‚ΡŒ числа, случайно ΠΏΡ€Π΅Π²Ρ€Π°Ρ‚ΠΈΠ²ΡˆΠΈΠ΅ΡΡ Π² Π΄Π°Ρ‚Ρ‹ Π² Microsoft Excel.

Π’Π°Ρ„Π΅Π»ΡŒΠ½Π°Ρ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΠ° Π² Excel

2 способа ΠΏΠΎΡΡ‚Ρ€ΠΎΠΈΡ‚ΡŒ Π² Excel Π²Π°Ρ„Π΅Π»ΡŒΠ½ΡƒΡŽ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ (waffle-chart) для наглядной Π²ΠΈΠ·ΡƒΠ°Π»ΠΈΠ·Π°Ρ†ΠΈΠΈ прогрСсса ΠΏΠΎ ΠΏΡ€ΠΎΠ΅ΠΊΡ‚Ρƒ ΠΈΠ»ΠΈ Π»ΡŽΠ±Ρ‹Ρ… Π΄Ρ€ΡƒΠ³ΠΈΡ… KPI.

Массовая Π·Π°ΠΌΠ΅Π½Π° тСкста Π² Power Query Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠ΅ΠΉ List.Accumulate

Как Π·Π°ΠΌΠ΅Π½ΠΈΡ‚ΡŒ мноТСство ΠΎΠ΄Π½ΠΈΡ… Ρ„Ρ€Π°Π³ΠΌΠ΅Π½Ρ‚ΠΎΠ² тСкста Π½Π° Π΄Ρ€ΡƒΠ³ΠΈΠ΅ ΠΏΠΎ справочнику Π² Power Query с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ…ΠΈΡ‚Ρ€ΠΎΠΉ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ List.Accumulate.

Массовая Π·Π°ΠΌΠ΅Π½Π° тСкста Ρ„ΠΎΡ€ΠΌΡƒΠ»Π°ΠΌΠΈ

Как с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ произвСсти ΠΌΠ°ΡΡΠΎΠ²ΡƒΡŽ Π·Π°ΠΌΠ΅Π½Ρƒ ΠΎΠ΄Π½ΠΎΠ³ΠΎ тСкста (ΠΈΠ»ΠΈ Π΅Π³ΠΎ Ρ„Ρ€Π°Π³ΠΌΠ΅Π½Ρ‚Π°) Π½Π° Π΄Ρ€ΡƒΠ³ΠΎΠΉ ΠΏΠΎ ΠΈΠΌΠ΅ΡŽΡ‰Π΅ΠΉΡΡ Ρ‚Π°Π±Π»ΠΈΡ†Π΅ подстановок (справочнику).

РСгулярныС выраТСния (RegExp) Π² Power Query

Как Π΄ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ ΠΏΠΎΠ΄Π΄Π΅Ρ€ΠΆΠΊΡƒ рСгулярных Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠΉ (RegExp) Π² Power Query для Ρ€Π΅Π°Π»ΠΈΠ·Π°Ρ†ΠΈΠΈ поиска ΠΈ извлСчСния Ρ„Ρ€Π°Π³ΠΌΠ΅Π½Ρ‚ΠΎΠ² тСкста ΠΏΠΎ Π³ΠΈΠ±ΠΊΠΈΠΌ шаблонам ΠΈ маскам.

ΠŸΡ€ΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡ‚Π²Π΅Π½Π½Ρ‹ΠΉ ΠΊΠ°Π»Π΅Π½Π΄Π°Ρ€ΡŒ Π² Excel

Как ΠΏΡ€ΠΈ ΠΏΠΎΠΌΠΎΡ‰ΠΈ Power Query ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ Π² Excel «Π²Π΅Ρ‡Π½Ρ‹ΠΉ» производствСнный ΠΊΠ°Π»Π΅Π½Π΄Π°Ρ€ΡŒ — автоматичСски ΠΎΠ±Π½ΠΎΠ²Π»ΡΡŽΡ‰ΠΈΠΉΡΡ список Π½Π΅Ρ€Π°Π±ΠΎΡ‡ΠΈΡ… Π΄Π½Π΅ΠΉ Π·Π° всС Π³ΠΎΠ΄Ρ‹ для использования Π² своих расчСтах.

ΠžΠ±ΠΌΠ°Π½Ρ‡ΠΈΠ²Π°Ρ простота Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ ΠŸΠžΠ‘Π›Π•Π” (SEQUENCE)

Π Π°Π·Π±ΠΎΡ€ Π½Π° ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π°Ρ… возмоТностСй Π½ΠΎΠ²ΠΎΠΉ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ ΠŸΠžΠ‘Π›Π•Π” (SEQUENCE) — Π³Π΅Π½Π΅Ρ€Π°Ρ‚ΠΎΡ€Π° числовых ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎΡΡ‚Π΅ΠΉ ΠΈΠ· послСднСго обновлСния Office 365 с динамичСскими массивами.

Π˜ΠΌΠΏΠΎΡ€Ρ‚ Π΄Π°Π½Π½Ρ‹Ρ… ΠΈΠ· OneDrive ΠΈ SharePoint Π² Power Query / BI

Как Π·Π°Π³Ρ€ΡƒΠ·ΠΈΡ‚ΡŒ ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½Ρ‹Π΅ Ρ„Π°ΠΉΠ»Ρ‹ ΠΈΠ»ΠΈ содСрТимоС Ρ†Π΅Π»ΠΎΠΉ ΠΏΠ°ΠΏΠΊΠΈ ΠΈΠ· ΠΎΠ±Π»Π°ΠΊΠ° OneDrive ΠΈΠ»ΠΈ SharePoint Π² модСль Π΄Π°Π½Π½Ρ‹Ρ… Power BI ΠΈΠ»ΠΈ Π² Excel Ρ‡Π΅Ρ€Π΅Π· Power Query.

Π’ΠŸΠ  ΠΈ числа-ΠΊΠ°ΠΊ-тСкст

Как Π½Π°ΡƒΡ‡ΠΈΡ‚ΡŒ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΡŽ Π’ΠŸΠ  (VLOOKUP) ΠΈΡΠΊΠ°Ρ‚ΡŒ значСния, ΠΊΠΎΠ³Π΄Π° Π² исходных Π΄Π°Π½Π½Ρ‹Ρ… Π²ΡΡ‚Ρ€Π΅Ρ‡Π°ΡŽΡ‚ΡΡ «Ρ‡ΠΈΡΠ»Π°-ΠΊΠ°ΠΊ-тСкст», Ρ‡Ρ‚ΠΎ ΠΏΡ€ΠΈΠ²ΠΎΠ΄ΠΈΡ‚ ΠΊ ошибкам #Н/Π”.

План-Ρ„Π°ΠΊΡ‚ Π°Π½Π°Π»ΠΈΠ· Π² сводной Ρ‚Π°Π±Π»ΠΈΡ†Π΅ с Power Pivot ΠΈ Power Query

ΠŸΠΎΡˆΠ°Π³ΠΎΠ²Ρ‹ΠΉ Ρ€Π°Π·Π±ΠΎΡ€ Ρ€Π΅ΡˆΠ΅Π½ΠΈΡ Π·Π°Π΄Π°Ρ‡ΠΈ ΠΏΠ»Π°Π½-Ρ„Π°ΠΊΡ‚ Π°Π½Π°Π»ΠΈΠ·Π° с использованиСм сводных Ρ‚Π°Π±Π»ΠΈΡ†, ΠΌΠΎΠ΄Π΅Π»ΠΈ Π΄Π°Π½Π½Ρ‹Ρ… Power Pivot со связями «ΠΌΠ½ΠΎΠ³ΠΈΠ΅-ΠΊΠΎ-ΠΌΠ½ΠΎΠ³ΠΈΠΌ», простых ΠΌΠ΅Ρ€ Π½Π° DAX ΠΈ Π΄ΠΎΠΏΠΈΠ»ΠΈΠ²Π°Π½ΠΈΠΈ Π²Ρ…ΠΎΠ΄Π½Ρ‹Ρ… Π΄Π°Π½Π½Ρ‹Ρ… с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Power Query.

Π‘ΠΈΠ±Π»ΠΈΠΎΡ‚Π΅ΠΊΠ° ΠΊΠΎΠ΄ΠΎΠ² Excel VBA β€” ΠΏΠΎΠ»Π΅Π·Π½Ρ‹Π΅ макросы для Π½Π°Ρ‡ΠΈΠ½Π°ΡŽΡ‰ΠΈΡ…

ΠšΠΎΠ΄Ρ‹ макросов Excel ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ для Π°Π²Ρ‚ΠΎΠΌΠ°Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ ΠΎΠ±Ρ‹Ρ‡Π½Ρ‹Ρ… Π·Π°Π΄Π°Ρ‡ Excel ΠΈ прСдотвращСния ΠΈΡ… выполнСния Π²Ρ€ΡƒΡ‡Π½ΡƒΡŽ. Π­Ρ‚ΠΎ ΠΏΡ€ΠΈΠ²ΠΎΠ΄ΠΈΡ‚ ΠΊ экономии Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ ΠΈ Π±ΠΎΠ»Π΅Π΅ Π½Π°Π΄Π΅ΠΆΠ½ΠΎΠΉ Ρ€Π°Π±ΠΎΡ‚Π΅.

Π­Ρ‚Π° Π±ΠΈΠ±Π»ΠΈΠΎΡ‚Π΅ΠΊΠ° ΠΊΠΎΠ΄ΠΎΠ² VBA прСдставляСт собой список ΠΏΠΎΠ»Π΅Π·Π½Ρ‹Ρ… ΠΊΠΎΠ΄ΠΎΠ² VBA для Excel, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π½Π°Ρ‡Π°Ρ‚ΡŒ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Π½Π΅ΠΌΠ΅Π΄Π»Π΅Π½Π½ΠΎ.

Π­Ρ‚ΠΈ ΠΊΠΎΠ΄Ρ‹ идСально подходят для Π½Π°Ρ‡ΠΈΠ½Π°ΡŽΡ‰ΠΈΡ…, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Ρ€Π°Π½ΡŒΡˆΠ΅ Π½Π΅ использовали Excel VBA ΠΈΠ»ΠΈ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Π½Π°Ρ‡ΠΈΠ½Π°ΡŽΡ‚.

Π”Π°Π²Π°ΠΉΡ‚Π΅ сначала опишСм, Ρ‡Ρ‚ΠΎ Ρ‚Π°ΠΊΠΎΠ΅ ΠΊΠΎΠ΄ макроса ΠΈ ΠΊΠ°ΠΊ Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π½Π°Ρ‡Π°Ρ‚ΡŒ Π΅Π³ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ. Π—Π°Ρ‚Π΅ΠΌ ΠΌΡ‹ ΠΏΠ΅Ρ€Π΅ΠΉΠ΄Π΅ΠΌ ΠΊ самой интСрСсной части ΠΈ рассмотрим ΠΏΡ€ΠΈΠΌΠ΅Ρ€Ρ‹ макросов Excel Π² этом спискС.

Π˜Π·ΡƒΡ‡ΠΈΡ‚Π΅ Π»ΡƒΡ‡ΡˆΠΈΠ΅ сочСтания клавиш Excel!

Π—Π°Π³Ρ€ΡƒΠ·ΠΈΡ‚Π΅ Π½Π°ΡˆΡƒ Ρ€Π°ΡΠΏΠ΅Ρ‡Π°Ρ‚Π°Π½Π½ΡƒΡŽ Ρ‚Π°Π±Π»ΠΈΡ†Ρƒ ярлыков для ПК ΠΈ Mac

Π’Π²Π΅Π΄ΠΈΡ‚Π΅ адрСс элСктронной ΠΏΠΎΡ‡Ρ‚Ρ‹

Π§Ρ‚ΠΎ Ρ‚Π°ΠΊΠΎΠ΅ ΠΊΠΎΠ΄ макроса?

Код макроса относится ΠΊ ΠΊΠΎΠ΄Ρƒ VBA (Visual Basic для ΠΏΡ€ΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ) для макроса.

Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΡΠΎΠ·Π΄Π°Π²Π°Ρ‚ΡŒ макросы Π² Excel, Π»ΠΈΠ±ΠΎ записывая шаги, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΎΠ½ выполнял (VBA написан для вас), Π»ΠΈΠ±ΠΎ написав VBA ΡΠ°ΠΌΠΎΡΡ‚ΠΎΡΡ‚Π΅Π»ΡŒΠ½ΠΎ.

Π‘Π°ΠΌΠΎΡΡ‚ΠΎΡΡ‚Π΅Π»ΡŒΠ½ΠΎΠ΅ написаниС этого ΠΊΠΎΠ΄Π° VBA ΠΈΠ»ΠΈ макроса Π΄Π°Π΅Ρ‚ Π²Π°ΠΌ Π³ΠΎΡ€Π°Π·Π΄ΠΎ больший ΠΊΠΎΠ½Ρ‚Ρ€ΠΎΠ»ΡŒ Π½Π°Π΄ вашим макросом.

Код VBA ΠΌΠΎΠΆΠ΅Ρ‚ Π±Ρ‹Ρ‚ΡŒ простым ΠΈ Π²Ρ‹ΠΏΠΎΠ»Π½ΡΡ‚ΡŒ Π±Π°Π·ΠΎΠ²Ρ‹ΠΉ шаг форматирования ΠΈΠ»ΠΈ Π·Π°ΠΌΠΎΡ€Π°ΠΆΠΈΠ²Π°Ρ‚ΡŒ ΠΏΠ°Π½Π΅Π»ΠΈ. Или ΠΎΠ½ ΠΌΠΎΠ³ Π±Ρ‹ ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ Ρ‡Ρ‚ΠΎ-Ρ‚ΠΎ большСС, Π½Π°ΠΏΡ€ΠΈΠΌΠ΅Ρ€, ΡΠΊΡΠΏΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ всС листы ΠΊΠ½ΠΈΠ³ΠΈ Π² ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½Ρ‹ΠΉ PDF-Ρ„Π°ΠΉΠ».

Π­Ρ‚Π° Π±ΠΈΠ±Π»ΠΈΠΎΡ‚Π΅ΠΊΠ° ΠΊΠΎΠ΄Π° VBA содСрТит список ΠΊΠΎΠ΄ΠΎΠ² макросов, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΡΠΊΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ΠΈ Π²ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π½Π°Ρ‡Π°Ρ‚ΡŒ Ρ€Π°Π±ΠΎΡ‚Ρƒ.

Π­Ρ‚ΠΎ избавляСт вас ΠΎΡ‚ нСобходимости ΡΠΎΠ·Π΄Π°Π²Π°Ρ‚ΡŒ ΠΈΡ… ΡΠ°ΠΌΠΎΡΡ‚ΠΎΡΡ‚Π΅Π»ΡŒΠ½ΠΎ, Π½ΠΎ Ρ‚Π°ΠΊΠΆΠ΅ являСтся ΠΎΡ‚Π»ΠΈΡ‡Π½Ρ‹ΠΌ способом Π½Π°Ρ‡Π°Ρ‚ΡŒ ΠΈΠ·ΡƒΡ‡Π΅Π½ΠΈΠ΅ VBA.

ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ Π²ΠΊΠ»Π°Π΄ΠΊΡƒ «Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ»

Π§Ρ‚ΠΎΠ±Ρ‹ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ ΠΊΠΎΠ΄Ρ‹ VBA, Π²Π°ΠΌ потрСбуСтся доступ ΠΊ Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ «Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ».

Если Π½Π° вашСй Π»Π΅Π½Ρ‚Π΅ Π½Π΅Ρ‚ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ Β«Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΒ», Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚Π΅ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ дСйствия, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π²ΠΊΠ»ΡŽΡ‡ΠΈΡ‚ΡŒ Π΅Π΅.

  1. Π©Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ Π€Π°ΠΉΠ» > ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹ .
  2. Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΊΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΡŽ Β«ΠΠ°ΡΡ‚Ρ€ΠΎΠΈΡ‚ΡŒ Π»Π΅Π½Ρ‚ΡƒΒ», Π° Π·Π°Ρ‚Π΅ΠΌ установитС Ρ„Π»Π°ΠΆΠΎΠΊ для Π²ΠΊΠ»Π°Π΄ΠΊΠΈ Β«Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΒ».
  1. НаТмитС «ОК».

Как ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ ΠΊΠΎΠ΄ макроса

Для использования ΠΊΠΎΠ΄ΠΎΠ² макроса достаточно простого копирования ΠΈ вставки. Однако Π²Π°ΠΌ Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΠΎ ΡƒΠ±Π΅Π΄ΠΈΡ‚ΡŒΡΡ, Ρ‡Ρ‚ΠΎ Π²Ρ‹ вставляСтС ΠΈΡ… Π² Π½ΡƒΠΆΠ½ΠΎΠ΅ мСсто.

  1. Π©Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ > Visual Basic ΠΈΠ»ΠΈ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ Alt + F11 .

ΠžΡ‚ΠΊΡ€Ρ‹Π²Π°Π΅Ρ‚ΡΡ Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€ Visual Basic. Окно Project Explorer ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ слСва. Π’ Π½Π΅ΠΌ пСрСчислСны ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚Ρ‹Π΅ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈ Π΄Ρ€ΡƒΠ³ΠΈΠ΅ ΠΏΡ€ΠΎΠ΅ΠΊΡ‚Ρ‹.

  1. Π©Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ Π² Ρ€Π°Π±ΠΎΡ‡Π΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅, ΠΊΡƒΠ΄Π° Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ Π²ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ ΠΊΠΎΠ΄ VBA, Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ Π’ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ > ΠœΠΎΠ΄ΡƒΠ»ΡŒ .
  1. Π‘ΠΊΠΎΠΏΠΈΡ€ΡƒΠΉΡ‚Π΅ ΠΈ Π²ΡΡ‚Π°Π²ΡŒΡ‚Π΅ ΠΊΠΎΠ΄ ΠΈΠ· этой ΡΡ‚Π°Ρ‚ΡŒΠΈ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π°.

ПослС этого макрос Π±ΡƒΠ΄Π΅Ρ‚ доступСн для запуска Π² ΠΎΠΊΠ½Π΅ макросов.

  1. НаТмитС Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊ > ΠœΠ°ΠΊΡ€ΠΎΡΡ‹ . Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ макрос ΠΈΠ· списка ΠΈ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ Π’Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ .

Π’ этой Π±ΠΈΠ±Π»ΠΈΠΎΡ‚Π΅ΠΊΠ΅ ΠΊΠΎΠ΄ΠΎΠ² VBA Π΅ΡΡ‚ΡŒ катСгория с ΠΈΠΌΠ΅Π½Π΅ΠΌ Events . Π­Ρ‚ΠΈ макросы Π±ΡƒΠ΄ΡƒΡ‚ Ρ…Ρ€Π°Π½ΠΈΡ‚ΡŒΡΡ Π½Π΅ Π² модулях, Π° Π² ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Π΅, Π³Π΄Π΅ происходит событиС.

Π­Ρ‚ΠΎ Π±ΡƒΠ΄Π΅Ρ‚ объяснСно, ΠΊΠΎΠ³Π΄Π° ΠΌΡ‹ прСдставим ΠΊΠΎΠ΄. Π‘ΠΎΠ»ΡŒΡˆΠΈΠ½ΡΡ‚Π²ΠΎ макросов Π² этом спискС хранятся Π² модулях ΠΈ ΡΠ»Π΅Π΄ΡƒΡŽΡ‚ описанной Π²Ρ‹ΡˆΠ΅ ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π΅.

Π”ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ для запуска Π²Π°ΡˆΠΈΡ… макросов

Π₯отя ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΏΡƒΡΡ‚ΠΈΡ‚ΡŒ макрос ΠΈΠ· ΠΎΠΊΠ½Π° макросов. НазначСниС макроса ΠΊΠ½ΠΎΠΏΠΊΠ΅, ΠΊΠΎΡ‚ΠΎΡ€ΡƒΡŽ Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π½Π°ΠΆΠ°Ρ‚ΡŒ, ΠΎΠ±Π»Π΅Π³Ρ‡ΠΈΡ‚ запуск Π²Π°ΡˆΠΈΡ… макросов.

Кнопки ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΡ‚Π°Π²Π»ΡΡ‚ΡŒ Π½Π° панСль быстрого доступа (Π³Π΄Π΅ находятся ΠΊΠ½ΠΎΠΏΠΊΠΈ Β«Π‘ΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒΒ» ΠΈ Β«ΠžΡ‚ΠΌΠ΅Π½ΠΈΡ‚ΡŒΒ»), Π½Π° Π»Π΅Π½Ρ‚Ρƒ ΠΈΠ»ΠΈ Π½Π° Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист.

ΠŸΠΎΠ΄Ρ…ΠΎΠ΄ зависит ΠΎΡ‚ Ρ‚ΠΎΠ³ΠΎ, Ρ‡Ρ‚ΠΎ Π΄Π΅Π»Π°Π΅Ρ‚ макрос ΠΈ ΠΊΠΎΠ³Π΄Π° Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ Π΅Π³ΠΎ Π·Π°ΠΏΡƒΡΡ‚ΠΈΡ‚ΡŒ.

Π’ этом ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ ΠΌΡ‹ ΠΏΠΎΠΊΠ°ΠΆΠ΅ΠΌ Π²Π°ΠΌ, ΠΊΠ°ΠΊ Π΄ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ ΠΊΠ½ΠΎΠΏΠΊΡƒ Π½Π° панСль быстрого доступа для запуска Π²Π°ΡˆΠΈΡ… макросов.

  1. Π©Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ стрСлку ΠΠ°ΡΡ‚Ρ€ΠΎΠΈΡ‚ΡŒ панСль быстрого доступа ΠΈ Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ Π”ΠΎΠΏΠΎΠ»Π½ΠΈΡ‚Π΅Π»ΡŒΠ½Ρ‹Π΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ‹ .
  1. Π©Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ стрСлку списка ΠŸΠΎΠΏΡƒΠ»ΡΡ€Π½Ρ‹Π΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ‹ ΠΈ Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠœΠ°ΠΊΡ€ΠΎΡΡ‹ . Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Π½ΡƒΠΆΠ½Ρ‹ΠΉ макрос ΠΈ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ Π”ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ .
  1. НаТмитС ΠΊΠ½ΠΎΠΏΠΊΡƒ Π˜Π·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ , Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ ΠΈ ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Π΅ΠΌΠΎΠ΅ имя ΠΊΠ½ΠΎΠΏΠΊΠΈ.

Кнопка появится Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ быстрого доступа, ΠΈ ΠΏΡ€ΠΈ Π΅Π΅ Π½Π°ΠΆΠ°Ρ‚ΠΈΠΈ Π±ΡƒΠ΄Π΅Ρ‚ Π·Π°ΠΏΡƒΡ‰Π΅Π½ ваш макрос.

ΠžΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Π΅ΠΌΠΎΠ΅ имя отобраТаСтся ΠΏΡ€ΠΈ Π½Π°Π²Π΅Π΄Π΅Π½ΠΈΠΈ указатСля ΠΌΡ‹ΡˆΠΈ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡƒ.

ΠŸΡ€ΠΈΠΌΠ΅Ρ€Ρ‹ ΠΊΠΎΠ΄Π° Excel VBA

ΠŸΡ€ΠΈΠΌΠ΅Ρ€Ρ‹ ΠΊΠΎΠ΄Π° макросов Π² этом спискС Ρ€Π°Π·Π΄Π΅Π»Π΅Π½Ρ‹ Π½Π° ΠΊΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΠΈ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΡƒΠΏΡ€ΠΎΡΡ‚ΠΈΡ‚ΡŒ поиск Ρ‚Π΅Ρ…, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π²Π°ΠΌ интСрСсны.


ΠžΠ±Ρ‰ΠΈΠ΅ Π·Π°Π΄Π°Ρ‡ΠΈ Excel

  • Автоподбор ΡˆΠΈΡ€ΠΈΠ½Ρ‹ столбца
  • Π‘ΠΊΠΎΠΏΠΈΡ€ΡƒΠΉΡ‚Π΅ ΠΈ Π²ΡΡ‚Π°Π²ΡŒΡ‚Π΅
  • ΠžΡ‡ΠΈΡΡ‚ΠΈΡ‚ΡŒ всС гипСрссылки Π½Π° листС
  • Π€ΠΎΡ€ΠΌΠ°Ρ‚ ячССк с Ρ„ΠΎΡ€ΠΌΡƒΠ»Π°ΠΌΠΈ
  • ΠŸΡ€Π΅ΠΎΠ±Ρ€Π°Π·ΠΎΠ²Π°Π½ΠΈΠ΅ Ρ„ΠΎΡ€ΠΌΡƒΠ» Π² значСния

ΠšΠΎΠ΄Ρ‹ Ρ€Π°Π±ΠΎΡ‡ΠΈΡ… листов

  • ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ всС столбцы
  • Π—Π°Ρ‰ΠΈΡ‚Π° Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа
  • ΠŸΠ΅Ρ€Π΅Π±Ρ€Π°Ρ‚ΡŒ всС листы ΠΊΠ½ΠΈΠ³ΠΈ

ΠšΠΎΠ΄Ρ‹ Ρ€Π°Π±ΠΎΡ‡ΠΈΡ… ΠΊΠ½ΠΈΠ³

  • ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ всС Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ листы
  • Π—Π°Ρ‰ΠΈΡ‚Π° ΠΊΠ½ΠΈΠ³ΠΈ
  • ΠžΡ‚ΠΊΡ€Ρ‹Ρ‚ΠΈΠ΅ ΠΈ Π·Π°ΠΊΡ€Ρ‹Ρ‚ΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ
  • ЭлСктронная ΠΏΠΎΡ‡Ρ‚Π° Π°ΠΊΡ‚ΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ с Outlook

Π€Π°ΠΉΠ»Ρ‹ ΠΈ ΠΏΠ°ΠΏΠΊΠΈ

  • Экспорт ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа Π² Π²ΠΈΠ΄Π΅ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Ρ„Π°ΠΉΠ»Π° PDF
  • Экспорт Π°ΠΊΡ‚ΠΈΠ²Π½ΠΎΠ³ΠΎ листа Π² Ρ„ΠΎΡ€ΠΌΠ°Ρ‚Π΅ PDF
  • Экспорт Π½Π΅ΡΠΊΠΎΠ»ΡŒΠΊΠΈΡ… листов Π² ΠΎΠ΄ΠΈΠ½ Ρ„Π°ΠΉΠ» PDF
  • ΠŸΠ΅Ρ€Π΅Π±Ρ€Π°Ρ‚ΡŒ всС Ρ„Π°ΠΉΠ»Ρ‹ ΠΏΠ°ΠΏΠΊΠΈ
  • Π’Ρ‹Π±ΠΎΡ€ Ρ„Π°ΠΉΠ»Π° с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ FileDialog

ΠŸΠΎΠ»Π΅Π·Π½Ρ‹Π΅ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Excel

  • Π‘ΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²ΠΊΠ° столбцов
  • Π€ΠΈΠ»ΡŒΡ‚Ρ€ΡƒΠΉΡ‚Π΅ Π΄Π°Π½Π½Ρ‹Π΅
  • Π‘ΠΎΠ·Π΄Π°Ρ‚ΡŒ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ

Бобытия

  • ΠŸΠ΅Ρ€Π΅Ρ…ΠΎΠ΄ ΠΊ ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌΡƒ Ρ€Π°Π±ΠΎΡ‡Π΅ΠΌΡƒ листу ΠΏΡ€ΠΈ ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚ΠΈΠΈ
  • Π’Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ дСйствиС ΠΏΡ€ΠΈ смСнС ячСйки

РСзюмС!


ΠžΠ±Ρ‰ΠΈΠ΅ Π·Π°Π΄Π°Ρ‡ΠΈ Excel

Π­Ρ‚ΠΈ ΠΊΠΎΠ΄Ρ‹ VBA ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡŽΡ‚ быстро Π²Ρ‹ΠΏΠΎΠ»Π½ΡΡ‚ΡŒ ΠΎΠ±Ρ‰ΠΈΠ΅ Π·Π°Π΄Π°Ρ‡ΠΈ Excel.

Автоподбор ΡˆΠΈΡ€ΠΈΠ½Ρ‹ столбцов

Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ автоматичСски ΠΏΠΎΠ΄Π³ΠΎΠ½ΠΈΡ‚ ΡˆΠΈΡ€ΠΈΠ½Ρƒ столбцов для всСх столбцов Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа.

  ΠŸΠΎΠ΄ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° AutofitAllColumns()

Cells.EntireColumn.AutoFit

ΠšΠΎΠ½Π΅Ρ† суб  

Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ автоматичСски ΠΏΠΎΠ΄Π³ΠΎΠ½ΠΈΡ‚ ΡˆΠΈΡ€ΠΈΠ½Ρƒ ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½Ρ‹Ρ… столбцов Π½Π° листС. Π’ Π΄Π°Π½Π½ΠΎΠΌ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ это столбцы D ΠΈ F.

  ΠŸΠΎΠ΄ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° AutofitSpecificColumns()

Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("D:D,F:F").EntireColumn.AutoFit

End Sub  
ΠšΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ΠΈ Π²ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ

ΠšΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ΠΈ Π²ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ β€” ΠΎΠ΄Π½ΠΎ ΠΈΠ· Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ распространСнных дСйствий Π² Excel. Π•Π³ΠΎ ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΏΠΈΡΠ°Ρ‚ΡŒ всСго ΠΎΠ΄Π½ΠΎΠΉ строкой ΠΊΠΎΠ΄Π° VBA.

Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΠΎΠ΄ ΠΊΠΎΠΏΠΈΡ€ΡƒΠ΅Ρ‚ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ A1:B6 Π² A1 Π΄Ρ€ΡƒΠ³ΠΎΠ³ΠΎ листа.

  Sub CopyAndPaste()

Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A1:B6").ΠšΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ листы("Лист2").Range("A1")

End Sub  

Π£ вас ΠΌΠΎΠΆΠ΅Ρ‚ Π½Π΅ Π±Ρ‹Ρ‚ΡŒ ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° для вставки содСрТимого. Часто Π²Ρ‹ ΠΏΡ‹Ρ‚Π°Π΅Ρ‚Π΅ΡΡŒ Π΄ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ скопированныС Π΄Π°Π½Π½Ρ‹Π΅ Π² ΠΊΠΎΠ½Π΅Ρ† Π΄Ρ€ΡƒΠ³ΠΎΠ³ΠΎ списка.

Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ ΠΊΠΎΠΏΠΈΡ€ΡƒΠ΅Ρ‚ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌΡ‹ΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π²ΠΎΠΊΡ€ΡƒΠ³ ячСйки A2 ΠΈ вставляСт Π΅Π³ΠΎ Π² ΠΏΠ΅Ρ€Π²ΡƒΡŽ ΠΏΡƒΡΡ‚ΡƒΡŽ ячСйку Π²Π½ΠΈΠ·Ρƒ столбца A Π½Π° листС с ΠΈΠΌΠ΅Π½Π΅ΠΌ Archive.

  Sub CopyAndPaste()

Range("A2").CurrentRegion.Copy Worksheets("Архив").Range("A1").End(xlDown).Offset(1, 0)

ΠšΠΎΠ½Π΅Ρ† суб  

НаконСц, Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΡΠΏΠ΅Ρ†ΠΈΠ°Π»ΡŒΠ½Ρ‹Π΅ ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹ вставки, доступныС Π² Excel. Π§Ρ‚ΠΎΠ±Ρ‹ ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ ΠΊ Π½ΠΈΠΌ доступ Π² VBA, ΠΌΡ‹ Ρ€Π°Π·Π΄Π΅Π»ΠΈΠΌ ΠΎΠΏΠ΅Ρ€Π°Ρ†ΠΈΡŽ копирования ΠΈ вставки Π½Π° Π΄Π²Π° ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€Π°.

Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ ΠΌΠ΅Ρ‚ΠΎΠ΄ PasteSpecial Ρ‚ΠΎΠ»ΡŒΠΊΠΎ для вставки Π·Π½Π°Ρ‡Π΅Π½ΠΈΠΉ.

  Sub CopyAndPasteValues()

Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A1:B6").ΠšΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ
Π Π°Π±ΠΎΡ‡ΠΈΠ΅ листы ("Лист2"). Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1"). Π‘ΠΏΠ΅Ρ†ΠΈΠ°Π»ΡŒΠ½Π°Ρ вставка: = xlPasteValues

End Sub  
Π£Π΄Π°Π»ΠΈΡ‚ΡŒ всС гипСрссылки Π½Π° листС

Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΠΎΠ΄ макроса ΡƒΠ΄Π°Π»ΠΈΡ‚ всС гипСрссылки Π½Π° листС.

  Sub ClearHyperlinks()

ActiveSheet.ГипСрссылки.Π£Π΄Π°Π»ΠΈΡ‚ΡŒ

End Sub  
Π€ΠΎΡ€ΠΌΠ°Ρ‚ΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅ ячССк с Ρ„ΠΎΡ€ΠΌΡƒΠ»Π°ΠΌΠΈ

Π€ΠΎΡ€ΠΌΠ°Ρ‚ΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅ ячССк, содСрТащих Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹, ΡƒΠΏΡ€ΠΎΡ‰Π°Π΅Ρ‚ ΠΈΡ… ΠΈΠ΄Π΅Π½Ρ‚ΠΈΡ„ΠΈΠΊΠ°Ρ†ΠΈΡŽ Π½Π° листС. Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ макроса ΠΎΡ‚Ρ„ΠΎΡ€ΠΌΠ°Ρ‚ΠΈΡ€ΡƒΠ΅Ρ‚ ячСйки Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ ΠΆΠ΅Π»Ρ‚Ρ‹ΠΌ Ρ†Π²Π΅Ρ‚ΠΎΠΌ Π·Π°Π»ΠΈΠ²ΠΊΠΈ ( ColorIndex = 6 ).

Он ΠΎΠ±ΡŠΡΠ²Π»ΡΠ΅Ρ‚ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΡƒΡŽ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° с ΠΈΠΌΠ΅Π½Π΅ΠΌ rng ΠΈ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ Π΅Π³ΠΎ для ΠΏΠ΅Ρ€Π΅Π±ΠΎΡ€Π° ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ячСйки, содСрТащСй Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρƒ.

  ΠŸΠΎΠ΄Ρ„ΠΎΡ€ΠΌΠ°Ρ‚Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹()

Dim rng As Range

Для ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΊΠΎΠ»ΡŒΡ†Π° Π² Cells.SpecialCells(xlCellTypeFormulas)

rng.Interior.ColorIndex = 6

Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΡ€ΡƒΠ³

End Sub  
ΠŸΡ€Π΅ΠΎΠ±Ρ€Π°Π·ΠΎΠ²Π°Π½ΠΈΠ΅ Ρ„ΠΎΡ€ΠΌΡƒΠ» Π² значСния

Π”Ρ€ΡƒΠ³ΠΈΠΌ распространСнным дСйствиСм с Ρ„ΠΎΡ€ΠΌΡƒΠ»Π°ΠΌΠΈ являСтся ΠΏΡ€Π΅ΠΎΠ±Ρ€Π°Π·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΡ… Π² значСния. Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ VBA Π±ΡƒΠ΄Π΅Ρ‚ Π΄Π΅Π»Π°Ρ‚ΡŒ это для всСх Ρ„ΠΎΡ€ΠΌΡƒΠ» Π½Π° листС.

  Sub ConvertFormulastoValues()

Dim rng As Range

Для ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΊΠΎΠ»ΡŒΡ†Π° Π² Cells.SpecialCells(xlCellTypeFormulas)

rng.Formula = rng.Value

Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΡ€ΡƒΠ³

ΠšΠΎΠ½Π΅Ρ† суб  

ΠšΠΎΠ΄Ρ‹ Ρ€Π°Π±ΠΎΡ‡ΠΈΡ… листов

Π­Ρ‚ΠΈ ΠΊΠΎΠ΄Ρ‹ Π²Ρ‹ΠΏΠΎΠ»Π½ΡΡŽΡ‚ Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Ρ‚ΠΈΠΏΠΈΡ‡Π½Ρ‹Π΅ Π·Π°Π΄Π°Ρ‡ΠΈ Ρ€Π°Π±ΠΎΡ‡ΠΈΡ… листов.

ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ всС столбцы

Π‘ΠΊΡ€Ρ‹Ρ‚ΠΈΠ΅ столбцов позволяСт ΡƒΠΌΠ΅Π½ΡŒΡˆΠΈΡ‚ΡŒ бСспорядок Π½Π° листС ΠΈ Π·Π°Ρ‰ΠΈΡ‚ΠΈΡ‚ΡŒ Π΄Π°Π½Π½Ρ‹Π΅. Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ макроса ΠΏΠΎΠΊΠ°ΠΆΠ΅Ρ‚ всС скрытыС столбцы ΠΎΠ΄Π½ΠΈΠΌ Π½Π°ΠΆΠ°Ρ‚ΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ.

  Sub UnhideAllColumns()

Π‘Ρ‚ΠΎΠ»Π±Ρ†Ρ‹.EntireColumn.Hidden = Π›ΠΎΠΆΡŒ

End Sub  
Π—Π°Ρ‰ΠΈΡ‚Π° Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа

Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΠΎΠ΄ Π·Π°Ρ‰ΠΈΡ‚ΠΈΡ‚ Π°ΠΊΡ‚ΠΈΠ²Π½Ρ‹ΠΉ лист.

  Sub ProtectWS()

ActiveSheet.Protect

End Sub  

Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΏΠΎΠΉΡ‚ΠΈ дальшС ΠΈ Π½Π°Π·Π½Π°Ρ‡ΠΈΡ‚ΡŒ ΠΏΠ°Ρ€ΠΎΠ»ΡŒ ΠΈΠ»ΠΈ ΡƒΠΊΠ°Π·Π°Ρ‚ΡŒ Ρ€Π°Π·Ρ€Π΅ΡˆΠ΅Π½Π½Ρ‹Π΅ дСйствия. Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ макроса Π½Π°Π·Π½Π°Ρ‡Π°Π΅Ρ‚ ΠΏΠ°Ρ€ΠΎΠ»ΡŒ Excel ΠΈ позволяСт Π²ΡΡ‚Π°Π²Π»ΡΡ‚ΡŒ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ строки.

Если Π²Ρ‹ Ρ…ΠΎΡ€ΠΎΡˆΠΎ Π·Π½Π°Π΅Ρ‚Π΅ Π·Π°Ρ‰ΠΈΡ‚Ρƒ Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа, Π²Ρ‹ Π·Π½Π°Π΅Ρ‚Π΅, Ρ‡Ρ‚ΠΎ ΡΡƒΡ‰Π΅ΡΡ‚Π²ΡƒΡŽΡ‚ Ρ€Π°Π·Π»ΠΈΡ‡Π½Ρ‹Π΅ дСйствия, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Ρ€Π°Π·Ρ€Π΅ΡˆΠΈΡ‚ΡŒ ΠΈΠ»ΠΈ Π·Π°ΠΏΡ€Π΅Ρ‚ΠΈΡ‚ΡŒ. И ΠΌΡ‹ ΠΌΠΎΠΆΠ΅ΠΌ ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ это с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ нашСго ΠΊΠΎΠ΄Π° VBA.

  Sub ProtectWS()

ΠŸΠ°Ρ€ΠΎΠ»ΡŒ ActiveSheet.Protect: = Β«ExcelΒ», AllowInsertingRows: = True

ΠšΠΎΠ½Π΅Ρ† суб  

РаспространСнной ΠΏΡ€ΠΈΡ‡ΠΈΠ½ΠΎΠΉ Π·Π°Ρ‰ΠΈΡ‚Ρ‹ Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа являСтся Π·Π°Ρ‰ΠΈΡ‚Π° Ρ„ΠΎΡ€ΠΌΡƒΠ» ΠΎΡ‚ случайного поврСТдСния. Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ Π·Π°Ρ‰ΠΈΡ‚ΠΈΡ‚ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ ячСйки Π½Π° листС, содСрТащиС Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹.

Он начинаСтся со снятия Π·Π°Ρ‰ΠΈΡ‚Ρ‹ листа ΠΈ Ρ€Π°Π·Π±Π»ΠΎΠΊΠΈΡ€ΠΎΠ²ΠΊΠΈ всСх ячССк. Π—Π°Ρ‚Π΅ΠΌ ΠΎΠ½ Π±Π»ΠΎΠΊΠΈΡ€ΡƒΠ΅Ρ‚ Ρ‚Π΅, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ содСрТат Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹, ΠΏΠ΅Ρ€Π΅Π΄ ΠΏΡ€ΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ Π·Π°Ρ‰ΠΈΡ‚Ρ‹.

  Sub ProtectFormulas()

Π‘ ActiveSheet

.Π‘Π½ΡΡ‚ΡŒ Π·Π°Ρ‰ΠΈΡ‚Ρƒ
.Cells.Locked = Π›ΠΎΠΆΡŒ
.Cells.SpecialCells(xlCellTypeFormulas).Locked = Π˜ΡΡ‚ΠΈΠ½Π°
.Π—Π°Ρ‰ΠΈΡ‰Π°Ρ‚ΡŒ

ΠšΠΎΠ½Π΅Ρ† с

ΠšΠΎΠ½Π΅Ρ† суб  
Π¦ΠΈΠΊΠ» ΠΏΠΎ всСм листам Ρ€Π°Π±ΠΎΡ‡Π΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ

Π‘ΠΎΠ·Π΄Π°Ρ‚ΡŒ Ρ†ΠΈΠΊΠ» для выполнСния дСйствия Π½Π° всСх листах Ρ€Π°Π±ΠΎΡ‡Π΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ΠΎΡ‡Π΅Π½ΡŒ просто. Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π²ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ любоС дСйствиС, ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ΅ Π²Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ.

Π’ этом ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ ΠΌΡ‹ Π·Π°Ρ‰ΠΈΡ‰Π°Π΅ΠΌ листы. Π—Π°ΠΌΠ΅Π½ΠΈΡ‚Π΅ строку ws.Protect Π½Π° Π½ΡƒΠΆΠ½Ρ‹Π΅ Π²Π°ΠΌ дСйствия. Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΡƒΡŽ ws ΠΏΡ€ΠΈ ссылкС Π½Π° Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист.

  Sub LoopAllSheets()

Dim ws As Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист

Для ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws Π² ActiveWorkbook.Worksheets
ws.Protect
Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ мс

ΠšΠΎΠ½Π΅Ρ† суб  

ΠšΠΎΠ΄Ρ‹ Ρ€Π°Π±ΠΎΡ‡ΠΈΡ… ΠΊΠ½ΠΈΠ³

Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ ΠΊΠΎΠ΄Ρ‹ Π±ΡƒΠ΄ΡƒΡ‚ Π²Ρ‹ΠΏΠΎΠ»Π½ΡΡ‚ΡŒ Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΠΎΠ±Ρ‰ΠΈΠ΅ Π·Π°Π΄Π°Ρ‡ΠΈ Ρ€Π°Π±ΠΎΡ‡ΠΈΡ… ΠΊΠ½ΠΈΠ³.

ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ всС Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ листы

Π’ Excel ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Ρ‚ΡŒ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ ΠΎΠ΄ΠΈΠ½ Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист Π·Π° Ρ€Π°Π·. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±Ρ€Π°Π·ΠΎΠΌ, этот ΠΊΠΎΠ΄ ΠΏΠΎΠΊΠ°ΠΆΠ΅Ρ‚ всС Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ листы ΠΎΠ΄Π½ΠΈΠΌ Ρ‰Π΅Π»Ρ‡ΠΊΠΎΠΌ ΠΌΡ‹ΡˆΠΈ.

  Sub UnhideAllWorksheets()

Dim ws As Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист

Для ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws Π² ActiveWorkbook. Worksheets
ws.Visible = ΠΊΡΠ»ΡˆΠΈΡ‚Π²ΠΈΡΠΈΠ±Π»Π΅
Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ мс

End Sub  
Π—Π°Ρ‰ΠΈΡ‚Π° ΠΊΠ½ΠΈΠ³ΠΈ

Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΠΎΠ΄ Π·Π°Ρ‰ΠΈΡ‚ΠΈΡ‚ ΠΊΠ½ΠΈΠ³Ρƒ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΏΡ€Π΅Π΄ΠΎΡ‚Π²Ρ€Π°Ρ‚ΠΈΡ‚ΡŒ измСнСния структуры. Он устанавливаСт ΠΏΠ°Ρ€ΠΎΠ»ΡŒ, Π½ΠΎ это Π½Π΅ΠΎΠ±ΡΠ·Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎ ΠΈ ΠΌΠΎΠΆΠ΅Ρ‚ Π±Ρ‹Ρ‚ΡŒ ΠΈΡΠΊΠ»ΡŽΡ‡Π΅Π½ΠΎ.

  Sub ProtectWorkbook()

ΠŸΠ°Ρ€ΠΎΠ»ΡŒ ThisWorkbook.Protect: = "Excel"

End Sub  
ΠžΡ‚ΠΊΡ€Ρ‹Ρ‚ΠΈΠ΅ ΠΈ Π·Π°ΠΊΡ€Ρ‹Ρ‚ΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ

Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΠΎΠ΄ слСдуСт ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π΅ копирования Π΄Π°Π½Π½Ρ‹Ρ… ΠΈΠ· Ρ‚Π΅ΠΊΡƒΡ‰Π΅ΠΉ Π°ΠΊΡ‚ΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Π² ΠΊΠ½ΠΈΠ³Ρƒ с ΠΈΠΌΠ΅Π½Π΅ΠΌ North .

ΠŸΡ€ΠΈΡΠ²Π°ΠΈΠ²Π°Π΅Ρ‚ Π°ΠΊΡ‚ΠΈΠ²Π½ΡƒΡŽ ΠΊΠ½ΠΈΠ³Ρƒ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ, Π·Π°Ρ‚Π΅ΠΌ ΠΎΡ‚ΠΊΡ€Ρ‹Π²Π°Π΅Ρ‚ БСвСрная рабочая ΠΊΠ½ΠΈΠ³Π° , Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΡΠΊΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Π² Π½Π΅Π΅ Π΄Π°Π½Π½Ρ‹Π΅ ΠΈΠ· Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° A1:C250. Π—Π°Ρ‚Π΅ΠΌ эта рабочая ΠΊΠ½ΠΈΠ³Π° сохраняСтся ΠΈ закрываСтся.

БущСствуСт мноТСство ΠΌΠ΅Ρ‚ΠΎΠ΄ΠΎΠ² обращСния ΠΊ ΠΊΠ½ΠΈΠ³Π°ΠΌ, ΠΈ Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΠΈΠ· Π½ΠΈΡ… Π΄Π΅ΠΌΠΎΠ½ΡΡ‚Ρ€ΠΈΡ€ΡƒΡŽΡ‚ΡΡ Π² этом нСбольшом ΠΊΠΎΠ΄Π΅.

  Sub OpenCloseWorkbooks()

Dim wbk ΠΊΠ°ΠΊ рабочая ΠΊΠ½ΠΈΠ³Π°
УстановитС wbk = ActiveWorkbook

Workbooks.Open "C:\Users\Admin\OneDrive\Desktop\Sales\North.xlsx"
wbk. Sheets("Лист1").Range("A1:C250").НазначСниС копирования:=Range("A1")

ActiveWorkbook.Close SaveChanges:=True

ΠšΠΎΠ½Π΅Ρ† суб  
ЭлСктронная ΠΏΠΎΡ‡Ρ‚Π° Π°ΠΊΡ‚ΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Outlook

Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΠΎΠ΄ VBA создаСт Π½ΠΎΠ²ΠΎΠ΅ элСктронноС письмо Π² Microsoft Outlook с Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½Ρ‹ΠΌ адрСсом элСктронной ΠΏΠΎΡ‡Ρ‚Ρ‹ получатСля, строкой Ρ‚Π΅ΠΌΡ‹ ΠΈ основным тСкстом. Активная рабочая ΠΊΠ½ΠΈΠ³Π° Π±ΡƒΠ΄Π΅Ρ‚ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½Π° ​​как Π²Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅.

ЭлСктронная ΠΏΠΎΡ‡Ρ‚Π° отобраТаСтся, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π΅Π΅ ΠΌΠΎΠΆΠ½ΠΎ Π±Ρ‹Π»ΠΎ ΠΏΡ€ΠΎΠ²Π΅Ρ€ΠΈΡ‚ΡŒ ΠΈ внСсти измСнСния ΠΏΠ΅Ρ€Π΅Π΄ ΠΎΡ‚ΠΏΡ€Π°Π²ΠΊΠΎΠΉ. Π˜Π·ΠΌΠ΅Π½ΠΈΡ‚Π΅ .display Π½Π° .send , Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΎΡ‚ΠΏΡ€Π°Π²ΠΈΡ‚ΡŒ ΠΏΡ€ΠΈΠΊΡ€Π΅ΠΏΠ»Π΅Π½Π½ΡƒΡŽ ΠΊΠ½ΠΈΠ³Ρƒ ΠΏΠΎ элСктронной ΠΏΠΎΡ‡Ρ‚Π΅ ΠΎΠ΄Π½ΠΈΠΌ Ρ‰Π΅Π»Ρ‡ΠΊΠΎΠΌ ΠΌΡ‹ΡˆΠΈ.

  Π‘ΡƒΠ±Π°Ρ‚Ρ‚Π°Ρ‡Ρ‚ΠΎΠ΅ΠΌΠ°ΠΈΠ»()

Dim OutApp ΠΊΠ°ΠΊ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚
Π—Π°Ρ‚Π΅ΠΌΠ½ΠΈΡ‚ΡŒ OutMail ΠΊΠ°ΠΊ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚
УстановитС OutApp = CreateObject("Outlook.Application")
Π£ΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ OutMail = OutApp.CreateItem(0)

Π‘ исходящСй ΠΏΠΎΡ‡Ρ‚ΠΎΠΉ
.to = "[email protected]"
.Subject = "ВСликолСпная элСктронная Ρ‚Π°Π±Π»ΠΈΡ†Π°"
.Body = "ЗдравствуйтС! НадСюсь, Π²Π°ΠΌ понравится вСликолСпная Ρ‚Π°Π±Π»ΠΈΡ†Π°, прикрСплСнная ΠΊ этому ΠΏΠΈΡΡŒΠΌΡƒ. "
.Attachments.Add ActiveWorkbook.FullName
.ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Ρ‚ΡŒ
ΠšΠΎΠ½Π΅Ρ† с

УстановитС OutMail = НичСго
Π£ΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ OutApp = НичСго

ΠšΠΎΠ½Π΅Ρ† суб  

Π€Π°ΠΉΠ»Ρ‹ ΠΈ ΠΏΠ°ΠΏΠΊΠΈ

ИспользованиС VBA для Π°Π²Ρ‚ΠΎΠΌΠ°Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ Ρ€Π°Π±ΠΎΡ‚Ρ‹ с Ρ„Π°ΠΉΠ»Π°ΠΌΠΈ ΠΈ ΠΏΠ°ΠΏΠΊΠ°ΠΌΠΈ Π²ΠΎ врСмя процСсса ΠΎΡ‡Π΅Π½ΡŒ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ.

Экспорт ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа Π² Π²ΠΈΠ΄Π΅ ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½ΠΎΠ³ΠΎ PDF-Ρ„Π°ΠΉΠ»Π°

Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ экспортируСт всС Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ листы Π² ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½Ρ‹ΠΉ PDF-Ρ„Π°ΠΉΠ». Имя листа ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ Π² качСствС ΠΈΠΌΠ΅Π½ΠΈ Ρ„Π°ΠΉΠ»Π° PDF, ΠΈ ΠΎΠ½ΠΈ ΡΠΎΡ…Ρ€Π°Π½ΡΡŽΡ‚ΡΡ Π² ΠΏΠ°ΠΏΠΊΡƒ, Π½Π°Π·Π½Π°Ρ‡Π΅Π½Π½ΡƒΡŽ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ FolderPath . ΠŸΡ€ΠΎΡΡ‚ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚Π΅ этот ΠΏΡƒΡ‚ΡŒ Π½Π° Ρ‚ΠΎ, Ρ‡Ρ‚ΠΎ Π²Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ.

  Sub ExportAsPDF()

Dim FolderPath ΠΊΠ°ΠΊ строка
Dim ws As Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист

FolderPath = "C:\Users\Computergaga\Desktop\Sales"

Для ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws Π² ActiveWorkbook.Worksheets

ws.ExportAsFixedFormat Π’ΠΈΠΏ: = xlTypePDF, имя Ρ„Π°ΠΉΠ»Π°: = FolderPath & "\" &
ws.Name, openafterpublish:=False

Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ

MsgBox "ВсС Ρ„Π°ΠΉΠ»Ρ‹ PDF ΡƒΡΠΏΠ΅ΡˆΠ½ΠΎ экспортированы."

ΠšΠΎΠ½Π΅Ρ† суб  
Экспорт Π°ΠΊΡ‚ΠΈΠ²Π½ΠΎΠ³ΠΎ листа Π² Ρ„ΠΎΡ€ΠΌΠ°Ρ‚Π΅ PDF

Если Π²Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ ΡΠΊΡΠΏΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Π°ΠΊΡ‚ΠΈΠ²Π½Ρ‹ΠΉ Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист, ΠΏΠΎΡ‚Ρ€Π΅Π±ΡƒΡŽΡ‚ΡΡ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ нСсколько строк ΠΊΠΎΠ΄Π°.

  Sub ExportAsPDF()

FolderPath = "C:\Users\Computergaga\Desktop\Sales"

ActiveSheet.ExportAsFixedFormat Π’ΠΈΠΏ:=xlTypePDF, имя Ρ„Π°ΠΉΠ»Π°:=FolderPath & "\" &
Activesheet.Name, openafterpublish:=False

End Sub  
Экспорт Π½Π΅ΡΠΊΠΎΠ»ΡŒΠΊΠΈΡ… листов Π² ΠΎΠ΄ΠΈΠ½ PDF-Ρ„Π°ΠΉΠ»

Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΡΠΊΡΠΏΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ листы Π² ΠΎΠ΄ΠΈΠ½ Ρ„Π°ΠΉΠ» PDF. Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ экспортируСт Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ листы с ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ London ΠΈ Berlin Π² ΠΎΠ΄ΠΈΠ½ Ρ„Π°ΠΉΠ» PDF.

Π’ этом ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ Π½Π° листы ΡΡΡ‹Π»Π°ΡŽΡ‚ΡΡ ΠΏΠΎ ΠΈΡ… ΠΈΠΌΠ΅Π½ΠΈ, Π½ΠΎ Π²Ρ‹ Ρ‚Π°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΡΡΡ‹Π»Π°Ρ‚ΡŒΡΡ Π½Π° Π½ΠΈΡ…, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΡ ΠΈΡ… порядковый Π½ΠΎΠΌΠ΅Ρ€. НапримСр, листов (массив (3, 6)). Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅

.
  Sub ExportAsPDF()

Dim FolderPath ΠΊΠ°ΠΊ строка

FolderPath = "C:\Users\Trainee1\Desktop\PDFs"

Листы(Массив("Π›ΠΎΠ½Π΄ΠΎΠ½", "Π‘Π΅Ρ€Π»ΠΈΠ½")).Π’Ρ‹Π±Ρ€Π°Ρ‚ΡŒ
ActiveSheet.ExportAsFixedFormat Π’ΠΈΠΏ:=xlTypePDF, Имя Ρ„Π°ΠΉΠ»Π°:=FolderPath & "\Sales", openafterpublish:=False, ignoreprintareas:=False

MsgBox "ВсС Ρ„Π°ΠΉΠ»Ρ‹ PDF ΡƒΡΠΏΠ΅ΡˆΠ½ΠΎ экспортированы."

ΠšΠΎΠ½Π΅Ρ† суб  
ЦикличСский просмотр всСх Ρ„Π°ΠΉΠ»ΠΎΠ² ΠΏΠ°ΠΏΠΊΠΈ

Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΠΎΠ΄ VBA Π±ΡƒΠ΄Π΅Ρ‚ Π²Ρ‹ΠΏΠΎΠ»Π½ΡΡ‚ΡŒ цикличСский просмотр ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Ρ„Π°ΠΉΠ»Π° Π² ΠΏΠ°ΠΏΠΊΠ΅ Sales Π½Π° Ρ€Π°Π±ΠΎΡ‡Π΅ΠΌ столС.

ΠšΠ°ΠΆΠ΄Ρ‹ΠΉ Ρ„Π°ΠΉΠ» открываСтся, число 20 вводится Π² ячСйку A1 Листа 1, Π·Π°Ρ‚Π΅ΠΌ сохраняСтся ΠΈ закрываСтся. Π­Ρ‚ΠΎ простая опСрация, Π½ΠΎ этот ΠΊΠΎΠ΄ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΌΠ΅Π½ΠΈΡ‚ΡŒ Π»ΡŽΠ±Ρ‹ΠΌΠΈ дСйствиями, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ с ΠΊΠ°ΠΆΠ΄Ρ‹ΠΌ Ρ„Π°ΠΉΠ»ΠΎΠΌ Π² ΠΏΠ°ΠΏΠΊΠ΅.

Для этого процСсса ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ функция Dir . ΠŸΠ΅Ρ€Π²Ρ‹ΠΉ экзСмпляр Dir β€” это ΠΊΠΎΠ³Π΄Π° ΡƒΠΊΠ°Π·Π°Π½ ΠΏΡƒΡ‚ΡŒ ΠΊ Ρ„Π°ΠΉΠ»Ρƒ. Он Π·Π°Ρ…Π²Π°Ρ‚Ρ‹Π²Π°Π΅Ρ‚ имя Ρ„Π°ΠΉΠ»Π° ΠΏΠ΅Ρ€Π²ΠΎΠ³ΠΎ Ρ„Π°ΠΉΠ»Π° Π² ΠΏΠ°ΠΏΠΊΠ΅.

Π—Π°Ρ‚Π΅ΠΌ ΠΎΠ½ снова ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ Π² ΠΊΠΎΠ½Ρ†Π΅ Ρ†ΠΈΠΊΠ»Π° для Π·Π°Ρ…Π²Π°Ρ‚Π° ΠΈΠΌΠ΅Π½ΠΈ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰Π΅Π³ΠΎ Ρ„Π°ΠΉΠ»Π°.

  Sub LoopAllFiles()

Dim fileName ΠΊΠ°ΠΊ Π²Π°Ρ€ΠΈΠ°Π½Ρ‚
fileName = Dir("C:\Users\admin\OneDrive\Desktop\Sales\")

Π”Π΅Π»Π°Ρ‚ΡŒ, ΠΏΠΎΠΊΠ° имя_Ρ„Π°ΠΉΠ»Π° <> ""

    Workbooks.ΠžΡ‚ΠΊΡ€Ρ‹Ρ‚ΡŒ имя Ρ„Π°ΠΉΠ»Π°
    Π Π°Π±ΠΎΡ‡ΠΈΠ΅ листы ("Лист1"). Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("А1"). Π—Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ = 20
    ActiveWorkbook.Close savechanges:=True

    имя_Ρ„Π°ΠΉΠ»Π° = ΠšΠ°Ρ‚Π°Π»ΠΎΠ³

ΠŸΠ΅Ρ‚Π»Ρ

ΠšΠΎΠ½Π΅Ρ‡Π½Ρ‹ΠΉ ΠΏΠ΅Ρ€Π΅Ρ…ΠΎΠ΄Π½ΠΈΠΊ  

Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π·Π°Ρ†ΠΈΠΊΠ»ΠΈΠ²Π°Ρ‚ΡŒΡΡ Π½Π° ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½Ρ‹Ρ… Ρ„Π°ΠΉΠ»Π°Ρ… Ρ‚ΠΎΠ»ΡŒΠΊΠΎ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ подстановочных Π·Π½Π°ΠΊΠΎΠ². ΠŸΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½Ρ‹ΠΉ Π½ΠΈΠΆΠ΅ ΠΊΠΎΠ΄ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ для Π·Π°ΠΌΠ΅Π½Ρ‹ ΠΏΠ΅Ρ€Π²ΠΎΠ³ΠΎ экзСмпляра Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Dir ΠΈ Ρ†ΠΈΠΊΠ»Π° Ρ‚ΠΎΠ»ΡŒΠΊΠΎ для Ρ„Π°ΠΉΠ»ΠΎΠ² . xlsx.

  имя_Ρ„Π°ΠΉΠ»Π° = Dir("C:\Users\admin\OneDrive\Desktop\Sales\*.xlsx")  
Π’Ρ‹Π±ΠΎΡ€ Ρ„Π°ΠΉΠ»Π° с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° FileDialog

ΠŸΡ€ΠΈ Ρ€Π°Π±ΠΎΡ‚Π΅ с Ρ„Π°ΠΉΠ»Π°ΠΌΠΈ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ FileDialog Π² Excel VBA ΠΎΡ‡Π΅Π½ΡŒ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ. Π­Ρ‚ΠΎ срСда, с ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒ ΠΌΠ³Π½ΠΎΠ²Π΅Π½Π½ΠΎ знакомится.

Π‘ΡƒΡ‰Π΅ΡΡ‚Π²ΡƒΡŽΡ‚ FileDialogs для открытия Ρ„Π°ΠΉΠ»Π°, сохранСния, Π²Ρ‹Π±ΠΎΡ€Π° ΠΈ Π²Ρ‹Π±ΠΎΡ€Π° ΠΏΠ°ΠΏΠΊΠΈ. Π’ этом ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚Ρ‹ΠΉ Π΄ΠΈΠ°Π»ΠΎΠ³. Π­Ρ‚ΠΎ извСстно ΠΊΠ°ΠΊ мсофилСдиалогопСн .

Π­Ρ‚ΠΎ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ Π²Π²ΠΎΠ΄ΠΈΡ‚ Π² Π·Π°Π±Π»ΡƒΠΆΠ΄Π΅Π½ΠΈΠ΅, ΠΏΠΎΡ‚ΠΎΠΌΡƒ Ρ‡Ρ‚ΠΎ Π΄ΠΈΠ°Π»ΠΎΠ³ фактичСски Π½Π΅ ΠΎΡ‚ΠΊΡ€Ρ‹Π²Π°Π΅Ρ‚ Ρ„Π°ΠΉΠ». Π­Ρ‚ΠΎ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ обСспСчиваСт срСду, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π½Π°ΠΉΡ‚ΠΈ ΠΈ Π²Ρ‹Π±Ρ€Π°Ρ‚ΡŒ Π΅Π³ΠΎ Π»Π΅Π³ΠΊΠΎ. Π—Π°Ρ‚Π΅ΠΌ Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π΄Π΅Π»Π°Ρ‚ΡŒ с Π½ΠΈΠΌ Π»ΡŽΠ±Ρ‹Π΅ дСйствия.

Π’ этом ΠΊΠΎΠ΄Π΅ VBA ΠΌΠ°Π½ΠΈΠΏΡƒΠ»ΠΈΡ€ΡƒΡŽΡ‚ΡΡ Ρ€Π°Π·Π»ΠΈΡ‡Π½Ρ‹ΠΌΠΈ свойствами FileDialog, поэтому ΠΎΠ½ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ с конструкциСй With .

Выбранная рабочая ΠΊΠ½ΠΈΠ³Π° открываСтся, ΠΈ число 20 записываСтся Π² ячСйку A1. Π•Ρ‰Π΅ Ρ€Π°Π· ΠΎΠ±Ρ€Π°Π·Π΅Ρ† дСйствия, ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ΅ Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π·Π°ΠΌΠ΅Π½ΠΈΡ‚ΡŒ Ρ‡Π΅ΠΌ ΡƒΠ³ΠΎΠ΄Π½ΠΎ.

  Sub ИспользованиС FileDialog()

Dim имя Ρ„Π°ΠΉΠ»Π° ΠΊΠ°ΠΊ строка

Π‘ Application. FileDialog(msoFileDialogOpen)
.AllowMultiSelect = Π›ΠΎΠΆΡŒ
.Title = "Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΊΠ½ΠΈΠ³Ρƒ для использования"
.ΠŸΠΎΠΊΠ°Π·Ρ‹Π²Π°Ρ‚ΡŒ
Имя Ρ„Π°ΠΉΠ»Π° = .SelectedItems(1)
ΠšΠΎΠ½Π΅Ρ† с

Workbooks.Open имя Ρ„Π°ΠΉΠ»Π°
Π Π°Π±ΠΎΡ‡ΠΈΠ΅ листы ("Лист1"). Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("А1"). Π—Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ = 20
ActiveWorkbook.Close SaveChanges:=True

MsgBox "Книга обновлСна"

End Sub  

ΠŸΠΎΠ»Π΅Π·Π½Ρ‹Π΅ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Excel

Π­Ρ‚ΠΈ ΠΊΠΎΠ΄Ρ‹ VBA упростят использованиС Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Ρ… Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ»Π΅Π·Π½Ρ‹Ρ… Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ Excel.

Π‘ΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²ΠΊΠ° столбцов

Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΠΎΠ΄ сортируСт Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ A1:K250 ΠΏΠΎ ΠΎΠ΄Π½ΠΎΠΌΡƒ столбцу. ΠŸΡ€Π΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅Ρ‚ΡΡ, Ρ‡Ρ‚ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΠΈΠΌΠ΅Π΅Ρ‚ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΈ Π² ΠΏΠ΅Ρ€Π²ΠΎΠΉ строкС.

АргумСнт Key1 ΡƒΠΊΠ°Π·Ρ‹Π²Π°Π΅Ρ‚ столбСц для сортировки. Π’ этом ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚Ρƒ присвоСно Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ C1, поэтому Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ сортируСтся ΠΏΠΎ столбцу C Π² порядкС убывания.

  Sub SortSingleColumn()

Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1: K250"). ΠšΠ»ΡŽΡ‡ сортировки 1: = Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("C1"), Order1: = xlDescending

ΠšΠΎΠ½Π΅Ρ† суб  

Π’ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰Π΅ΠΌ ΠΊΠΎΠ΄Π΅ макроса ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ΅ имя ΠŸΡ€ΠΎΠ΄Π°ΠΆΠΈ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ Π² качСствС Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° для сортировки. ΠžΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ΅ имя Π½Π΅ Π²ΠΊΠ»ΡŽΡ‡Π°Π΅Ρ‚ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΈ.

На этот Ρ€Π°Π· Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ отсортирован ΠΏΠΎ столбцу B Π² порядкС возрастания.

  Sub SortSingleColumn()

Range("ΠŸΡ€ΠΎΠ΄Π°ΠΆΠΈ").Sort Key1:=Range("B1"), Order1:=xlAscending

End Sub  

Π”ΠΎΠΏΠΎΠ»Π½ΠΈΡ‚Π΅Π»ΡŒΠ½Ρ‹Π΅ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚Ρ‹ Key ΠΈ Order ΠΌΠΎΠ³ΡƒΡ‚ Π±Ρ‹Ρ‚ΡŒ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½Ρ‹ для сортировки ΠΏΠΎ нСскольким столбцам.

Π’ этом ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ Π·Π°Π΄Π°Π½Π½ΠΎΠ΅ имя 9Π’ качСствС Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° использовался 0089 ΠŸΡ€ΠΎΠ΄Π°ΠΆΠΈ . Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ сортируСтся сначала ΠΏΠΎ столбцу D Π² порядкС возрастания, Π° Π·Π°Ρ‚Π΅ΠΌ ΠΏΠΎ столбцу J Π² порядкС убывания.

  Sub SortMultipleColumns()

Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("ΠŸΡ€ΠΎΠ΄Π°ΠΆΠΈ"). Π‘ΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²ΠΊΠ° Key1: = Range ("D1"), Order1: = xlAscending, Key2: = Range ("J1"), Order2: = xlDescending

End Sub  

НаконСц, Ссли ваши Π΄Π°Π½Π½Ρ‹Π΅ ΠΎΡ‚Ρ„ΠΎΡ€ΠΌΠ°Ρ‚ΠΈΡ€ΠΎΠ²Π°Π½Ρ‹ Π² Π²ΠΈΠ΄Π΅ Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹, ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΠΎΠ΄ VBA.

Π’ этом ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ Ρ‚Π°Π±Π»ΠΈΡ†Π° называСтся ΠŸΡ€ΠΎΠ΄Π°ΠΆΠΈ ΠΈ Ρ‚Π°Π±Π»ΠΈΡ†Π° отсортирована ΠΏΠΎ полю Π‘Ρ‚Ρ€Π°Π½Π° Π² порядкС возрастания.

  ΠŸΠΎΠ΄Ρ‚Π°Π±Π»ΠΈΡ†Π° сортировки()

Π‘ ActiveSheet. ListObjects("ΠŸΡ€ΠΎΠ΄Π°ΠΆΠΈ").Sort
   .SortFields.Clear
   .SortFields.Add Key:=Range("Sales[Country]"), Order:=xlAscending
   .ΠŸΡ€ΠΈΠΌΠ΅Π½ΡΡ‚ΡŒ
ΠšΠΎΠ½Π΅Ρ† с

End Sub  
Π€ΠΈΠ»ΡŒΡ‚Ρ€ΡƒΠΉΡ‚Π΅ Π΄Π°Π½Π½Ρ‹Π΅

Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΠΎΠ΄ макроса ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ для Π²ΠΊΠ»ΡŽΡ‡Π΅Π½ΠΈΡ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Π°Π²Ρ‚ΠΎΡ„ΠΈΠ»ΡŒΡ‚Ρ€Π°. Он примСняСтся ΠΊ Π°ΠΊΡ‚ΠΈΠ²Π½ΠΎΠΌΡƒ Ρ€Π°Π±ΠΎΡ‡Π΅ΠΌΡƒ листу ΠΈ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ Ρ‚Π΅ΠΊΡƒΡ‰ΡƒΡŽ ΠΎΠ±Π»Π°ΡΡ‚ΡŒ для Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° A1.

  Sub TurnFilterOn()

Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A1").ΠΠ²Ρ‚ΠΎΠ€ΠΈΠ»ΡŒΡ‚Ρ€

ΠšΠΎΠ½Π΅Ρ† суб  

Π§Ρ‚ΠΎΠ±Ρ‹ ΠΎΡ‚ΠΊΠ»ΡŽΡ‡ΠΈΡ‚ΡŒ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΡŽ Π°Π²Ρ‚ΠΎΡ„ΠΈΠ»ΡŒΡ‚Ρ€Π°, Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ этот ΠΊΠΎΠ΄.

  Sub TurnFilterOff()

ActiveSheet.AutoFilterMode = Π›ΠΎΠΆΡŒ

End Sub  

Π’ этом ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ Ρ„ΠΈΠ»ΡŒΡ‚Ρ€ примСняСтся ΠΊ столбцу DΒ ( Field:=4 ), Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΎΡ‚ΠΎΠ±Ρ€Π°Π·ΠΈΡ‚ΡŒ записи Ρ‚ΠΎΠ»ΡŒΠΊΠΎ для Π”Π°Π½ΠΈΠΈ.

  Sub FilterByText ()

Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1"). ПолС Π°Π²Ρ‚ΠΎΡ„ΠΈΠ»ΡŒΡ‚Ρ€Π°: = 4, Criteria1: = "Дания"

End Sub  

Для Ρ„ΠΈΠ»ΡŒΡ‚Ρ€Π°Ρ†ΠΈΠΈ ΠΏΠΎ Π±ΠΎΠ»Π΅Π΅ Ρ‡Π΅ΠΌ ΠΎΠ΄Π½ΠΎΠΌΡƒ тСкстовому Π·Π½Π°Ρ‡Π΅Π½ΠΈΡŽ 9МоТно ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€ 0089 xl ΠΈΠ»ΠΈ . Π—Π΄Π΅ΡΡŒ Π΄Π°Π½Π½Ρ‹Π΅ Ρ„ΠΈΠ»ΡŒΡ‚Ρ€ΡƒΡŽΡ‚ΡΡ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΏΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ строки для Π”Π°Π½ΠΈΠΈ ΠΈ Π’Π΅Π»ΠΈΠΊΠΎΠ±Ρ€ΠΈΡ‚Π°Π½ΠΈΠΈ.

  Sub FilterByText ()

Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1"). ПолС Π°Π²Ρ‚ΠΎΡ„ΠΈΠ»ΡŒΡ‚Ρ€Π°: = 4, ΠΊΡ€ΠΈΡ‚Π΅Ρ€ΠΈΠΈ 1: = "Дания", ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€: = xlOr, ΠΊΡ€ΠΈΡ‚Π΅Ρ€ΠΈΠΈ 2: = "ВСликобритания"

End Sub  

БущСствуСт мноТСство доступных для использования ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€ΠΎΠ², Ρ‚Π°ΠΊΠΈΡ… ΠΊΠ°ΠΊ xlFilterIcon ΠΈ xlTop10Items .

Для Ρ„ΠΈΠ»ΡŒΡ‚Ρ€Π°Ρ†ΠΈΠΈ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ чисСл ΡƒΠ±Π΅Π΄ΠΈΡ‚Π΅ΡΡŒ, Ρ‡Ρ‚ΠΎ Π²Ρ‹ Π²Π²ΠΎΠ΄ΠΈΡ‚Π΅ логичСскиС ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€Ρ‹ Π² строку ΠΊΡ€ΠΈΡ‚Π΅Ρ€ΠΈΠ΅Π². ΠŸΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½Ρ‹ΠΉ Π½ΠΈΠΆΠ΅ ΠΊΠΎΠ΄ Ρ„ΠΈΠ»ΡŒΡ‚Ρ€ΡƒΠ΅Ρ‚ столбСц H, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Π»ΠΈΡΡŒ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Ρ‚Π΅ строки, Π² ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Ρ… число большС 5 ΠΈ мСньшС 20.

  Sub FilterByNumber()

Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1"). ПолС Π°Π²Ρ‚ΠΎΡ„ΠΈΠ»ΡŒΡ‚Ρ€Π°: = 8, Criteria1: = "> 5", ΠžΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€: = xlAnd, Criteria2: = "<20"

End Sub  

Π’ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰Π΅ΠΌ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ список Ρ„ΠΈΠ»ΡŒΡ‚Ρ€ΡƒΠ΅Ρ‚ΡΡ ΠΏΠΎ нСскольким столбцам. Он Ρ„ΠΈΠ»ΡŒΡ‚Ρ€ΡƒΠ΅Ρ‚ столбСц D Ρ‚ΠΎΠ»ΡŒΠΊΠΎ для Π”Π°Π½ΠΈΠΈ ΠΈ столбСц H для чисСл большС 5 ΠΈ мСньшС 20.

  Sub FilterByTwoColumns()

Π‘ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠΌ ("A1")

ПолС .AutoFilter:=4, Criteria1:="Дания"
ПолС .AutoFilter:=8, Criteria1:=">5", ΠžΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€:=xlAnd, Criteria2:="<20"

ΠšΠΎΠ½Π΅Ρ† с

ΠšΠΎΠ½Π΅Ρ† суб  

Π§Ρ‚ΠΎΠ±Ρ‹ ΠΎΡ‡ΠΈΡΡ‚ΠΈΡ‚ΡŒ всС ΠΏΡ€ΠΈΠΌΠ΅Π½Π΅Π½Π½Ρ‹Π΅ Ρ„ΠΈΠ»ΡŒΡ‚Ρ€Ρ‹ ΠΈ ΠΏΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ всС Π΄Π°Π½Π½Ρ‹Π΅, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΠΎΠ΄. Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ сначала провСряСт, Π±Ρ‹Π»ΠΈ Π»ΠΈ ΠΏΡ€ΠΈΠΌΠ΅Π½Π΅Π½Ρ‹ ΠΊΠ°ΠΊΠΈΠ΅-Π»ΠΈΠ±ΠΎ Ρ„ΠΈΠ»ΡŒΡ‚Ρ€Ρ‹, ΠΈ, Ссли Π΄Π°, ΠΎΡ‡ΠΈΡ‰Π°Π΅Ρ‚ ΠΈΡ…, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΎΡ‚ΠΎΠ±Ρ€Π°Π·ΠΈΡ‚ΡŒ всС Π΄Π°Π½Π½Ρ‹Π΅.

  Sub ClearFilters()

Если ActiveSheet.FilterMode = True Π’ΠΎΠ³Π΄Π°

ActiveSheet.ShowAllData

ΠšΠΎΠ½Π΅Ρ†, Ссли

End Sub  

ΠΠ²Ρ‚ΠΎΡ„ΠΈΠ»ΡŒΡ‚Ρ€ β€” Π½Π΅ СдинствСнный Ρ„ΠΈΠ»ΡŒΡ‚Ρ€ Π² Excel. Π£Π·Π½Π°ΠΉΡ‚Π΅, ΠΊΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Ρ€Π°ΡΡˆΠΈΡ€Π΅Π½Π½Ρ‹ΠΉ Ρ„ΠΈΠ»ΡŒΡ‚Ρ€ с VBA Π² Excel.

Π‘ΠΎΠ·Π΄Π°Ρ‚ΡŒ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ

Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Excel VBA для создания Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌ ΠΎΠ΄Π½ΠΈΠΌ Π½Π°ΠΆΠ°Ρ‚ΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ.

Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ VBA создаст ΡΡ‚ΠΎΠ»Π±Ρ‡Π°Ρ‚ΡƒΡŽ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ (Ρ‚ΠΈΠΏ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹ ΠΏΠΎ ΡƒΠΌΠΎΠ»Ρ‡Π°Π½ΠΈΡŽ) ΠΈΠ· Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° C3:D8. Он ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΡƒΡŽ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Π° Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹, поэтому ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹ Π·Π°Π΄Π°ΡŽΡ‚ΡΡ для Ρ€Π°Π·ΠΌΠ΅Ρ€Π° ΠΈ полоТСния области Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹. Π—Π°Ρ‚Π΅ΠΌ Π΄Π°Π½Π½Ρ‹Π΅ ΡƒΡΡ‚Π°Π½Π°Π²Π»ΠΈΠ²Π°ΡŽΡ‚ΡΡ для Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹.

  ΠŸΠΎΠ΄ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° CreateChart()

Π—Π°Ρ‚Π΅ΠΌΠ½Π΅Π½ΠΈΠ΅ MChart ΠΊΠ°ΠΊ ChartObject

УстановитС MyChart = ActiveSheet.ChartObjects.Add (Π’Π΅Ρ€Ρ…: = 50, Π‘Π»Π΅Π²Π°: = 100, Π¨ΠΈΡ€ΠΈΠ½Π°: = 450, Высота: = 250)
Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ MyChart.Chart.SetSourceData("C3:D8")

ΠšΠΎΠ½Π΅Ρ† суб  

Π’ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, Π²Ρ‹ Π·Π°Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Π΄Ρ€ΡƒΠ³ΠΎΠΉ Ρ‚ΠΈΠΏ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹, поэтому этот ΠΊΠΎΠ΄ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ Π½Π° Π»ΠΈΠ½Π΅ΠΉΠ½ΡƒΡŽ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡƒ. По ΠΌΠ΅Ρ€Π΅ Π²Π²ΠΎΠ΄Π° Π±ΡƒΠ΄Π΅Ρ‚ ΠΏΠΎΡΠ²Π»ΡΡ‚ΡŒΡΡ список всСх Ρ‚ΠΈΠΏΠΎΠ² Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌ.

  Sub ChangeChartType()

Dim MyChart ΠΊΠ°ΠΊ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΠ°
Π£ΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ MyChart = ActiveSheet.ChartObjects(1).Chart

MyChart.Chart.ChartType = xlLine

End Sub  

НаконСц, Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π΄ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ ΠΈΠ»ΠΈ ΡƒΠ΄Π°Π»ΠΈΡ‚ΡŒ элСмСнты Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹. Π­Ρ‚ΠΎΡ‚ ΠΊΠΎΠ΄ добавляСт Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹, Π° Ρ‚Π°ΠΊΠΆΠ΅ ΠΌΠ΅Ρ‚ΠΊΠΈ Π΄Π°Π½Π½Ρ‹Ρ….

ΠŸΡ€ΠΈ использовании ΠΌΠ΅Ρ‚ΠΎΠ΄Π° SetElement появится список элСмСнтов Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹. Π’Π°ΠΆΠ½ΠΎ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π²Ρ‹ Π²Ρ‹Π±Ρ€Π°Π»ΠΈ Ρ‚ΠΎΡ‚, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ Π±ΡƒΠ΄Π΅Ρ‚ Ρ€Π°Π±ΠΎΡ‚Π°Ρ‚ΡŒ с вашим Ρ‚ΠΈΠΏΠΎΠΌ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΡ‹. msoElementDataLabelOutSideEnd , ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌΡ‹ΠΉ Π² этом ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅, Ρ€Π°Π±ΠΎΡ‚Π°Π΅Ρ‚ с гистограммами, Π½ΠΎ Π½Π΅ с Π»ΠΈΠ½Π΅ΠΉΠ½Ρ‹ΠΌΠΈ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΠ°ΠΌΠΈ, поэтому это ΠΌΠΎΠΆΠ΅Ρ‚ привСсти ΠΊ ошибкС.

  Sub EditChartElements ()

Dim MyChart ΠΊΠ°ΠΊ Π΄ΠΈΠ°Π³Ρ€Π°ΠΌΠΌΠ°
Π£ΡΡ‚Π°Π½ΠΎΠ²ΠΈΡ‚ΡŒ MyChart = ActiveSheet.ChartObjects(1).Chart

MyChart.HasTitle = Π˜ΡΡ‚ΠΈΠ½Π°
MyChart.ChartTitle.Text = "ΠŸΡ€ΠΎΠ΄Π°ΠΆΠΈ Ρ‚ΠΎΠ²Π°Ρ€ΠΎΠ²"
MyChart.SetElement msoElementDataLabelOutSideEnd

ΠšΠΎΠ½Π΅Ρ† суб  

ΠŸΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½Ρ‹ΠΉ здСсь ΠΊΠΎΠ΄ прСдставляСт собой Π½Π°Ρ‡Π°Π»ΡŒΠ½ΠΎΠ΅ руководство, ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ΅ даст Π²Π°ΠΌ основу для Ρ€Π°Π±ΠΎΡ‚Ρ‹. Для Ρ€Π°Π±ΠΎΡ‚Ρ‹ с вашими элСктронными Ρ‚Π°Π±Π»ΠΈΡ†Π°ΠΌΠΈ ΠΎΠ±ΡΠ·Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎ потрСбуСтся нСбольшоС Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅.

Бобытия

Π­Ρ‚ΠΈ ΠΊΠΎΠ΄Ρ‹ макросов Π·Π°ΠΏΡƒΡΠΊΠ°ΡŽΡ‚ΡΡ, ΠΊΠΎΠ³Π΄Π° ΠΈΠ½ΠΈΡ†ΠΈΠΈΡ€ΡƒΡŽΡ‚ΡΡ события, ΠΊΠΎΠ³Π΄Π° ΠΊΡ‚ΠΎ-Ρ‚ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ Excel. Π­Ρ‚ΠΈ события ΠΌΠΎΠ³ΡƒΡ‚ Π²ΠΊΠ»ΡŽΡ‡Π°Ρ‚ΡŒ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠΉ ячССк, ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚ΠΈΠ΅ ΠΊΠ½ΠΈΠ³ Excel ΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π²ΠΊΠ»Π°Π΄ΠΎΠΊ листа.

Они Π½Π΅ Ρ‚Ρ€Π΅Π±ΡƒΡŽΡ‚ ΠΎΡ‚ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Ρ ΡΠΎΠ·Π½Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎΠ³ΠΎ наТатия ΠΊΠ½ΠΎΠΏΠΊΠΈ для запуска макроса. Они происходят СстСствСнным ΠΎΠ±Ρ€Π°Π·ΠΎΠΌ, ΠΊΠ°ΠΊ ΠΈ ΠΊΠΎΠ³Π΄Π° происходит ΡƒΠΊΠ°Π·Π°Π½Π½ΠΎΠ΅ событиС.

ΠŸΠ΅Ρ€Π΅ΠΉΡ‚ΠΈ ΠΊ ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌΡƒ Ρ€Π°Π±ΠΎΡ‡Π΅ΠΌΡƒ листу ΠΏΡ€ΠΈ ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚ΠΈΠΈ

Π­Ρ‚ΠΎΡ‚ ΠΏΡ€ΠΈΠΌΠ΅Ρ€ ΠΊΠΎΠ΄Π° VBA Π±ΡƒΠ΄Π΅Ρ‚ Π²Ρ‹ΠΏΠΎΠ»Π½ΡΡ‚ΡŒΡΡ автоматичСски ΠΏΡ€ΠΈ ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚ΠΈΠΈ Ρ€Π°Π±ΠΎΡ‡Π΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Excel. Для этого Π½Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρƒ открытия Ρ€Π°Π±ΠΎΡ‡Π΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ.

  1. Π’ Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€Π΅ Visual Basic Π΄Π²Π°ΠΆΠ΄Ρ‹ Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚ ΠΊΠ½ΠΈΠ³ΠΈ Π² ΠΎΠΊΠ½Π΅ Project Explorer, с ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΌ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ ΠΊΠΎΠ΄.
  1. Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Workbook ΠΈΠ· списка ΠΎΠ±ΡŠΠ΅ΠΊΡ‚ΠΎΠ².
  2. Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠžΡ‚ΠΊΡ€Ρ‹Ρ‚ΡŒ ΠΈΠ· списка ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€.
  3. Π’ΡΡ‚Π°Π²ΡŒΡ‚Π΅ Ρ‚Ρ€Π΅Π±ΡƒΠ΅ΠΌΡ‹ΠΉ ΠΊΠΎΠ΄ Π² ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρƒ, ΠΏΠΎΠΊΠ°Π·Π°Π½Π½ΡƒΡŽ Π² ΠΎΠΊΠ½Π΅ ΠΊΠΎΠ΄Π°.

Π§Ρ‚ΠΎΠ±Ρ‹ этот ΠΊΠΎΠ΄ активировался ΠΏΡ€ΠΈ ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚ΠΈΠΈ ΠΊΠ½ΠΈΠ³ΠΈ, Π½Π΅ Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΈΡ€ΡƒΠΉΡ‚Π΅ имя ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹.

Π—Π΄Π΅ΡΡŒ Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ любой ΠΊΠΎΠ΄. Π’ этом ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ Π²Ρ‹ автоматичСски ΠΏΠΎΠΏΠ°Π΄Π°Π΅Ρ‚Π΅ Π½Π° лист с ΠΈΠΌΠ΅Π½Π΅ΠΌ , ΠΎΠ³Π»Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈ ячСйку A2.

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

Π Π°Π±ΠΎΡ‡ΠΈΠ΅ листы("ОглавлСниС").Π’Ρ‹Π±Ρ€Π°Ρ‚ΡŒ
Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("A2").Π’Ρ‹Π±Ρ€Π°Ρ‚ΡŒ

ΠšΠΎΠ½Π΅Ρ† суб  

БущСствуСт мноТСство Π΄Ρ€ΡƒΠ³ΠΈΡ… событий Ρ€Π°Π±ΠΎΡ‡Π΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ, Π²ΠΊΠ»ΡŽΡ‡Π°Ρ BeforeSave , NewSheet, ΠΈ SheetActivate . Π­Ρ‚ΠΈ события ΠΌΠΎΠ³ΡƒΡ‚ Π±Ρ‹Ρ‚ΡŒ ΠΎΡ‡Π΅Π½ΡŒ ΠΏΠΎΠ»Π΅Π·Π½Ρ‹ ΠΏΡ€ΠΈ Π°Π²Ρ‚ΠΎΠΌΠ°Ρ‚ΠΈΠ·Π°Ρ†ΠΈΠΈ Ρ‚Π°ΠΊΠΈΡ… процСссов, ΠΊΠ°ΠΊ ΠΏΡ€ΠΎΠ²Π΅Ρ€ΠΊΠ° Π²Π²ΠΎΠ΄Π° Π΄Π°Π½Π½Ρ‹Ρ…, настройка ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€ΠΎΠ² ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ ΠΈ Ρ‚. Π΄.

Π’Ρ‹ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ дСйствия ΠΏΡ€ΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΈ ячСйки

Π‘ΠΎΠ±Ρ‹Ρ‚ΠΈΠ΅ Change ΠΎΠ±Π½Π°Ρ€ΡƒΠΆΠ΅Π½ΠΎ Π² ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Π΅ Worksheet. Π­Ρ‚ΠΎ ΠΎΡ‡Π΅Π½ΡŒ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ, Ρ‚Π°ΠΊ ΠΊΠ°ΠΊ срабатываСт ΠΏΡ€ΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΈ значСния ячСйки.

Для создания Worksheet_Change ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π°:

  1. Π”Π²Π°ΠΆΠ΄Ρ‹ Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ, Π² ΠΎΠΊΠ½Π΅ Project Explorer, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚ΡŒ ΠΎΠΊΠ½ΠΎ Π΅Π³ΠΎ ΠΊΠΎΠ΄Π°.
  2. Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Π Π°Π±ΠΎΡ‡ΠΈΠΉ лист ΠΈΠ· списка ΠΎΠ±ΡŠΠ΅ΠΊΡ‚ΠΎΠ², ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚Π΅ ΠΈΠ· списка ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€, ΠΈ ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° появится Π² ΠΎΠΊΠ½Π΅ ΠΊΠΎΠ΄Π°.

Π’ этом ΠΊΠΎΠ΄Π΅ измСнСнная ячСйка провСряСтся с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€Π° If , Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΏΡ€ΠΎΠ²Π΅Ρ€ΠΈΡ‚ΡŒ, Π½Π°Ρ…ΠΎΠ΄ΠΈΠ»Π°ΡΡŒ Π»ΠΈ измСнСнная ячСйка Π² столбцС 5 ΠΈ Π±Ρ‹Π»ΠΎ Π»ΠΈ Ρ€Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚ΠΎΠΌ измСнСния Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ .Π”Π° .

ΠŸΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Π°Ρ Target прСдоставляСтся событиСм измСнСния Ρ€Π°Π±ΠΎΡ‡Π΅Π³ΠΎ листа. Π­Ρ‚ΠΎ измСнСнная ячСйка.

Если эти условия ΡΠΎΠ±Π»ΡŽΠ΄Π΅Π½Ρ‹, содСрТимоС строки копируСтся Π² ΠΊΠΎΠ½Π΅Ρ† списка Π½Π° листС 2, Π° Ρ†Π²Π΅Ρ‚ Π·Π°Π»ΠΈΠ²ΠΊΠΈ ячСйки мСняСтся Π½Π° ΠΆΠ΅Π»Ρ‚Ρ‹ΠΉ.

ΠžΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€ Application.EnableEvents ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ Π² качСствС Π½Π°ΠΈΠ»ΡƒΡ‡ΡˆΠ΅ΠΉ ΠΏΡ€Π°ΠΊΡ‚ΠΈΠΊΠΈ, ΠΏΠΎΡΠΊΠΎΠ»ΡŒΠΊΡƒ дСйствия ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€ ΠΌΠΎΠ³ΡƒΡ‚ ΠΈΠ½ΠΈΡ†ΠΈΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Π΄Ρ€ΡƒΠ³ΠΎΠ΅ событиС измСнСния, ΠΏΠΎΠΊΠ° это Π΅Ρ‰Π΅ выполняСтся.

Π’ этом ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ это Π½Π΅ Π½ΡƒΠΆΠ½ΠΎ, Π½ΠΎ я Ρ…ΠΎΡ‚Π΅Π» ΠΏΡ€Π΅Π΄ΠΎΡΡ‚Π°Π²ΠΈΡ‚ΡŒ ΠΊΠΎΠ΄ для Π·Π°Ρ‰ΠΈΡ‚Ρ‹ установлСнных Π²Π°ΠΌΠΈ дСйствий ΠΎΡ‚ возникновСния ошибок.

  Private Sub Worksheet_Change (ByVal Target As Range)

Если Target. Column = 5 ΠΈ Target = "Π”Π°", Ρ‚ΠΎΠ³Π΄Π°

ΠŸΡ€ΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅.EnableEvents = Π›ΠΎΠΆΡŒ
Target.EntireRow.Copy Worksheets("Лист2").Range("A1").End(xlDown).Offset(1, 0)
Target.Interior.ColorIndex = 6

ΠšΠΎΠ½Π΅Ρ†, Ссли

ΠŸΡ€ΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅.EnableEvents = Π˜ΡΡ‚ΠΈΠ½Π°

End Sub  

Π§Ρ‚ΠΎ дальшС?

Π­Ρ‚ΠΈ ΠΊΠΎΠ΄Ρ‹ VBA Π·Π½Π°Ρ‡ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎ экономят врСмя, Π½ΠΎ это Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Π½Π°Ρ‡Π°Π»ΠΎ.

Π’Π°ΠΌ слСдуСт ΠΈΠ·ΡƒΡ‡ΠΈΡ‚ΡŒ Excel VBA, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΏΠΎ-настоящСму Π²ΠΎΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒΡΡ Π΅Π³ΠΎ ΠΏΠΎΡ‚Π΅Π½Ρ†ΠΈΠ°Π»ΠΎΠΌ для ΠΏΠΎΠ²Ρ‹ΡˆΠ΅Π½ΠΈΡ ΠΏΡ€ΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎΡΡ‚ΠΈ Ρ€Π°Π±ΠΎΡ‚Ρ‹ с Excel.

Π—Π°ΠΏΠΈΡˆΠΈΡ‚Π΅ΡΡŒ Π½Π° наш курс Excel Macros ΠΈ VBA, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π½Π°Ρ‡Π°Ρ‚ΡŒ своС ΠΏΡƒΡ‚Π΅ΡˆΠ΅ΡΡ‚Π²ΠΈΠ΅ сСгодня.

Π“ΠΎΡ‚ΠΎΠ² ΡΡ‚Π°Ρ‚ΡŒ сСртифицированным ниндзя Excel?

ΠŸΡ€ΠΎΠΉΠ΄ΠΈΡ‚Π΅ курс GoSkills Β«ΠœΠ°ΠΊΡ€ΠΎΡΡ‹ ΠΈ VBAΒ» сСгодня!

ΠΠ°Ρ‡Π°Ρ‚ΡŒ Π±Π΅ΡΠΏΠ»Π°Ρ‚Π½ΡƒΡŽ ΠΏΡ€ΠΎΠ±Π½ΡƒΡŽ Π²Π΅Ρ€ΡΠΈΡŽ

Ρ„ΠΎΡ€ΠΌΡƒΠ» VBA Excel | SuperExcelVBA


Π‘ ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ программирования Π½Π° языкС VBA ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Π³ΠΎΡ‚ΠΎΠ²Ρ‹Π΅ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ Excel. Π­Ρ‚ΠΎ свойства, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ с Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠΌ ΠΈΠ»ΠΈ ячСйками.


VBA Π€ΠΎΡ€ΠΌΡƒΠ»Π°

Π€ΠΎΡ€ΠΌΡƒΠ»Π° добавляСт ΠΏΡ€Π΅Π΄ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½Ρ‹Π΅ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ Excel Π½Π° Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист. Π­Ρ‚ΠΈ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ Π΄ΠΎΠ»ΠΆΠ½Ρ‹ Π±Ρ‹Ρ‚ΡŒ написаны Π½Π° английском языкС , Π΄Π°ΠΆΠ΅ Ссли Ρƒ вас установлСн языковой ΠΏΠ°ΠΊΠ΅Ρ‚.

 Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("F2"). Π€ΠΎΡ€ΠΌΡƒΠ»Π° = "=БУММ(B2:C7)"
    Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("F3"). Π€ΠΎΡ€ΠΌΡƒΠ»Π° = "=БУММ($B$2:$C$7)"
 

НС Π±Π΅ΡΠΏΠΎΠΊΠΎΠΉΡ‚Π΅ΡΡŒ, Ссли язык вашСго Excel Π½Π΅ английский, ΠΏΠΎΡ‚ΠΎΠΌΡƒ Ρ‡Ρ‚ΠΎ, ΠΊΠ°ΠΊ Π² ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅, ΠΎΠ½ автоматичСски Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚ ΠΏΠ΅Ρ€Π΅Π²ΠΎΠ΄ Π² ΡΠ»Π΅ΠΊΡ‚Ρ€ΠΎΠ½Π½ΡƒΡŽ Ρ‚Π°Π±Π»ΠΈΡ†Ρƒ.


НСсколько Ρ„ΠΎΡ€ΠΌΡƒΠ»

Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π²ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ нСсколько Ρ„ΠΎΡ€ΠΌΡƒΠ» ΠΎΠ΄Π½ΠΎΠ²Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎ, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΡ свойство Π€ΠΎΡ€ΠΌΡƒΠ»Π°. Для этого просто ΠΎΠΏΡ€Π΅Π΄Π΅Π»ΠΈΡ‚Π΅ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚ Range, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ большС ΠΎΠ΄Π½ΠΎΠΉ ячСйки, ΠΈ прСдопрСдСлСнная Ρ„ΠΎΡ€ΠΌΡƒΠ»Π° Π±ΡƒΠ΄Π΅Ρ‚ Β«ΠΏΠ΅Ρ€Π΅Ρ‚Π°ΡΠΊΠΈΠ²Π°Ρ‚ΡŒΡΡΒ» ΠΏΠΎ всСму Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρƒ.

"ΠŸΠ΅Ρ€Π΅Ρ‚Π°ΡΠΊΠΈΠ²Π°Π½ΠΈΠ΅" Π²Ρ€ΡƒΡ‡Π½ΡƒΡŽ:

"ΠŸΠ΅Ρ€Π΅Ρ‚Π°ΡΠΊΠΈΠ²Π°Π½ΠΈΠ΅" с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ VBA:

 Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("D2:D7"). Π€ΠΎΡ€ΠΌΡƒΠ»Π° = "=БУММ(B2:C2)"
 

Π”Ρ€ΡƒΠ³ΠΎΠΉ способ Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ Ρ‚ΠΎ ΠΆΠ΅ дСйствиС β€” ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ ΠΌΠ΅Ρ‚ΠΎΠ΄ FillDown.

 Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("D2"). Π€ΠΎΡ€ΠΌΡƒΠ»Π° = "=БУММ(B2:C2)"
    Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("D2:D7").FillDown
 

VBA FormulaLocal

FormulaLocal добавляСт ΠΏΡ€Π΅Π΄ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½Ρ‹Π΅ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ Excel Π½Π° Ρ€Π°Π±ΠΎΡ‡ΠΈΠΉ лист. Π­Ρ‚ΠΈ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹, ΠΎΠ΄Π½Π°ΠΊΠΎ, Π΄ΠΎΠ»ΠΆΠ½Ρ‹ Π±Ρ‹Ρ‚ΡŒ написаны Π½Π° мСстном языкС Excel (Π² случаС Π‘Ρ€Π°Π·ΠΈΠ»ΠΈΠΈ β€” Π½Π° ΠΏΠΎΡ€Ρ‚ΡƒΠ³Π°Π»ΡŒΡΠΊΠΎΠΌ языкС).

 Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½("F2").FormulaLocal = "=SOMA(B2:C7)"
 

Как ΠΈ свойство Formula, FormulaLocal ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ для создания Π½Π΅ΡΠΊΠΎΠ»ΡŒΠΊΠΈΡ… Ρ„ΠΎΡ€ΠΌΡƒΠ» .


FormulaR1C1, Π° Ρ‚Π°ΠΊΠΆΠ΅ Formula ΠΈ FormulaLocal Ρ‚Π°ΠΊΠΆΠ΅ добавляСт Π² ΡΠ»Π΅ΠΊΡ‚Ρ€ΠΎΠ½Π½ΡƒΡŽ Ρ‚Π°Π±Π»ΠΈΡ†Ρƒ ΠΏΡ€Π΅Π΄ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½Ρ‹Π΅ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ Excel; ΠΎΠ΄Π½Π°ΠΊΠΎ использованиС ΠΎΡ‚Π½ΠΎΡΠΈΡ‚Π΅Π»ΡŒΠ½Ρ‹Ρ… ΠΈ Π°Π±ΡΠΎΠ»ΡŽΡ‚Π½Ρ‹Ρ… ΠΎΠ±ΠΎΠ·Π½Π°Ρ‡Π΅Π½ΠΈΠΉ ΠΈΠΌΠ΅Π΅Ρ‚ Ρ€Π°Π·Π½Ρ‹Π΅ ΠΏΡ€Π°Π²ΠΈΠ»Π°. Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌΠ°Ρ Ρ„ΠΎΡ€ΠΌΡƒΠ»Π° Π΄ΠΎΠ»ΠΆΠ½Π° Π±Ρ‹Ρ‚ΡŒ написана Π½Π° английском языкС.

FormulaR1C1 позволяСт ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Π³ΠΎΡ‚ΠΎΠ²Ρ‹Π΅ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ Excel Π² VBA, Π»Π΅Π³ΠΊΠΎ интСгрируя ΠΈΡ… Π² Ρ†ΠΈΠΊΠ»Ρ‹ ΠΈ подсчитывая ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹Π΅.

Π’ обозначСниях:

  • R относится ΠΊ рядам , Π² случаС Π²Π΅Ρ€Ρ‚ΠΈΠΊΠ°Π»ΡŒΠ½ΠΎΠ³ΠΎ смСщСния
  • C относится ΠΊ столбцам , Π² случаС Π³ΠΎΡ€ΠΈΠ·ΠΎΠ½Ρ‚Π°Π»ΡŒΠ½ΠΎΠ³ΠΎ смСщСния
  • N символизируСт Ρ†Π΅Π»ΠΎΠ΅ число , ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ΅ ΡƒΠΊΠ°Π·Ρ‹Π²Π°Π΅Ρ‚, Π½Π° сколько Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±Ρ‹Ρ‚ΡŒ сдвинуто число строк ΠΈ/ΠΈΠ»ΠΈ столбцов
  • ΠžΡ‚Π½ΠΎΡΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎΠ΅ ΠΎΠ±ΠΎΠ·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ : Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ Π² качСствС ссылки Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ Π΅Π³ΠΎ Π½Π°Π·Π²Π°Π»

Π€ΠΎΡ€ΠΌΠ°Ρ‚ ΠΎΡ‚Π½ΠΎΡΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎΠΉ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹: R[ N ]C[ N ]:R[ N ]C[ N ].

 Range("F2").FormulaR1C1 = "=SUM(R[0]C[-4]:R[5]C[-3])" 'Π Π°Π²Π½ΠΎ Π½ΠΈΠΆΠ½Π΅ΠΉ строкС
    Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("F2"). Π€ΠΎΡ€ΠΌΡƒΠ»Π°R1C1 = "=БУММ(RC[-4]:R[5]C[-3])"
 

Если N ΠΎΠΏΡƒΡ‰Π΅Π½ΠΎ, прСдполагаСтся Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ 0.

Π’ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ RC[-4]:R[5]C[-3] ΠΏΡ€ΠΈΠ²ΠΎΠ΄ΠΈΡ‚ ΠΊ "B2: C7" . Π­Ρ‚ΠΈ ячСйки ΠΏΠΎΠ»ΡƒΡ‡Π°ΡŽΡ‚ΡΡ ΠΏΡƒΡ‚Π΅ΠΌ: отступлСния 4 столбца Π²Π»Π΅Π²ΠΎ RC[-4] ΠΈΠ· Range("F2") для получСния "B2" ; ΠΈ 5 строк Π²Π½ΠΈΠ· ΠΈ 3 столбца Π²Π»Π΅Π²ΠΎ R[5]C[-3] ΠΈΠ· Range("F2") для получСния "C7" .

  • ΠΠ±ΡΠΎΠ»ΡŽΡ‚Π½ΠΎΠ΅ ΠΎΠ±ΠΎΠ·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ : Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ Π½Π°Ρ‡Π°Π»ΠΎ элСктронной Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ Π² качСствС ссылки

Π€ΠΎΡ€ΠΌΠ°Ρ‚ ΠΎΡ‚Π½ΠΎΡΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎΠΉ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹: R N C N :R N C N .

 Range("F2").FormulaR1C1 = "=БУММ(R2C2:R7C3)" 'Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚Ρ‹ Π² "$B$2:$C$7"
 

N ΠΎΡ‚Ρ€ΠΈΡ†Π°Ρ‚Π΅Π»ΡŒΠ½Ρ‹ΠΉ ΠΌΠΎΠΆΠ΅Ρ‚ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒΡΡ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Π² ΠΎΡ‚Π½ΠΎΡΠΈΡ‚Π΅Π»ΡŒΠ½Ρ‹Ρ… обозначСниях.

Π”Π²Π΅ записи (ΠΎΡ‚Π½ΠΎΡΠΈΡ‚Π΅Π»ΡŒΠ½Π°Ρ ΠΈ Π°Π±ΡΠΎΠ»ΡŽΡ‚Π½Π°Ρ) ΠΌΠΎΠ³ΡƒΡ‚ Π±Ρ‹Ρ‚ΡŒ ΠΎΠ±ΡŠΠ΅Π΄ΠΈΠ½Π΅Π½Ρ‹.

 Range("F2").FormulaR1C1 = "=БУММ(RC[-4]:R7C3)" 'Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚Ρ‹ Π² "B2:$C$7"
 

VBA WorksheetFunction

К Ρ„ΠΎΡ€ΠΌΡƒΠ»Π°ΠΌ Excel Ρ‚Π°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ доступ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ ΠΌΠ΅Ρ‚ΠΎΠ΄ΠΎΠ² ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Π° WorksheetFunction.

 Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("F2") = WorksheetFunction.Sum (Π”ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("B2: C7"))
 

Доступ ΠΊ Ρ„ΠΎΡ€ΠΌΡƒΠ»Π°ΠΌ Excel Ρ‚Π°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ Π°Π½Π°Π»ΠΎΠ³ΠΈΡ‡Π½ΠΎ функциям, созданным Π² VBA.

ВсС Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Π° WorksheetFunction Π½Π° английском языкС.

Одним ΠΈΠ· Π±ΠΎΠ»ΡŒΡˆΠΈΡ… прСимущСств Ρ‚Π°ΠΊΠΎΠ³ΠΎ доступа ΠΊ Ρ„ΠΎΡ€ΠΌΡƒΠ»Π°ΠΌ Excel являСтся Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡ‚ΡŒ Π±ΠΎΠ»Π΅Π΅ Π»Π΅Π³ΠΊΠΎΠ³ΠΎ ΠΈΡ… использования Π² срСдС VBA.

 MsgBox (WorksheetFunction.Sum(3, 4, 5))
    Расход=4
    MsgBox (WorksheetFunction.Sum(3, 4, 5,-расход))
 

Π§Ρ‚ΠΎΠ±Ρ‹ ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ список доступных Ρ„ΠΎΡ€ΠΌΡƒΠ» Excel Π² этом Ρ„ΠΎΡ€ΠΌΠ°Ρ‚Π΅, просто Π²Π²Π΅Π΄ΠΈΡ‚Π΅ WorksheetFunction. автоматичСски появится мСню ΠΎΠΏΡ†ΠΈΠΉ со всСми Ρ„ΠΎΡ€ΠΌΡƒΠ»Π°ΠΌΠΈ:



Π—Π°ΠΊΡ€Π΅ΠΏΠ»Π΅Π½ΠΈΠ΅ вашСго обучСния

ΠŸΡ€Π΅Π΄Π»Π°Π³Π°Π΅ΠΌΠΎΠ΅ ΡƒΠΏΡ€Π°ΠΆΠ½Π΅Π½ΠΈΠ΅

Π’Π΅ΠΊΡƒΡ‰ΠΈΠΉ Ρ€Π΅Π³ΠΈΠΎΠ½


  • ΠŸΡ€Π΅Π΄Ρ‹Π΄ΡƒΡ‰Π°Ρ страница
  • БлСдущая страница

  • ΡΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ ΠΎΠ± ошибкС/ΠΎΡ‚Π·Ρ‹Π²

SuperExcelVBA.