{"id":6549,"date":"2017-11-27T08:12:33","date_gmt":"2017-11-26T23:12:33","guid":{"rendered":"http:\/\/excelwork.info\/excel\/?p=6549"},"modified":"2018-03-24T22:50:08","modified_gmt":"2018-03-24T13:50:08","slug":"vbaregexpproperty","status":"publish","type":"post","link":"https:\/\/excelwork.info\/excel\/vbaregexpproperty\/","title":{"rendered":"VBA \u3067\u6b63\u898f\u8868\u73fe\u3092\u4f7f\u3046\uff08RegExp \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\uff09"},"content":{"rendered":"<h2>RegExp \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u30d7\u30ed\u30d1\u30c6\u30a3<\/h2>\n<div class=\"m30-l\">\n<p class=\"caution4\">RegExp \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u8a73\u7d30\u306b\u95a2\u3057\u3066\u306f\u3001<a href=\"https:\/\/excelwork.info\/excel\/vbaregexp\/\">VBA \u3067\u6b63\u898f\u8868\u73fe\u3092\u4f7f\u3046\uff08RegExp \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09<\/a>\u3001\u30e1\u30bd\u30c3\u30c9\u306e\u8a73\u7d30\u306b\u95a2\u3057\u3066\u306f\u3001<a href=\"https:\/\/excelwork.info\/excel\/vbaregexpmethod\/\">RegExp \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u30e1\u30bd\u30c3\u30c9<\/a> \u3092\u53c2\u7167\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<br \/>\n<h3>Pattern \u30d7\u30ed\u30d1\u30c6\u30a3<\/h3>\n<p>\u691c\u7d22\u3055\u308c\u308b\u6b63\u898f\u8868\u73fe\u306e\u30d1\u30bf\u30fc\u30f3\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002\u5024\u306e\u53d6\u5f97\u3082\u53ef\u80fd\u3067\u3059\u3002<\/p>\n<br \/>\n<div class=\"kkbox\"><strong>\u3010\u66f8\u5f0f\u3011<\/strong><\/p>\n<p>    <em>object<\/em>.<strong>Pattern<\/strong> = <em>SearchString<\/em><\/p><\/div>\n<br \/>\n<h4>\u5f15\u6570\u30fb\u623b\u308a\u5024<\/h4>\n<div class=\"m30-l\">\n<ul style=\"margin-top:0;margin-bottom:0;padding-top:0;padding-bottom:0;\">\n<li>object&nbsp;&nbsp;\u30fb\u30fb\u30fb&nbsp;&nbsp;\u5bfe\u8c61\u3068\u306a\u308b <span class=\"red\"><strong>RegExp \u30aa\u30d6\u30b8\u30a7\u30af\u30c8<\/strong><\/span>\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<\/li>\n<li>SearchString&nbsp;&nbsp;\u30fb\u30fb\u30fb&nbsp;&nbsp;\u691c\u7d22\u3055\u308c\u308b\u6587\u5b57\u5217\u5f0f\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u6b63\u898f\u8868\u73fe\u3067\u4f7f\u7528\u3067\u304d\u308b\u6587\u5b57\u7b49\u306b\u95a2\u3057\u3066\u306f\u3001<a href=\"https:\/\/excelwork.info\/excel\/vbaregexp\/\">VBA \u3067\u6b63\u898f\u8868\u73fe\u3092\u4f7f\u3046\uff08RegExp \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09<\/a> \u3092\u53c2\u7167\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/li>\n<\/ul>\n<br \/>\n<pre class=\"lang:vb mark:0 decode:true \" title=\"\u6b63\u898f\u8868\u73fe\u306e\u30d1\u30bf\u30fc\u30f3\u8a18\u8ff0\u4f8b\" data-url=\"http:\/\/example.co.jp\" >\r\n\u3000\r\n    ' \u53c2\u7167\u8a2d\u5b9a\uff1aMicrosoft VBScript Regular Expressions 5.5\r\n    \r\n    Dim re As RegExp\r\n    Set re = New RegExp\r\n    \r\n    '\u30a2\u30eb\u30d5\u30a1\u30d9\u30c3\u30c8\uff08\u5927\u6587\u5b57\u30fb\u5c0f\u6587\u5b57\uff09\u306b\u30de\u30c3\u30c1\u3059\u308b\u6b63\u898f\u8868\u73fe\r\n    re.Pattern = \"[a-zA-Z]+\"\r\n    \r\n    '\u300c\u5c71\u300d\u307e\u305f\u306f\u300c\u5ddd\u300d\u3067\u59cb\u307e\u308a\u300c\u5b50\u300d\u3067\u7d42\u308f\u308b\u6587\u5b57\u5217\u306b\u30de\u30c3\u30c1\u3059\u308b\u6b63\u898f\u8868\u73fe\r\n    re.Pattern = \"^(\u5c71|\u5ddd).*\u5b50$\"\r\n    \r\n    '\u300cbb\u300d\u3067\u59cb\u307e\u308a\uff13\u6587\u5b57\u76ee\u306f\u300cb\u300d\u4ee5\u5916\u306e\u6587\u5b57\u5217\u306b\u30de\u30c3\u30c1\u3059\u308b\u6b63\u898f\u8868\u73fe\r\n    re.Pattern = \"^b{2}[^b].\"\r\n\u3000\r\n    <\/pre>\n<\/p><\/div>\n<br \/>\n<h3>IgnoreCase \u30d7\u30ed\u30d1\u30c6\u30a3<\/h3>\n<p>\u30d1\u30bf\u30fc\u30f3\u691c\u7d22\u3067\u5927\u6587\u5b57\u3068\u5c0f\u6587\u5b57\u3092\u533a\u5225\u3059\u308b\u304b\u3069\u3046\u304b\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002<\/p>\n<br \/>\n<div class=\"kkbox\"><strong>\u3010\u66f8\u5f0f\u3011<\/strong><\/p>\n<p>    <em>object<\/em>.<strong>IgnoreCase<\/strong> = <em>boolean<\/em><\/p><\/div>\n<br \/>\n<h4>\u5f15\u6570\u30fb\u623b\u308a\u5024<\/h4>\n<div class=\"m30-l\">\n<ul style=\"margin-top:0;margin-bottom:0;padding-top:0;padding-bottom:0;\">\n<li>object&nbsp;&nbsp;\u30fb\u30fb\u30fb&nbsp;&nbsp;\u5bfe\u8c61\u3068\u306a\u308b <span class=\"red\"><strong>RegExp \u30aa\u30d6\u30b8\u30a7\u30af\u30c8<\/strong><\/span>\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<\/li>\n<li>boolean&nbsp;&nbsp;\u30fb\u30fb\u30fb&nbsp;&nbsp;\u30d1\u30bf\u30fc\u30f3\u691c\u7d22\u3059\u308b\u3068\u304d\u306b\u3001\u5927\u6587\u5b57\u30fb\u5c0f\u6587\u5b57\u3092\u533a\u5225\u3059\u308b\u304b\u3069\u3046\u304b\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<strong>True<\/strong> \u306b\u8a2d\u5b9a\u3059\u308b\u3068\u5927\u6587\u5b57\u30fb\u5c0f\u6587\u5b57\u3092\u533a\u5225\u3057\u306a\u304f\u306a\u308a\u307e\u3059\u3002\u65e2\u5b9a\u5024\u306f\u3001<strong>False<\/strong> \u3067\u3059\u3002<\/li>\n<\/ul>\n<br \/>\n<pre class=\"lang:vb mark:0 decode:true \" title=\"IgnoreCase \u30d7\u30ed\u30d1\u30c6\u30a3\u306e\u4f8b\" data-url=\"http:\/\/example.co.jp\" >\r\n\u3000\r\nSub Sample_RegExp_IgnoreCase()\r\n    \r\n' \u53c2\u7167\u8a2d\u5b9a\uff1aMicrosoft VBScript Regular Expressions 5.5\r\n    \r\n    Dim re As RegExp\r\n    Dim i As Long\r\n    Dim myStr1 As String\r\n    Dim myStr2 As String\r\n    Dim str(1 To 3) As String\r\n    \r\n    Set re = New RegExp\r\n    myStr1 = \"IgnoreCase = False\uff08\u5927\u6587\u5b57\u30fb\u5c0f\u6587\u5b57\u3092\u533a\u5225\u3059\u308b\uff09\"\r\n    myStr2 = \"IgnoreCase = True\uff08\u5927\u6587\u5b57\u30fb\u5c0f\u6587\u5b57\u3092\u533a\u5225\u3057\u306a\u3044\uff09\"\r\n            \r\n    str(1) = \"abcdef\"\r\n    str(2) = \"ABCDE\"\r\n    str(3) = \"ABCdef\"\r\n    \r\n    re.Pattern = \"^[a-z]+$\"\r\n    \r\n    re.IgnoreCase = False\r\n    For i = 1 To 3\r\n        myStr1 = myStr1 & vbCrLf & _\r\n                str(i) & vbTab & re.Test(str(i))\r\n    Next i\r\n    \r\n    re.IgnoreCase = True\r\n    For i = 1 To 3\r\n        myStr2 = myStr2 & vbCrLf & _\r\n                str(i) & vbTab & re.Test(str(i))\r\n    Next i\r\n    \r\n    MsgBox myStr1 & vbCrLf & vbCrLf & myStr2\r\n    \r\nEnd Sub\r\n\u3000\r\n    <\/pre>\n<br \/>\n<p><strong>\u5b9f\u884c\u7d50\u679c<\/strong><\/p>\n<p>    <a href=\"https:\/\/i0.wp.com\/excelwork.info\/excel\/wp\/wp-content\/uploads\/2017\/11\/vbaregexpproperty01.jpg?ssl=1\" rel=\"lightbox[6549]\"><img loading=\"lazy\" src=\"https:\/\/i0.wp.com\/excelwork.info\/excel\/wp\/wp-content\/uploads\/2017\/11\/vbaregexpproperty01.jpg?resize=308%2C268&#038;ssl=1\" alt=\"IgnoreCase \u30d7\u30ed\u30d1\u30c6\u30a3\" width=\"308\" height=\"268\" class=\"alignnone size-full wp-image-6555\" data-recalc-dims=\"1\" \/><\/a><\/p><\/div>\n<br \/>\n<h3>Global \u30d7\u30ed\u30d1\u30c6\u30a3<\/h3>\n<p>\u691c\u7d22\u6587\u5b57\u5217\u5168\u4f53\u306b\u3064\u3044\u3066\u306e\u30d1\u30bf\u30fc\u30f3\u3068\u306e\u4e00\u81f4\u3092\u691c\u7d22\u3059\u308b\u304b\u3069\u3046\u304b\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002<\/p>\n<br \/>\n<div class=\"kkbox\"><strong>\u3010\u66f8\u5f0f\u3011<\/strong><\/p>\n<p>    <em>object<\/em>.<strong>Global<\/strong> = <em>boolean<\/em><\/p><\/div>\n<br \/>\n<h4>\u5f15\u6570\u30fb\u623b\u308a\u5024<\/h4>\n<div class=\"m30-l\">\n<ul style=\"margin-top:0;margin-bottom:0;padding-top:0;padding-bottom:0;\">\n<li>object&nbsp;&nbsp;\u30fb\u30fb\u30fb&nbsp;&nbsp;\u5bfe\u8c61\u3068\u306a\u308b <span class=\"red\"><strong>RegExp \u30aa\u30d6\u30b8\u30a7\u30af\u30c8<\/strong><\/span>\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<\/li>\n<li>boolean&nbsp;&nbsp;\u30fb\u30fb\u30fb&nbsp;&nbsp;\u30d6\u30fc\u30eb\u578b\uff08Boolean\uff09\u306e\u5024\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u691c\u7d22\u6587\u5b57\u5217\u5168\u4f53\u306b\u3064\u3044\u3066\u306e\u30d1\u30bf\u30fc\u30f3\u3068\u306e\u4e00\u81f4\u3092\u691c\u7d22\u3059\u308b\u5834\u5408\u306f\u3001<strong>True<\/strong>\u3001\u6700\u521d\u306e\u4e00\u81f4\u3060\u3051\u3092\u691c\u7d22\u3059\u308b\u5834\u5408\u306f\u3001<strong>False<\/strong>\uff08\u65e2\u5b9a\u5024\uff09\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<\/li>\n<\/ul>\n<br \/>\n<pre class=\"lang:vb mark:0 decode:true \" title=\"Global \u30d7\u30ed\u30d1\u30c6\u30a3\u306e\u4f8b\" data-url=\"http:\/\/example.co.jp\" >\r\n\u3000\r\nSub Sample_RegExp_Global()\r\n\r\n' \u53c2\u7167\u8a2d\u5b9a\uff1aMicrosoft VBScript Regular Expressions 5.5\r\n    \r\n    Dim re As RegExp\r\n    Dim mc As MatchCollection\r\n    Dim m As Match\r\n    Dim myStr1 As String\r\n    Dim myStr2 As String\r\n    Dim orgStr As String\r\n    Dim i As Long\r\n    \r\n    Set re = New RegExp\r\n    \r\n    myStr1 = \"\u3010Global = True \u306e\u5834\u5408\u3011\" & vbCrLf\r\n    myStr2 = \"\u3010Global = False \u306e\u5834\u5408\u3011\" & vbCrLf\r\n    orgStr = \"AAA BBB ccc DDD eee\"\r\n    re.Pattern = \"[A-Z]{3}\"\r\n    re.IgnoreCase = False\r\n    \r\n    re.Global = True\r\n    Set mc = re.Execute(orgStr)\r\n    For i = 0 To mc.Count - 1\r\n        Set m = mc.Item(i)\r\n        myStr1 = myStr1 & m.Value & vbCrLf\r\n    Next i\r\n\r\n    re.Global = False\r\n    Set mc = re.Execute(orgStr)\r\n    For i = 0 To mc.Count - 1\r\n        Set m = mc.Item(i)\r\n        myStr2 = myStr2 & m.Value & vbCrLf\r\n    Next i\r\n        \r\n    MsgBox \"\u691c\u7d22\u3055\u308c\u305f\u6587\u5b57\u5217\" & vbCrLf & myStr1 & vbCrLf & myStr2\r\n\r\nEnd Sub\r\n\u3000\r\n    <\/pre>\n<br \/>\n<p><strong>\u5b9f\u884c\u7d50\u679c<\/strong><\/p>\n<p><a href=\"https:\/\/i2.wp.com\/excelwork.info\/excel\/wp\/wp-content\/uploads\/2017\/11\/vbaregexpproperty02.jpg?ssl=1\" rel=\"lightbox[6549]\"><img loading=\"lazy\" src=\"https:\/\/i2.wp.com\/excelwork.info\/excel\/wp\/wp-content\/uploads\/2017\/11\/vbaregexpproperty02.jpg?resize=174%2C253&#038;ssl=1\" alt=\"Global \u30d7\u30ed\u30d1\u30c6\u30a3\" width=\"174\" height=\"253\" class=\"alignnone size-full wp-image-6560\" data-recalc-dims=\"1\" \/><\/a><\/p><\/div>\n<br \/>\n<h3>MultiLine \u30d7\u30ed\u30d1\u30c6\u30a3<\/h3>\n<p>\u6587\u5b57\u5217\u3092\u8907\u6570\u884c\u3068\u3057\u3066\u6271\u3046\u304b\u3069\u3046\u304b\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002<\/p>\n<br \/>\n<div class=\"kkbox\"><strong>\u3010\u66f8\u5f0f\u3011<\/strong><\/p>\n<p>    <em>object<\/em>.<strong>MultiLine<\/strong> = <em>boolean<\/em><\/p><\/div>\n<br \/>\n<h4>\u5f15\u6570\u30fb\u623b\u308a\u5024<\/h4>\n<div class=\"m30-l\">\n<ul style=\"margin-top:0;margin-bottom:0;padding-top:0;padding-bottom:0;\">\n<li>object&nbsp;&nbsp;\u30fb\u30fb\u30fb&nbsp;&nbsp;\u5bfe\u8c61\u3068\u306a\u308b <span class=\"red\"><strong>RegExp \u30aa\u30d6\u30b8\u30a7\u30af\u30c8<\/strong><\/span>\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<\/li>\n<li>boolean&nbsp;&nbsp;\u30fb\u30fb\u30fb&nbsp;&nbsp;\u30d6\u30fc\u30eb\u578b\uff08Boolean\uff09\u306e\u5024\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u6587\u5b57\u5217\u3092\u8907\u6570\u884c\u3068\u3057\u3066\u6271\u3046\u5834\u5408\u306f\u3001<strong>True<\/strong> \u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u3053\u306e\u5834\u5408\u3001\u5404\u884c\u306e\u5148\u982d\u3084\u672b\u5c3e\u3067\u3001<strong>&#8220;^&#8221;<\/strong> \u3084 <strong>&#8220;$&#8221;<\/strong> \u304c\u30de\u30c3\u30c1\u3059\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002\u521d\u671f\u5024\u306f <strong>False<\/strong> \u306b\u8a2d\u5b9a\u3055\u308c\u3066\u3044\u307e\u3059\u3002<\/li>\n<\/ul>\n<br \/>\n<pre class=\"lang:vb mark:0 decode:true \" title=\"MultiLine \u30d7\u30ed\u30d1\u30c6\u30a3\u306e\u4f8b\" data-url=\"http:\/\/example.co.jp\" >\r\n\u3000\r\nSub Sample_RegExp_MultiLine()\r\n\r\n' \u53c2\u7167\u8a2d\u5b9a\uff1aMicrosoft VBScript Regular Expressions 5.5\r\n    \r\n    Dim re As RegExp\r\n    Dim myStr1 As String\r\n    Dim myStr2 As String\r\n    Dim orgStr As String\r\n    \r\n    Set re = New RegExp\r\n    \r\n    myStr1 = \"\u3010Global = True \u306e\u5834\u5408\u3011\" & vbCrLf\r\n    myStr2 = \"\u3010Global = False \u306e\u5834\u5408\u3011\" & vbCrLf\r\n    orgStr = \"ABCDE\" & vbCrLf\r\n    orgStr = orgStr & \"FGHIJ\" & vbCrLf\r\n    orgStr = orgStr & \"KLMNO\"\r\n    \r\n    re.Pattern = \"^F\"\r\n    \r\n    re.MultiLine = False\r\n    myStr1 = \"MultiLine = False \u306e\u5834\u5408\" & vbTab & re.Test(orgStr)\r\n    \r\n    re.MultiLine = True\r\n    myStr2 = \"MultiLine = True \u306e\u5834\u5408\" & vbTab & re.Test(orgStr)\r\n    \r\n    MsgBox myStr1 & vbCrLf & myStr2\r\n\r\nEnd Sub\r\n\u3000\r\n    <\/pre>\n<br \/>\n<p><strong>\u5b9f\u884c\u7d50\u679c<\/strong><\/p>\n<p><a href=\"https:\/\/i2.wp.com\/excelwork.info\/excel\/wp\/wp-content\/uploads\/2017\/11\/vbaregexpproperty03.jpg?ssl=1\" rel=\"lightbox[6549]\"><img loading=\"lazy\" src=\"https:\/\/i2.wp.com\/excelwork.info\/excel\/wp\/wp-content\/uploads\/2017\/11\/vbaregexpproperty03.jpg?resize=245%2C163&#038;ssl=1\" alt=\"MultiLine \u30d7\u30ed\u30d1\u30c6\u30a3\" width=\"245\" height=\"163\" class=\"alignnone size-full wp-image-6569\" data-recalc-dims=\"1\" \/><\/a><\/p><\/div>\n<\/div>\n<br \/><br \/>\n","protected":false},"excerpt":{"rendered":"<p>RegExp \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u30d7\u30ed\u30d1\u30c6\u30a3 RegExp \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u8a73\u7d30\u306b\u95a2\u3057\u3066 &#8230; <\/p>\n","protected":false},"author":1,"featured_media":6555,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"amp_status":"","spay_email":"","jetpack_publicize_message":""},"categories":[37],"tags":[954,1051,1050,1052,417,1049,63,1048,955,1047],"jetpack_featured_media_url":"https:\/\/i0.wp.com\/excelwork.info\/excel\/wp\/wp-content\/uploads\/2017\/11\/vbaregexpproperty01.jpg?fit=308%2C268&ssl=1","jetpack_publicize_connections":[],"jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p4Ye9i-1HD","_links":{"self":[{"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/posts\/6549"}],"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=6549"}],"version-history":[{"count":14,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/posts\/6549\/revisions"}],"predecessor-version":[{"id":6636,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/posts\/6549\/revisions\/6636"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/media\/6555"}],"wp:attachment":[{"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/media?parent=6549"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/categories?post=6549"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/tags?post=6549"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}