{"id":1039,"date":"2015-03-29T22:22:07","date_gmt":"2015-03-29T13:22:07","guid":{"rendered":"http:\/\/excelwork.info\/excel\/?p=1039"},"modified":"2015-03-30T16:24:11","modified_gmt":"2015-03-30T07:24:11","slug":"option_base","status":"publish","type":"post","link":"https:\/\/excelwork.info\/excel\/option_base\/","title":{"rendered":"\u914d\u5217\u306e\u6dfb\u5b57\u306e\u6700\u5c0f\u5024\u3092\u300c1\u300d\u306b\u8a2d\u5b9a\u3059\u308b"},"content":{"rendered":"

Option Base \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u4f7f\u7528\u3059\u308b<\/h2>\n
\n
<\/p>\n
\u3010\u66f8\u5f0f\u3011<\/strong>
\nOption Base 1<\/strong><\/p>\n<\/div>\n
\n

\u6dfb\u5b57\u306e\u65e2\u5b9a\u306e\u6700\u5c0f\u5024\u306f 0 \u3067\u3059\u3002Option Base \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u4f7f\u3046\u3068\u65e2\u5b9a\u306e\u6700\u5c0f\u5024\u3092 1 \u306b\u8a2d\u5b9a\u3067\u304d\u307e\u3059\u3002<\/p>\n

Option Base \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u4f7f\u7528\u3059\u308b\u5834\u5408\u306f\u3001\u30e2\u30b8\u30e5\u30fc\u30eb\u5185\u306e\u3069\u306e\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3088\u308a\u3082\u524d\u306b\u8a18\u8ff0\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002Option Base \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306f\u3001\u30e2\u30b8\u30e5\u30fc\u30eb\u5185\u3067\u4e00\u5ea6\u3060\u3051\u3001\u6b21\u5143\u3092\u542b\u3080\u914d\u5217\u306e\u5ba3\u8a00\u3088\u308a\u3082\u524d\u306b\u8a18\u8ff0\u3057\u307e\u3059\u3002<\/p>\n

Option Base \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306e\u8a2d\u5b9a\u304c\u6709\u52b9\u306b\u306a\u308b\u306e\u306f\u3001\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u304c\u8a18\u8ff0\u3055\u308c\u3066\u3044\u308b\u30e2\u30b8\u30e5\u30fc\u30eb\u5185\u306e\u914d\u5217\u306e\u6dfb\u5b57\u306e\u6700\u5c0f\u5024\u306e\u307f\u3067\u3059\u3002<\/p>\n
\n

Option Base \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u8a2d\u5b9a\u3059\u308b<\/h3>\n

\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u5ba3\u8a00\u30bb\u30af\u30b7\u30e7\u30f3\u306b Option Base 1 \u3092\u6307\u5b9a\u3059\u308b\u3068\u30e2\u30b8\u30e5\u30fc\u30eb\u5185\u306e\u914d\u5217\u306e\u6dfb\u5b57\u306e\u6700\u5c0f\u5024\u304c\u300c1\u300d\u306b\u8a2d\u5b9a\u3055\u308c\u307e\u3059\u3002<\/p>\n

\"Open<\/a><\/p>\n
\n

VBA\u30bd\u30fc\u30b9<\/h3>\n
\r\n\u3000\r\nSub sample_option_base01()\r\n\r\n    '\u6574\u6570\u578b\u306e\u8981\u7d203\u306e\u914d\u5217\r\n    Dim strArray(3) As Integer\r\n\r\n    '\u914d\u5217 strArray \u306e\u6dfb\u5b57\u306e\u6700\u5c0f\u5024\u30fb\u6700\u5927\u5024\u3092\u8868\u793a\r\n    MsgBox \"\u6dfb\u5b57\u958b\u59cb\u756a\u53f7\uff1a\" & LBound(strArray) & Chr(13) & _\r\n           \"\u6dfb\u5b57\u7d42\u4e86\u756a\u53f7\uff1a\" & UBound(strArray)\r\n\r\nEnd Sub\r\n\u3000\r\n<\/pre>\n
\n
\u5b9f\u884c\u7d50\u679c<\/h3>\n
Option Base 1 \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u8a2d\u5b9a\u3057\u3066\u3044\u308b\u305f\u3081\u6dfb\u5b57\u306e\u6700\u5c0f\u5024\u304c\u300c1\u300d\u3068\u306a\u308a\u307e\u3059\u3002
\uff08 \u203b UBound \u95a2\u6570\u30fbLBound \u95a2\u6570<\/a> \u306f\u3001\u305d\u308c\u305e\u308c\u914d\u5217\u306e\u6dfb\u5b57\u306e\u6700\u5927\u5024\u30fb\u6700\u5c0f\u5024\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002\uff09<\/p>\n
\"Option<\/a><\/p>\n
\n<\/div>\n
\n
Option Base \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306b\u5f71\u97ff\u3055\u308c\u306a\u3044\u95a2\u6570\u306a\u3069<\/h2>\n
\n
Option Base \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u4f7f\u7528\u3057\u3066\u3082 Split \u95a2\u6570<\/strong>\u3084 \u30ad\u30fc\u30ef\u30fc\u30c9 ParamArray<\/strong> \u3092\u4f7f\u3063\u3066\u4f5c\u6210\u3059\u308b\u914d\u5217\u306e\u6dfb\u5b57\u306e\u6700\u5c0f\u5024\u306f 0<\/strong><\/span> \u306e\u307e\u307e\u3067\u3059\u3002
\n\u3064\u307e\u308a\u3001Split \u95a2\u6570<\/strong> \u3084 \u30ad\u30fc\u30ef\u30fc\u30c9 ParamArray<\/strong> \u306f\u3001Option Base \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8<\/strong>\u306e\u5f71\u97ff\u3092\u53d7\u3051\u307e\u305b\u3093\u3002<\/p>\n
\u4f8b Split\u95a2\u6570\uff08\u203b Array \u95a2\u6570 \u3068\u6bd4\u8f03\uff09<\/h3>\n
\r\n\u3000\r\nSub sample_option_base02()\r\n\r\n    Dim val, val2, mystr\r\n    \r\n    val1 = Array(1, 2, 3, 4, 5)\r\n       \r\n    mystr = \"10,20,30,40,50\"\r\n    val2 = Split(mystr, \",\")\r\n    \r\n    'val1(1) \u3068 val2(1) \u306e\u5024\u3092\u6bd4\u8f03\r\n    MsgBox \"val1(Array\u95a2\u6570\u3067\u53d6\u5f97)\uff1a\" & val1(1) & Chr(13) & _\r\n           \"val2(Split\u95a2\u6570\u3067\u53d6\u5f97)\uff1a\" & val2(1)\r\n\r\nEnd Sub\r\n\u3000\r\n<\/pre>\n
\n
\u5b9f\u884c\u7d50\u679c<\/h3>\n
Array \u95a2\u6570\u306f\u3001Open Base \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306e\u5f71\u97ff\u3092\u53d7\u3051\u308b\u305f\u3081\u3001val1(1)\u306f\u3001\u300c1\u300d\u3092\u8868\u793a\u3057\u307e\u3059\u3002\u4e00\u65b9\u3001Split \u95a2\u6570\u306f\u3001Open Base \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306e\u5f71\u97ff\u3092\u53d7\u3051\u306a\u3044\u305f\u3081\u3001val2(1)\u306f\u3001\u300c20\u300d\u3092\u8868\u793a\u3057\u307e\u3059\u3002<\/p>\n
\"Option<\/a><\/p>\n
\n
\u4f8b \u30ad\u30fc\u30ef\u30fc\u30c9 ParamArray<\/h3>\n
\r\n\u3000\r\n\r\n'\u5f15\u6570\u306e\u914d\u5217\u306e\u6dfb\u5b57\u304c\u300c1\u300d\u306e\u5024\u3092\u8fd4\u3059\r\nFunction get_First_el(ParamArray myArray()) As Long\r\n    \r\n    get_First_el = myArray(1)\r\n\r\nEnd Function\r\n\r\nSub sample_option_base03()\r\n\r\n    MsgBox get_First_el(11, 12, 13, 14, 15, 16, 17)\r\n\r\nEnd Sub\r\n\u3000\r\n<\/pre>\n
\n
\u5b9f\u884c\u7d50\u679c<\/h3>\n
Option Base 1 \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306e\u5f71\u97ff\u3092\u53d7\u3051\u3066\u3044\u306a\u3044\u306e\u3067\u3001\u300c12\u300d\u304c\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/p>\n
\"Option<\/a><\/p>\n
\n<\/div>\n
\n","protected":false},"excerpt":{"rendered":"
Option Base \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u4f7f\u7528\u3059\u308b \u3010\u66f8\u5f0f\u3011 Option Bas … <\/p>\n","protected":false},"author":1,"featured_media":1061,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"amp_status":"","spay_email":"","jetpack_publicize_message":"\u30d6\u30ed\u30b0\u3092\u66f4\u65b0\u3057\u307e\u3057\u305f\u3002"},"categories":[37],"tags":[67,64,66,63,38,65],"jetpack_featured_media_url":"https:\/\/i1.wp.com\/excelwork.info\/excel\/wp\/wp-content\/uploads\/2015\/03\/OptionBase01-400x2271.jpg?fit=400%2C227&ssl=1","jetpack_publicize_connections":[],"jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p4Ye9i-gL","_links":{"self":[{"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/posts\/1039"}],"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=1039"}],"version-history":[{"count":21,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/posts\/1039\/revisions"}],"predecessor-version":[{"id":1078,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/posts\/1039\/revisions\/1078"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/media\/1061"}],"wp:attachment":[{"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/media?parent=1039"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/categories?post=1039"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/tags?post=1039"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}