╨Ъ╨╛╨╗╨╗╨╡╨║╤Ж╨╕╤П VBA

╨Ю╨▒╤К╨╡╨║╤В ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╨╕ Excel VBA

╨Т VBA codingVBA CodingVBA code ╨╛╤В╨╜╨╛╤Б╨╕╤В╤Б╤П ╨║ ╨╜╨░╨▒╨╛╤А╤Г ╨╕╨╜╤Б╤В╤А╤Г╨║╤Ж╨╕╨╣, ╨╜╨░╨┐╨╕╤Б╨░╨╜╨╜╤Л╤Е ╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╨╡╨╗╨╡╨╝ ╨╜╨░ ╤П╨╖╤Л╨║╨╡ ╨┐╤А╨╛╨│╤А╨░╨╝╨╝╨╕╤А╨╛╨▓╨░╨╜╨╕╤П ╨┐╤А╨╕╨╗╨╛╨╢╨╡╨╜╨╕╨╣ Visual Basic ╨▓ ╤А╨╡╨┤╨░╨║╤В╨╛╤А╨╡ Visual Basic (VBE) ╨┤╨╗╤П ╨▓╤Л╨┐╨╛╨╗╨╜╨╡╨╜╨╕╤П ╨╛╨┐╤А╨╡╨┤╨╡╨╗╨╡╨╜╨╜╨╛╨╣ ╨╖╨░╨┤╨░╤З╨╕. ╨Я╨╛╨┤╤А╨╛╨▒╨╜╨╡╨╡, ╨╝╤Л ╨╝╨╛╨╢╨╡╨╝ ╤Б╨╛╨╖╨┤╨░╨▓╨░╤В╤М ╨╜╨░╤И╨╕ ╨│╤А╤Г╨┐╨┐╤Л ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╨╣ ╨╛╤В╨┤╨╡╨╗╤М╨╜╨╛ ╨╛╤В ╤Б╤Г╤Й╨╡╤Б╤В╨▓╤Г╤О╤Й╨╡╨╣ ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╨╕ ╨┐╤А╨╡╨┤╨╝╨╡╤В╨╛╨▓ ╨╛╨┤╨╜╨╛╨╣ ╨│╤А╤Г╨┐╨┐╤Л. ╨Т╨╛ ╨╝╨╜╨╛╨│╨╕╤Е ╨╜╨░╤И╨╕╤Е ╤Б╤В╨░╤В╤М╤П╤Е ╨╝╤Л ╨│╨╛╨▓╨╛╤А╨╕╨╗╨╕ ╨╛╨▒ ╨╛╨▒╤К╨╡╨║╤В╨╜╤Л╤Е ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╤Л╤Е. ╨н╤В╨╛╤В ╤Г╤З╨╡╨▒╨╜╨╕╨║ ╨┐╤А╨╡╨┤╨╛╤Б╤В╨░╨▓╨╕╤В ╨▓╨░╨╝ ╨┐╨╛╨┤╤А╨╛╨▒╨╜╤Г╤О ╨╕╨╜╤Д╨╛╤А╨╝╨░╤Ж╨╕╤О ╨╛╨▒ ╨╛╨▒╤К╨╡╨║╤В╨╡ ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╨╕ VBA.

