{"id":3198,"date":"2013-07-16T14:51:20","date_gmt":"2013-07-16T05:51:20","guid":{"rendered":"http:\/\/fujiitoshiki.com\/improvesociety\/?p=3198"},"modified":"2017-04-27T15:48:21","modified_gmt":"2017-04-27T06:48:21","slug":"post-3198","status":"publish","type":"post","link":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198","title":{"rendered":"Excel VBA\u3067\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306e\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306e\u5024\u306e\u5f62\u5f0f\u7684\u691c\u8a3c\u3092\u884c\u3046"},"content":{"rendered":"<div class=\"theContentWrap-ccc\"><p>\u3000\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u4e0a\u306e\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306e\u5024\u3092\u691c\u8a3c\u3057\u307e\u3059\uff0e\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306b\u5165\u529b\u3059\u308b\u5024\u306e\u30c7\u30fc\u30bf\u578b\u3068\u3057\u3066\u306f\u65e5\u4ed8\u578b\uff0c\u6570\u5024\u578b\uff0c\u90f5\u4fbf\u756a\u53f7\u3084\u96fb\u8a71\u756a\u53f7\u30fb\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u306a\u3069\u306e\u6587\u5b57\u5217\u578b\u304c\u4e3b\u4f53\u3067\u3059\uff0e\u65e5\u4ed8\u578b\u306b\u95a2\u3057\u3066\u306f Excel 2003 \u307e\u3067\u306f Access&reg; \u306e\u30ab\u30ec\u30f3\u30c0\u30fc\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3092\u6d41\u7528\u3067\u304d\u305f\u306e\u3067\u3059\u304c\uff0c\u6700\u8fd1\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u3067\u306f\u305d\u308c\u3082\u3067\u304d\u306a\u304f\u306a\u308a\u307e\u3057\u305f\uff0e\u30ad\u30fc\u30dc\u30fc\u30c9\u304b\u3089\u30bf\u30a4\u30d7\u3059\u308b\u304b\uff0c\u30ab\u30ec\u30f3\u30c0\u30fc\u3092\u81ea\u4f5c\u3059\u308b\u304b\uff0c\u95a2\u6570\u30a2\u30c9\u30a4\u30f3\u3092\u5229\u7528\u3059\u308b\u3057\u304b\u3042\u308a\u307e\u305b\u3093\uff0e<\/p>\n<p><a href=\"\/\/fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/validation.png\"><img loading=\"lazy\" decoding=\"async\" src=\"\/\/fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/validation-300x230.png\" alt=\"validation\" width=\"300\" height=\"230\" class=\"alignnone size-medium wp-image-3265\" srcset=\"https:\/\/www.fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/validation-300x230.png 300w, https:\/\/www.fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/validation.png 330w\" sizes=\"auto, (max-width: 300px) 85vw, 300px\" \/><\/a><\/p>\n<p>\u3000\u4e0a\u56f3\u306e\u3088\u3046\u306b\u30d5\u30a9\u30fc\u30e0\u4e0a\u306b\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u3092\u914d\u7f6e\u3057\u307e\u3059\uff0e\u305d\u308c\u305e\u308c TextBox1, TextBox2, TextBox3, TextBox4, TextBox5 \u3068\u3057\u307e\u3057\u3087\u3046\uff0e\u307e\u305f\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3\u3092\u914d\u7f6e\u3057\uff0cCaption \u3092 OK \u306b\u5909\u66f4\u3057\u307e\u3059\uff0e<\/p>\n<h3>\u5f62\u5f0f\u7684\u691c\u8a3c<\/h3>\n<p>\u3000\u691c\u8a3c\u306b\u306f\u5f62\u5f0f\u7684\u691c\u8a3c\u3068\u610f\u5473\u7684\u691c\u8a3c\u3068\u304c\u3042\u308a\u307e\u3059\uff0e\u307e\u305a\u5f62\u5f0f\u7684\u691c\u8a3c\u306b\u3064\u3044\u3066\u3067\u3059\uff0e\u672a\u5165\u529b\u306e\u30c1\u30a7\u30c3\u30af\u3068\u30c7\u30fc\u30bf\u578b\u306e\u30c1\u30a7\u30c3\u30af\u304c\u4e3b\u4f53\u3068\u306a\u308a\u307e\u3059\uff0e\u4e21\u8005\u306e\u30c1\u30a7\u30c3\u30af\u306e\u30bf\u30a4\u30df\u30f3\u30b0\u306f\u5225\u306e\u65b9\u304c\u3088\u3044\u3067\u3057\u3087\u3046\uff0e\u30bf\u30a4\u30df\u30f3\u30b0\u304c\u7570\u306a\u308b\u305f\u3081\uff0c\u7570\u306a\u308b\u30a4\u30d9\u30f3\u30c8\u306b\u3059\u3079\u304d\u3067\u3059\uff0e\u672a\u5165\u529b\u306e\u30c1\u30a7\u30c3\u30af\u306f\u5024\u304c\u7a7a\u767d\u3067\u3042\u308b\u304b\u5426\u304b\u3060\u3051\u3092\u78ba\u8a8d\u3059\u308c\u3070\u826f\u3044\u305f\u3081\uff0c\u4e00\u62ec\u3057\u3066\u691c\u8a3c\u53ef\u80fd\u3067\u3057\u3087\u3046\uff0e\u3068\u306a\u308b\u3068\u500b\u3005\u306e\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306e\u30a4\u30d9\u30f3\u30c8\u3067\u90fd\u5ea6\u30c1\u30a7\u30c3\u30af\u3059\u308b\u306e\u3067\u306f\u306a\u304f\uff0c\u6700\u5f8c\u306b\u767b\u9332\u3059\u308b\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3\u304c\u62bc\u3055\u308c\u305f\u6642\u70b9\u3067\u3088\u3044\u3068\u3044\u3046\u3053\u3068\u306b\u306a\u308a\u307e\u3059\uff0e\u9006\u306b\u30c7\u30fc\u30bf\u578b\u306f\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3054\u3068\u306b\u7570\u306a\u308a\u307e\u3059\uff0e\u3067\u3059\u306e\u3067\u500b\u3005\u306e\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306b\u5165\u529b\u304c\u767a\u751f\u3057\u305f\u6642\u70b9\u3067\u90fd\u5ea6\u691c\u8a3c\u3059\u308b\u306e\u304c\u3088\u3044\u3067\u3057\u3087\u3046\uff0e<\/p>\n<h3>\u610f\u5473\u7684\u691c\u8a3c<\/h3>\n<p>\u3000\u610f\u5473\u7684\u691c\u8a3c\u306b\u3064\u3044\u3066\u3053\u3053\u3067\u306f\u8a73\u8ff0\u3057\u307e\u305b\u3093\u304c\uff0c\u5358\u72ec\u306e\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306e\u5165\u529b\u5024\u3092\u691c\u8a3c\u3059\u308b\u3060\u3051\u3067\u306a\u304f\uff0c\u8907\u6570\u306e\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306e\u5165\u529b\u5024\u540c\u58eb\u3092\u6bd4\u8f03\u3057\u3066\u691c\u8a3c\u3059\u308b\u5fc5\u8981\u304c\u3042\u3063\u305f\u308a\uff0c\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306b\u65e2\u306b\u767b\u9332\u3055\u308c\u305f\u30ec\u30b3\u30fc\u30c9\u306e\u5024\u3068\u6bd4\u8f03\u3057\u305f\u308a\u3068\u3044\u3063\u305f\u691c\u8a3c\u304c\u5fc5\u8981\u306b\u306a\u308b\u5834\u5408\u3082\u3042\u308a\u307e\u3059\uff0e\u305d\u306e\u3088\u3046\u306a\u5834\u5408\u306b\u306f\u500b\u3005\u306e\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306e\u30a4\u30d9\u30f3\u30c8\u3092\u30d5\u30c3\u30af\u3059\u308b\u306e\u3067\u306f\u306a\u304f\uff0c\u6700\u5f8c\u306b\u767b\u9332\u3059\u308b\u30dc\u30bf\u30f3\u304c\u62bc\u3055\u308c\u305f\u6642\u70b9\u3067\u691c\u8a3c\u3059\u308b\u306e\u304c\u59a5\u5f53\u3060\u3068\u601d\u3044\u307e\u3059\uff0e\u305d\u3046\u3044\u3063\u305f\u30c1\u30a7\u30c3\u30af\u306f Access&reg; \u306e\u5834\u5408\u3067\u3059\u3068\u30c6\u30fc\u30d6\u30eb\u306b\u5bfe\u3059\u308b\u30a4\u30d9\u30f3\u30c8\u3068\u3057\u3066\u767b\u9332\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\uff0e<\/p>\n<h3>\u30a4\u30d9\u30f3\u30c8\u306e\u7a2e\u985e<\/h3>\n<p>\u3000\u8a71\u3092\u30a4\u30d9\u30f3\u30c8\u306b\u623b\u3057\u307e\u3059\uff0e\u3067\u306f\u6b21\u306b\u3069\u306e\u30a4\u30d9\u30f3\u30c8\u3092\u7528\u3044\u308b\u3079\u304d\u3067\u3057\u3087\u3046\u304b\uff0e\u610f\u56f3\u3057\u306a\u3044\u5165\u529b\u304c\u767a\u751f\u3057\u305f\u5834\u5408\u306f\u5165\u529b\u3092\u78ba\u5b9a\u3055\u305b\u305a\uff0c\u6b21\u306e\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306b\u30d5\u30a9\u30fc\u30ab\u30b9\u3092\u79fb\u52d5\u3055\u305b\u305f\u304f\u306a\u3044\u306e\u3067\u3059\u304b\u3089\uff0cCancel \u51e6\u7406\u304c\u5165\u3063\u3066\u3044\u308b\u30a4\u30d9\u30f3\u30c8\u304c\u9069\u5207\u3067\u3059\uff0e\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306e\u30a4\u30d9\u30f3\u30c8\u3067\u4ee3\u8868\u7684\u306a\u3082\u306e\u306f\u4e0b\u8a18\u306e\u3068\u304a\u308a\u3067\u3059\uff0e<\/p>\n<ul>\n<li>BeforeUpdate(ByVal <strong>Cancel<\/strong> As MSForms.ReturnBoolean)<\/li>\n<li>Change()<\/li>\n<li>Exit(ByVal <strong>Cancel<\/strong> As MSForms.ReturnBoolean)<\/li>\n<li>KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)<\/li>\n<li>KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)<\/li>\n<li>KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)<\/li>\n<\/ul>\n<p>\u3000Cancel \u51e6\u7406\u3092\u6301\u3064\u306e\u306f BeforeUpdate \u3068 Exit \u3067\u3059\uff0eChange \u30a4\u30d9\u30f3\u30c8\u3092\u59cb\u3081\u4ed6\u306e\u30a4\u30d9\u30f3\u30c8\u3067\u306f\u51e6\u7406\u3092\u6b62\u3081\u308b\u305f\u3081\u306b\u81ea\u524d\u3067\u30b3\u30fc\u30c7\u30a3\u30f3\u30b0\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b\u3067\u3057\u3087\u3046\uff0eBeforeUpdate \u3068 Exit \u3068\u3067\u3044\u305a\u308c\u304c\u9069\u5207\u304b\u306f\u500b\u3005\u306e\u8981\u4ef6\u306b\u3088\u308a\u307e\u3059\u304c\uff0c\u901a\u5e38\u306f BeforeUpdate \u3067\u3088\u3044\u3067\u3057\u3087\u3046\uff0e\u305d\u308c\u305e\u308c\u306e\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3067 BeforeUpdate \u30a4\u30d9\u30f3\u30c8\u3092\u9078\u629e\u3057\u305f\u72b6\u614b\u306f\u4e0b\u8a18\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\uff0e<\/p>\n<pre class=\"toolbar-overlay:true lang:vb decode:true \">Option Explicit\r\n\r\nPrivate Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)\r\n\r\nEnd Sub\r\n\r\nPrivate Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)\r\n\r\nEnd Sub\r\n\r\nPrivate Sub TextBox3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)\r\n\r\nEnd Sub\r\n\r\nPrivate Sub TextBox4_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)\r\n\r\nEnd Sub\r\n\r\nPrivate Sub TextBox5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)\r\n\r\nEnd Sub<\/pre>\n<h3>\u691c\u8a3c\u306e\u6761\u4ef6\u6307\u5b9a<\/h3>\n<p>\u3000\u6b21\u306b\u30c7\u30fc\u30bf\u578b\u3092\u305d\u308c\u305e\u308c\u691c\u8a3c\u3057\u307e\u3059\uff0e\u3053\u3053\u3067\u5f37\u8abf\u3057\u305f\u3044\u306e\u306f\uff0c\u30ad\u30e3\u30f3\u30bb\u30eb\u3059\u308b\u969b\u306e\u6761\u4ef6\u3092\u6e80\u305f\u3057\u305f\u5834\u5408\u306b\u30ad\u30e3\u30f3\u30bb\u30eb\u51e6\u7406\u3092\u884c\u3046\u30b3\u30fc\u30c9\u3092\u8a18\u8ff0\u3059\u308b\u3053\u3068\u3067\u3059\uff0e\u305d\u306e\u6761\u4ef6\u306b\u306f\uff0c\u9006\u306b\u5165\u529b\u3092\u8a31\u53ef\u3059\u308b\u6761\u4ef6\u5f0f\u3092\u6307\u5b9a\u3057\u3066\u304a\u304d\uff0c\u6700\u5f8c\u306b Not \u3067\u6761\u4ef6\u5f0f\u5168\u4f53\u3092\u5426\u5b9a\u3059\u308b\u3068\u3044\u3046\u3061\u3087\u3063\u3068\u8907\u96d1\u306a\u51e6\u7406\u304c\u5fc5\u8981\u3067\u3059\uff0eIf &#8230; Then &#8230; ElseIf &#8230; \u3068\u6761\u4ef6\u5206\u5c90\u3092\u9023\u306d\u3066\u3044\u304f\u65b9\u6cd5\u3082\u3042\u308a\u307e\u3059\u304c\uff0c\u305d\u306e\u90fd\u5ea6\u30ad\u30e3\u30f3\u30bb\u30eb\u51e6\u7406\u3092\u66f8\u304d\u9023\u306d\u3066\u3044\u304f\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\uff0e\u3053\u3053\u306f\u597d\u307f\u306e\u554f\u984c\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\uff0c\u30c9\u30fb\u30e2\u30eb\u30ac\u30f3\u306e\u6cd5\u5247\u304b\u3089\u3059\u308b\u3068\uff0cAnd \u3067\u6761\u4ef6\u3092\u7d5e\u308a\u8fbc\u307f\uff0c\u6700\u5f8c\u306b Not \u3067\u5f0f\u5168\u4f53\u3092\u5426\u5b9a\u3059\u308b\u306e\u304c\u30b9\u30de\u30fc\u30c8\u304b\u3068\u601d\u3044\u307e\u3059\uff0e\u305d\u3057\u3066 Cancel = True \u3068\u3057\u3066\u30ad\u30e3\u30f3\u30bb\u30eb\u51e6\u7406\u3092\u5b9f\u884c\u3057\u307e\u3059\uff0e\u3067\u306f\u9006\u306b\u5165\u529b\u3092\u6e80\u305f\u3059\u6761\u4ef6\u3092\u305d\u306e\u307e\u307e\u8a18\u8ff0\u3057\uff0cCancel = False \u3068\u3059\u308c\u3070\u3069\u3046\u306a\u308b\u3067\u3057\u3087\u3046\u304b\uff0e\u3053\u308c\u306f\u5bbf\u984c\u306b\u3057\u3066\u304a\u304d\u307e\u3057\u3087\u3046\uff0e<\/p>\n<h3>\u30c7\u30fc\u30bf\u578b\u306e\u691c\u8a3c<\/h3>\n<p>\u3000\u3055\u3066\uff0c\u8a71\u3092\u623b\u3057\u307e\u3059\uff0e\u5404\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306e\u30c7\u30fc\u30bf\u578b\u306f\u9806\u306b\u65e5\u4ed8\u578b\uff0c\u6570\u5024\u578b\uff0c\u96fb\u8a71\u756a\u53f7\u30fb\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u304a\u3088\u3073 URL \u306e\u6587\u5b57\u5217\u578b\u3067\u3059\uff0eTextBox1 \u304b\u3089 TextBox5 \u307e\u3067\u3044\u305a\u308c\u3082\u30ad\u30e3\u30f3\u30bb\u30eb\u51e6\u7406\u5f8c\u30d5\u30a9\u30fc\u30ab\u30b9\u3092\u6b8b\u3057\uff0c\u304b\u3064\u5165\u529b\u3057\u305f\u5024\u5168\u4f53\u3092\u9078\u629e\u3057\u3066\u5373\u5ea7\u306b\u30bf\u30a4\u30d7\u3067\u304d\u308b\u3088\u3046\u306b\u3057\u3066\u3044\u307e\u3059\uff0eTextBox2 \u3067\u306f\u975e\u8ca0\u306e\u6570\u5024\u306e\u307f\u3092\u53d7\u3051\u4ed8\u3051\u307e\u3059\uff0e<\/p>\n<h3>\u6b63\u898f\u8868\u73fe\u306b\u3088\u308b\u6587\u5b57\u5217\u306e\u691c\u8a3c<\/h3>\n<p>\u3000TextBox3 \u4ee5\u964d\u3067\u306f\u30c7\u30fc\u30bf\u578b\u306e\u691c\u8a3c\u3092\u3057\u3066\u3044\u307e\u305b\u3093\uff0e\u6587\u5b57\u5217\u578b\u3068\u3057\u3066\u6271\u3046\u5834\u5408\u306f\u30c7\u30fc\u30bf\u578b\u3092\u691c\u8a3c\u3059\u308b\u5fc5\u8981\u304c\u306a\u3044\u304b\u3089\u3067\u3059\uff0e\u3057\u305f\u304c\u3063\u3066\u5165\u529b\u3055\u308c\u305f\u6587\u5b57\u5217\u305d\u306e\u3082\u306e\u3092\u691c\u8a3c\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\uff0eTextBox3 \u3067\u306f 11 \u6841\u306e\u534a\u89d2\u6570\u5024\u4ee5\u5916\u306e\u5165\u529b\u3092\u8a31\u53ef\u3057\u3066\u3044\u307e\u305b\u3093\uff0eTextBox4\u3000\u306b\u304a\u3044\u3066\u306f\u6b63\u898f\u8868\u73fe\u3092\u4f7f\u3063\u3066 44 \u884c\u76ee\u306e\u3088\u3046\u306b\u30d1\u30bf\u30fc\u30f3\u306b\u30de\u30c3\u30c1\u3055\u305b\u308b\u6587\u5b57\u5217\u3092\u6307\u5b9a\u3057\u307e\u3059\uff0e\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u306e\u6b63\u898f\u8868\u73fe\u306b\u3088\u308b\u30de\u30c3\u30c1\u30f3\u30b0\u306f\u304b\u306a\u308a\u8907\u96d1\u3089\u3057\u304f\uff0c\u4f8b\u6587\u3067\u306f\u4e0d\u5341\u5206\u3067\u3059\uff0eTextBox5 \u3067\u306f URL \u306b\u30de\u30c3\u30c1\u3055\u305b\u307e\u3059\uff0e\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u540c\u69d8\uff0c\u4f8b\u6587\u306e\u691c\u8a3c\u6cd5\u3082\u4e0d\u5341\u5206\u3067\u3059\uff0e<\/p>\n<pre class=\"toolbar-overlay:true lang:vb decode:true \">Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)\r\n    With TextBox1\r\n        If Not IsDate(.Text) Then\r\n            Cancel = True\r\n            .SetFocus\r\n            .SelStart = 0\r\n            .SelLength = Len(.Text)\r\n        End If\r\n    End With\r\nEnd Sub\r\n\r\nPrivate Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)\r\n    With TextBox2\r\n        If Not (IsNumeric(.Text) And .Text >= 0) Then\r\n            Cancel = True\r\n            .SetFocus\r\n            .SelStart = 0\r\n            .SelLength = Len(.Text)\r\n        End If\r\n    End With\r\nEnd Sub\r\n\r\nPrivate Sub TextBox3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)\r\n    Dim myReg       As Object\r\n    Set myReg = CreateObject(\"VBScript.RegExp\")\r\n    With myReg\r\n        .Pattern = \"^[0-9]{11}$\"\r\n        .IgnoreCase = True\r\n        .Global = True\r\n    End With\r\n    With TextBox3\r\n        If Not myReg.Test(.Text) Then\r\n            Cancel = True\r\n            .SetFocus\r\n            .SelStart = 0\r\n            .SelLength = Len(.Text)\r\n        End If\r\n    End With\r\nEnd Sub\r\n\r\nPrivate Sub TextBox4_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)\r\n    Dim myReg       As Object\r\n    Dim Pattern     As String\r\n    Pattern = \"^[-a-z0-9]+(\\.[-a-z0-9]+)*\\@[-a-z0-9]+(\\.[-a-z0-9]+)*\\.[a-z0-9]{2,6}$\"\r\n    Set myReg = CreateObject(\"VBScript.RegExp\")\r\n    With myReg\r\n        .Pattern = Pattern\r\n        .IgnoreCase = True\r\n        .Global = True\r\n    End With\r\n    With TextBox4\r\n        If Not myReg.Test(.Text) Then\r\n            Cancel = True\r\n            .SetFocus\r\n            .SelStart = 0\r\n            .SelLength = Len(.Text)\r\n        End If\r\n    End With\r\nEnd Sub\r\n\r\nPrivate Sub TextBox5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)\r\n    Dim myReg       As Object\r\n    Dim Pattern     As String\r\n    Set myReg = CreateObject(\"VBScript.RegExp\")\r\n    Pattern = \"^https?:\/\/[a-z0-9][-a-z0-9]{0,62}(\\.[a-z0-9][-a-z0-9]{0,62})*\\.[a-z0-9][a-z0-9]{0,62}$\"\r\n    With myReg\r\n        .Pattern = Pattern\r\n        .IgnoreCase = True\r\n        .Global = True\r\n    End With\r\n    With TextBox5\r\n        If Not myReg.Test(.Text) Then\r\n            Cancel = True\r\n            .SetFocus\r\n            .SelStart = 0\r\n            .SelLength = Len(.Text)\r\n        End If\r\n    End With\r\nEnd Sub\r\n<\/pre>\n<p>\u53c2\u7167\uff1a<br \/>\n<a href=\"\/\/support.microsoft.com\/kb\/903301\/ja\" target=\"_blank\">\u30b5\u30a4\u30c8 URL\u3001\u30d5\u30a9\u30eb\u30c0\u540d\u3001\u30d5\u30a1\u30a4\u30eb\u540d\u306b\u4f7f\u7528\u3067\u304d\u306a\u3044\u6587\u5b57 (Microsoft&reg;)<\/a><br \/>\n<a href=\"\/\/support.microsoft.com\/kb\/909264\/ja\" target=\"_blank\">Active Directory \u5185\u306e\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u30fc\u3001\u30c9\u30e1\u30a4\u30f3\u3001\u30b5\u30a4\u30c8\u3001\u304a\u3088\u3073 Ou \u306e\u540d\u524d\u4ed8\u3051\u898f\u5247 (Microsoft&reg;)<\/a><br \/>\n<a href=\"\/\/ja.wikipedia.org\/wiki\/%E3%83%9B%E3%82%B9%E3%83%88%E5%90%8D\" target=\"_blank\">\u30db\u30b9\u30c8\u540d (Wikipedia)<\/a><br \/>\n<a href=\"\/\/fujiitoshiki.com\/improvesociety\/?p=3063\" target=\"_blank\">\u30a4\u30f3\u30bf\u30fc\u30d5\u30a7\u30fc\u30b9\u3068\u3057\u3066\u306eEXCEL VBA\u306b\u3088\u308b\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0<\/a><\/p>\n<p><iframe src=\"\/\/rcm-fe.amazon-adsystem.com\/e\/cm?lt1=_blank&#038;bc1=000000&#038;IS2=1&#038;bg1=FFFFFF&#038;fc1=000000&#038;lc1=0000FF&#038;t=fujiitoshiki-22&#038;o=9&#038;p=8&#038;l=as4&#038;m=amazon&#038;f=ifr&#038;ref=ss_til&#038;asins=4873113598\" style=\"width:120px;height:240px;\" scrolling=\"no\" marginwidth=\"0\" marginheight=\"0\" frameborder=\"0\"><\/iframe><iframe src=\"\/\/rcm-fe.amazon-adsystem.com\/e\/cm?lt1=_blank&#038;bc1=000000&#038;IS2=1&#038;bg1=FFFFFF&#038;fc1=000000&#038;lc1=0000FF&#038;t=fujiitoshiki-22&#038;o=9&#038;p=8&#038;l=as4&#038;m=amazon&#038;f=ifr&#038;ref=ss_til&#038;asins=479736761X\" style=\"width:120px;height:240px;\" scrolling=\"no\" marginwidth=\"0\" marginheight=\"0\" frameborder=\"0\"><\/iframe><\/p>\n<\/div>","protected":false},"excerpt":{"rendered":"<p>\u3000\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u4e0a\u306e\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306e\u5024\u3092\u691c\u8a3c\u3057\u307e\u3059\uff0e\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306b\u5165\u529b\u3059\u308b\u5024\u306e\u30c7\u30fc\u30bf\u578b\u3068\u3057\u3066\u306f\u65e5\u4ed8\u578b\uff0c\u6570\u5024\u578b\uff0c\u90f5\u4fbf\u756a\u53f7\u3084\u96fb\u8a71\u756a\u53f7\u30fb\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u306a\u3069\u306e\u6587\u5b57\u5217\u578b\u304c\u4e3b\u4f53\u3067\u3059\uff0e\u65e5\u4ed8\u578b\u306b\u95a2\u3057\u3066\u306f Excel 2003 \u307e &hellip; <a href=\"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198\" class=\"more-link\"><span class=\"screen-reader-text\">&#8220;Excel VBA\u3067\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306e\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306e\u5024\u306e\u5f62\u5f0f\u7684\u691c\u8a3c\u3092\u884c\u3046&#8221; \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":3265,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_crdt_document":"","_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[1,6],"tags":[],"class_list":["post-3198","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-database","category-excel"],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/posts\/3198","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3198"}],"version-history":[{"count":111,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/posts\/3198\/revisions"}],"predecessor-version":[{"id":7747,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/posts\/3198\/revisions\/7747"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/media\/3265"}],"wp:attachment":[{"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3198"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3198"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3198"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}