╨Т╤Л╨▒╨╛╤А VBA

╨Т VBA ╨╝╤Л ╨╝╨╛╨╢╨╡╨╝ ╨▓╤Л╨▒╤А╨░╤В╤М ╨╗╤О╨▒╨╛╨╣ ╨┤╨╕╨░╨┐╨░╨╖╨╛╨╜ ╤П╤З╨╡╨╡╨║ ╨╕╨╗╨╕ ╨│╤А╤Г╨┐╨┐╤Г ╤П╤З╨╡╨╡╨║ ╨╕ ╨▓╤Л╨┐╨╛╨╗╨╜╤П╤В╤М ╨╜╨░╨┤ ╨╜╨╕╨╝╨╕ ╤А╨░╨╖╨╗╨╕╤З╨╜╤Л╨╡ ╨╛╨┐╨╡╤А╨░╤Ж╨╕╨╕. ╨Э╨░╨┐╤А╨╕╨╝╨╡╤А, ╨▓╤Л╨┤╨╡╨╗╨╡╨╜╨╕╨╡ ╨┐╤А╨╡╨┤╤Б╤В╨░╨▓╨╗╤П╨╡╤В ╤Б╨╛╨▒╨╛╨╣ ╨╛╨▒╤К╨╡╨║╤В ╨┤╨╕╨░╨┐╨░╨╖╨╛╨╜╨░, ╨┐╨╛╤Н╤В╨╛╨╝╤Г ╨╝╤Л ╨╕╤Б╨┐╨╛╨╗╤М╨╖╤Г╨╡╨╝ ╨╝╨╡╤В╨╛╨┤ Range ╨┤╨╗╤П ╨▓╤Л╨▒╨╛╤А╨░ ╤П╤З╨╡╨╡╨║, ╨┐╨╛╤Б╨║╨╛╨╗╤М╨║╤Г ╨╛╨╜ ╨╕╨┤╨╡╨╜╤В╨╕╤Д╨╕╤Ж╨╕╤А╤Г╨╡╤В ╤П╤З╨╡╨╣╨║╨╕, ╨░ ╨║╨╛╨┤ ╨┤╨╗╤П ╨▓╤Л╨▒╨╛╤А╨░ ╤П╤З╨╡╨╡╨║ тАФ ╤Н╤В╨╛ ╨║╨╛╨╝╨░╨╜╨┤╨░ ┬л╨Т╤Л╨▒╤А╨░╤В╤М┬╗. ╨Ф╨╗╤П ╨▓╤Л╨▒╨╛╤А╨░ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╤Г╨╡╤В╤Б╤П ╤Б╨╗╨╡╨┤╤Г╤О╤Й╨╕╨╣ ╤Б╨╕╨╜╤В╨░╨║╤Б╨╕╤Б: range(A1:B2).select.

╨Ю╨│╨╗╨░╨▓╨╗╨╡╨╜╨╕╨╡

╨з╤В╨╛ ╤В╨░╨║╨╛╨╡ ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨╛ ╨▓╤Л╨▒╨╛╤А╨░ Excel VBA?

╨Т╤Л╨▒╨╛╤А тАФ ╤Н╤В╨╛ ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨╛, ╨┤╨╛╤Б╤В╤Г╨┐╨╜╨╛╨╡ ╨▓ VBA. ╨Ъ╨░╨║ ╤В╨╛╨╗╤М╨║╨╛ ╨┤╨╕╨░╨┐╨░╨╖╨╛╨╜ ╤П╤З╨╡╨╡╨║ ╨▓╤Л╨▒╤А╨░╨╜, ╨╝╤Л ╨┤╨╛╨╗╨╢╨╜╤Л ╤А╨╡╤И╨╕╤В╤М, ╤З╤В╨╛ ╨┤╨╡╨╗╨░╤В╤М. ╨Ш╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╨╜╨╕╨╡ ╤Н╤В╨╛╨│╨╛ VBA ┬л╨Ю╤В╨▒╨╛╤А┬╗ ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨╛, ╨╝╤Л ╨╝╨╛╨╢╨╡╨╝ ╨┤╨╡╨╗╨░╤В╤М ╨▓╤Б╨╡, ╤З╤В╨╛ ╨╝╨╛╨╢╨╡╨╝, ╤Б ╨▓╤Л╨▒╤А╨░╨╜╨╜╤Л╨╝╨╕ ╤П╤З╨╡╨╣╨║╨░╨╝╨╕. ╨Ю╨┤╨╜╨░ ╨╕╨╖ ╨┐╤А╨╛╨▒╨╗╨╡╨╝ ╤Б╨╛ ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨╛╨╝ Selection ╨╖╨░╨║╨╗╤О╤З╨░╨╡╤В╤Б╤П ╨▓ ╤В╨╛╨╝, ╤З╤В╨╛ ╨╝╤Л ╨╜╨╡ ╨▓╨╕╨┤╨╕╨╝ ╤Б╨┐╨╕╤Б╨╛╨║ IntelliSense. ╨Ш╤В╨░╨║, ╨┐╤А╨╕ ╨╜╨░╨┐╨╕╤Б╨░╨╜╨╕╨╕ ╨║╨╛╨┤╨░ ╨╝╤Л ╨┤╨╛╨╗╨╢╨╜╤Л ╨▒╤Л╤В╤М ╤Г╨▓╨╡╤А╨╡╨╜╤Л ╨▓ ╤В╨╛╨╝, ╤З╤В╨╛ ╨┤╨╡╨╗╨░╨╡╨╝ ╨▒╨╡╨╖ ╤Б╨┐╨╕╤Б╨║╨░ IntelliSense.