╨Х╤Б╨╗╨╕ ╨▓╤Л ╨┐╤А╨╛╤З╨╕╤В╨░╨╗╨╕ ╨╜╨░╤И╤Г ╨┐╤А╨╡╨┤╤Л╨┤╤Г╤Й╤Г╤О ╤Б╤В╨░╤В╤М╤О ┬л╨Ь╨░╤Б╤Б╨╕╨▓╤Л VBA╨Ь╨░╤Б╤Б╨╕╨▓╤Л VBA╨Ь╨░╤Б╤Б╨╕╨▓ VBA ╨▓ Excel тАФ ╤Н╤В╨╛ ╨╡╨┤╨╕╨╜╨╕╤Ж╨░ ╤Е╤А╨░╨╜╨╡╨╜╨╕╤П ╨╕╨╗╨╕ ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╨░╤П, ╨║╨╛╤В╨╛╤А╨░╤П ╨╝╨╛╨╢╨╡╤В ╤Е╤А╨░╨╜╨╕╤В╤М ╨╜╨╡╤Б╨║╨╛╨╗╤М╨║╨╛ ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╣ ╨┤╨░╨╜╨╜╤Л╤Е. ╨н╤В╨╕ ╨╖╨╜╨░╤З╨╡╨╜╨╕╤П ╨╛╨▒╤П╨╖╨░╤В╨╡╨╗╤М╨╜╨╛ ╨┤╨╛╨╗╨╢╨╜╤Л ╨▒╤Л╤В╤М ╨╛╨┤╨╜╨╛╨│╨╛ ╤В╨╕╨┐╨░ ╨┤╨░╨╜╨╜╤Л╤Е. ╨н╤В╨╛ ╨╛╨╖╨╜╨░╤З╨░╨╡╤В, ╤З╤В╨╛ ╤Б╨▓╤П╨╖╨░╨╜╨╜╤Л╨╡ ╨╖╨╜╨░╤З╨╡╨╜╨╕╤П ╨│╤А╤Г╨┐╨┐╨╕╤А╤Г╤О╤В╤Б╤П ╨▓╨╝╨╡╤Б╤В╨╡ ╨┤╨╗╤П ╤Б╨╛╤Е╤А╨░╨╜╨╡╨╜╨╕╤П ╨▓ ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╨╛╨╣ ╨╝╨░╤Б╤Б╨╕╨▓╨░. ╨з╨╕╤В╨░╤В╤М ╨┤╨░╨╗╨╡╨╡┬╗, ╨▓╨░╨╝ ╨▒╤Г╨┤╨╡╤В ╨╜╨░╨╝╨╜╨╛╨│╨╛ ╨╗╨╡╨│╤З╨╡ ╨┐╨╛╨╜╤П╤В╤М ╤Н╤В╨╛. ╨Ь╨░╤Б╤Б╨╕╨▓╤Л ╨╕╤Б╨┐╨╛╨╗╤М╨╖╤Г╤О╤В╤Б╤П ╨┤╨╗╤П ╨│╤А╤Г╨┐╨┐╨╕╤А╨╛╨▓╨║╨╕ ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╤Л╤Е ╨┐╨╛╨┤ ╨╛╨┤╨╜╨╛╨╣ ╨║╤А╤Л╤И╨╡╨╣. ╨в╨╛╤З╨╜╨╛ ╤В╨░╨║ ╨╢╨╡ ╨╝╤Л ╨╝╨╛╨╢╨╡╨╝ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╤О ╨┤╨╗╤П ╤Е╤А╨░╨╜╨╡╨╜╨╕╤П ╨│╤А╤Г╨┐╨┐╤Л ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╤Л╤Е.

╨Ь╨╛╨╢╨╜╨╛ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╨╕ ╨┤╨╗╤П ╤Е╤А╨░╨╜╨╡╨╜╨╕╤П ╨╛╨▒╤К╨╡╨║╤В╨╛╨▓. ╨Ю╨╜╨╕ ╨│╨╛╤А╨░╨╖╨┤╨╛ ╨▒╨╛╨╗╨╡╨╡ ╨│╨╕╨▒╨║╨╕╨╡, ╤З╨╡╨╝ ╨╝╨░╤Б╤Б╨╕╨▓╤Л VBA. ╨Т ╤В╨╛ ╨▓╤А╨╡╨╝╤П ╨║╨░╨║ ╨╝╨░╤Б╤Б╨╕╨▓╤Л ╨╕╨╝╨╡╤О╤В ╤Д╨╕╨║╤Б╨╕╤А╨╛╨▓╨░╨╜╨╜╤Л╨╡ ╨╛╨│╤А╨░╨╜╨╕╤З╨╡╨╜╨╕╤П ╨┐╨╛ ╤А╨░╨╖╨╝╨╡╤А╤Г, ╤Б╤З╨╕╤В╤Л╨▓╨░╤В╨╡╨╗╨╕ ╨╜╨╡ ╨╕╨╝╨╡╤О╤В ╤Д╨╕╨║╤Б╨╕╤А╨╛╨▓╨░╨╜╨╜╤Л╤Е ╨╛╨│╤А╨░╨╜╨╕╤З╨╡╨╜╨╕╨╣ ╨┐╨╛ ╤А╨░╨╖╨╝╨╡╤А╤Г ╨▓ ╨╗╤О╨▒╨╛╨╣ ╨╝╨╛╨╝╨╡╨╜╤В ╨▓╤А╨╡╨╝╨╡╨╜╨╕ ╨╕ ╨╜╨╡ ╤В╤А╨╡╨▒╤Г╤О╤В ╤А╤Г╤З╨╜╨╛╨│╨╛ ╨╕╨╖╨╝╨╡╨╜╨╡╨╜╨╕╤П ╤А╨░╨╖╨╝╨╡╤А╨░.

