{"id":338778,"date":"2022-09-27T03:00:06","date_gmt":"2022-09-27T03:00:06","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=338778"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=338778","title":{"rendered":"<span>\u041a\u0430\u043a \u0445\u0440\u0430\u043d\u0438\u0442\u044c Config \u0432 Excel<\/span>"},"content":{"rendered":"<div><\/div>\n<div id=\"post-content-body\">\n<div>\n<div class=\"article-formatted-body article-formatted-body article-formatted-body_version-2\">\n<div xmlns=\"http:\/\/www.w3.org\/1999\/xhtml\">\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/728\/241\/015\/728241015e50d899afcea1436fa7fcf1.jpeg\" alt=\"\u0418\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u043e\u0442\u0441\u044e\u0434\u0430: https:\/\/www.freepik.com\/free-vector\/settings-concept-illustration_9793179.htm#query=settings&amp;position=2&amp;from_view=search\" title=\"\u0418\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u043e\u0442\u0441\u044e\u0434\u0430: https:\/\/www.freepik.com\/free-vector\/settings-concept-illustration_9793179.htm#query=settings&amp;position=2&amp;from_view=search\" width=\"626\" height=\"626\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/728\/241\/015\/728241015e50d899afcea1436fa7fcf1.jpeg\" data-blurred=\"true\"\/><figcaption>\u0418\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u043e\u0442\u0441\u044e\u0434\u0430: https:\/\/www.freepik.com\/free-vector\/settings-concept-illustration_9793179.htm#query=settings&amp;position=2&amp;from_view=search<\/figcaption><\/figure>\n<p>\u042f \u0447\u0430\u0441\u0442\u043e \u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0441\u044c \u043a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0430\u0446\u0438\u0435\u0439 \u043f\u0440\u0438 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u0438 VBA \u043c\u0430\u043a\u0440\u043e\u0441\u043e\u0432 \u0432 Excel. \u0418\u043d\u043e\u0433\u0434\u0430 \u043e\u043d\u0430 \u043d\u0443\u0436\u043d\u0430 \u0432 \u0444\u043e\u0440\u043c\u0430\u0445 \u0434\u043b\u044f \u0441\u043e\u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u043d\u0430\u0441\u0442\u0440\u043e\u0435\u043a, \u0438\u043d\u043e\u0433\u0434\u0430 \u0434\u043b\u044f \u0441\u043e\u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u043a\u0430\u043a\u0438\u0445-\u0442\u043e \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c\u044b\u0445 \u0432 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0435 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043c\u0430\u043a\u0440\u043e\u0441\u0430 \u0434\u0430\u043d\u043d\u044b\u0445.<\/p>\n<p>\u0414\u043e\u043b\u0433\u043e\u0435 \u0432\u0440\u0435\u043c\u044f \u044f \u0438\u0441\u043a\u0430\u043b \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043e \u0442\u043e\u043c \u043a\u0430\u043a \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0441 \u043a\u043e\u043d\u0444\u0438\u0433\u043e\u043c \u0432 VBA.<br \/>\u0415\u0441\u0442\u044c \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e \u0440\u0430\u0437\u043b\u0438\u0447\u043d\u044b\u0445 \u0432\u0430\u0440\u0438\u0430\u043d\u0442\u043e\u0432, \u043e\u0442 \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u043a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0430\u0446\u0438\u0438 \u0432 \u043a\u043e\u0434\u0435, \u0434\u043e \u0432\u044b\u043d\u043e\u0441\u0430 \u0435\u0435 \u0432 \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u0439 \u0444\u0430\u0439\u043b.<\/p>\n<p>\u0421\u0435\u0433\u043e\u0434\u043d\u044f \u044f \u0445\u043e\u0442\u0435\u043b \u0431\u044b \u043f\u043e\u0448\u0430\u0433\u043e\u0432\u043e \u0440\u0430\u0441\u0441\u043a\u0430\u0437\u0430\u0442\u044c \u043e \u0442\u043e\u043c \u043a\u0430\u043a \u044f \u0445\u0440\u0430\u043d\u044e \u0438 \u043e\u0431\u0440\u0430\u0431\u0430\u0442\u044b\u0432\u0430\u044e \u043a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0430\u0446\u0438\u044e \u043c\u0430\u043a\u0440\u043e\u0441\u0430 \u0432 \u043a\u043d\u0438\u0433\u0435 Excel.<\/p>\n<h3>\u0421\u043e\u0437\u0434\u0430\u0435\u043c \u043b\u0438\u0441\u0442 ConfigSheet<\/h3>\n<p>\u0423 \u043c\u0435\u043d\u044f \u043f\u043e\u0434 \u0440\u0443\u043a\u043e\u0439 \u0431\u044b\u043b Excel 2010, \u043d\u043e \u0432 \u0434\u0430\u043d\u043d\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0432\u0435\u0440\u0441\u0438\u044f \u043d\u0435 \u0438\u043c\u0435\u0435\u0442 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f. <\/p>\n<p>\u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u0439 \u043b\u0438\u0441\u0442. \u042f \u043d\u0430\u0437\u0432\u0430\u043b \u0435\u0433\u043e <em>config<\/em>, \u043d\u043e \u044d\u0442\u043e \u043d\u0435 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0438\u0430\u043b\u044c\u043d\u043e. \u0427\u0442\u043e \u0436\u0435 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0438\u0430\u043b\u044c\u043d\u043e, \u0442\u0430\u043a \u044d\u0442\u043e <code>CodeName<\/code> \u043b\u0438\u0441\u0442\u0430:<\/p>\n<figure class=\"\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/de6\/034\/661\/de6034661496d3241d8c96157abf6801.jpg\" alt=\"CodeName \u043b\u0438\u0441\u0442\u0430\" title=\"CodeName \u043b\u0438\u0441\u0442\u0430\" width=\"268\" height=\"315\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/de6\/034\/661\/de6034661496d3241d8c96157abf6801.jpg\" data-blurred=\"true\"\/><figcaption>CodeName \u043b\u0438\u0441\u0442\u0430<\/figcaption><\/figure>\n<p>\u0415\u0441\u043b\u0438 \u0432\u044b \u0432\u0434\u0440\u0443\u0433 \u043d\u0435 \u0437\u043d\u0430\u043b\u0438, \u043b\u0438\u0441\u0442\u044b \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 Excel \u0432 VBA \u2013 \u044d\u0442\u043e, \u043d\u0438 \u0447\u0442\u043e \u0438\u043d\u043e\u0435, \u043a\u0430\u043a \u043e\u0431\u044a\u0435\u043a\u0442 <em>\u043a\u043b\u0430\u0441\u0441\u0430 <\/em><code>Worksheet<\/code>. \u041e\u0431\u0440\u0430\u0449\u0430\u0435\u043c\u0441\u044f \u043a \u0441\u043f\u0440\u0430\u0432\u043a\u0435 \u0438 \u0432\u0438\u0434\u0438\u043c \u0443 \u043e\u0431\u044a\u0435\u043a\u0442\u0430 <code>Worksheet<\/code> \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0435 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e (\u043f\u0435\u0440\u0435\u0437\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u0435\u0433\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043d\u043e, \u043d\u0435\u0441\u043c\u043e\u0442\u0440\u044f \u043d\u0430 Read-only, \u043c\u043e\u0436\u043d\u043e, \u043d\u043e \u043e\u0431 \u044d\u0442\u043e\u043c \u0432 \u0434\u0440\u0443\u0433\u043e\u0439 \u0440\u0430\u0437):<\/p>\n<figure class=\"\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/66d\/dd1\/0de\/66ddd10de518cbec7246bca48abc178c.jpg\" alt=\"\" title=\"\" width=\"364\" height=\"143\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/66d\/dd1\/0de\/66ddd10de518cbec7246bca48abc178c.jpg\" data-blurred=\"true\"\/><figcaption><\/figcaption><\/figure>\n<p>\u0427\u0442\u043e\u0431\u044b \u0431\u044b\u043b\u043e \u043f\u0440\u043e\u0449\u0435 \u043e\u0431\u0440\u0430\u0449\u0430\u0442\u044c\u0441\u044f \u043a \u043d\u0430\u0448\u0435\u043c\u0443 Config \u043b\u0438\u0441\u0442\u0443, \u043c\u0435\u043d\u044f\u0435\u043c \u0435\u043c\u0443 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u043e\u043b\u044f <em>(Name)<\/em> \u0432 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430\u0445 (\u0435\u0441\u043b\u0438 \u0443 \u0432\u0430\u0441 \u0438\u0445 \u043d\u0435\u0442, \u043d\u0430\u0436\u043c\u0438\u0442\u0435 <em>F4<\/em> \u0438\u043b\u0438 <em>View -> Properties Window<\/em>, \u0430 \u0435\u0441\u043b\u0438 \u0443 \u0432\u0430\u0441 \u043d\u0435\u0442 \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b \u0441 \u043f\u0440\u043e\u0435\u043a\u0442\u043e\u043c, \u043d\u0430\u0436\u043c\u0438\u0442\u0435 <em>Ctrl+R<\/em> \u0438\u043b\u0438 <em>View -> Project Explorer<\/em>).<\/p>\n<p>\u0422\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c, \u043c\u044b \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0437\u0430\u0449\u0438\u0449\u0430\u0435\u043c\u0441\u044f \u043e\u0442 \u043e\u0448\u0438\u0431\u043a\u0438 \u0432 \u0441\u043b\u0443\u0447\u0430\u0435 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u043e\u0431\u044b\u0447\u043d\u043e\u0433\u043e \u0438\u043c\u0435\u043d\u0438 \u043b\u0438\u0441\u0442\u0430, \u0430 \u0442\u0430\u043a \u0436\u0435 \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u0430\u0432\u0442\u043e\u043a\u043e\u043c\u043f\u043b\u0438\u0442.<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/fdc\/266\/dd5\/fdc266dd5f8449b386c36f4ab608e752.jpg\" alt=\"\u0412\u044b\u0437\u044b\u0432\u0430\u0435\u043c \u0430\u0432\u0442\u043e\u043a\u043e\u043c\u043f\u043b\u0438\u0442 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e Ctrl+Space\" title=\"\u0412\u044b\u0437\u044b\u0432\u0430\u0435\u043c \u0430\u0432\u0442\u043e\u043a\u043e\u043c\u043f\u043b\u0438\u0442 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e Ctrl+Space\" width=\"551\" height=\"194\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/fdc\/266\/dd5\/fdc266dd5f8449b386c36f4ab608e752.jpg\" data-blurred=\"true\"\/><figcaption>\u0412\u044b\u0437\u044b\u0432\u0430\u0435\u043c \u0430\u0432\u0442\u043e\u043a\u043e\u043c\u043f\u043b\u0438\u0442 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e Ctrl+Space<\/figcaption><\/figure>\n<p>\u041a\u0441\u0442\u0430\u0442\u0438, \u0442\u0430\u043a \u043a\u0430\u043a \u043b\u0438\u0441\u0442 \u2013 \u044d\u0442\u043e <em>\u043e\u0431\u044a\u0435\u043a\u0442<\/em>, \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u043e\u0431\u0440\u0430\u0449\u0430\u0442\u044c\u0441\u044f \u0442\u0430\u043a \u0436\u0435 \u043a \u0435\u0433\u043e \u043c\u0435\u0442\u043e\u0434\u0430\u043c, \u043f\u043e\u043b\u044f\u043c \u0438 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430\u043c \u0447\u0435\u0440\u0435\u0437 \u0442\u043e\u0447\u043a\u0443, \u043a\u0430\u043a \u043e\u0431\u044b\u0447\u043d\u043e:<\/p>\n<figure class=\"\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/5c7\/003\/e72\/5c7003e7221a626f8296455d12229b08.jpg\" alt=\"\u0412\u044b\u0437\u044b\u0432\u0430\u0435\u043c \u043c\u0435\u0442\u043e\u0434\u044b \u0438 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430\" title=\"\u0412\u044b\u0437\u044b\u0432\u0430\u0435\u043c \u043c\u0435\u0442\u043e\u0434\u044b \u0438 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430\" width=\"422\" height=\"211\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/5c7\/003\/e72\/5c7003e7221a626f8296455d12229b08.jpg\" data-blurred=\"true\"\/><figcaption>\u0412\u044b\u0437\u044b\u0432\u0430\u0435\u043c \u043c\u0435\u0442\u043e\u0434\u044b \u0438 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430<\/figcaption><\/figure>\n<p>\u042d\u0442\u0438\u043c \u043c\u044b \u0438 \u0432\u043e\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u0441\u044f, \u043d\u043e \u043e\u0431 \u044d\u0442\u043e\u043c \u0447\u0443\u0442\u044c \u043f\u043e\u0437\u0436\u0435.<\/p>\n<h3>\u0421\u043e\u0437\u0434\u0430\u0435\u043c ListObject<\/h3>\n<p>\u0418\u0442\u0430\u043a, \u043a\u0430\u043a \u0432\u044b \u0443\u0436\u0435 \u0434\u043e\u0433\u0430\u0434\u0430\u043b\u0438\u0441\u044c, \u0432\u0441\u044e \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u0442\u044c \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0443, \u0430 \u0438\u043c\u0435\u043d\u043d\u043e \u0432 \u043e\u0431\u044a\u0435\u043a\u0442 <code>ListObject<\/code>.<br \/>\u0414\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u043d\u0430 \u043d\u0430\u0448\u0435\u043c \u043b\u0438\u0441\u0442\u0435 \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043f\u0443\u0441\u0442\u0443\u044e \u0442\u0430\u0431\u043b\u0438\u0446\u0443 \u0441 \u0434\u0432\u0443\u043c\u044f \u0441\u0442\u043e\u043b\u0431\u0446\u0430\u043c\u0438 <code>Key <\/code>\u0438 <code>Value<\/code>:<\/p>\n<figure class=\"\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/75a\/b66\/e04\/75ab66e04489db84582f6585b48e7e5e.jpg\" alt=\"\u0441\u043e\u0437\u0434\u0430\u0435\u043c \u0442\u0430\u0431\u043b\u0438\u0446\u0443\" title=\"\u0441\u043e\u0437\u0434\u0430\u0435\u043c \u0442\u0430\u0431\u043b\u0438\u0446\u0443\" width=\"355\" height=\"872\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/75a\/b66\/e04\/75ab66e04489db84582f6585b48e7e5e.jpg\" data-blurred=\"true\"\/><figcaption>\u0441\u043e\u0437\u0434\u0430\u0435\u043c \u0442\u0430\u0431\u043b\u0438\u0446\u0443<\/figcaption><\/figure>\n<p>\u0422\u0435\u043f\u0435\u0440\u044c \u043e\u0441\u0442\u0430\u043b\u043e\u0441\u044c \u0432 \u041a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440\u0435 \u0437\u0430\u0434\u0430\u0442\u044c \u043d\u0430\u0448\u0435\u0439 \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u0438\u043c\u044f, \u0438 \u043e\u0441\u043d\u043e\u0432\u0430 \u0434\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0433\u043e\u0442\u043e\u0432\u0430:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/9f3\/cf8\/957\/9f3cf8957fe343bdc9b3c087ca7af52f.jpg\" alt=\"\" title=\"\" width=\"761\" height=\"257\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/9f3\/cf8\/957\/9f3cf8957fe343bdc9b3c087ca7af52f.jpg\" data-blurred=\"true\"\/><figcaption><\/figcaption><\/figure>\n<h3>\u041f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u043e\u0431\u044a\u0435\u043a\u0442 \u0442\u0430\u0431\u043b\u0438\u0446\u044b<\/h3>\n<p>\u041f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043a \u0441\u0430\u043c\u043e\u043c\u0443 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e\u043c\u0443. \u041f\u0438\u0441\u0430\u0442\u044c \u043a\u043e\u0434 \u0431\u0443\u0434\u0435\u043c \u0432 \u043c\u043e\u0434\u0443\u043b\u0435 \u043b\u0438\u0441\u0442\u0430 <code>ConfigSheet<\/code>.<br \/>\u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u0441\u043e\u0437\u0434\u0430\u0434\u0438\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u044b\u0435 \u0433\u0435\u0442\u0435\u0440\u044b:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/534\/6ce\/b8c\/5346ceb8c28fa980aa070e47e9469f6b.jpeg\" alt=\"\" title=\"\" width=\"798\" height=\"215\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/534\/6ce\/b8c\/5346ceb8c28fa980aa070e47e9469f6b.jpeg\" data-blurred=\"true\"\/><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Property Get Table() As ListObject   \u00a0\u00a0' \u0421\u0432\u043e\u0439\u0441\u0442\u0432\u043e Read-Only \u0434\u043b\u044f \u043e\u0431\u044a\u0435\u043a\u0442\u0430 \u0442\u0430\u0431\u043b\u0438\u0446\u044b.   \u00a0\u00a0Set Table = Me.ListObjects(\"configTable\") End Property  Public Property Get Keys() As Range   \u00a0\u00a0' \u0421\u0432\u043e\u0439\u0441\u0442\u0432\u043e Read-Only \u0434\u043b\u044f \u0441\u0442\u043e\u043b\u0431\u0446\u0430 \u043a\u043b\u044e\u0447\u0435\u0439.   \u00a0\u00a0Set Keys = Me.Table.ListColumns(KeyColumn).DataBodyRange End Property  Public Property Get Values() As Range     ' \u0421\u0432\u043e\u0439\u0441\u0442\u0432\u043e Read-Only \u0434\u043b\u044f \u0441\u0442\u043e\u043b\u0431\u0446\u0430 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439.     Set Values = Me.Table.ListColumns(ValueColumn).DataBodyRange End Property<\/code><\/pre>\n<p>\u0412 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e <code>Table<\/code> \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u043c \u043d\u0430\u0448\u0443 \u0442\u0430\u0431\u043b\u0438\u0446\u0443, \u0432 <code>Keys<\/code> \u2013 \u0441\u0442\u043e\u043b\u0431\u0435\u0446 \u043a\u043b\u044e\u0447\u0435\u0439, \u0432 <code>Values<\/code> \u2013 \u0441\u0442\u043e\u043b\u0431\u0435\u0446 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439.<\/p>\n<p>\u0414\u043b\u044f \u0443\u0434\u043e\u0431\u0441\u0442\u0432\u0430 \u043e\u0431\u0440\u0430\u0449\u0435\u043d\u0438\u044f \u043a \u0441\u0442\u043e\u043b\u0431\u0446\u0430\u043c (\u0438 \u0447\u0442\u043e\u0431\u044b \u043d\u0435 <em>\u0445\u0430\u0440\u0434\u043a\u043e\u0434\u0438\u0442\u044c<\/em>), \u043f\u0440\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c <code>Enum<\/code> \u043d\u0430 \u0443\u0440\u043e\u0432\u043d\u0435 \u043c\u043e\u0434\u0443\u043b\u044f:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/cd7\/9e0\/013\/cd79e00137276ac5243e7bf435b239ff.jpeg\" alt=\"\" title=\"\" width=\"577\" height=\"132\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/cd7\/9e0\/013\/cd79e00137276ac5243e7bf435b239ff.jpeg\" data-blurred=\"true\"\/><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Private Enum EConfigColumns   \u00a0\u00a0KeyColumn = 1   \u00a0\u00a0ValueColumn End Enum<\/code><\/pre>\n<p>\u0421\u043a\u0430\u0437\u0430\u043b &#171;<em>\u043d\u0435 \u0445\u0430\u0440\u0434\u043a\u043e\u0434\u0438\u0442\u044c<\/em>&#187; \u0438 <em>\u0437\u0430\u0445\u0430\u0440\u0434\u043a\u043e\u0434\u0438\u043b<\/em> \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u0442\u0430\u0431\u043b\u0438\u0446\u044b ?. \u0418\u0441\u043f\u0440\u0430\u0432\u043b\u044f\u044e\u0441\u044c:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/aac\/34c\/a27\/aac34ca27d3e40f58ccb8ace4b632d7d.jpeg\" alt=\"\" title=\"\" width=\"570\" height=\"169\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/aac\/34c\/a27\/aac34ca27d3e40f58ccb8ace4b632d7d.jpeg\" data-blurred=\"true\"\/><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Option Explicit  Private Enum EConfigColumns     KeyColumn = 1     ValueColumn End Enum  Private Const ConfigTable As String = \"configTable\"<\/code><\/pre>\n<h3>\u041f\u0440\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e Get Config<\/h3>\n<p>\u041e\u0441\u0442\u0430\u043b\u043e\u0441\u044c \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e <code>Config<\/code>, \u0447\u0435\u0440\u0435\u0437 \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0431\u0443\u0434\u0435\u043c \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c, \u043f\u043e\u043b\u0443\u0447\u0430\u0442\u044c \u0438 \u043e\u0431\u043d\u043e\u0432\u043b\u044f\u0442\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0435.<\/p>\n<p>\u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u043f\u0440\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u0438\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u043f\u043e \u043a\u043b\u044e\u0447\u0443:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/bd6\/f6c\/746\/bd6f6c74616477ad77ca29fee07b1128.jpeg\" alt=\"\" title=\"\" width=\"572\" height=\"166\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/bd6\/f6c\/746\/bd6f6c74616477ad77ca29fee07b1128.jpeg\" data-blurred=\"true\"\/><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Property Get Config(ByVal Key As Variant) As Variant   \u00a0\u00a0Dim i As Long   \u00a0\u00a0For i = 1 To Me.Keys.Rows.Count     \u00a0\u00a0\u00a0\u00a0If Key &lt;> Me.Keys(i).Value Then GoTo NextKey     \u00a0\u00a0\u00a0\u00a0Config = Me.Values(i).Value: Exit Property NextKey:   \u00a0\u00a0Next End Property<\/code><\/pre>\n<p>\u0417\u0434\u0435\u0441\u044c \u0432\u0441\u0435 \u0434\u043e\u0432\u043e\u043b\u044c\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u043e \u2013 \u043f\u0440\u043e\u0431\u0435\u0433\u0430\u0435\u043c \u0446\u0438\u043a\u043b\u043e\u043c \u043f\u043e \u043a\u043b\u044e\u0447\u0430\u043c \u0438 \u0441\u0440\u0430\u0432\u043d\u0438\u0432\u0430\u0435\u043c \u0438\u0445 \u0441 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u043c <code>Key<\/code>, \u043f\u0435\u0440\u0435\u0434\u0430\u0432\u0430\u0435\u043c\u044b\u043c \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u043c. \u041a\u0430\u043a \u0442\u043e\u043b\u044c\u043a\u043e \u043d\u0430\u0445\u043e\u0434\u0438\u043c \u043d\u0443\u0436\u043d\u044b\u0439 \u043a\u043b\u044e\u0447, \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0435\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435.<\/p>\n<p>\u0422\u0430\u043a \u043a\u0430\u043a \u043c\u044b \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u043c \u043d\u0430\u043f\u0440\u044f\u043c\u0443\u044e \u0441 \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u043c <code>Range<\/code>, \u044d\u0442\u043e \u0443\u0436\u0435 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0437\u0430\u043c\u0435\u0434\u043b\u044f\u0435\u0442 \u0440\u0430\u0431\u043e\u0442\u0443 \u043c\u0430\u043a\u0440\u043e\u0441\u0430. \u041f\u043b\u044e\u0441 \u043a\u043e \u0432\u0441\u0435\u043c\u0443, \u0432\u043e \u0432\u0440\u0435\u043c\u044f \u0446\u0438\u043a\u043b\u0430 \u043c\u0430\u043a\u0440\u043e\u0441 \u0431\u0443\u0434\u0435\u0442 \u043f\u043e\u0441\u0442\u043e\u044f\u043d\u043d\u043e \u0432\u044b\u0437\u044b\u0432\u0430\u0442\u044c \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 <code>Keys<\/code> \u0438 <code>Values<\/code> \u0447\u0442\u043e\u0431\u044b \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0438\u0445 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f, \u0447\u0442\u043e \u0435\u0449\u0435 \u0441\u0438\u043b\u044c\u043d\u0435\u0435 \u0437\u0430\u043c\u0435\u0434\u043b\u0438\u0442 \u0441\u043a\u043e\u0440\u043e\u0441\u0442\u044c \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f.<\/p>\n<p>\u0427\u0442\u043e\u0431\u044b \u043d\u0435\u043c\u043d\u043e\u0433\u043e \u0443\u0441\u043a\u043e\u0440\u0438\u0442\u044c \u043f\u0440\u043e\u0446\u0435\u0441\u0441 \u0438 \u0438\u0437\u0431\u0435\u0436\u0430\u0442\u044c \u043f\u043e\u0441\u0442\u043e\u044f\u043d\u043d\u043e\u0435 \u043e\u0431\u0440\u0430\u0449\u0435\u043d\u0438\u0435, \u043c\u043e\u0436\u043d\u043e \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u0438 \u043f\u0435\u0440\u0435\u0434\u0430\u0432\u0430\u0442\u044c \u0432 \u043d\u0438\u0445 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/2ef\/185\/4bb\/2ef1854bba7192ec09a991027a331676.jpeg\" alt=\"\" title=\"\" width=\"574\" height=\"222\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/2ef\/185\/4bb\/2ef1854bba7192ec09a991027a331676.jpeg\" data-blurred=\"true\"\/><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Property Get Config(ByVal Key As Variant) As Variant ' \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435, \u0434\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0441\u0432\u043e\u0439\u0441\u0442\u0432.   \u00a0\u00a0Dim Keys\u00a0\u00a0 As Range: Set Keys = Me.Keys   \u00a0\u00a0Dim Values\u00a0As Range: Set Values = Me.Values      Dim i As Long   \u00a0\u00a0For i = 1 To Me.Keys.Rows.Count     \u00a0\u00a0\u00a0\u00a0If Key &lt;> Me.Keys(i).Value Then GoTo NextKey     \u00a0\u00a0\u00a0\u00a0Config = Me.Values(i).Value: Exit Property NextKey:   \u00a0\u00a0Next End Property<\/code><\/pre>\n<p>\u041d\u043e \u044d\u0442\u043e \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0437\u0430\u0433\u0440\u043e\u043c\u043e\u0436\u0434\u0430\u0435\u0442 \u043a\u043e\u0434 (\u0430 \u0432\u0435\u0434\u044c \u0443 \u043d\u0430\u0441 \u0435\u0449\u0435 \u0431\u0443\u0434\u0435\u0442 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e <code>Let<\/code>), \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0432\u043e\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u0441\u044f <code>UDT<\/code> (<em>user defined type<\/em>) \u0438 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u043e\u0439, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0431\u0443\u0434\u0435\u0442 \u0435\u0433\u043e \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u043e\u0432\u0430\u0442\u044c.<\/p>\n<p>\u0421\u043e\u0437\u0434\u0430\u0435\u043c \u0442\u0438\u043f <code>TConfig<\/code> \u0432 \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u043c \u0432\u0441\u0435 \u043d\u0430\u0448\u0438 \u0440\u0430\u043d\u0435\u0435 \u0441\u043e\u0437\u0434\u0430\u043d\u043d\u044b\u0435 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 (\u043a\u0440\u043e\u043c\u0435, \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e, <code>Config<\/code>), \u0430 \u0442\u0430\u043a \u0436\u0435 \u0441\u043e\u0437\u0434\u0430\u0435\u043c <em>\u043f\u0440\u0438\u0432\u0430\u0442\u043d\u0443\u044e<\/em> \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e <code>This<\/code> \u043d\u0430 \u0443\u0440\u043e\u0432\u043d\u0435 \u043c\u043e\u0434\u0443\u043b\u044f:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/748\/620\/169\/7486201692d1f649c6f9f77998a05b92.jpeg\" alt=\"\" title=\"\" width=\"574\" height=\"286\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/748\/620\/169\/7486201692d1f649c6f9f77998a05b92.jpeg\" data-blurred=\"true\"\/><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Option Explicit  Private Enum EConfigColumns   \u00a0\u00a0KeyColumn = 1   \u00a0\u00a0ValueColumn End Enum  Private Const ConfigTable As String = \"configTable\"  Private Type TConfig   \u00a0\u00a0Table\u00a0 As ListObject     Keys\u00a0\u00a0 As Range   \u00a0\u00a0Values As Range End Type  Private This As TConfig<\/code><\/pre>\n<p>\u041e\u0447\u0435\u043d\u044c \u0432\u0430\u0436\u043d\u043e \u0447\u0442\u043e\u0431\u044b \u0438 <code>Type TConfig<\/code> \u0438 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f <code>This<\/code> \u0431\u044b\u043b\u0438 \u043f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u043c\u0438, \u0438\u043d\u0430\u0447\u0435 \u043d\u0430 \u044d\u0442\u0430\u043f\u0435 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0446\u0438\u0438 \u0432\u043e\u0437\u043d\u0438\u043a\u043d\u0435\u0442 \u043e\u0448\u0438\u0431\u043a\u0430.<\/p>\n<p>\u0414\u0430\u043b\u0435\u0435, \u043f\u0440\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u0443\u044e \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 <code>InitThis<\/code>, \u0434\u043b\u044f \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u043d\u0438\u044f \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 \u043d\u0430\u0448\u0435\u043c\u0443 \u0442\u0438\u043f\u0443:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/599\/151\/031\/59915103106f09d35e1b1faeb57663ff.jpeg\" alt=\"\" title=\"\" width=\"572\" height=\"120\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/599\/151\/031\/59915103106f09d35e1b1faeb57663ff.jpeg\" data-blurred=\"true\"\/><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Sub InitThis()   \u00a0\u00a0Set This.Table = Me.Table   \u00a0\u00a0Set This.Keys = Me.Keys   \u00a0\u00a0Set This.Values = Me.Values End Sub<\/code><\/pre>\n<p>\u0422\u0435\u043f\u0435\u0440\u044c \u043f\u043e\u043f\u0440\u0430\u0432\u0438\u043c \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e <code>Config<\/code>:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/7f1\/1f7\/7bb\/7f11f77bb88bafa7536ec7f60f7a129a.jpeg\" alt=\"\" title=\"\" width=\"574\" height=\"192\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/7f1\/1f7\/7bb\/7f11f77bb88bafa7536ec7f60f7a129a.jpeg\" data-blurred=\"true\"\/><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Property Get Config(ByVal Key As Variant) As Variant   \u00a0\u00a0Me.InitThis        Dim i As Long     For i = 1 To This.Keys.Rows.Count         If Key &lt;> This.Keys(i).Value Then GoTo NextKey         Config = This.Values(i).Value: Exit Property NextKey:     Next End Property<\/code><\/pre>\n<p>\u041b\u0430\u043a\u043e\u043d\u0438\u0447\u043d\u043e, \u043d\u0435 \u0442\u0430\u043a \u043b\u0438?<\/p>\n<h3>\u041f\u0440\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e Let Config<\/h3>\n<p>\u0421 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u0435\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 \u0447\u0443\u0442\u044c \u0438\u043d\u0430\u0447\u0435:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w1560\/getpro\/habr\/upload_files\/e0c\/c23\/c55\/e0cc23c55303a313b7f4aebe8dd9fa68.png\" width=\"828\" height=\"238\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/e0c\/c23\/c55\/e0cc23c55303a313b7f4aebe8dd9fa68.png\"\/><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Property Let Config(ByVal Key As Variant, ByVal RHS As Variant)   \u00a0\u00a0Me.InitThis   \u00a0\u00a0If This.Keys Is Nothing Then This.Table.ListRows.Add: Me.InitThis    \u00a0\u00a0Dim i As Long   \u00a0\u00a0Do Until Key = This.Keys(i).Value     \u00a0\u00a0\u00a0\u00a0\u00a0i = i + 1     \u00a0\u00a0\u00a0\u00a0\u00a0If i > This.Keys.Rows.Count Then This.Table.ListRows.Add: Exit Do   \u00a0\u00a0Loop    \u00a0\u00a0This.Keys(i).Value = Key   \u00a0\u00a0This.Values(i).Value = RHS End Property<\/code><\/pre>\n<p>\u0412 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u043f\u0440\u0438\u043d\u0438\u043c\u0430\u0435\u043c <code>Key<\/code> \u0438 <code>RHS<\/code> (<em>Right Hand Side<\/em> \u2013 \u043f\u043e \u043f\u0440\u0430\u0432\u0443\u044e \u0440\u0443\u043a\u0443), \u0434\u043b\u044f \u0442\u043e\u0433\u043e \u0447\u0442\u043e\u0431\u044b \u043c\u043e\u0436\u043d\u043e \u0431\u044b\u043b\u043e \u043f\u0440\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c \u0442\u0430\u043a\u0443\u044e \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u044e:<\/p>\n<p><code>ConfigSheet.Config(\"Key\") = \"Value\"<\/code><\/p>\n<p>\u0412 \u0441\u0430\u043c\u043e\u043c \u043d\u0430\u0447\u0430\u043b\u0435 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c <code>This.Keys<\/code> \u043d\u0430 <code>Nothing<\/code>, \u0442.\u043a. \u0435\u0441\u043b\u0438 \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u0435\u0449\u0435 \u0441\u043e\u0432\u0441\u0435\u043c \u043d\u0435\u0442 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439, \u043f\u0440\u0438 \u043f\u043e\u043f\u044b\u0442\u043a\u0435 \u043f\u0440\u043e\u0431\u0435\u0436\u0430\u0442\u044c\u0441\u044f \u0446\u0438\u043a\u043b\u043e\u043c \u043f\u043e \u0441\u0442\u043e\u043b\u0431\u0446\u0430\u043c \u0432\u044b\u0441\u043a\u043e\u0447\u0438\u0442 \u043e\u0448\u0438\u0431\u043a\u0430.<br \/>\u0427\u0442\u043e\u0431\u044b \u044d\u0442\u043e\u0433\u043e \u0438\u0437\u0431\u0435\u0436\u0430\u0442\u044c, \u043f\u043e\u0441\u043b\u0435 \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0443 \u043f\u0443\u0441\u0442\u0443\u044e \u0441\u0442\u0440\u043e\u043a\u0443 \u0438 \u0437\u0430\u043d\u043e\u0432\u043e \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u043e\u0432\u0430\u0442\u044c <code>This<\/code>. \u0422\u043e\u043b\u044c\u043a\u043e \u043f\u043e\u0441\u043b\u0435 \u044d\u0442\u043e\u0433\u043e \u043c\u043e\u0436\u043d\u043e \u0431\u0443\u0434\u0435\u0442 \u0441\u0432\u043e\u0431\u043e\u0434\u043d\u043e \u043f\u0440\u043e\u0445\u043e\u0434\u0438\u0442\u044c \u043f\u043e \u0441\u0442\u043e\u043b\u0431\u0446\u0430\u043c \u0446\u0438\u043a\u043b\u043e\u043c.<br \/>\u041f\u043e\u0434\u043e\u0431\u043d\u0443\u044e \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0443 \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0438 \u0432 <code>Get<\/code>, \u043d\u043e \u0432\u043c\u0435\u0441\u0442\u043e \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u0441\u0442\u0440\u043e\u043a\u0438 \u043f\u0440\u043e\u0441\u0442\u043e \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 &#171;\u041d\u0435\u0442 \u0434\u0430\u043d\u043d\u044b\u0445 \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u043a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0430\u0446\u0438\u0438&#187;:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w1560\/getpro\/habr\/upload_files\/8e2\/8ce\/9ed\/8e28ce9ed054c4312ff8e812a72410b7.png\" width=\"830\" height=\"222\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/8e2\/8ce\/9ed\/8e28ce9ed054c4312ff8e812a72410b7.png\"\/><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Property Get Config(ByVal Key As Variant) As Variant     Me.InitThis     If This.Keys Is Nothing Then Config = \"\u041d\u0435\u0442 \u0434\u0430\u043d\u043d\u044b\u0445 \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u043a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0430\u0446\u0438\u0438\": Exit Property      Dim i As Long     For i = 1 To This.Keys.Rows.Count         If Key &lt;> This.Keys(i).Value Then GoTo NextKey         Config = This.Values(i).Value: Exit Property NextKey:     Next End Property<\/code><\/pre>\n<p>\u0414\u0430\u043b\u0435\u0435, \u0442\u0430\u043a \u0436\u0435 \u043a\u0430\u043a \u0438 \u0432 <code>Get<\/code> \u0447\u0430\u0441\u0442\u0438, \u0446\u0438\u043a\u043b\u043e\u043c, \u0442\u043e\u043b\u044c\u043a\u043e \u0442\u0435\u043f\u0435\u0440\u044c <code>Do Until<\/code>, \u043f\u0440\u043e\u0431\u0435\u0433\u0430\u0435\u043c \u043f\u043e \u043a\u043b\u044e\u0447\u0430\u043c \u043a\u043e\u043d\u0444\u0438\u0433\u0430. \u041f\u0440\u0438 \u0434\u043e\u0441\u0442\u0438\u0436\u0435\u043d\u0438\u0438 \u043c\u0430\u043a\u0441\u0438\u043c\u0430\u043b\u044c\u043d\u043e\u0433\u043e \u0438\u043d\u0434\u0435\u043a\u0441\u0430 \u2013 \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0432 \u043a\u043e\u043d\u0446\u0435 \u043d\u043e\u0432\u0443\u044e \u0441\u0442\u0440\u043e\u043a\u0443 \u0438 \u0432\u044b\u0445\u043e\u0434\u0438\u043c \u0438\u0437 \u0446\u0438\u043a\u043b\u0430. \u0412 \u043a\u043e\u043d\u0446\u0435 \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u0435\u043c \u043a\u043b\u044e\u0447 \u0438 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0435 \u044f\u0447\u0435\u0439\u043a\u0438.<\/p>\n<h3>\u0423\u0434\u0430\u043b\u044f\u0435\u043c \u043f\u0443\u0441\u0442\u044b\u0435 \u0441\u0442\u0440\u043e\u043a\u0438<\/h3>\n<p>\u041f\u0440\u0438 \u043f\u0435\u0440\u0432\u043e\u043c \u043e\u0431\u0440\u0430\u0449\u0435\u043d\u0438\u0438 \u043a \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u0443 \u043d\u0430\u0441 \u043f\u043e\u044f\u0432\u0438\u0442\u0441\u044f \u043f\u0443\u0441\u0442\u0430\u044f \u0441\u0442\u0440\u043e\u043a\u0430. \u0427\u0442\u043e\u0431\u044b \u0435\u0435 \u0443\u0431\u0440\u0430\u0442\u044c (\u0438 \u0432\u043e\u043e\u0431\u0449\u0435, \u043d\u0430 \u0432\u0441\u044f\u043a\u0438\u0439 \u0441\u043b\u0443\u0447\u0430\u0439, \u043a\u0430\u0436\u0434\u044b\u0439 \u0440\u0430\u0437 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0442\u044c, \u043d\u0435\u0442 \u043b\u0438 \u043f\u0443\u0441\u0442\u044b\u0445 \u0441\u0442\u0440\u043e\u043a \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0435), \u043f\u0440\u043e\u043f\u0438\u0448\u0435\u043c \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u0443\u044e \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/ad7\/b23\/51d\/ad7b2351dc7e7512485aa3cfcb41efad.jpeg\" alt=\"\" title=\"\" width=\"910\" height=\"181\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/ad7\/b23\/51d\/ad7b2351dc7e7512485aa3cfcb41efad.jpeg\" data-blurred=\"true\"\/><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Sub DeleteEmptyRows()   \u00a0\u00a0Me.InitThis   \u00a0\u00a0\u00a0   \u00a0\u00a0Dim i As Long   \u00a0\u00a0For i = This.Keys.Count To 1 Step -1     \u00a0\u00a0\u00a0\u00a0\u00a0If (IsEmpty(This.Keys(i).Value) And IsEmpty(This.Values(i).Value)) _     \u00a0\u00a0\u00a0\u00a0\u00a0Or (This.Keys(i).Value = vbNullString And This.Values(i).Value = vbNullString) Then This.Table.ListRows(i).Delete   \u00a0\u00a0Next End Sub<\/code><\/pre>\n<p>\u0438 \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0435\u0435 \u0432 \u0443\u0436\u0435 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043d\u0443\u044e <code>Let<\/code> \u0447\u0430\u0441\u0442\u044c:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w1560\/getpro\/habr\/upload_files\/574\/8e2\/8b8\/5748e28b86baa05c04f4827a4dd6e2b3.png\" width=\"831\" height=\"265\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/574\/8e2\/8b8\/5748e28b86baa05c04f4827a4dd6e2b3.png\"\/><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Property Let Config(ByVal Key As Variant, ByVal RHS As Variant)   \u00a0\u00a0Me.InitThis   \u00a0\u00a0If This.Keys Is Nothing Then This.Table.ListRows.Add: Me.InitThis   \u00a0\u00a0\u00a0   \u00a0\u00a0Dim i As Long   \u00a0\u00a0Do Until Key = This.Keys(i).Value     \u00a0\u00a0\u00a0\u00a0\u00a0i = i + 1     \u00a0\u00a0\u00a0\u00a0\u00a0If i > This.Keys.Rows.Count Then This.Table.ListRows.Add: Exit Do   \u00a0\u00a0Loop   \u00a0\u00a0\u00a0   \u00a0\u00a0This.Keys(i).Value = Key   \u00a0\u00a0This.Values(i).Value = RHS   \u00a0\u00a0Me.DeleteEmptyRows\u00a0' \u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u043d\u0430 \u043f\u0443\u0441\u0442\u044b\u0435 \u0441\u0442\u0440\u043e\u043a\u0438. End Property<\/code><\/pre>\n<h3>\u0418\u0442\u043e\u0433\u043e\u0432\u044b\u0439 \u043a\u043e\u0434<\/h3>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/dd1\/731\/3aa\/dd17313aa30cccd168dece5f3d75bc33.jpg\" width=\"967\" height=\"1200\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/dd1\/731\/3aa\/dd17313aa30cccd168dece5f3d75bc33.jpg\" data-blurred=\"true\"\/><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Option Explicit  Private Enum EConfigColumns   \u00a0\u00a0KeyColumn = 1   \u00a0\u00a0ValueColumn End Enum  Private Const ConfigTable As String = \"configTable\"  Private Type TConfig   \u00a0\u00a0Table\u00a0 As ListObject   \u00a0\u00a0Keys\u00a0\u00a0 As Range   \u00a0\u00a0Values As Range End Type  Private This As TConfig  Public Sub InitThis()   \u00a0\u00a0Set This.Table = Me.Table   \u00a0\u00a0Set This.Keys = Me.Keys   \u00a0\u00a0Set This.Values = Me.Values End Sub  Public Property Get Table() As ListObject   \u00a0\u00a0' \u0421\u0432\u043e\u0439\u0441\u0442\u0432\u043e Read-Only \u0434\u043b\u044f \u043e\u0431\u044a\u0435\u043a\u0442\u0430 \u0442\u0430\u0431\u043b\u0438\u0446\u044b.   \u00a0\u00a0Set Table = Me.ListObjects(ConfigTable) End Property  Public Property Get Keys() As Range   \u00a0\u00a0' \u0421\u0432\u043e\u0439\u0441\u0442\u0432\u043e Read-Only \u0434\u043b\u044f \u0441\u0442\u043e\u043b\u0431\u0446\u0430 \u043a\u043b\u044e\u0447\u0435\u0439.   \u00a0\u00a0Set Keys = Me.Table.ListColumns(KeyColumn).DataBodyRange End Property  Public Property Get Values() As Range   \u00a0\u00a0' \u0421\u0432\u043e\u0439\u0441\u0442\u0432\u043e Read-Only \u0434\u043b\u044f \u0441\u0442\u043e\u043b\u0431\u0446\u0430 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439.   \u00a0\u00a0Set Values = Me.Table.ListColumns(ValueColumn).DataBodyRange End Property  Public Property Get Config(ByVal Key As Variant) As Variant   \u00a0\u00a0Me.InitThis     If This.Keys Is Nothing Then Config = \"\u041d\u0435\u0442 \u0434\u0430\u043d\u043d\u044b\u0445 \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u043a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0430\u0446\u0438\u0438\": Exit Property      Dim i As Long   \u00a0\u00a0For i = 1 To This.Keys.Rows.Count     \u00a0\u00a0\u00a0\u00a0If Key &lt;> This.Keys(i).Value Then GoTo NextKey     \u00a0\u00a0\u00a0\u00a0Config = This.Values(i).Value: Exit Property NextKey:   \u00a0\u00a0Next End Property  Public Property Let Config(ByVal Key As Variant, ByVal RHS As Variant)   \u00a0\u00a0Me.InitThis   \u00a0\u00a0If This.Keys Is Nothing Then This.Table.ListRows.Add: Me.InitThis    \u00a0\u00a0Dim i As Long   \u00a0\u00a0Do Until Key = This.Keys(i).Value     \u00a0\u00a0\u00a0\u00a0\u00a0i = i + 1     \u00a0\u00a0\u00a0\u00a0\u00a0If i > This.Keys.Rows.Count Then This.Table.ListRows.Add: Exit Do   \u00a0\u00a0Loop    \u00a0\u00a0This.Keys(i).Value = Key   \u00a0\u00a0This.Values(i).Value = RHS   \u00a0\u00a0Me.DeleteEmptyRows\u00a0' \u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u043d\u0430 \u043f\u0443\u0441\u0442\u044b\u0435 \u0441\u0442\u0440\u043e\u043a\u0438. End Property  Public Sub DeleteEmptyRows()   \u00a0\u00a0Me.InitThis    \u00a0\u00a0Dim i As Long   \u00a0\u00a0For i = This.Keys.Count To 1 Step -1     \u00a0\u00a0\u00a0\u00a0\u00a0If (IsEmpty(This.Keys(i).Value) And IsEmpty(This.Values(i).Value)) _     \u00a0\u00a0\u00a0\u00a0\u00a0Or (This.Keys(i).Value = vbNullString And This.Values(i).Value = vbNullString) Then This.Table.ListRows(i).Delete   \u00a0\u00a0Next End Sub <\/code><\/pre>\n<h3>\u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442<\/h3>\n<p>\u041d\u0443 \u0438 \u043d\u0430\u043a\u043e\u043d\u0435\u0446 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u043f\u043e\u043b\u0443\u0447\u0438\u0432\u0448\u0438\u0439\u0441\u044f \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442.<\/p>\n<p>\u0417\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432 \u043a\u043e\u043d\u0444\u0438\u0433:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/7d5\/a84\/f78\/7d5a84f7841a0188c33bad21983d8b85.jpeg\" alt=\"\" title=\"\" width=\"941\" height=\"566\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/7d5\/a84\/f78\/7d5a84f7841a0188c33bad21983d8b85.jpeg\" data-blurred=\"true\"\/><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Sub Test()     ' \u0417\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \"\u0414\u043d\u0435\u0432\u043d\u0438\u043a VBA\u0448\u043d\u0438\u043a\u0430\" \u0437\u0430\u043f\u0438\u0441\u0430\u043d\u043e \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0443 \u0441 \u043a\u043b\u044e\u0447\u043e\u043c \"ChanelName\"     ConfigSheet.Config(\"ChanelName\") = \"\u0414\u043d\u0435\u0432\u043d\u0438\u043a VBA\u0448\u043d\u0438\u043a\u0430\" End Sub<\/code><\/pre>\n<p>\u0421\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/881\/45f\/d0a\/88145fd0a1dfe94042f589a40a26f2fc.jpeg\" alt=\"\" title=\"\" width=\"941\" height=\"298\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/881\/45f\/d0a\/88145fd0a1dfe94042f589a40a26f2fc.jpeg\" data-blurred=\"true\"\/><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Sub Test()     ' \u0420\u0430\u0441\u043f\u0435\u0447\u0430\u0442\u0430\u0435\u0442: \"\u0414\u043d\u0435\u0432\u043d\u0438\u043a VBA\u0448\u043d\u0438\u043a\u0430\"     Debug.Print ConfigSheet.Config(\"ChanelName\") End Sub<\/code><\/pre>\n<p>\u041c\u0435\u043d\u044f\u0435\u043c \u0438 \u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u0435\u0449\u0435 \u0440\u0430\u0437:<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/959\/9a8\/b28\/9599a8b2858ed0029d83ce5494f8eeb1.jpeg\" alt=\"\" title=\"\" width=\"941\" height=\"298\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/959\/9a8\/b28\/9599a8b2858ed0029d83ce5494f8eeb1.jpeg\" data-blurred=\"true\"\/><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Sub Test()     ConfigSheet.Config(\"ChanelName\") = \"https:\/\/t.me\/VBAn_Diary\"     ' \u0420\u0430\u0441\u043f\u0435\u0447\u0430\u0442\u0430\u0435\u0442: \"https:\/\/t.me\/VBAn_Diary\"     Debug.Print ConfigSheet.Config(\"ChanelName\") End Sub<\/code><\/pre>\n<p>\u041d\u0443 \u0430 \u0434\u0430\u043b\u044c\u0448\u0435 \u044d\u0442\u043e\u0442 \u043b\u0438\u0441\u0442 \u043c\u043e\u0436\u043d\u043e \u0441\u043f\u0440\u044f\u0442\u0430\u0442\u044c \u043e\u0442 \u0433\u043b\u0430\u0437 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439, \u0437\u0430\u0449\u0438\u0442\u0438\u0442\u044c \u043a\u043d\u0438\u0433\u0443 \u0438 \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0443, \u0438 \u0441\u043f\u043e\u043a\u043e\u0439\u043d\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0441 \u043a\u043e\u043d\u0444\u0438\u0433\u043e\u043c.<\/p>\n<blockquote>\n<p><em>\u0423\u0432\u0435\u0440\u0435\u043d, \u0447\u0442\u043e \u043c\u043e\u0436\u043d\u043e \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c \u043f\u043e\u0434\u0445\u043e\u0434 \u0438 \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u043a\u043e\u0434 \u0438\u043d\u0430\u0447\u0435. \u0412\u043e\u0437\u043c\u043e\u0436\u043d\u043e \u0443 \u0432\u0430\u0441 \u0435\u0441\u0442\u044c \u043f\u0440\u0435\u0434\u043b\u043e\u0436\u0435\u043d\u0438\u044f \u0438\u043b\u0438 \u0434\u043e\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043f\u043e \u0441\u0442\u0430\u0442\u044c\u0435. \u0411\u0443\u0434\u0443 \u0440\u0430\u0434 \u043b\u044e\u0431\u043e\u043c\u0443 \u043e\u0442\u0437\u044b\u0432\u0443. ?<\/em><\/p>\n<\/blockquote>\n<\/div>\n<\/div>\n<\/div>\n<div class=\"v-portal\" style=\"display:none;\"><\/div>\n<\/div>\n<p> <!----> <!----><br \/> \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438 <a href=\"https:\/\/habr.com\/ru\/post\/690298\/\"> https:\/\/habr.com\/ru\/post\/690298\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<div><\/div>\n<div id=\"post-content-body\">\n<div>\n<div class=\"article-formatted-body article-formatted-body article-formatted-body_version-2\">\n<div xmlns=\"http:\/\/www.w3.org\/1999\/xhtml\">\n<figure class=\"full-width\"><figcaption>\u0418\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u043e\u0442\u0441\u044e\u0434\u0430: https:\/\/www.freepik.com\/free-vector\/settings-concept-illustration_9793179.htm#query=settings&amp;position=2&amp;from_view=search<\/figcaption><\/figure>\n<p>\u042f \u0447\u0430\u0441\u0442\u043e \u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0441\u044c \u043a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0430\u0446\u0438\u0435\u0439 \u043f\u0440\u0438 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u0438 VBA \u043c\u0430\u043a\u0440\u043e\u0441\u043e\u0432 \u0432 Excel. \u0418\u043d\u043e\u0433\u0434\u0430 \u043e\u043d\u0430 \u043d\u0443\u0436\u043d\u0430 \u0432 \u0444\u043e\u0440\u043c\u0430\u0445 \u0434\u043b\u044f \u0441\u043e\u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u043d\u0430\u0441\u0442\u0440\u043e\u0435\u043a, \u0438\u043d\u043e\u0433\u0434\u0430 \u0434\u043b\u044f \u0441\u043e\u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u043a\u0430\u043a\u0438\u0445-\u0442\u043e \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c\u044b\u0445 \u0432 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0435 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043c\u0430\u043a\u0440\u043e\u0441\u0430 \u0434\u0430\u043d\u043d\u044b\u0445.<\/p>\n<p>\u0414\u043e\u043b\u0433\u043e\u0435 \u0432\u0440\u0435\u043c\u044f \u044f \u0438\u0441\u043a\u0430\u043b \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043e \u0442\u043e\u043c \u043a\u0430\u043a \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0441 \u043a\u043e\u043d\u0444\u0438\u0433\u043e\u043c \u0432 VBA.<br \/>\u0415\u0441\u0442\u044c \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e \u0440\u0430\u0437\u043b\u0438\u0447\u043d\u044b\u0445 \u0432\u0430\u0440\u0438\u0430\u043d\u0442\u043e\u0432, \u043e\u0442 \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u043a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0430\u0446\u0438\u0438 \u0432 \u043a\u043e\u0434\u0435, \u0434\u043e \u0432\u044b\u043d\u043e\u0441\u0430 \u0435\u0435 \u0432 \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u0439 \u0444\u0430\u0439\u043b.<\/p>\n<p>\u0421\u0435\u0433\u043e\u0434\u043d\u044f \u044f \u0445\u043e\u0442\u0435\u043b \u0431\u044b \u043f\u043e\u0448\u0430\u0433\u043e\u0432\u043e \u0440\u0430\u0441\u0441\u043a\u0430\u0437\u0430\u0442\u044c \u043e \u0442\u043e\u043c \u043a\u0430\u043a \u044f \u0445\u0440\u0430\u043d\u044e \u0438 \u043e\u0431\u0440\u0430\u0431\u0430\u0442\u044b\u0432\u0430\u044e \u043a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0430\u0446\u0438\u044e \u043c\u0430\u043a\u0440\u043e\u0441\u0430 \u0432 \u043a\u043d\u0438\u0433\u0435 Excel.<\/p>\n<h3>\u0421\u043e\u0437\u0434\u0430\u0435\u043c \u043b\u0438\u0441\u0442 ConfigSheet<\/h3>\n<p>\u0423 \u043c\u0435\u043d\u044f \u043f\u043e\u0434 \u0440\u0443\u043a\u043e\u0439 \u0431\u044b\u043b Excel 2010, \u043d\u043e \u0432 \u0434\u0430\u043d\u043d\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0432\u0435\u0440\u0441\u0438\u044f \u043d\u0435 \u0438\u043c\u0435\u0435\u0442 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f. <\/p>\n<p>\u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u0439 \u043b\u0438\u0441\u0442. \u042f \u043d\u0430\u0437\u0432\u0430\u043b \u0435\u0433\u043e <em>config<\/em>, \u043d\u043e \u044d\u0442\u043e \u043d\u0435 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0438\u0430\u043b\u044c\u043d\u043e. \u0427\u0442\u043e \u0436\u0435 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0438\u0430\u043b\u044c\u043d\u043e, \u0442\u0430\u043a \u044d\u0442\u043e <code>CodeName<\/code> \u043b\u0438\u0441\u0442\u0430:<\/p>\n<figure class=\"\"><figcaption>CodeName \u043b\u0438\u0441\u0442\u0430<\/figcaption><\/figure>\n<p>\u0415\u0441\u043b\u0438 \u0432\u044b \u0432\u0434\u0440\u0443\u0433 \u043d\u0435 \u0437\u043d\u0430\u043b\u0438, \u043b\u0438\u0441\u0442\u044b \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 Excel \u0432 VBA \u2013 \u044d\u0442\u043e, \u043d\u0438 \u0447\u0442\u043e \u0438\u043d\u043e\u0435, \u043a\u0430\u043a \u043e\u0431\u044a\u0435\u043a\u0442 <em>\u043a\u043b\u0430\u0441\u0441\u0430 <\/em><code>Worksheet<\/code>. \u041e\u0431\u0440\u0430\u0449\u0430\u0435\u043c\u0441\u044f \u043a \u0441\u043f\u0440\u0430\u0432\u043a\u0435 \u0438 \u0432\u0438\u0434\u0438\u043c \u0443 \u043e\u0431\u044a\u0435\u043a\u0442\u0430 <code>Worksheet<\/code> \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0435 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e (\u043f\u0435\u0440\u0435\u0437\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u0435\u0433\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043d\u043e, \u043d\u0435\u0441\u043c\u043e\u0442\u0440\u044f \u043d\u0430 Read-only, \u043c\u043e\u0436\u043d\u043e, \u043d\u043e \u043e\u0431 \u044d\u0442\u043e\u043c \u0432 \u0434\u0440\u0443\u0433\u043e\u0439 \u0440\u0430\u0437):<\/p>\n<figure class=\"\"><figcaption><\/figcaption><\/figure>\n<p>\u0427\u0442\u043e\u0431\u044b \u0431\u044b\u043b\u043e \u043f\u0440\u043e\u0449\u0435 \u043e\u0431\u0440\u0430\u0449\u0430\u0442\u044c\u0441\u044f \u043a \u043d\u0430\u0448\u0435\u043c\u0443 Config \u043b\u0438\u0441\u0442\u0443, \u043c\u0435\u043d\u044f\u0435\u043c \u0435\u043c\u0443 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u043e\u043b\u044f <em>(Name)<\/em> \u0432 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430\u0445 (\u0435\u0441\u043b\u0438 \u0443 \u0432\u0430\u0441 \u0438\u0445 \u043d\u0435\u0442, \u043d\u0430\u0436\u043c\u0438\u0442\u0435 <em>F4<\/em> \u0438\u043b\u0438 <em>View -> Properties Window<\/em>, \u0430 \u0435\u0441\u043b\u0438 \u0443 \u0432\u0430\u0441 \u043d\u0435\u0442 \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b \u0441 \u043f\u0440\u043e\u0435\u043a\u0442\u043e\u043c, \u043d\u0430\u0436\u043c\u0438\u0442\u0435 <em>Ctrl+R<\/em> \u0438\u043b\u0438 <em>View -> Project Explorer<\/em>).<\/p>\n<p>\u0422\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c, \u043c\u044b \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0437\u0430\u0449\u0438\u0449\u0430\u0435\u043c\u0441\u044f \u043e\u0442 \u043e\u0448\u0438\u0431\u043a\u0438 \u0432 \u0441\u043b\u0443\u0447\u0430\u0435 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u043e\u0431\u044b\u0447\u043d\u043e\u0433\u043e \u0438\u043c\u0435\u043d\u0438 \u043b\u0438\u0441\u0442\u0430, \u0430 \u0442\u0430\u043a \u0436\u0435 \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u0430\u0432\u0442\u043e\u043a\u043e\u043c\u043f\u043b\u0438\u0442.<\/p>\n<figure class=\"full-width\"><figcaption>\u0412\u044b\u0437\u044b\u0432\u0430\u0435\u043c \u0430\u0432\u0442\u043e\u043a\u043e\u043c\u043f\u043b\u0438\u0442 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e Ctrl+Space<\/figcaption><\/figure>\n<p>\u041a\u0441\u0442\u0430\u0442\u0438, \u0442\u0430\u043a \u043a\u0430\u043a \u043b\u0438\u0441\u0442 \u2013 \u044d\u0442\u043e <em>\u043e\u0431\u044a\u0435\u043a\u0442<\/em>, \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u043e\u0431\u0440\u0430\u0449\u0430\u0442\u044c\u0441\u044f \u0442\u0430\u043a \u0436\u0435 \u043a \u0435\u0433\u043e \u043c\u0435\u0442\u043e\u0434\u0430\u043c, \u043f\u043e\u043b\u044f\u043c \u0438 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430\u043c \u0447\u0435\u0440\u0435\u0437 \u0442\u043e\u0447\u043a\u0443, \u043a\u0430\u043a \u043e\u0431\u044b\u0447\u043d\u043e:<\/p>\n<figure class=\"\"><figcaption>\u0412\u044b\u0437\u044b\u0432\u0430\u0435\u043c \u043c\u0435\u0442\u043e\u0434\u044b \u0438 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430<\/figcaption><\/figure>\n<p>\u042d\u0442\u0438\u043c \u043c\u044b \u0438 \u0432\u043e\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u0441\u044f, \u043d\u043e \u043e\u0431 \u044d\u0442\u043e\u043c \u0447\u0443\u0442\u044c \u043f\u043e\u0437\u0436\u0435.<\/p>\n<h3>\u0421\u043e\u0437\u0434\u0430\u0435\u043c ListObject<\/h3>\n<p>\u0418\u0442\u0430\u043a, \u043a\u0430\u043a \u0432\u044b \u0443\u0436\u0435 \u0434\u043e\u0433\u0430\u0434\u0430\u043b\u0438\u0441\u044c, \u0432\u0441\u044e \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u0442\u044c \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0443, \u0430 \u0438\u043c\u0435\u043d\u043d\u043e \u0432 \u043e\u0431\u044a\u0435\u043a\u0442 <code>ListObject<\/code>.<br \/>\u0414\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u043d\u0430 \u043d\u0430\u0448\u0435\u043c \u043b\u0438\u0441\u0442\u0435 \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043f\u0443\u0441\u0442\u0443\u044e \u0442\u0430\u0431\u043b\u0438\u0446\u0443 \u0441 \u0434\u0432\u0443\u043c\u044f \u0441\u0442\u043e\u043b\u0431\u0446\u0430\u043c\u0438 <code>Key <\/code>\u0438 <code>Value<\/code>:<\/p>\n<figure class=\"\"><figcaption>\u0441\u043e\u0437\u0434\u0430\u0435\u043c \u0442\u0430\u0431\u043b\u0438\u0446\u0443<\/figcaption><\/figure>\n<p>\u0422\u0435\u043f\u0435\u0440\u044c \u043e\u0441\u0442\u0430\u043b\u043e\u0441\u044c \u0432 \u041a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440\u0435 \u0437\u0430\u0434\u0430\u0442\u044c \u043d\u0430\u0448\u0435\u0439 \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u0438\u043c\u044f, \u0438 \u043e\u0441\u043d\u043e\u0432\u0430 \u0434\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0433\u043e\u0442\u043e\u0432\u0430:<\/p>\n<figure class=\"full-width\"><figcaption><\/figcaption><\/figure>\n<h3>\u041f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u043e\u0431\u044a\u0435\u043a\u0442 \u0442\u0430\u0431\u043b\u0438\u0446\u044b<\/h3>\n<p>\u041f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043a \u0441\u0430\u043c\u043e\u043c\u0443 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e\u043c\u0443. \u041f\u0438\u0441\u0430\u0442\u044c \u043a\u043e\u0434 \u0431\u0443\u0434\u0435\u043c \u0432 \u043c\u043e\u0434\u0443\u043b\u0435 \u043b\u0438\u0441\u0442\u0430 <code>ConfigSheet<\/code>.<br \/>\u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u0441\u043e\u0437\u0434\u0430\u0434\u0438\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u044b\u0435 \u0433\u0435\u0442\u0435\u0440\u044b:<\/p>\n<figure class=\"full-width\"><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Property Get Table() As ListObject   \u00a0\u00a0' \u0421\u0432\u043e\u0439\u0441\u0442\u0432\u043e Read-Only \u0434\u043b\u044f \u043e\u0431\u044a\u0435\u043a\u0442\u0430 \u0442\u0430\u0431\u043b\u0438\u0446\u044b.   \u00a0\u00a0Set Table = Me.ListObjects(\"configTable\") End Property  Public Property Get Keys() As Range   \u00a0\u00a0' \u0421\u0432\u043e\u0439\u0441\u0442\u0432\u043e Read-Only \u0434\u043b\u044f \u0441\u0442\u043e\u043b\u0431\u0446\u0430 \u043a\u043b\u044e\u0447\u0435\u0439.   \u00a0\u00a0Set Keys = Me.Table.ListColumns(KeyColumn).DataBodyRange End Property  Public Property Get Values() As Range     ' \u0421\u0432\u043e\u0439\u0441\u0442\u0432\u043e Read-Only \u0434\u043b\u044f \u0441\u0442\u043e\u043b\u0431\u0446\u0430 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439.     Set Values = Me.Table.ListColumns(ValueColumn).DataBodyRange End Property<\/code><\/pre>\n<p>\u0412 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e <code>Table<\/code> \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u043c \u043d\u0430\u0448\u0443 \u0442\u0430\u0431\u043b\u0438\u0446\u0443, \u0432 <code>Keys<\/code> \u2013 \u0441\u0442\u043e\u043b\u0431\u0435\u0446 \u043a\u043b\u044e\u0447\u0435\u0439, \u0432 <code>Values<\/code> \u2013 \u0441\u0442\u043e\u043b\u0431\u0435\u0446 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439.<\/p>\n<p>\u0414\u043b\u044f \u0443\u0434\u043e\u0431\u0441\u0442\u0432\u0430 \u043e\u0431\u0440\u0430\u0449\u0435\u043d\u0438\u044f \u043a \u0441\u0442\u043e\u043b\u0431\u0446\u0430\u043c (\u0438 \u0447\u0442\u043e\u0431\u044b \u043d\u0435 <em>\u0445\u0430\u0440\u0434\u043a\u043e\u0434\u0438\u0442\u044c<\/em>), \u043f\u0440\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c <code>Enum<\/code> \u043d\u0430 \u0443\u0440\u043e\u0432\u043d\u0435 \u043c\u043e\u0434\u0443\u043b\u044f:<\/p>\n<figure class=\"full-width\"><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Private Enum EConfigColumns   \u00a0\u00a0KeyColumn = 1   \u00a0\u00a0ValueColumn End Enum<\/code><\/pre>\n<p>\u0421\u043a\u0430\u0437\u0430\u043b &#171;<em>\u043d\u0435 \u0445\u0430\u0440\u0434\u043a\u043e\u0434\u0438\u0442\u044c<\/em>&#187; \u0438 <em>\u0437\u0430\u0445\u0430\u0440\u0434\u043a\u043e\u0434\u0438\u043b<\/em> \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u0442\u0430\u0431\u043b\u0438\u0446\u044b ?. \u0418\u0441\u043f\u0440\u0430\u0432\u043b\u044f\u044e\u0441\u044c:<\/p>\n<figure class=\"full-width\"><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Option Explicit  Private Enum EConfigColumns     KeyColumn = 1     ValueColumn End Enum  Private Const ConfigTable As String = \"configTable\"<\/code><\/pre>\n<h3>\u041f\u0440\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e Get Config<\/h3>\n<p>\u041e\u0441\u0442\u0430\u043b\u043e\u0441\u044c \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e <code>Config<\/code>, \u0447\u0435\u0440\u0435\u0437 \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0431\u0443\u0434\u0435\u043c \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c, \u043f\u043e\u043b\u0443\u0447\u0430\u0442\u044c \u0438 \u043e\u0431\u043d\u043e\u0432\u043b\u044f\u0442\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0435.<\/p>\n<p>\u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u043f\u0440\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u0438\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u043f\u043e \u043a\u043b\u044e\u0447\u0443:<\/p>\n<figure class=\"full-width\"><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Property Get Config(ByVal Key As Variant) As Variant   \u00a0\u00a0Dim i As Long   \u00a0\u00a0For i = 1 To Me.Keys.Rows.Count     \u00a0\u00a0\u00a0\u00a0If Key &lt;> Me.Keys(i).Value Then GoTo NextKey     \u00a0\u00a0\u00a0\u00a0Config = Me.Values(i).Value: Exit Property NextKey:   \u00a0\u00a0Next End Property<\/code><\/pre>\n<p>\u0417\u0434\u0435\u0441\u044c \u0432\u0441\u0435 \u0434\u043e\u0432\u043e\u043b\u044c\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u043e \u2013 \u043f\u0440\u043e\u0431\u0435\u0433\u0430\u0435\u043c \u0446\u0438\u043a\u043b\u043e\u043c \u043f\u043e \u043a\u043b\u044e\u0447\u0430\u043c \u0438 \u0441\u0440\u0430\u0432\u043d\u0438\u0432\u0430\u0435\u043c \u0438\u0445 \u0441 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u043c <code>Key<\/code>, \u043f\u0435\u0440\u0435\u0434\u0430\u0432\u0430\u0435\u043c\u044b\u043c \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u043c. \u041a\u0430\u043a \u0442\u043e\u043b\u044c\u043a\u043e \u043d\u0430\u0445\u043e\u0434\u0438\u043c \u043d\u0443\u0436\u043d\u044b\u0439 \u043a\u043b\u044e\u0447, \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0435\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435.<\/p>\n<p>\u0422\u0430\u043a \u043a\u0430\u043a \u043c\u044b \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u043c \u043d\u0430\u043f\u0440\u044f\u043c\u0443\u044e \u0441 \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u043c <code>Range<\/code>, \u044d\u0442\u043e \u0443\u0436\u0435 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0437\u0430\u043c\u0435\u0434\u043b\u044f\u0435\u0442 \u0440\u0430\u0431\u043e\u0442\u0443 \u043c\u0430\u043a\u0440\u043e\u0441\u0430. \u041f\u043b\u044e\u0441 \u043a\u043e \u0432\u0441\u0435\u043c\u0443, \u0432\u043e \u0432\u0440\u0435\u043c\u044f \u0446\u0438\u043a\u043b\u0430 \u043c\u0430\u043a\u0440\u043e\u0441 \u0431\u0443\u0434\u0435\u0442 \u043f\u043e\u0441\u0442\u043e\u044f\u043d\u043d\u043e \u0432\u044b\u0437\u044b\u0432\u0430\u0442\u044c \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 <code>Keys<\/code> \u0438 <code>Values<\/code> \u0447\u0442\u043e\u0431\u044b \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0438\u0445 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f, \u0447\u0442\u043e \u0435\u0449\u0435 \u0441\u0438\u043b\u044c\u043d\u0435\u0435 \u0437\u0430\u043c\u0435\u0434\u043b\u0438\u0442 \u0441\u043a\u043e\u0440\u043e\u0441\u0442\u044c \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f.<\/p>\n<p>\u0427\u0442\u043e\u0431\u044b \u043d\u0435\u043c\u043d\u043e\u0433\u043e \u0443\u0441\u043a\u043e\u0440\u0438\u0442\u044c \u043f\u0440\u043e\u0446\u0435\u0441\u0441 \u0438 \u0438\u0437\u0431\u0435\u0436\u0430\u0442\u044c \u043f\u043e\u0441\u0442\u043e\u044f\u043d\u043d\u043e\u0435 \u043e\u0431\u0440\u0430\u0449\u0435\u043d\u0438\u0435, \u043c\u043e\u0436\u043d\u043e \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u0438 \u043f\u0435\u0440\u0435\u0434\u0430\u0432\u0430\u0442\u044c \u0432 \u043d\u0438\u0445 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430:<\/p>\n<figure class=\"full-width\"><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Property Get Config(ByVal Key As Variant) As Variant ' \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435, \u0434\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0441\u0432\u043e\u0439\u0441\u0442\u0432.   \u00a0\u00a0Dim Keys\u00a0\u00a0 As Range: Set Keys = Me.Keys   \u00a0\u00a0Dim Values\u00a0As Range: Set Values = Me.Values      Dim i As Long   \u00a0\u00a0For i = 1 To Me.Keys.Rows.Count     \u00a0\u00a0\u00a0\u00a0If Key &lt;> Me.Keys(i).Value Then GoTo NextKey     \u00a0\u00a0\u00a0\u00a0Config = Me.Values(i).Value: Exit Property NextKey:   \u00a0\u00a0Next End Property<\/code><\/pre>\n<p>\u041d\u043e \u044d\u0442\u043e \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0437\u0430\u0433\u0440\u043e\u043c\u043e\u0436\u0434\u0430\u0435\u0442 \u043a\u043e\u0434 (\u0430 \u0432\u0435\u0434\u044c \u0443 \u043d\u0430\u0441 \u0435\u0449\u0435 \u0431\u0443\u0434\u0435\u0442 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e <code>Let<\/code>), \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0432\u043e\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u0441\u044f <code>UDT<\/code> (<em>user defined type<\/em>) \u0438 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u043e\u0439, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0431\u0443\u0434\u0435\u0442 \u0435\u0433\u043e \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u043e\u0432\u0430\u0442\u044c.<\/p>\n<p>\u0421\u043e\u0437\u0434\u0430\u0435\u043c \u0442\u0438\u043f <code>TConfig<\/code> \u0432 \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u043c \u0432\u0441\u0435 \u043d\u0430\u0448\u0438 \u0440\u0430\u043d\u0435\u0435 \u0441\u043e\u0437\u0434\u0430\u043d\u043d\u044b\u0435 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 (\u043a\u0440\u043e\u043c\u0435, \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e, <code>Config<\/code>), \u0430 \u0442\u0430\u043a \u0436\u0435 \u0441\u043e\u0437\u0434\u0430\u0435\u043c <em>\u043f\u0440\u0438\u0432\u0430\u0442\u043d\u0443\u044e<\/em> \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e <code>This<\/code> \u043d\u0430 \u0443\u0440\u043e\u0432\u043d\u0435 \u043c\u043e\u0434\u0443\u043b\u044f:<\/p>\n<figure class=\"full-width\"><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Option Explicit  Private Enum EConfigColumns   \u00a0\u00a0KeyColumn = 1   \u00a0\u00a0ValueColumn End Enum  Private Const ConfigTable As String = \"configTable\"  Private Type TConfig   \u00a0\u00a0Table\u00a0 As ListObject     Keys\u00a0\u00a0 As Range   \u00a0\u00a0Values As Range End Type  Private This As TConfig<\/code><\/pre>\n<p>\u041e\u0447\u0435\u043d\u044c \u0432\u0430\u0436\u043d\u043e \u0447\u0442\u043e\u0431\u044b \u0438 <code>Type TConfig<\/code> \u0438 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f <code>This<\/code> \u0431\u044b\u043b\u0438 \u043f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u043c\u0438, \u0438\u043d\u0430\u0447\u0435 \u043d\u0430 \u044d\u0442\u0430\u043f\u0435 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0446\u0438\u0438 \u0432\u043e\u0437\u043d\u0438\u043a\u043d\u0435\u0442 \u043e\u0448\u0438\u0431\u043a\u0430.<\/p>\n<p>\u0414\u0430\u043b\u0435\u0435, \u043f\u0440\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u0443\u044e \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 <code>InitThis<\/code>, \u0434\u043b\u044f \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u043d\u0438\u044f \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 \u043d\u0430\u0448\u0435\u043c\u0443 \u0442\u0438\u043f\u0443:<\/p>\n<figure class=\"full-width\"><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Sub InitThis()   \u00a0\u00a0Set This.Table = Me.Table   \u00a0\u00a0Set This.Keys = Me.Keys   \u00a0\u00a0Set This.Values = Me.Values End Sub<\/code><\/pre>\n<p>\u0422\u0435\u043f\u0435\u0440\u044c \u043f\u043e\u043f\u0440\u0430\u0432\u0438\u043c \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e <code>Config<\/code>:<\/p>\n<figure class=\"full-width\"><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Property Get Config(ByVal Key As Variant) As Variant   \u00a0\u00a0Me.InitThis        Dim i As Long     For i = 1 To This.Keys.Rows.Count         If Key &lt;> This.Keys(i).Value Then GoTo NextKey         Config = This.Values(i).Value: Exit Property NextKey:     Next End Property<\/code><\/pre>\n<p>\u041b\u0430\u043a\u043e\u043d\u0438\u0447\u043d\u043e, \u043d\u0435 \u0442\u0430\u043a \u043b\u0438?<\/p>\n<h3>\u041f\u0440\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e Let Config<\/h3>\n<p>\u0421 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u0435\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 \u0447\u0443\u0442\u044c \u0438\u043d\u0430\u0447\u0435:<\/p>\n<figure class=\"full-width\"><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Property Let Config(ByVal Key As Variant, ByVal RHS As Variant)   \u00a0\u00a0Me.InitThis   \u00a0\u00a0If This.Keys Is Nothing Then This.Table.ListRows.Add: Me.InitThis    \u00a0\u00a0Dim i As Long   \u00a0\u00a0Do Until Key = This.Keys(i).Value     \u00a0\u00a0\u00a0\u00a0\u00a0i = i + 1     \u00a0\u00a0\u00a0\u00a0\u00a0If i > This.Keys.Rows.Count Then This.Table.ListRows.Add: Exit Do   \u00a0\u00a0Loop    \u00a0\u00a0This.Keys(i).Value = Key   \u00a0\u00a0This.Values(i).Value = RHS End Property<\/code><\/pre>\n<p>\u0412 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u043f\u0440\u0438\u043d\u0438\u043c\u0430\u0435\u043c <code>Key<\/code> \u0438 <code>RHS<\/code> (<em>Right Hand Side<\/em> \u2013 \u043f\u043e \u043f\u0440\u0430\u0432\u0443\u044e \u0440\u0443\u043a\u0443), \u0434\u043b\u044f \u0442\u043e\u0433\u043e \u0447\u0442\u043e\u0431\u044b \u043c\u043e\u0436\u043d\u043e \u0431\u044b\u043b\u043e \u043f\u0440\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c \u0442\u0430\u043a\u0443\u044e \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u044e:<\/p>\n<p><code>ConfigSheet.Config(\"Key\") = \"Value\"<\/code><\/p>\n<p>\u0412 \u0441\u0430\u043c\u043e\u043c \u043d\u0430\u0447\u0430\u043b\u0435 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c <code>This.Keys<\/code> \u043d\u0430 <code>Nothing<\/code>, \u0442.\u043a. \u0435\u0441\u043b\u0438 \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u0435\u0449\u0435 \u0441\u043e\u0432\u0441\u0435\u043c \u043d\u0435\u0442 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439, \u043f\u0440\u0438 \u043f\u043e\u043f\u044b\u0442\u043a\u0435 \u043f\u0440\u043e\u0431\u0435\u0436\u0430\u0442\u044c\u0441\u044f \u0446\u0438\u043a\u043b\u043e\u043c \u043f\u043e \u0441\u0442\u043e\u043b\u0431\u0446\u0430\u043c \u0432\u044b\u0441\u043a\u043e\u0447\u0438\u0442 \u043e\u0448\u0438\u0431\u043a\u0430.<br \/>\u0427\u0442\u043e\u0431\u044b \u044d\u0442\u043e\u0433\u043e \u0438\u0437\u0431\u0435\u0436\u0430\u0442\u044c, \u043f\u043e\u0441\u043b\u0435 \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0443 \u043f\u0443\u0441\u0442\u0443\u044e \u0441\u0442\u0440\u043e\u043a\u0443 \u0438 \u0437\u0430\u043d\u043e\u0432\u043e \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u043e\u0432\u0430\u0442\u044c <code>This<\/code>. \u0422\u043e\u043b\u044c\u043a\u043e \u043f\u043e\u0441\u043b\u0435 \u044d\u0442\u043e\u0433\u043e \u043c\u043e\u0436\u043d\u043e \u0431\u0443\u0434\u0435\u0442 \u0441\u0432\u043e\u0431\u043e\u0434\u043d\u043e \u043f\u0440\u043e\u0445\u043e\u0434\u0438\u0442\u044c \u043f\u043e \u0441\u0442\u043e\u043b\u0431\u0446\u0430\u043c \u0446\u0438\u043a\u043b\u043e\u043c.<br \/>\u041f\u043e\u0434\u043e\u0431\u043d\u0443\u044e \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0443 \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0438 \u0432 <code>Get<\/code>, \u043d\u043e \u0432\u043c\u0435\u0441\u0442\u043e \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u0441\u0442\u0440\u043e\u043a\u0438 \u043f\u0440\u043e\u0441\u0442\u043e \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 &#171;\u041d\u0435\u0442 \u0434\u0430\u043d\u043d\u044b\u0445 \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u043a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0430\u0446\u0438\u0438&#187;:<\/p>\n<figure class=\"full-width\"><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Property Get Config(ByVal Key As Variant) As Variant     Me.InitThis     If This.Keys Is Nothing Then Config = \"\u041d\u0435\u0442 \u0434\u0430\u043d\u043d\u044b\u0445 \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u043a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0430\u0446\u0438\u0438\": Exit Property      Dim i As Long     For i = 1 To This.Keys.Rows.Count         If Key &lt;> This.Keys(i).Value Then GoTo NextKey         Config = This.Values(i).Value: Exit Property NextKey:     Next End Property<\/code><\/pre>\n<p>\u0414\u0430\u043b\u0435\u0435, \u0442\u0430\u043a \u0436\u0435 \u043a\u0430\u043a \u0438 \u0432 <code>Get<\/code> \u0447\u0430\u0441\u0442\u0438, \u0446\u0438\u043a\u043b\u043e\u043c, \u0442\u043e\u043b\u044c\u043a\u043e \u0442\u0435\u043f\u0435\u0440\u044c <code>Do Until<\/code>, \u043f\u0440\u043e\u0431\u0435\u0433\u0430\u0435\u043c \u043f\u043e \u043a\u043b\u044e\u0447\u0430\u043c \u043a\u043e\u043d\u0444\u0438\u0433\u0430. \u041f\u0440\u0438 \u0434\u043e\u0441\u0442\u0438\u0436\u0435\u043d\u0438\u0438 \u043c\u0430\u043a\u0441\u0438\u043c\u0430\u043b\u044c\u043d\u043e\u0433\u043e \u0438\u043d\u0434\u0435\u043a\u0441\u0430 \u2013 \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0432 \u043a\u043e\u043d\u0446\u0435 \u043d\u043e\u0432\u0443\u044e \u0441\u0442\u0440\u043e\u043a\u0443 \u0438 \u0432\u044b\u0445\u043e\u0434\u0438\u043c \u0438\u0437 \u0446\u0438\u043a\u043b\u0430. \u0412 \u043a\u043e\u043d\u0446\u0435 \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u0435\u043c \u043a\u043b\u044e\u0447 \u0438 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0435 \u044f\u0447\u0435\u0439\u043a\u0438.<\/p>\n<h3>\u0423\u0434\u0430\u043b\u044f\u0435\u043c \u043f\u0443\u0441\u0442\u044b\u0435 \u0441\u0442\u0440\u043e\u043a\u0438<\/h3>\n<p>\u041f\u0440\u0438 \u043f\u0435\u0440\u0432\u043e\u043c \u043e\u0431\u0440\u0430\u0449\u0435\u043d\u0438\u0438 \u043a \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u0443 \u043d\u0430\u0441 \u043f\u043e\u044f\u0432\u0438\u0442\u0441\u044f \u043f\u0443\u0441\u0442\u0430\u044f \u0441\u0442\u0440\u043e\u043a\u0430. \u0427\u0442\u043e\u0431\u044b \u0435\u0435 \u0443\u0431\u0440\u0430\u0442\u044c (\u0438 \u0432\u043e\u043e\u0431\u0449\u0435, \u043d\u0430 \u0432\u0441\u044f\u043a\u0438\u0439 \u0441\u043b\u0443\u0447\u0430\u0439, \u043a\u0430\u0436\u0434\u044b\u0439 \u0440\u0430\u0437 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0442\u044c, \u043d\u0435\u0442 \u043b\u0438 \u043f\u0443\u0441\u0442\u044b\u0445 \u0441\u0442\u0440\u043e\u043a \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0435), \u043f\u0440\u043e\u043f\u0438\u0448\u0435\u043c \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u0443\u044e \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443:<\/p>\n<figure class=\"full-width\"><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Sub DeleteEmptyRows()   \u00a0\u00a0Me.InitThis   \u00a0\u00a0\u00a0   \u00a0\u00a0Dim i As Long   \u00a0\u00a0For i = This.Keys.Count To 1 Step -1     \u00a0\u00a0\u00a0\u00a0\u00a0If (IsEmpty(This.Keys(i).Value) And IsEmpty(This.Values(i).Value)) _     \u00a0\u00a0\u00a0\u00a0\u00a0Or (This.Keys(i).Value = vbNullString And This.Values(i).Value = vbNullString) Then This.Table.ListRows(i).Delete   \u00a0\u00a0Next End Sub<\/code><\/pre>\n<p>\u0438 \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0435\u0435 \u0432 \u0443\u0436\u0435 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043d\u0443\u044e <code>Let<\/code> \u0447\u0430\u0441\u0442\u044c:<\/p>\n<figure class=\"full-width\"><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Public Property Let Config(ByVal Key As Variant, ByVal RHS As Variant)   \u00a0\u00a0Me.InitThis   \u00a0\u00a0If This.Keys Is Nothing Then This.Table.ListRows.Add: Me.InitThis   \u00a0\u00a0\u00a0   \u00a0\u00a0Dim i As Long   \u00a0\u00a0Do Until Key = This.Keys(i).Value     \u00a0\u00a0\u00a0\u00a0\u00a0i = i + 1     \u00a0\u00a0\u00a0\u00a0\u00a0If i > This.Keys.Rows.Count Then This.Table.ListRows.Add: Exit Do   \u00a0\u00a0Loop   \u00a0\u00a0\u00a0   \u00a0\u00a0This.Keys(i).Value = Key   \u00a0\u00a0This.Values(i).Value = RHS   \u00a0\u00a0Me.DeleteEmptyRows\u00a0' \u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u043d\u0430 \u043f\u0443\u0441\u0442\u044b\u0435 \u0441\u0442\u0440\u043e\u043a\u0438. End Property<\/code><\/pre>\n<h3>\u0418\u0442\u043e\u0433\u043e\u0432\u044b\u0439 \u043a\u043e\u0434<\/h3>\n<figure class=\"full-width\"><figcaption><\/figcaption><\/figure>\n<pre><code class=\"vbscript\">Option Explicit  Private Enum EConfigColumns   \u00a0\u00a0KeyColumn = 1   \u00a0\u00a0ValueColumn End Enum  Private Const ConfigTable As String = \"configTable\"  Private Type TConfig   \u00a0\u00a0Table\u00a0 As ListObject   \u00a0\u00a0Keys\u00a0\u00a0 As Range   \u00a0\u00a0Values As Range End Type  Private This As TConfig  Public Sub InitThis()   \u00a0\u00a0Set This.Table = Me.Table   \u00a0\u00a0Set This.Keys = Me.Keys   \u00a0\u00a0Set This.Values = Me.Values End Sub  Public Property Get Table() As ListObject   \u00a0\u00a0' \u0421\u0432\u043e\u0439\u0441\u0442\u0432\u043e Read-Only \u0434\u043b\u044f \u043e\u0431\u044a\u0435\u043a\u0442\u0430 \u0442\u0430\u0431\u043b\u0438\u0446\u044b.   \u00a0\u00a0Set Table = Me.ListObjects(ConfigTable) End Property  Public Property Get Keys() As Range   \u00a0\u00a0' \u0421\u0432\u043e\u0439\u0441\u0442\u0432\u043e Read-Only \u0434\u043b\u044f \u0441\u0442\u043e\u043b\u0431\u0446\u0430 \u043a\u043b\u044e\u0447\u0435\u0439.   \u00a0\u00a0Set Keys = Me.Table.ListColumns(KeyColumn).DataBodyRange End Property  Public Property Get Values() As Range   \u00a0\u00a0' \u0421\u0432\u043e\u0439\u0441\u0442\u0432\u043e Read-Only \u0434\u043b\u044f \u0441\u0442\u043e\u043b\u0431\u0446\u0430 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439.   \u00a0\u00a0Set Values = Me.Table.ListColumns(ValueColumn).DataBodyRange End Property  Public Property Get Config(ByVal Key As Variant) As Variant   \u00a0\u00a0Me.InitThis     If This.Keys Is Nothing Then Config = \"\u041d\u0435\u0442 \u0434\u0430\u043d\u043d\u044b\u0445 \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u043a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0430\u0446\u0438\u0438\": Exit Property      Dim i As Long   \u00a0\u00a0For i = 1 To This.Keys.Rows.Count     \u00a0\u00a0\u00a0\u00a0If Key &lt;> This.Keys(i).Value Then GoTo NextKey     \u00a0\u00a0\u00a0\u00a0Config = This.Values(i).Value: Exit Property NextKey:   \u00a0\u00a0Next End Property  Public Property Let Config(ByVal Key As Variant, ByVal RHS As Variant)   \u00a0\u00a0Me.InitThis   \u00a0\u00a0If This.Keys Is Nothing Then This.Table.ListRows.Add: Me.InitThis    \u00a0\u00a0Dim i As Long   \u00a0\u00a0Do Until Key = This.Keys(i).Value     \u00a0\u00a0\u00a0\u00a0\u00a0i = i + 1     \u00a0\u00a0\u00a0\u00a0\u00a0If i > This.Keys.Rows.Count Then This.Table.ListRows.Add: Exit Do   \u00a0\u00a0Loop    \u00a0\u00a0This.Keys(i).Value = Key  <\/code><\/pre>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-338778","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/338778","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=338778"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/338778\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=338778"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=338778"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=338778"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}