{"id":3042,"date":"2015-08-13T11:35:10","date_gmt":"2015-08-13T02:35:10","guid":{"rendered":"http:\/\/excelwork.info\/excel\/?p=3042"},"modified":"2015-08-13T11:35:10","modified_gmt":"2015-08-13T02:35:10","slug":"vbaclassbasic","status":"publish","type":"post","link":"https:\/\/excelwork.info\/excel\/vbaclassbasic\/","title":{"rendered":"VBA\u3067\u3001\u30af\u30e9\u30b9\u3092\u4f5c\u6210\uff08\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u30fb\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\uff09"},"content":{"rendered":"<h2>\u30af\u30e9\u30b9\u306e\u4f5c\u6210<\/h2>\n<div class=\"m30-l\">\n<p>VBA \u3067\u3001\u30af\u30e9\u30b9\u3092\u4f5c\u6210\u3059\u308b\u306b\u306f\u3001<strong>\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb<\/strong>\u3092\u4f7f\u7528\u3057\u307e\u3059\u3002<strong>\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb<\/strong>\u306f\u3001VBE\uff08Visual Basic Editor\uff09\u306e\u30e1\u30cb\u30e5\u30fc\u30d0\u30fc\u306e\u300c\u633f\u5165\u300d\u304b\u3089\u300c\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u300d\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002\u540d\u524d\u306f\u3001\u300cClass1\u300d\u300cClass2\u300d\u2026 \u3068\u81ea\u52d5\u7684\u306b\u4ed8\u3051\u3089\u308c\u307e\u3059\u304c\u5909\u66f4\u3059\u308b\u3053\u3068\u3082\u53ef\u80fd\u3067\u3059\u3002\u3053\u306e\u540d\u524d\u304c\u3001<strong>\u30af\u30e9\u30b9\u540d<\/strong>\u3068\u306a\u308a\u307e\u3059\u3002<br \/>\n\uff08 \u203b VBA \u306e\u30af\u30e9\u30b9\u306b\u306f\u3001\u7d99\u627f\u306f\u3042\u308a\u307e\u305b\u3093\u3002\uff09<\/p>\n<br \/>\n<h3>\u30af\u30e9\u30b9\u306e\u30d7\u30ed\u30d1\u30c6\u30a3<\/h3>\n<p><strong>\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb<\/strong>\u306e<strong>\u5ba3\u8a00\u30bb\u30af\u30b7\u30e7\u30f3<\/strong>\u306b\u3001\u5909\u6570\u3092\u5ba3\u8a00\u3057\u307e\u3059\u3002\u3053\u306e\u5909\u6570\u304c\u3001<strong>\u30af\u30e9\u30b9\u306e\u30d7\u30ed\u30d1\u30c6\u30a3<\/strong>\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<p class=\"caution4\">\u5909\u6570\u5ba3\u8a00\u306e\u69cb\u6587\u3084\u30b9\u30b3\u30fc\u30d7\u306b\u95a2\u3059\u308b\u8a73\u7d30\u306b\u95a2\u3057\u3066\u306f\u3001<a href=\"https:\/\/excelwork.info\/excel\/varscope\/\">\u5909\u6570\u3084\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u306e\u30b9\u30b3\u30fc\u30d7\uff08\u9069\u7528\u7bc4\u56f2\uff09<\/a> \u3092\u53c2\u7167\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<br \/>\n<h3>\u30af\u30e9\u30b9\u306e\u30e1\u30bd\u30c3\u30c9<\/h3>\n<p>\u30af\u30e9\u30b9\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u304c\u4f5c\u6210\u3067\u304d\u305f\u3089\u3001<strong>\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb<\/strong>\u306b\u3001\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u30fc\u3092\u4f5c\u6210\u3057\u307e\u3059\u3002\u3053\u308c\u304c\u3001<strong>\u30af\u30e9\u30b9\u306e\u30e1\u30bd\u30c3\u30c9<\/strong>\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<p class=\"caution4\">\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u30fc\u306e\u4f5c\u6210\u306e\u8a73\u7d30\u306f\u3001<a href=\"https:\/\/excelwork.info\/excel\/procedure\/\">\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3092\u4f5c\u6210\u3059\u308b<\/a> \u3092\u53c2\u7167\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<p class=\"caution4\"><strong>\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb<\/strong>\u3067\u306e\u3001\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u30fc\u306e\u9069\u7528\u7bc4\u56f2\u306b\u95a2\u3057\u3066\u306f\u3001<a href=\"https:\/\/excelwork.info\/excel\/varscope\/#procedurerange\">\u5909\u6570\u3084\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u306e\u30b9\u30b3\u30fc\u30d7\uff08\u9069\u7528\u7bc4\u56f2\uff09<\/a> \u3092\u53c2\u7167\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<\/div>\n<br \/><br \/>\n<h2>\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u5316<\/h2>\n<div class=\"m30-l\">\n<p>\u30af\u30e9\u30b9\u3092\u4f7f\u7528\u3059\u308b\u306b\u306f\u3001<strong>\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u5316<\/strong>\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\u3053\u308c\u306f\u3001<strong>New \u30ad\u30fc\u30ef\u30fc\u30c9<\/strong>\u3092\u4f7f\u3063\u3066\u3001<strong>\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb<\/strong>\u306b\u8a18\u8ff0\u3057\u3066\u3044\u304d\u307e\u3059\u3002<\/p>\n<div class=\"kkbox\"><strong>\u3010\u69cb\u6587\u3011<\/strong><\/p>\n<p>    <strong>Dim<\/strong> <em>instance<\/em> <strong>As<\/strong> <strong>New<\/strong> <em>classname<\/em><\/p>\n<p>    \u3000\u3000\u307e\u305f\u306f<\/p>\n<p>    <strong>Dim<\/strong> <em>instance<\/em> [ <strong>As<\/strong> <em>instancetype<\/em> ]<br \/>\n    <strong>Set<\/strong> <em>instance<\/em> = <strong>New<\/strong> <em>classname<\/em><\/p><\/div>\n<br \/>\n<h4>\u9805\u76ee\u306e\u8aac\u660e<\/h4>\n<div class=\"m30-l\">\n<ul style=\"margin-top:0;margin-bottom:0;padding-top:0;padding-bottom:0;\">\n<li>instance&nbsp;&nbsp;\u30fb\u30fb\u30fb&nbsp;&nbsp;\u4f5c\u6210\u3059\u308b\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u306e\u540d\u524d\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<\/li>\n<li>classname&nbsp;&nbsp;\u30fb\u30fb\u30fb&nbsp;&nbsp;\u30af\u30e9\u30b9\u540d\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<\/li>\n<li>instancetype&nbsp;&nbsp;\u30fb\u30fb\u30fb&nbsp;&nbsp;\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u306e\u30c7\u30fc\u30bf\u578b\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u30d0\u30ea\u30a2\u30f3\u30c8\u578b\uff08Variant\uff09\u307e\u305f\u306f\u3001\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u578b\uff08Object\uff09\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<\/li>\n<\/ul><\/div>\n<\/div>\n<br \/><br \/>\n<h2>\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u306e\u7834\u68c4<\/h2>\n<div class=\"m30-l\">\n<p>\u30af\u30e9\u30b9\u3092\u4f7f\u7528\u3057\u305f\u5f8c\u306f\u3001<strong>Nothing \u30ad\u30fc\u30ef\u30fc\u30c9<\/strong>\u3092\u4f7f\u7528\u3057\u3066\u3001\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u3092\u7834\u68c4\u3057\u307e\u3059\u3002\u3053\u308c\u3067\u3001\u30e1\u30e2\u30ea\u304c\u958b\u653e\u3055\u308c\u307e\u3059\u3002<\/p>\n<div class=\"kkbox\"><strong>\u3010\u69cb\u6587\u3011<\/strong><\/p>\n<p>    <strong>Set<\/strong> <em>instance<\/em> = <strong>Nothing<\/strong><\/p><\/div>\n<br \/>\n<h4>\u9805\u76ee\u306e\u8aac\u660e<\/h4>\n<div class=\"m30-l\">\n<ul style=\"margin-top:0;margin-bottom:0;padding-top:0;padding-bottom:0;\">\n<li>instance&nbsp;&nbsp;\u30fb\u30fb\u30fb&nbsp;&nbsp;\u7834\u68c4\u3059\u308b\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u306e\u540d\u524d\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<\/li>\n<\/ul><\/div>\n<\/div>\n<br \/><br \/>\n<h2>\u30af\u30e9\u30b9 \u4f7f\u7528\u4f8b<\/h2>\n<div class=\"m30-l\">\n<h3 id=\"vba_sample\">\u30b5\u30f3\u30d7\u30ebVBA\u30bd\u30fc\u30b9<\/h3>\n<pre class=\"lang:vb mark:0 decode:true \" title=\"\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\uff08\u30af\u30e9\u30b9\u540d\uff1aClass1 \uff09\" data-url=\"http:\/\/example.co.jp\" >\r\n\u3000\r\n'\u30af\u30e9\u30b9\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\r\nPublic retNum As Double\r\n\r\n'\u30af\u30e9\u30b9\u306e\u30e1\u30bd\u30c3\u30c9\r\nPublic Sub AddNumber(num)\r\n\r\n\u3000\u3000'\u5f15\u6570 num \u304c\u6570\u5024\u306e\u5834\u5408\u3001\u305d\u306e\u5024\u3092\u52a0\u7b97\r\n    If IsNumeric(num) Then\r\n        \r\n        retNum = retNum + num\r\n    \r\n    End If\r\n    \r\n\r\nEnd Sub\r\n\u3000\r\n  <\/pre>\n<br \/>\n<pre class=\"lang:vb mark:0 decode:true \" title=\"\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\" data-url=\"http:\/\/example.co.jp\" >\r\n\u3000\r\nSub Sample01_Class1()\r\n\r\n\r\n    '\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u4f5c\u6210\r\n    Dim cc As New Class1\r\n    \r\n    '\u5f15\u6570\u304c\u6570\u5024\u306e\u5834\u5408\u8ffd\u52a0\u3057\u307e\u3059\r\n    cc.AddNumber (100)\r\n    cc.AddNumber (25.5)\r\n    cc.AddNumber (-2000)\r\n    cc.AddNumber (\"\u3042\u3044\u3046\")\r\n    \r\n    '\u7d50\u679c\u3092\u8868\u793a\r\n    MsgBox cc.retNum\r\n    \r\n    '\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u3092\u7834\u68c4\r\n    Set cc = Nothing\r\n    \r\n    \r\nEnd Sub\r\n\r\nSub Sample02_Class1()\r\n\r\n\r\n    '\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u4f5c\u6210\r\n    Dim cc\r\n    Set cc = New Class1\r\n    \r\n    Dim i As Integer\r\n    \r\n    '1 \u304b\u3089 100 \u307e\u3067\u306e\u5408\u8a08\u5024\u3092\u6c42\u3081\u307e\u3059\r\n    For i = 1 To 100\r\n    \r\n        cc.AddNumber (i)\r\n    \r\n    Next i\r\n    \r\n    '\u7d50\u679c\u3092\u8868\u793a\r\n    MsgBox cc.retNum\r\n\r\n    '\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u3092\u7834\u68c4\r\n    Set cc = Nothing\r\n    \r\n\r\nEnd Sub\r\n\u3000\r\n  <\/pre>\n<br \/>\n<h3>\u5b9f\u884c\u7d50\u679c<\/h3>\n<p>Sub Sample01_Class1() \u306e\u5b9f\u884c\u7d50\u679c<\/p>\n<p><a href=\"https:\/\/i1.wp.com\/excelwork.info\/excel\/wp\/wp-content\/uploads\/2015\/08\/vba_class1_01.jpg?ssl=1\" rel=\"lightbox[3042]\"><img loading=\"lazy\" src=\"https:\/\/i1.wp.com\/excelwork.info\/excel\/wp\/wp-content\/uploads\/2015\/08\/vba_class1_01.jpg?resize=168%2C155&#038;ssl=1\" alt=\"VBA \u30af\u30e9\u30b9\u306e\u4f5c\u6210\u4f8b 1\" width=\"168\" height=\"155\" class=\"alignnone size-full wp-image-3061\" data-recalc-dims=\"1\" \/><\/a><\/p>\n<p>Sub Sample02_Class1() \u306e\u5b9f\u884c\u7d50\u679c<\/p>\n<p><a href=\"https:\/\/i2.wp.com\/excelwork.info\/excel\/wp\/wp-content\/uploads\/2015\/08\/vba_class1_02.jpg?ssl=1\" rel=\"lightbox[3042]\"><img loading=\"lazy\" src=\"https:\/\/i2.wp.com\/excelwork.info\/excel\/wp\/wp-content\/uploads\/2015\/08\/vba_class1_02.jpg?resize=168%2C155&#038;ssl=1\" alt=\"VBA \u30af\u30e9\u30b9\u306e\u4f5c\u6210\u4f8b 2\" width=\"168\" height=\"155\" class=\"alignnone size-full wp-image-3062\" data-recalc-dims=\"1\" \/><\/a><\/p>\n<\/div>\n<br \/>\n","protected":false},"excerpt":{"rendered":"<p>\u30af\u30e9\u30b9\u306e\u4f5c\u6210 VBA \u3067\u3001\u30af\u30e9\u30b9\u3092\u4f5c\u6210\u3059\u308b\u306b\u306f\u3001\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u4f7f\u7528\u3057\u307e\u3059\u3002\u30af &#8230; <\/p>\n","protected":false},"author":1,"featured_media":3061,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"amp_status":"","spay_email":"","jetpack_publicize_message":""},"categories":[500],"tags":[501,38,184],"jetpack_featured_media_url":"https:\/\/i1.wp.com\/excelwork.info\/excel\/wp\/wp-content\/uploads\/2015\/08\/vba_class1_01.jpg?fit=168%2C155&ssl=1","jetpack_publicize_connections":[],"jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p4Ye9i-N4","_links":{"self":[{"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/posts\/3042"}],"collection":[{"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/comments?post=3042"}],"version-history":[{"count":18,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/posts\/3042\/revisions"}],"predecessor-version":[{"id":3091,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/posts\/3042\/revisions\/3091"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/media\/3061"}],"wp:attachment":[{"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/media?parent=3042"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/categories?post=3042"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/tags?post=3042"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}