╨Ъ╨╛╨╗╨╗╨╡╨║╤Ж╨╕╤П VBA ╨╛╤З╨╡╨╜╤М ╨┐╨╛╤Е╨╛╨╢╨░ ╨╜╨░ ┬лVBA DictionaryVBA DictionaryVBA Dictionary ╨╛╨▒╤К╨╡╨┤╨╕╨╜╤П╨╡╤В ╤А╨░╨╖╨╗╨╕╤З╨╜╤Л╨╡ ╤В╨╕╨┐╤Л ╨┤╨░╨╜╨╜╤Л╤Е ╨▓ ╤Б╨╗╨╛╨▓╨░╤А╤М, ╤В╨░╨║ ╤З╤В╨╛ ╨▓╤Л ╨╝╨╛╨╢╨╡╤В╨╡ ╨┐╨╛╨╗╤Г╤З╨╕╤В╤М ╨┤╨╛╤Б╤В╤Г╨┐ ╨║╨╛ ╨▓╤Б╨╡╨╝ ╨╕╨╖ ╨╜╨╕╤Е ╤Б ╨┐╨╛╨╝╨╛╤Й╤М╤О ╨▓╤Б╨╡╨│╨╛ ╨╛╨┤╨╜╨╛╨╣ ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╨╛╨╣. ╨Я╨╛╨┤╤А╨╛╨▒╨╜╨╡╨╡┬╗, ╨╜╨╛ ╤Б╨╗╨╛╨▓╨░╤А╤М ╤В╤А╨╡╨▒╤Г╨╡╤В, ╤З╤В╨╛╨▒╤Л ╤Б╤Б╤Л╨╗╨║╨░ ╨╜╨░ ╨▓╨╜╨╡╤И╨╜╨╕╨╣ ╨╛╨▒╤К╨╡╨║╤В ╨▒╤Л╨╗╨░ ╨╜╨░╤Б╤В╤А╨╛╨╡╨╜╨░ ╨▓ ╨╛╨║╨╜╨╛ ╤Б╤Б╤Л╨╗╨║╨╕ ╨╜╨░ ╨╛╨▒╤К╨╡╨║╤В. ╨Ф╨╗╤П ┬л╨б╨╗╨╛╨▓╨░╤А╤П VBA┬╗ ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╤Г╤Б╤В╨░╨╜╨╛╨▓╨╕╤В╤М ╤В╨╕╨┐ ╤Б╤Б╤Л╨╗╨║╨╕ ╨║╨░╨║ ┬л╨б╤А╨╡╨┤╨░ ╨▓╤Л╨┐╨╛╨╗╨╜╨╡╨╜╨╕╤П ╤Б╤Ж╨╡╨╜╨░╤А╨╕╨╡╨▓ Microsoft┬╗, ╨╜╨╛ ╨Ъ╨╛╨╗╨╗╨╡╨║╤Ж╨╕╤П ╨╜╨╡ ╤В╤А╨╡╨▒╤Г╨╡╤В ╨┤╨╛╨┐╨╛╨╗╨╜╨╕╤В╨╡╨╗╤М╨╜╤Л╤Е ╨╜╨░╤Б╤В╤А╨╛╨╡╨║.

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

• ╨Ю╨▒╤К╨╡╨║╤В ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╨╕ Excel VBA
  • ╨Ъ╨░╨║ ╤Б╨╛╨╖╨┤╨░╤В╤М ╨╛╨▒╤К╨╡╨║╤В ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╨╕ ╨▓ VBA?
  • ╨Ы╤Г╤З╤И╨╡╨╡ ╨┐╨╛╨╜╨╕╨╝╨░╨╜╨╕╨╡ ╨║╨╗╤О╤З╨╡╨▓╤Л╤Е ╨┐╨░╤А╨░╨╝╨╡╤В╤А╨╛╨▓ ╨╕ ╨┐╨░╤А╨░╨╝╨╡╤В╤А╨╛╨▓ ╤Н╨╗╨╡╨╝╨╡╨╜╤В╨╛╨▓
  • ╨а╨░╤Б╤И╨╕╤А╨╡╨╜╨╜╤Л╨╣ ╨┐╤А╨╕╨╝╨╡╤А
  • ╨а╨╡╨║╨╛╨╝╨╡╨╜╨┤╤Г╨╡╨╝╤Л╨╡ ╤Б╤В╨░╤В╤М╨╕

╨Ъ╨░╨║ ╤Б╨╛╨╖╨┤╨░╤В╤М ╨╛╨▒╤К╨╡╨║╤В ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╨╕ ╨▓ VBA?