Программы для Windows, мобильные приложения, игры - ВСЁ БЕСПЛАТНО, в нашем закрытом телеграмм канале - Подписывайтесь:)

╨Т╤Л╨▒╨╛╤А VBA

╨Я╤А╨╕╨╝╨╡╤А╤Л ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨░ Selection ╨▓ VBA

╨б╨╝╨╛╤В╤А╨╕╨╝ ╨┐╤А╨╕╨╝╨╡╤А╤Л ╨▓╤Л╨┤╨╡╨╗╨╡╨╜╨╕╤П ╨▓ Excel VBA..free_excel_div{background:#d9d9d9;font-size:16px;border-radius:7px;position:relative;margin:30px;padding:25px 25px 25px 45px}.free_excel_div:before {content:»»;╤Д╨╛╨╜:url(╨┐╨╛ ╤Ж╨╡╨╜╤В╤А╤Г ╨▒╨╡╨╖ ╨┐╨╛╨▓╤В╨╛╤А╨░ #207245;╤И╨╕╤А╨╕╨╜╨░:70px;╨▓╤Л╤Б╨╛╤В╨░:70px;╨┐╨╛╨╖╨╕╤Ж╨╕╤П:╨░╨▒╤Б╨╛╨╗╤О╤В╨╜╨░╤П;╤Б╨▓╨╡╤А╤Е╤Г:50%;╨╛╤В╤Б╤В╤Г╨┐-╤Б╨▓╨╡╤А╤Е╤Г:-35px;╤Б╨╗╨╡╨▓╨░:-35px;╨│╤А╨░╨╜╨╕╤Ж╨░:5px ╤В╨▓╨╡╤А╨┤╤Л╨╣ #fff; ╤А╨░╨┤╨╕╤Г╤Б ╨│╤А╨░╨╜╨╕╤Ж╤Л: 50%}

╨Т╤Л ╨╝╨╛╨╢╨╡╤В╨╡ ╤Б╨║╨░╤З╨░╤В╤М ╤Н╤В╨╛╤В ╤И╨░╨▒╨╗╨╛╨╜ Excel ╨┤╨╗╤П ╨▓╤Л╨▒╨╛╤А╨░ VBA ╨╖╨┤╨╡╤Б╤М — ╨и╨░╨▒╨╗╨╛╨╜ Excel ╨┤╨╗╤П ╨▓╤Л╨▒╨╛╤А╨░ VBA

╨Я╤А╨╕╨╝╨╡╤А тДЦ1

╨Т╨╛╤В ╨┐╤А╨╛╤Б╤В╨╛╨╣ ╨┐╤А╨╕╨╝╨╡╤А ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨░ ┬л╨▓╤Л╨▒╨╛╤А┬╗ ╨▓ VBA. ╨Ъ╨╛╨╜╨╡╤З╨╜╨╛, ╨╝╤Л ╤Е╨╛╤В╨╕╨╝ ╤Б╨╜╨░╤З╨░╨╗╨░ ╨▓╤Л╨▒╤А╨░╤В╤М ╤П╤З╨╡╨╣╨║╨╕ ╨╛╤В A1 ╨┤╨╛ B5, ╤З╤В╨╛╨▒╤Л ╨╜╨░╨┐╨╕╤Б╨░╤В╤М ╨║╨╛╨┤ VBA. ╨Ч╨░╨┐╨╕╤Б╤М ╨Ъ╨╛╨┤ VBA╨Ъ╨╛╨┤ VBA ╨╛╤В╨╜╨╛╤Б╨╕╤В╤Б╤П ╨║ ╨╜╨░╨▒╨╛╤А╤Г ╨╕╨╜╤Б╤В╤А╤Г╨║╤Ж╨╕╨╣, ╨╜╨░╨┐╨╕╤Б╨░╨╜╨╜╤Л╤Е ╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╨╡╨╗╨╡╨╝ ╨╜╨░ ╤П╨╖╤Л╨║╨╡ ╨┐╤А╨╛╨│╤А╨░╨╝╨╝╨╕╤А╨╛╨▓╨░╨╜╨╕╤П ╨┐╤А╨╕╨╗╨╛╨╢╨╡╨╜╨╕╨╣ Visual Basic ╨▓ ╤А╨╡╨┤╨░╨║╤В╨╛╤А╨╡ Visual Basic (VBE) ╨┤╨╗╤П ╨▓╤Л╨┐╨╛╨╗╨╜╨╡╨╜╨╕╤П. ╨║╨╛╨╜╨║╤А╨╡╤В╨╜╨░╤П ╨╖╨░╨┤╨░╤З╨░. ╤З╨╕╤В╨░╤В╤М ╨┤╨░╨╗╤М╤И╨╡, ╨║╨░╨║ ╤Н╤В╨╛.

╨Ф╨╕╨░╨┐╨░╨╖╨╛╨╜ (┬л╨Р1:╨Т5┬╗).╨Т╤Л╨▒╨╕╤А╨░╤В╤М

╨Ъ╨╛╨┤:

Sub Selection_Example1 () Range (┬лA1: B5┬╗). ╨Т╤Л╨▒╨╡╤А╨╕╤В╨╡ End Sub

╨н╤В╨╛╤В ╨║╨╛╨┤ ╨▓╤Л╨▒╨╡╤А╨╡╤В ╨┤╨╕╨░╨┐╨░╨╖╨╛╨╜ ╤П╤З╨╡╨╡╨║ VBA. ╨Ф╨╕╨░╨┐╨░╨╖╨╛╨╜ ╤П╤З╨╡╨╡╨║ VBA. ╨Ф╨╕╨░╨┐╨░╨╖╨╛╨╜ ╨▓╤Л╨▒╨╛╤А╨░ тАФ ╤Н╤В╨╛ ╨╢╨╡╨╗╨░╨╡╨╝╨░╤П ╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╨╡╨╗╨╡╨╝ ╨╛╨▒╨╗╨░╤Б╤В╤М ╨┤╨╗╤П ╨┤╨╛╨▒╨░╨▓╨╗╨╡╨╜╨╕╤П ╤Н╤Д╤Д╨╡╨║╤В╨╛╨▓, ╨┤╨╛╨▒╨░╨▓╨╗╨╡╨╜╨╕╤П ╨┤╨░╨╜╨╜╤Л╤Е ╨╕╨╗╨╕ ╨▓╨╜╨╡╤Б╨╡╨╜╨╕╤П ╨╕╨╖╨╝╨╡╨╜╨╡╨╜╨╕╨╣ ╤В╨╛╨╗╤М╨║╨╛ ╨▓ ╤Н╤В╨╕ ╨║╨╛╨╜╨║╤А╨╡╤В╨╜╤Л╨╡ ╤П╤З╨╡╨╣╨║╨╕. ╨Ф╨╕╨░╨┐╨░╨╖╨╛╨╜ ╨╛╨┐╤А╨╡╨┤╨╡╨╗╤П╨╡╤В╤Б╤П ╤Д╨╛╤А╨╝╤Г╨╗╨░╨╝╨╕ ╨┐╨╛ ╨░╨┤╤А╨╡╤Б╨░╨╝ ╨┤╨▓╤Г╤Е ╤П╤З╨╡╨╡╨║, ╤А╨░╨╖╨┤╨╡╨╗╨╡╨╜╨╜╤Л╤Е ╨┤╨▓╨╛╨╡╤В╨╛╤З╨╕╨╡╨╝. ╨п╤З╨╡╨╣╨║╨░, ╤Б ╨║╨╛╤В╨╛╤А╨╛╨╣ ╨╜╨░╤З╨╕╨╜╨░╨╡╤В╤Б╤П ╨┤╨╕╨░╨┐╨░╨╖╨╛╨╜ ╨▓╤Л╨▒╨╛╤А╨░, ╨┐╨╛-╨┐╤А╨╡╨╢╨╜╨╡╨╝╤Г ╨░╨║╤В╨╕╨▓╨╜╨░. ╨Я╨╛╨┤╤А╨╛╨▒╨╜╨╡╨╡ ╨╛╤В A1 ╨┤╨╛ B5.

╨Я╤А╨╕╨╝╨╡╤А ╨▓╤Л╨▒╨╛╤А╨░ VBA 1

╨Х╤Б╨╗╨╕ ╨╝╤Л ╤Е╨╛╤В╨╕╨╝ ╨▓╤Б╤В╨░╨▓╨╕╤В╤М ╨▓ ╤Н╤В╨╕ ╤П╤З╨╡╨╣╨║╨╕ ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╡ ┬л╨┐╤А╨╕╨▓╨╡╤В┬╗, ╨╝╤Л ╨╝╨╛╨╢╨╡╨╝ ╨╜╨░╨┐╨╕╤Б╨░╤В╤М ╤В╨░╨║╨╛╨╣ ╨║╨╛╨┤.

╨Ъ╨╛╨┤:

Sub Selection_Example1() Range(«A1:B5»).Value = «hello» End Sub

╨Я╤А╨╕╨╝╨╡╤А ╨▓╤Л╨▒╨╛╤А╨░ VBA 1-1

╨в╨╛╤З╨╜╨╛ ╤В╨░╨║ ╨╢╨╡, ╨║╨░╨║ ╤В╨╛╨╗╤М╨║╨╛ ╤П╤З╨╡╨╣╨║╨╕ ╨▓╤Л╨▒╤А╨░╨╜╤Л, ╤Б╤В╨░╨╜╨╛╨▓╨╕╤В╤Б╤П ┬л╨Ю╤В╨▒╨╛╤А┬╗.

╨Ъ╨╛╨┤:

Sub Selection_Example1() Range («A1: B5»). ╨Т╤Л╨▒╨╡╤А╨╕╤В╨╡ Selection.Value = «Hello» End Sub

╨Т╨╛-╨┐╨╡╤А╨▓╤Л╤Е, ╨╝╤Л ╨▓╤Л╨▒╤А╨░╨╗╨╕ ╨┤╨╕╨░╨┐╨░╨╖╨╛╨╜ ╤П╤З╨╡╨╡╨║ ╨╛╤В A1 ╨┤╨╛ B5. ╨Ш╤В╨░╨║, ╤Н╤В╨░ ╤Б╤В╤А╨╛╨║╨░ ╨▒╤Г╨┤╨╡╤В ╨▓╤Л╨┤╨╡╨╗╤П╤В╤М ╤П╤З╨╡╨╣╨║╨╕.

╨Я╤А╨╕╨╝╨╡╤А ╨▓╤Л╨▒╨╛╤А╨░ VBA 1-2

╨Я╨╛╤Б╨╗╨╡ ╤В╨╛╨│╨╛, ╨║╨░╨║ ╤Н╤В╨╕ ╤П╤З╨╡╨╣╨║╨╕ ╨▓╤Л╨▒╤А╨░╨╜╤Л, ╨╝╤Л ╨╝╨╛╨╢╨╡╨╝ ╤Б╤Б╤Л╨╗╨░╤В╤М╤Б╤П ╨╜╨░ ╤Н╤В╨╕ ╤П╤З╨╡╨╣╨║╨╕, ╨╕╤Б╨┐╨╛╨╗╤М╨╖╤Г╤П ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨╛ ┬л╨Т╤Л╨▒╨╛╤А┬╗ ╨▓ Excel VBA. ╨Ш╤В╨░╨║, ╨╕╤Б╨┐╨╛╨╗╤М╨╖╤Г╤П ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨╛ Selection, ╨╝╤Л ╨╝╨╛╨╢╨╡╨╝ ╨▓╤Б╤В╨░╨▓╨╕╤В╤М ╨▓ ╤Н╤В╨╕ ╤П╤З╨╡╨╣╨║╨╕ ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╡ ┬лHello┬╗.

╨Я╤А╨╕╨╝╨╡╤А ╨▓╤Л╨▒╨╛╤А╨░ VBA 1-3

╨н╤В╨╛ ╨╛╨▒╤Й╨╕╨╣ ╨╛╨▒╨╖╨╛╤А ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨░ ┬л╨Т╤Л╨▒╨╛╤А┬╗ ╨▓ VBA.

╨Я╤А╨╕╨╝╨╡╤А #2

╨в╨╡╨┐╨╡╤А╤М ╨╝╤Л ╤Г╨▓╨╕╨┤╨╕╨╝ ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨╛ VBA ┬л╨Т╤Л╨▒╨╛╤А┬╗ ╤Б ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╤Л╨╝╨╕. ╨Э╨╛ ╤Б╨╜╨░╤З╨░╨╗╨░ ╨╛╨┐╤А╨╡╨┤╨╡╨╗╨╕╤В╨╡ ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╤Г╤О VBA ╨║╨░╨║ RangeVBA Variable As RangeRange тАФ ╤Н╤В╨╛ ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨╛ ╨▓ VBA, ╨║╨╛╤В╨╛╤А╨╛╨╡ ╨┐╨╛╨╝╨╛╨│╨░╨╡╤В ╤Г╨║╨░╨╖╨░╤В╤М ╨║╨╛╨╜╨║╤А╨╡╤В╨╜╤Г╤О ╤П╤З╨╡╨╣╨║╤Г, ╨┤╨╕╨░╨┐╨░╨╖╨╛╨╜ ╤П╤З╨╡╨╡╨║, ╤Б╤В╤А╨╛╨║╤Г, ╤Б╤В╨╛╨╗╨▒╨╡╤Ж ╨╕╨╗╨╕ ╤В╤А╨╡╤Е╨╝╨╡╤А╨╜╤Л╨╣ ╨┤╨╕╨░╨┐╨░╨╖╨╛╨╜. ╨Т ╨║╨╛╨╜╤В╨╡╨║╤Б╤В╨╡ ╤А╨░╨▒╨╛╤З╨╡╨│╨╛ ╨╗╨╕╤Б╤В╨░ Excel ╨╛╨▒╤К╨╡╨║╤В ╨┤╨╕╨░╨┐╨░╨╖╨╛╨╜╨░ VBA ╨▓╨║╨╗╤О╤З╨░╨╡╤В ╨╛╨┤╨╜╤Г ╨╕╨╗╨╕ ╨╜╨╡╤Б╨║╨╛╨╗╤М╨║╨╛ ╤П╤З╨╡╨╡╨║, ╤А╨░╤Б╨┐╤А╨╡╨┤╨╡╨╗╨╡╨╜╨╜╤Л╤Е ╨┐╨╛ ╤А╨░╨╖╨╜╤Л╨╝ ╤Б╤В╤А╨╛╨║╨░╨╝ ╨╕ ╤Б╤В╨╛╨╗╨▒╤Ж╨░╨╝. ╨Я╨╛╨┤╤А╨╛╨▒╨╜╨╡╨╡.

╨Ъ╨╛╨┤:

Sub Selection_Example2() Dim Rng As Range End Sub

╨Я╤А╨╕╨╝╨╡╤А ╨▓╤Л╨▒╨╛╤А╨░ VBA 2

╨Ф╨╕╨░╨┐╨░╨╖╨╛╨╜ ╤П╨▓╨╗╤П╨╡╤В╤Б╤П ╨╛╨▒╤К╨╡╨║╤В╨╜╨╛╨╣ ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╨╛╨╣, ╨┐╨╛╤Б╨║╨╛╨╗╤М╨║╤Г ╨╛╨╜ ╤П╨▓╨╗╤П╨╡╤В╤Б╤П ╨╛╨▒╤К╨╡╨║╤В╨╜╨╛╨╣ ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╨╛╨╣. ╨Я╨╛╤Н╤В╨╛╨╝╤Г ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╤Г╤Б╤В╨░╨╜╨╛╨▓╨╕╤В╤М ╨┤╨╕╨░╨┐╨░╨╖╨╛╨╜ ╤П╤З╨╡╨╡╨║ ╤Б ╨┐╨╛╨╝╨╛╤Й╤М╤О ╨║╨╗╤О╤З╨╡╨▓╨╛╨│╨╛ ╤Б╨╗╨╛╨▓╨░ ┬лSet┬╗.

╨Ь╤Л ╤Г╤Б╤В╨░╨╜╨╛╨▓╨╕╨╝ ╨┤╨╕╨░╨┐╨░╨╖╨╛╨╜ ╨║╨░╨║ ┬л╨Ф╨╕╨░╨┐╨░╨╖╨╛╨╜(┬л╨Р1:╨Р6┬╗).

╨Ъ╨╛╨┤:

Sub Selection_Example2() Dim Rng As Range Set Rng = Range(«A1:A6») End Sub

╨Я╤А╨╕╨╝╨╡╤А ╨▓╤Л╨▒╨╛╤А╨░ VBA 2-1

╨Я╨╡╤А╨╡╨╝╨╡╨╜╨╜╨░╤П «╨Ъ╨╛╨╗╤М╤Ж╨╛тАЭ ╨╛╤В╨╜╨╛╤Б╨╕╤В╤Б╤П ╨║ ╨┤╨╕╨░╨┐╨░╨╖╨╛╨╜╤Г ╤П╤З╨╡╨╡╨║ ╨╛╤В ╨Р1 ╨┤╨╛ ╨Р6.

╨в╨╡╨┐╨╡╤А╤М ╨╝╤Л ╨╜╨░╨┐╨╕╤И╨╡╨╝ ╨║╨╛╨┤ ╨┤╨╗╤П ╨▓╤Б╤В╨░╨▓╨║╨╕ ╨╖╨╜╨░╤З╨╡╨╜╨╕╤П ┬л╨Я╤А╨╕╨▓╨╡╤В┬╗.

╨Ъ╨╛╨┤:

Sub Selection_Example2() Dim Rng As Range Set Rng = Range(«A1:A6») Rng.Value = «Hello» End Sub

╨Я╤А╨╕╨╝╨╡╤А ╨▓╤Л╨▒╨╛╤А╨░ VBA 2-2

╨Ю╨╜ ╨▓╤Б╤В╨░╨▓╨╕╤В ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╡ ┬л╨Я╤А╨╕╨▓╨╡╤В┬╗ ╨▓ ╤П╤З╨╡╨╣╨║╨╕ ╨╛╤В A1 ╨┤╨╛ A6.

╨Я╤А╨╕╨╝╨╡╤А ╨▓╤Л╨▒╨╛╤А╨░ VBA 2-3

╨Э╨╡╨▓╨░╨╢╨╜╨╛, ╨│╨┤╨╡ ╨▓╤Л ╨╖╨░╨┐╤Г╤Б╨║╨░╨╡╤В╨╡ ╨║╨╛╨┤. ╨Р╨║╤В╨╕╨▓╨╜╤Л╨╣ ╤А╨░╨▒╨╛╤З╨╕╨╣ ╨╗╨╕╤Б╤В ╨▓╤Б╤В╨░╨▓╨╕╤В ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╡ ┬л╨Я╤А╨╕╨▓╨╡╤В┬╗ ╨▓ ╤П╤З╨╡╨╣╨║╨╕ ╤Б A1 ╨┐╨╛ A6.

╨Э╨╛ ╨┐╤А╨╡╨┤╤Б╤В╨░╨▓╤М╤В╨╡ ╤Б╨╕╤В╤Г╨░╤Ж╨╕╤О, ╨║╨╛╨│╨┤╨░ ╨▓╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╨▓╤Б╤В╨░╨▓╨╕╤В╤М ╤Б╨╗╨╛╨▓╨╛ ┬л╨Я╤А╨╕╨▓╨╡╤В┬╗ ╨▓╨╡╨╖╨┤╨╡, ╨│╨┤╨╡ ╨▓╤Л ╨▓╤Л╨▒╨╕╤А╨░╨╡╤В╨╡ ╤П╤З╨╡╨╣╨║╨╕, ╨╛╨┤╨╜╨╕╨╝ ╨╜╨░╨╢╨░╤В╨╕╨╡╨╝ ╨║╨╜╨╛╨┐╨║╨╕.

╨Ф╨╗╤П ╤Н╤В╨╛╨│╨╛ ╨╝╤Л ╨╜╨╡ ╨╝╨╛╨╢╨╡╨╝ ╨╖╨░╨┤╨░╤В╤М ╨╛╨┐╤А╨╡╨┤╨╡╨╗╨╡╨╜╨╜╤Л╨╣ ╨┤╨╕╨░╨┐╨░╨╖╨╛╨╜ ╤П╤З╨╡╨╡╨║. ╨б╨║╨╛╤А╨╡╨╡ ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╤Г╤Б╤В╨░╨╜╨╛╨▓╨╕╤В╤М ╨┤╨╕╨░╨┐╨░╨╖╨╛╨╜ ╨║╨░╨║ ┬л╨Т╤Л╨▒╨╛╤А┬╗.

╨Ъ╨╛╨┤:

Sub Selection_Example2() Dim Rng As Range Set Rng = Selection End Sub

╨Я╤А╨╕╨╝╨╡╤А ╨▓╤Л╨▒╨╛╤А╨░ VBA 2-4

╨Я╨╡╤А╨╡╨╝╨╡╨╜╨╜╨░╤П ┬лRng┬╗ ╨╛╤В╨╜╨╛╤Б╨╕╤В╤Б╤П ╨║ ╨░╨║╤В╨╕╨▓╨╜╨╛╨╣ ╤П╤З╨╡╨╣╨║╨╡ ╨╕╨╗╨╕ ╨▓╨╡╨╖╨┤╨╡, ╨│╨┤╨╡ ╨╝╤Л ╨▓╤Л╨▒╨╕╤А╨░╨╡╨╝ ╤П╤З╨╡╨╣╨║╨╕. ╨Э╨░╨┐╤А╨╕╨╝╨╡╤А, ╨╕╤Б╨┐╨╛╨╗╤М╨╖╤Г╤П ╤Н╤В╨╛ ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨╛ (╨Т╤Л╨┤╨╡╨╗╨╡╨╜╨╕╨╡) ╨▓ Excel VBA, ╨╝╤Л ╨╝╨╛╨╢╨╡╨╝ ╨▓╤Б╤В╨░╨▓╨╕╤В╤М ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╡ ┬л╨Я╤А╨╕╨▓╨╡╤В┬╗.

╨Ъ╨╛╨┤:

Sub Selection_Example2() Dim Rng As Range Set Rng = Selection Selection.Value = «Hello» End Sub

╨Я╤А╨╕╨╝╨╡╤А ╨▓╤Л╨▒╨╛╤А╨░ VBA 2-5

╨Ю╨╜ ╨▓╤Б╤В╨░╨▓╨╕╤В ╤Б╨╗╨╛╨▓╨╛ ┬л╨Я╤А╨╕╨▓╨╡╤В┬╗ ╨▓ ╤П╤З╨╡╨╣╨║╨╕ ╨╜╨░╤И╨╡╨│╨╛ ╨▓╤Л╨┤╨╡╨╗╨╡╨╜╨╕╤П. ╨в╨╡╨┐╨╡╤А╤М ╨╝╤Л ╨▓╤Л╨▒╨╡╤А╨╡╨╝ ╤П╤З╨╡╨╣╨║╨╕ ╨╛╤В B2 ╨┤╨╛ C6 ╨╕ ╨╖╨░╨┐╤Г╤Б╤В╨╕╨╝ ╨║╨╛╨┤. ╨б╨╜╨░╤З╨░╨╗╨░ ╨╛╨╜ ╨▓╤Б╤В╨░╨▓╨╕╤В ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╡ ┬лHello┬╗.

╨Я╤А╨╕╨╝╨╡╤А ╨▓╤Л╨▒╨╛╤А╨░ VBA 2-6╨Я╤А╨╕╨╝╨╡╤А тДЦ3

╨в╨╡╨┐╨╡╤А╤М ╨╝╤Л ╤Г╨▓╨╕╨┤╨╕╨╝, ╨║╨░╨║ ╨╝╤Л ╨╝╨╛╨╢╨╡╨╝ ╨╕╨╖╨╝╨╡╨╜╨╕╤В╤М ╨▓╨╜╤Г╤В╤А╨╡╨╜╨╜╨╕╨╣ ╤Ж╨▓╨╡╤В ╨▓╤Л╨▒╤А╨░╨╜╨╜╤Л╤Е ╤П╤З╨╡╨╡╨║. ╨в╨╡╨┐╨╡╤А╤М ╨╝╤Л ╤Е╨╛╤В╨╕╨╝ ╨╕╨╖╨╝╨╡╨╜╨╕╤В╤М ╨▓╨╜╤Г╤В╤А╨╡╨╜╨╜╨╕╨╣ ╤Ж╨▓╨╡╤В ╤П╤З╨╡╨╡╨║, ╨║╨╛╤В╨╛╤А╤Л╨╡ ╨╝╤Л ╨▓╤Л╨▒╨╡╤А╨╡╨╝. ╨Ф╨╗╤П ╤Н╤В╨╛╨│╨╛ ╤Б╨╜╨░╤З╨░╨╗╨░ ╨╝╤Л ╨╛╨▒╤К╤П╨▓╨╕╨╗╨╕ ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╤Г╤О ╨║╨░╨║ Range ╨╕ ╤Г╤Б╤В╨░╨╜╨╛╨▓╨╕╨╗╨╕ ╤Б╤Б╤Л╨╗╨║╤Г ╨╜╨░ ╨┤╨╕╨░╨┐╨░╨╖╨╛╨╜ ╨║╨░╨║ ┬лSelection┬╗.

╨Ъ╨╛╨┤:

Sub Selection_Example3() Dim Rng As Range Set Rng = Selection End Sub

╨Я╤А╨╕╨╝╨╡╤А 3

╨в╨╡╨┐╨╡╤А╤М ╨┐╨╛╨╗╤Г╤З╨╕╤В╨╡ ╨┤╨╛╤Б╤В╤Г╨┐ ╨║ ┬л╨Ш╨╜╤В╨╡╤А╤М╨╡╤А┬╗ ╤Б ╨┐╨╛╨╝╨╛╤Й╤М╤О ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨░ ╨▓╤Л╨▒╨╛╤А╨░ VBA.

╨Ъ╨╛╨┤:

Sub Selection_Example3() Dim Rng As Range Set Rng = Selection Selection.Interior End Sub

╨Я╤А╨╕╨╝╨╡╤А 3-1

╨Я╨╛╤Б╨╗╨╡ ╨▓╤Л╨▒╨╛╤А╨░ ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨░ ┬л╨Ш╨╜╤В╨╡╤А╤М╨╡╤А┬╗ ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╤А╨╡╤И╨╕╤В╤М, ╤З╤В╨╛ ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╨┤╨╡╨╗╨░╤В╤М ╤Б ╤Н╤В╨╕╨╝ ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨╛╨╝. ╨в╨░╨║ ╨║╨░╨║ ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╨╕╨╖╨╝╨╡╨╜╨╕╤В╤М ╤Ж╨▓╨╡╤В ╨▓╨╜╤Г╤В╤А╨╡╨╜╨╜╨╡╨╣ ╤З╨░╤Б╤В╨╕ ╨▓╤Л╨▒╤А╨░╨╜╨╜╨╛╨╣ ╤П╤З╨╡╨╣╨║╨╕, ╨▓╤Л╨▒╨╕╤А╨░╨╡╨╝ ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨╛ ┬л╨ж╨▓╨╡╤В┬╗.

╨Ъ╨╛╨┤:

Sub Selection_Example3() Dim Rng As Range Set Rng = Selection Selection.Interior.Color End Sub

╨Я╤А╨╕╨╝╨╡╤А 3-2

╨г╤Б╤В╨░╨╜╨╛╨▓╨╕╤В╨╡ ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨╛ ╤Ж╨▓╨╡╤В╨░ ╨║╨░╨║ ┬лvb╨Ч╨╡╨╗╨╡╨╜╤Л╨╣┬╗.

╨Ъ╨╛╨┤:

Sub Selection_Example3() Dim Rng As Range Set Rng = Selection Selection.Interior.Color = vbGreen End Sub

╨Я╤А╨╕╨╝╨╡╤А 3-3

╨в╨░╨║ ╤З╤В╨╛ ╤Н╤В╨╛ ╨╕╨╖╨╝╨╡╨╜╨╕╤В ╨▓╨╜╤Г╤В╤А╨╡╨╜╨╜╨╕╨╣ ╤Ж╨▓╨╡╤В ╨▓╤Л╨▒╤А╨░╨╜╨╜╤Л╤Е ╤П╤З╨╡╨╡╨║ ╨╜╨░ ┬л╨▓╨▒╨У╤А╨╕╨╜┬╗.

╨Я╤А╨╕╨╝╨╡╤А 3-4╨Я╤А╨╕╨╝╨╡╤А 3-5

╨в╨░╨║╨╕╨╝ ╨╛╨▒╤А╨░╨╖╨╛╨╝, ╨╝╤Л ╨╝╨╛╨╢╨╡╨╝ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨╛ ┬л╨Т╤Л╨▒╨╛╤А┬╗ Excel VBA ╨▓ ╨║╨╛╨┤╨╕╤А╨╛╨▓╨░╨╜╨╕╨╕ ╨╕ ╨╗╨╡╨│╨║╨╛ ╨┤╨╡╨╗╨░╤В╤М ╨╝╨╜╨╛╨│╨╕╨╡ ╨┤╤А╤Г╨│╨╕╨╡ ╨▓╨╡╤Й╨╕.

╨Я╤А╨╕╨╝╨╡╤З╨░╨╜╨╕╨╡. ╨Ю╨┤╨╜╨░ ╨╕╨╖ ╤Б╨░╨╝╤Л╤Е ╨▒╨╛╨╗╤М╤И╨╕╤Е ╤Г╨│╤А╨╛╨╖ ╤Б╨╛ ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨╛╨╝ ┬л╨Т╤Л╨▒╨╛╤А┬╗ ╨╖╨░╨║╨╗╤О╤З╨░╨╡╤В╤Б╤П ╨▓ ╤В╨╛╨╝, ╤З╤В╨╛ ╨╝╤Л ╨╜╨╡ ╨┐╨╛╨╗╤Г╤З╨░╨╡╨╝ ╨┤╨╛╤Б╤В╤Г╨┐ ╨║ ╤Б╨┐╨╕╤Б╨║╤Г IntelliSense ╨▓╨╛ ╨▓╤А╨╡╨╝╤П ╨║╨╛╨┤╨╕╤А╨╛╨▓╨░╨╜╨╕╤П. ╨Ъ╨░╨║ ╨╜╨╛╨▓╨╕╤З╨╛╨║, ╨┐╨╛╤З╤В╨╕ ╨╜╨╡╨▓╨╛╨╖╨╝╨╛╨╢╨╜╨╛ ╨╖╨░╨┐╨╛╨╝╨╜╨╕╤В╤М ╨▓╤Б╨╡ ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨░ ╨╕ ╨╝╨╡╤В╨╛╨┤╤Л ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨░ ┬л╨Т╤Л╨▒╨╛╤А┬╗, ╨┐╨╛╤Н╤В╨╛╨╝╤Г ╨▓╨░╨╝ ╨╜╨╡╨╛╨▒╤Е╨╛╨┤╨╕╨╝╨╛ ╨▓╨╗╨░╨┤╨╡╤В╤М VBA, ╤З╤В╨╛╨▒╤Л ╨╜╨░╤З╨░╤В╤М ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨╛ ┬л╨Т╤Л╨▒╨╛╤А┬╗.

╨а╨╡╨║╨╛╨╝╨╡╨╜╨┤╤Г╨╡╨╝╤Л╨╡ ╤Б╤В╨░╤В╤М╨╕

╨н╤В╨░ ╤Б╤В╨░╤В╤М╤П ╨┐╤А╨╡╨┤╤Б╤В╨░╨▓╨╗╤П╨╡╤В ╤Б╨╛╨▒╨╛╨╣ ╤А╤Г╨║╨╛╨▓╨╛╨┤╤Б╤В╨▓╨╛ ╨┐╨╛ ╨▓╤Л╨▒╨╛╤А╤Г VBA. ╨Ч╨┤╨╡╤Б╤М ╨╝╤Л ╨╛╨▒╤Б╤Г╨┤╨╕╨╗╨╕, ╤З╤В╨╛ ╤В╨░╨║╨╛╨╡ ╤Б╨▓╨╛╨╣╤Б╤В╨▓╨╛ ╨▓╤Л╨▒╨╛╤А╨░ ╨▓ Excel VBA, ╤Б ╨╜╨╡╨║╨╛╤В╨╛╤А╤Л╨╝╨╕ ╨┐╤А╨░╨║╤В╨╕╤З╨╡╤Б╨║╨╕╨╝╨╕ ╨┐╤А╨╕╨╝╨╡╤А╨░╨╝╨╕ ╨╕ ╤И╨░╨▒╨╗╨╛╨╜╨╛╨╝ ╨┤╨╗╤П ╨╖╨░╨│╤А╤Г╨╖╨║╨╕. ╨Э╨╕╨╢╨╡ ╨┐╤А╨╕╨▓╨╡╨┤╨╡╨╜╤Л ╨╜╨╡╨║╨╛╤В╨╛╤А╤Л╨╡ ╨┐╨╛╨╗╨╡╨╖╨╜╤Л╨╡ ╤Б╤В╨░╤В╤М╨╕ Excel, ╤Б╨▓╤П╨╖╨░╨╜╨╜╤Л╨╡ ╤Б VBA:

  • ╨Я╤А╨╕╨╝╨╡╤А╤Л ╤В╨╡╨║╤Б╤В╨╛╨▓╤Л╤Е ╤Д╤Г╨╜╨║╤Ж╨╕╨╣ VBA
  • ╨Ю╨┐╨╡╤А╨░╤В╨╛╤А╤Л VBA
  • ╨Ч╨░╨║╤А╤Л╤В╤М ╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╨╡╨╗╤М╤Б╨║╤Г╤О ╤Д╨╛╤А╨╝╤Г ╨▓ VBA

Программы для Windows, мобильные приложения, игры - ВСЁ БЕСПЛАТНО, в нашем закрытом телеграмм канале - Подписывайтесь:)

Похожие записи

Добавить комментарий