╨з╤В╨╛╨▒╤Л ╨╜╨░╤З╨░╤В╤М ╤А╨░╨▒╨╛╤В╤Г ╤Б ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╨╡╨╣, ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╨╛╨▒╤К╤П╨▓╨╕╤В╤М ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╤Г╤О ╨║╨░╨║ «╨Ъ╨╛╨╗╨╗╨╡╨║╤Ж╨╕╤П.»

.free_excel_div{╤Д╨╛╨╜:#d9d9d9;╤А╨░╨╖╨╝╨╡╤А ╤И╤А╨╕╤Д╤В╨░:16px;╤А╨░╨┤╨╕╤Г╤Б ╨│╤А╨░╨╜╨╕╤Ж╤Л:7px;╨┐╨╛╨╖╨╕╤Ж╨╕╤П:╨╛╤В╨╜╨╛╤Б╨╕╤В╨╡╨╗╤М╨╜╨░╤П;margin:30px;padding:25px 25px 25px 45px}.free_excel_div:before{content:»»;╤Д╨╛╨╜:url(╤Ж╨╡╨╜╤В╤А ╤Ж╨╡╨╜╤В╤А ╨▒╨╡╨╖ ╨┐╨╛╨▓╤В╨╛╤А╨░ #207245;╤И╨╕╤А╨╕╨╜╨░:70px;╨▓╤Л╤Б╨╛╤В╨░:70px;╨┐╨╛╨╖╨╕╤Ж╨╕╤П:╨░╨▒╤Б╨╛╨╗╤О╤В╨╜╨░╤П;╨▓╨╡╤А╤Е:50%;margin-top:-35px;╤Б╨╗╨╡╨▓╨░:-35px;╨│╤А╨░╨╜╨╕╤Ж╨░:5px ╤Б╨┐╨╗╨╛╤И╨╜╨░╤П #fff;╨│╤А╨░╨╜╨╕╤Ж╨░-╤А╨░╨┤╨╕╤Г╤Б:50%} ╨Т╤Л ╨╝╨╛╨╢╨╡╤В╨╡ ╤Б╨║╨░╤З╨░╤В╤М ╤Н╤В╨╛╤В ╤И╨░╨▒╨╗╨╛╨╜ Excel ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╨╕ VBA ╨╖╨┤╨╡╤Б╤М — ╨и╨░╨▒╨╗╨╛╨╜ Excel ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╨╕ VBA

╨Ъ╨╛╨┤:

Sub Collection_Example() Dim Col As Collection End Sub

╨Я╨╛╤Б╨║╨╛╨╗╤М╨║╤Г ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╤П ╤П╨▓╨╗╤П╨╡╤В╤Б╤П ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╨╛╨╣ ╨╛╨▒╤К╨╡╨║╤В╨░, ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╤Г╤Б╤В╨░╨╜╨╛╨▓╨╕╤В╤М ╤Б╤Б╤Л╨╗╨║╤Г ╨╜╨░ ╨╛╨▒╤К╨╡╨║╤В, ╤Б╨╛╨╖╨┤╨░╨▓ ╨╜╨╛╨▓╤Л╨╣ ╤Н╨║╨╖╨╡╨╝╨┐╨╗╤П╤А.

╨Ъ╨╛╨┤:

Sub Collection_Example() Dim Col As Collection Set Col = New Collection End Sub

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

╨Ъ╨╛╨┤:

Sub Collection_Example() Dim Col As Collection Set Col = ╨Э╨╛╨▓╤Л╨╣ ╤Б╤В╨╛╨╗╨▒╨╡╤Ж ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╨╕ End Sub

╨Я╤А╨╡╨╢╨┤╨╡ ╤З╨╡╨╝ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╤Н╤В╨╕ ╨╝╨╡╤В╨╛╨┤╤Л, ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╨╛╨▒╤К╤П╨▓╨╕╤В╤М ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╤Г╤О ╨║╨░╨║ ╤Б╤В╤А╨╛╨║╤Г.

╨Ъ╨╛╨┤:

Sub Collection_Example() Dim Col As Collection Set Col = New Collection Dim ColResult As String End Sub

╨в╨╡╨┐╨╡╤А╤М ╨╕╤Б╨┐╨╛╨╗╤М╨╖╤Г╨╣╤В╨╡ ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╤Г╤О ┬лCol┬╗, ╤З╤В╨╛╨▒╤Л ╨▓╤Л╨▒╤А╨░╤В╤М ╨╝╨╡╤В╨╛╨┤ ┬л╨Ф╨╛╨▒╨░╨▓╨╕╤В╤М┬╗.

╨Ъ╨╛╨┤:

Sub Collection_Example() Dim Col As Collection Set Col = New Collection Col.Add End Sub

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

╨Я╨╛╨┤ ╨н╨╗╨╡╨╝╨╡╨╜╤В, ╨░╤А╨│╤Г╨╝╨╡╨╜╤В ╨▓╤Е╨╛╨┤╨╕╤В ╨▓ ╤Ж╨╡╨╜╤Г ╨╝╨╛╨▒╨╕╨╗╤М╨╜╨╛╨│╨╛ ╤В╨╡╨╗╨╡╤Д╨╛╨╜╨░.

╨Ъ╨╛╨┤:

Sub Collection_Example() Dim Col As Collection Set Col = New Collection Col.Add Item:=15000, End Sub

╨Ф╨░╨╗╨╡╨╡, ╨┐╨╛╨┤ ╨Ъ╨╗╤О╤З ╨░╤А╨│╤Г╨╝╨╡╨╜╤В, ╨▓╨▓╨╡╨┤╨╕╤В╨╡ ╨╜╨░╨╖╨▓╨░╨╜╨╕╨╡ ╨╝╨╛╨▒╨╕╨╗╤М╨╜╨╛╨│╨╛ ╨▒╤А╨╡╨╜╨┤╨░.

╨Ъ╨╛╨┤:

Sub Collection_Example() Dim Col As Collection Set Col = New Collection Col.Add Item:=15000, Key:=»Redmi» End Sub

╨Ф╨╗╤П ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╨╛╨╣ ┬лColResult┬╗ ╨╝╤Л ╨▒╤Г╨┤╨╡╨╝ ╤Е╤А╨░╨╜╨╕╤В╤М ╤А╨╡╨╖╤Г╨╗╤М╤В╨░╤В ╨╛╨▒╤К╨╡╨║╤В╨╜╨╛╨╣ ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╨╛╨╣ ┬лCol┬╗.

╨Ъ╨╛╨┤:

Sub Collection_Example() Dim Col As Collection Set Col = New Collection Col.Add Item:=15000, Key:=»Redmi» ColResult = Col(End Sub

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

╨Ъ╨╛╨┤:

Sub Collection_Example() Dim Col As Collection Set Col = New Collection Col.Add Item:=15000, Key:=»Redmi» ColResult = Col(«Redmi») End Sub

╨в╨╡╨┐╨╡╤А╤М ╨┤╨░╨▓╨░╨╣╤В╨╡ ╨┐╨╛╨║╨░╨╢╨╡╨╝ ╤А╨╡╨╖╤Г╨╗╤М╤В╨░╤В ╨▓ ╨╛╨║╨╜╨╡ ╤Б╨╛╨╛╨▒╤Й╨╡╨╜╨╕╤П ╨▓ VBAMessage Box. ╨Т VBAVBA ╤Д╤Г╨╜╨║╤Ж╨╕╤П MsgBox тАФ ╤Н╤В╨╛ ╤Д╤Г╨╜╨║╤Ж╨╕╤П ╨▓╤Л╨▓╨╛╨┤╨░, ╨║╨╛╤В╨╛╤А╨░╤П ╨╛╤В╨╛╨▒╤А╨░╨╢╨░╨╡╤В ╨╛╨▒╨╛╨▒╤Й╨╡╨╜╨╜╨╛╨╡ ╤Б╨╛╨╛╨▒╤Й╨╡╨╜╨╕╨╡, ╨┐╤А╨╡╨┤╨╛╤Б╤В╨░╨▓╨╗╨╡╨╜╨╜╨╛╨╡ ╤А╨░╨╖╤А╨░╨▒╨╛╤В╤З╨╕╨║╨╛╨╝. ╨н╤В╨╛╤В ╨╛╨┐╨╡╤А╨░╤В╨╛╤А ╨╜╨╡ ╨╕╨╝╨╡╨╡╤В ╨░╤А╨│╤Г╨╝╨╡╨╜╤В╨╛╨▓, ╨╕ ╨┐╨╡╤А╤Б╨╛╨╜╨░╨╗╨╕╨╖╨╕╤А╨╛╨▓╨░╨╜╨╜╤Л╨╡ ╤Б╨╛╨╛╨▒╤Й╨╡╨╜╨╕╤П ╨▓ ╤Н╤В╨╛╨╣ ╤Д╤Г╨╜╨║╤Ж╨╕╨╕ ╨╖╨░╨┐╨╕╤Б╤Л╨▓╨░╤О╤В╤Б╤П ╨▓ ╨┤╨▓╨╛╨╣╨╜╤Л╤Е ╨║╨░╨▓╤Л╤З╨║╨░╤Е, ╨░ ╨┤╨╗╤П ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╣ ╨┐╤А╨╡╨┤╨╛╤Б╤В╨░╨▓╨╗╤П╨╡╤В╤Б╤П ╤Б╤Б╤Л╨╗╨║╨░ ╨╜╨░ ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╤Г╤О. ╨Я╨╛╨┤╤А╨╛╨▒╨╜╨╡╨╡.

╨Ъ╨╛╨┤:

Sub Collection_Example() Dim Col As Collection Set Col = New Collection Col.Add Item:=15000, Key:=»Redmi» ColResult = Col(«Redmi») MsgBox ColResult End Sub

╨Ь╤Л ╨╖╨░╨▓╨╡╤А╤И╨╕╨╗╨╕ ╨╡╨│╨╛, ╨║╨╛╨│╨┤╨░ ╨╖╨░╨┐╤Г╤Б╤В╨╕╨╗╨╕ ╨║╨╛╨┤. ╨Ь╤Л ╨┤╨╛╨╗╨╢╨╜╤Л ╤Г╨▓╨╕╨┤╨╡╤В╤М ╤Ж╨╡╨╜╤Г ╨╝╨╛╨▒╨╕╨╗╤М╨╜╨╛╨│╨╛ ╨▒╤А╨╡╨╜╨┤╨░ ┬лRedmi┬╗.

╨Ы╤Г╤З╤И╨╡╨╡ ╨┐╨╛╨╜╨╕╨╝╨░╨╜╨╕╨╡ ╨║╨╗╤О╤З╨╡╨▓╤Л╤Е ╨┐╨░╤А╨░╨╝╨╡╤В╤А╨╛╨▓ ╨╕ ╨┐╨░╤А╨░╨╝╨╡╤В╤А╨╛╨▓ ╤Н╨╗╨╡╨╝╨╡╨╜╤В╨╛╨▓

╨Ь╤Л ╤Г╨▓╨╡╤А╨╡╨╜╤Л, ╤З╤В╨╛ ╤А╨░╨╖╨╛╨▒╤А╨░╤В╤М╤Б╤П ╨▓ ╨┐╨░╤А╨░╨╝╨╡╤В╤А╨░╤Е ╨╛╨▒╤К╨╡╨║╤В╨░ Collection ╨╜╨╡╨┐╤А╨╛╤Б╤В╨╛. ╨Я╨╛╨╖╨▓╨╛╨╗╤М╤В╨╡ ╨╝╨╜╨╡ ╨╛╨▒╤К╤П╤Б╨╜╨╕╤В╤М ╨▓╨░╨╝ ╨┐╤А╨╛╤Б╤В╨╛╨╣ ╨┐╤А╨╕╨╝╨╡╤А.

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

╨Ф╨╗╤П ╨┐╨╛╨╕╤Б╨║╨░ ╤Ж╨╡╨╜╤Л ╤Д╤А╤Г╨║╤В╨░ ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╤Г╨║╨░╨╖╨░╤В╤М ╨╜╨░╨╖╨▓╨░╨╜╨╕╨╡ ╤Д╤А╤Г╨║╤В╨░, ╤В.╨╡. ╨╜╨░ ╤П╨╖╤Л╨║╨╡ ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╨╕ VBA ╨Э╨░╨╖╨▓╨░╨╜╨╕╨╡ ╤Д╤А╤Г╨║╤В╨░ ╤П╨▓╨╗╤П╨╡╤В╤Б╤П ╨Ъ╨╗╤О╤З, ╨╕ ╤Ж╨╡╨╜╨░ ╤Д╤А╤Г╨║╤В╨╛╨▓ «╨н╨╗╨╡╨╝╨╡╨╜╤В.»

╨н╤В╨╛ ╨┐╨╛╤Е╨╛╨╢╨╡ ╨╜╨░ ╨┐╤А╨╕╨╝╨╡╨╜╨╡╨╜╨╕╨╡ ╤Д╤Г╨╜╨║╤Ж╨╕╨╕ ╨Т╨Я╨а ╨╕╨╗╨╕ ╨У╨Я╨а. ╨д╤Г╨╜╨║╤Ж╨╕╤П ╨У╨Я╨а тАФ ╤Н╤В╨╛ ╤Д╤Г╨╜╨║╤Ж╨╕╤П ╨╛╨▒╤А╨░╤Й╨╡╨╜╨╕╤П ╨║ ╨╗╨╕╤Б╤В╤Г, ╨║╨╛╤В╨╛╤А╨░╤П ╨╜╨░╤Е╨╛╨┤╨╕╤В ╨╕ ╤Б╨╛╨┐╨╛╤Б╤В╨░╨▓╨╗╤П╨╡╤В ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╡ ╨╕╨╖ ╤Б╤В╤А╨╛╨║╨╕, ╨░ ╨╜╨╡ ╨╕╨╖ ╤Б╤В╨╛╨╗╨▒╤Ж╨░, ╨╕╤Б╨┐╨╛╨╗╤М╨╖╤Г╤П ╤Б╤Б╤Л╨╗╨║╤Г. Hlookup ╨╛╨╖╨╜╨░╤З╨░╨╡╤В ╨│╨╛╤А╨╕╨╖╨╛╨╜╤В╨░╨╗╤М╨╜╤Л╨╣ ╨┐╨╛╨╕╤Б╨║, ╨┐╤А╨╕ ╨║╨╛╤В╨╛╤А╨╛╨╝ ╨╝╤Л ╨╕╤Й╨╡╨╝ ╨┤╨░╨╜╨╜╤Л╨╡ ╨▓ ╤Б╤В╤А╨╛╨║╨░╤Е ╨│╨╛╤А╨╕╨╖╨╛╨╜╤В╨░╨╗╤М╨╜╨╛. ╨Я╨╛╨┤╤А╨╛╨▒╨╜╨╡╨╡, ╨╜╨░ ╨╛╤Б╨╜╨╛╨▓╨╡ ╨╖╨╜╨░╤З╨╡╨╜╨╕╤П ╨┐╨╛╨╕╤Б╨║╨░. ╨Э╨╛ ╤Б╨╜╨░╤З╨░╨╗╨░ ╨╝╤Л ╨┐╨╛╨╗╤Г╤З╨╕╨╝ ╨╜╨╡╨╛╨▒╤Е╨╛╨┤╨╕╨╝╤Л╨╡ ╨┤╨░╨╜╨╜╤Л╨╡ ╨╕╨╖ ╨▒╨░╨╖╤Л ╨┤╨░╨╜╨╜╤Л╤Е. ╨Ч╨┤╨╡╤Б╤М ╨╕╤Б╨║╨╛╨╝╨╛╨╡ ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╡ ╨Ъ╨╗╤О╤З, ╨╕ ╤А╨╡╨╖╤Г╨╗╤М╤В╨░╤В ╨н╨╗╨╡╨╝╨╡╨╜╤В.

╨а╨░╤Б╤И╨╕╤А╨╡╨╜╨╜╤Л╨╣ ╨┐╤А╨╕╨╝╨╡╤А

╨Я╤А╨╡╨┤╤Б╤В╨░╨▓╤М╤В╨╡, ╤З╤В╨╛ ╨▓╤Л ╨╝╨╡╨╜╨╡╨┤╨╢╨╡╤А ╨╛╨┤╨╜╨╛╨│╨╛ ╨╕╨╖ ╤А╨╛╨╖╨╜╨╕╤З╨╜╤Л╤Е ╨╝╨░╨│╨░╨╖╨╕╨╜╨╛╨▓ ╨╕ ╨╛╤В╨▓╨╡╤З╨░╨╡╤В╨╡ ╨╖╨░ ╨╛╨▒╤А╨░╨▒╨╛╤В╨║╤Г ╨╖╨░╨┐╤А╨╛╤Б╨╛╨▓ ╨║╨╗╨╕╨╡╨╜╤В╨╛╨▓. ╨Э╨░╨┐╤А╨╕╨╝╨╡╤А, ╨╛╨┤╨╕╨╜ ╨╖╨░╨┐╤А╨╛╤Б ╨║╨╗╨╕╨╡╨╜╤В╨░ тАФ ╤Н╤В╨╛ ╨╖╨░╨┐╤А╨╛╤Б ╨╛ ╤Ж╨╡╨╜╨╡ ╨┐╤А╨╛╨┤╤Г╨║╤В╨░.

╨С╤Л╨╗╨╛ ╨▒╤Л ╨┐╨╛╨╗╨╡╨╖╨╜╨╛, ╨╡╤Б╨╗╨╕ ╨▒╤Л ╨▓╤Л ╨┐╨╛╨╖╨▓╨╛╨╗╨╕╨╗╨╕ ╨┐╨╛╨║╤Г╨┐╨░╤В╨╡╨╗╤О ╨╕╤Б╨║╨░╤В╤М ╤Ж╨╡╨╜╤Г ╨┐╤А╨╛╨┤╤Г╨║╤В╨░ ╤Б ╨┐╨╛╨╗╨╜╨╛╨╣ ╨╕╨╜╤Д╨╛╤А╨╝╨░╤Ж╨╕╨╡╨╣. ╨в╨╛╤З╨╜╨╛ ╤В╨░╨║ ╨╢╨╡ ╨▓╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╨┐╨╛╨║╨░╨╖╨░╤В╤М ╤Б╨╛╨╛╨▒╤Й╨╡╨╜╨╕╨╡, ╨╡╤Б╨╗╨╕ ╨┤╨░╨╜╨╜╤Л╨╡ ╨╜╨╡ ╨╜╨░╨╣╨┤╨╡╨╜╤Л. ╨Э╨╕╨╢╨╡ ╨┐╤А╨╕╨▓╨╡╨┤╨╡╨╜ ╨┐╤А╨╕╨╝╨╡╤А ╨║╨╛╨┤╨░, ╨║╨╛╤В╨╛╤А╤Л╨╣ ╨┐╤А╨╡╨┤╤Б╤В╨░╨▓╨╕╤В ╨┐╨╛╨╗╨╡ ╨▓╨▓╨╛╨┤╨░ ╨┐╨╡╤А╨╡╨┤ ╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╨╡╨╗╨╡╨╝. ╨Ю╨╜╨╕ ╤В╤А╨╡╨▒╤Г╤О╤В, ╤З╤В╨╛╨▒╤Л ╨▓╤Л ╨▓╨▓╨╡╨╗╨╕ ╨╜╨░╨╖╨▓╨░╨╜╨╕╨╡ ╨┐╤А╨╛╨┤╤Г╨║╤В╨░, ╨║╨╛╤В╨╛╤А╤Л╨╣ ╨╛╨╜╨╕ ╨╕╤Й╤Г╤В. ╨Х╤Б╨╗╨╕ ╤В╨╛╨▓╨░╤А ╨╡╤Б╤В╤М ╨▓ ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╨╕, ╤В╨╛ ╨▒╤Г╨┤╨╡╤В ╤Г╨║╨░╨╖╨░╨╜╨░ ╤Ж╨╡╨╜╨░ ╤Г╨║╨░╨╖╨░╨╜╨╜╨╛╨│╨╛ ╤В╨╛╨▓╨░╤А╨░. ╨Т ╨┐╤А╨╛╤В╨╕╨▓╨╜╨╛╨╝ ╤Б╨╗╤Г╤З╨░╨╡ ╨┐╨╛╤П╨▓╨╕╤В╤Б╤П ╤Б╨╛╨╛╨▒╤Й╨╡╨╜╨╕╨╡: ┬л╨в╨╛╨▓╨░╤А, ╨║╨╛╤В╨╛╤А╤Л╨╣ ╨▓╤Л ╨╕╤Й╨╡╤В╨╡, ╨╜╨╡ ╤Б╤Г╤Й╨╡╤Б╤В╨▓╤Г╨╡╤В┬╗.

╨Ъ╨╛╨┤:

Sub Collection_Example2() Dim ItemsCol As Collection Dim ColResult As String Set ItemsCol = New Collection ItemsCol.Add Key:=»Apple», Item:=150 ItemsCol.Add Key:=»Orange», Item:=75 ItemsCol.Add Key: =»╨Р╤А╨▒╤Г╨╖», Item:=45 ItemsCol.Add Key:=»Mush Millan», Item:=85 ItemsCol.Add Key:=»Mango», Item:=65 ColResult = Application.InputBox(Prompt:=»Please ╨Т╨▓╨╡╨┤╨╕╤В╨╡ ╨╕╨╝╤П ╤Д╤А╤Г╨║╤В╨░») If ItemsCol(ColResult) <> «» Then MsgBox «╨ж╨╡╨╜╨░ ╤Д╤А╤Г╨║╤В╨░» & ColResult & «: » & ItemsCol(ColResult) Else MsgBox «╨ж╨╡╨╜╨░ ╤Д╤А╤Г╨║╤В╨░, ╨║╨╛╤В╨╛╤А╤Л╨╣ ╨▓╤Л ╨╕╤Й╨╡╤В╨╡, ╨╜╨╡ ╨б╤Г╤Й╨╡╤Б╤В╨▓╤Г╨╡╤В ╨▓ ╨║╨╛╨╗╨╗╨╡╨║╤Ж╨╕╨╕» End If End Sub

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

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

• ╨б╨║╤А╤Л╤В╤М ╤Б╤В╨╛╨╗╨▒╤Ж╤Л ╨▓ VBA
• ╨д╤Г╨╜╨║╤Ж╨╕╤П VBA JOIN
• GetOpenFilename VBA