{"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":{"_monsterinsights_skip_tracking":false,"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":[],"aioseo_head":"\n\t\t<!-- All in One SEO 4.9.10 - aioseo.com -->\n\t<meta name=\"description\" content=\"\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\" \/>\n\t<meta name=\"robots\" content=\"max-image-preview:large\" \/>\n\t<meta name=\"author\" content=\"admin\"\/>\n\t<meta name=\"keywords\" content=\"\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0,\u691c\u8a3c,\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9,\u30c7\u30fc\u30bf\u578b,\u65e5\u4ed8\u578b,\u6570\u5024\u578b,\u90f5\u4fbf\u756a\u53f7,\u96fb\u8a71\u756a\u53f7,\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9,\u6587\u5b57\u5217\u578b,\u6b63\u898f\u8868\u73fe,\u30d1\u30bf\u30fc\u30f3\" \/>\n\t<link rel=\"canonical\" href=\"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198\" \/>\n\t<meta name=\"generator\" content=\"All in One SEO (AIOSEO) 4.9.10\" \/>\n\t\t<meta property=\"og:locale\" content=\"ja_JP\" \/>\n\t\t<meta property=\"og:site_name\" content=\"Improve Society | with Database, Statistics and Nutrition\" \/>\n\t\t<meta property=\"og:type\" content=\"article\" \/>\n\t\t<meta property=\"og:title\" content=\"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 | Improve Society\" \/>\n\t\t<meta property=\"og:description\" content=\"\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\" \/>\n\t\t<meta property=\"og:url\" content=\"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198\" \/>\n\t\t<meta property=\"article:published_time\" content=\"2013-07-16T05:51:20+00:00\" \/>\n\t\t<meta property=\"article:modified_time\" content=\"2017-04-27T06:48:21+00:00\" \/>\n\t\t<meta name=\"twitter:card\" content=\"summary\" \/>\n\t\t<meta name=\"twitter:title\" content=\"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 | Improve Society\" \/>\n\t\t<meta name=\"twitter:description\" content=\"\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\" \/>\n\t\t<script type=\"application\/ld+json\" class=\"aioseo-schema\">\n\t\t\t{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?p=3198#article\",\"name\":\"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 | Improve Society\",\"headline\":\"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\",\"author\":{\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?author=1#author\"},\"publisher\":{\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/#person\"},\"image\":{\"@type\":\"ImageObject\",\"url\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/wp-content\\\/uploads\\\/validation.png\",\"width\":330,\"height\":253},\"datePublished\":\"2013-07-16T14:51:20+09:00\",\"dateModified\":\"2017-04-27T15:48:21+09:00\",\"inLanguage\":\"ja\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?p=3198#webpage\"},\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?p=3198#webpage\"},\"articleSection\":\"Database, EXCEL\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?p=3198#breadcrumblist\",\"itemListElement\":[{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety#listItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\",\"nextItem\":{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?cat=1#listItem\",\"name\":\"Database\"}},{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?cat=1#listItem\",\"position\":2,\"name\":\"Database\",\"item\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?cat=1\",\"nextItem\":{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?p=3198#listItem\",\"name\":\"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\"},\"previousItem\":{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety#listItem\",\"name\":\"Home\"}},{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?p=3198#listItem\",\"position\":3,\"name\":\"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\",\"previousItem\":{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?cat=1#listItem\",\"name\":\"Database\"}}]},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/#person\",\"name\":\"admin\",\"image\":{\"@type\":\"ImageObject\",\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?p=3198#personImage\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/4ae816121e2fdbfad4bfba7268a6d5a7910d91a047394738018fa9b82a7da661?s=96&d=mm&r=g\",\"width\":96,\"height\":96,\"caption\":\"admin\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?author=1#author\",\"url\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?author=1\",\"name\":\"admin\",\"image\":{\"@type\":\"ImageObject\",\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?p=3198#authorImage\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/4ae816121e2fdbfad4bfba7268a6d5a7910d91a047394738018fa9b82a7da661?s=96&d=mm&r=g\",\"width\":96,\"height\":96,\"caption\":\"admin\"}},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?p=3198#webpage\",\"url\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?p=3198\",\"name\":\"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 | Improve Society\",\"description\":\"\\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\",\"inLanguage\":\"ja\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/#website\"},\"breadcrumb\":{\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?p=3198#breadcrumblist\"},\"author\":{\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?author=1#author\"},\"creator\":{\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?author=1#author\"},\"image\":{\"@type\":\"ImageObject\",\"url\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/wp-content\\\/uploads\\\/validation.png\",\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?p=3198\\\/#mainImage\",\"width\":330,\"height\":253},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/?p=3198#mainImage\"},\"datePublished\":\"2013-07-16T14:51:20+09:00\",\"dateModified\":\"2017-04-27T15:48:21+09:00\"},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/#website\",\"url\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/\",\"name\":\"Improve Society\",\"description\":\"with Database, Statistics and Nutrition\",\"inLanguage\":\"ja\",\"publisher\":{\"@id\":\"https:\\\/\\\/www.fujiitoshiki.com\\\/improvesociety\\\/#person\"}}]}\n\t\t<\/script>\n\t\t<!-- All in One SEO -->\n\n","aioseo_head_json":{"title":"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 | Improve Society","description":"\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","canonical_url":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198","robots":"max-image-preview:large","keywords":"\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0,\u691c\u8a3c,\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9,\u30c7\u30fc\u30bf\u578b,\u65e5\u4ed8\u578b,\u6570\u5024\u578b,\u90f5\u4fbf\u756a\u53f7,\u96fb\u8a71\u756a\u53f7,\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9,\u6587\u5b57\u5217\u578b,\u6b63\u898f\u8868\u73fe,\u30d1\u30bf\u30fc\u30f3","webmasterTools":{"miscellaneous":""},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198#article","name":"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 | Improve Society","headline":"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","author":{"@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?author=1#author"},"publisher":{"@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/#person"},"image":{"@type":"ImageObject","url":"https:\/\/www.fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/validation.png","width":330,"height":253},"datePublished":"2013-07-16T14:51:20+09:00","dateModified":"2017-04-27T15:48:21+09:00","inLanguage":"ja","mainEntityOfPage":{"@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198#webpage"},"isPartOf":{"@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198#webpage"},"articleSection":"Database, EXCEL"},{"@type":"BreadcrumbList","@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198#breadcrumblist","itemListElement":[{"@type":"ListItem","@id":"https:\/\/www.fujiitoshiki.com\/improvesociety#listItem","position":1,"name":"Home","item":"https:\/\/www.fujiitoshiki.com\/improvesociety","nextItem":{"@type":"ListItem","@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?cat=1#listItem","name":"Database"}},{"@type":"ListItem","@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?cat=1#listItem","position":2,"name":"Database","item":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?cat=1","nextItem":{"@type":"ListItem","@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198#listItem","name":"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"},"previousItem":{"@type":"ListItem","@id":"https:\/\/www.fujiitoshiki.com\/improvesociety#listItem","name":"Home"}},{"@type":"ListItem","@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198#listItem","position":3,"name":"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","previousItem":{"@type":"ListItem","@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?cat=1#listItem","name":"Database"}}]},{"@type":"Person","@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/#person","name":"admin","image":{"@type":"ImageObject","@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198#personImage","url":"https:\/\/secure.gravatar.com\/avatar\/4ae816121e2fdbfad4bfba7268a6d5a7910d91a047394738018fa9b82a7da661?s=96&d=mm&r=g","width":96,"height":96,"caption":"admin"}},{"@type":"Person","@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?author=1#author","url":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?author=1","name":"admin","image":{"@type":"ImageObject","@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198#authorImage","url":"https:\/\/secure.gravatar.com\/avatar\/4ae816121e2fdbfad4bfba7268a6d5a7910d91a047394738018fa9b82a7da661?s=96&d=mm&r=g","width":96,"height":96,"caption":"admin"}},{"@type":"WebPage","@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198#webpage","url":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198","name":"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 | Improve Society","description":"\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","inLanguage":"ja","isPartOf":{"@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/#website"},"breadcrumb":{"@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198#breadcrumblist"},"author":{"@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?author=1#author"},"creator":{"@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?author=1#author"},"image":{"@type":"ImageObject","url":"https:\/\/www.fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/validation.png","@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198\/#mainImage","width":330,"height":253},"primaryImageOfPage":{"@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198#mainImage"},"datePublished":"2013-07-16T14:51:20+09:00","dateModified":"2017-04-27T15:48:21+09:00"},{"@type":"WebSite","@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/#website","url":"https:\/\/www.fujiitoshiki.com\/improvesociety\/","name":"Improve Society","description":"with Database, Statistics and Nutrition","inLanguage":"ja","publisher":{"@id":"https:\/\/www.fujiitoshiki.com\/improvesociety\/#person"}}]},"og:locale":"ja_JP","og:site_name":"Improve Society | with Database, Statistics and Nutrition","og:type":"article","og:title":"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 | Improve Society","og:description":"\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","og:url":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198","article:published_time":"2013-07-16T05:51:20+00:00","article:modified_time":"2017-04-27T06:48:21+00:00","twitter:card":"summary","twitter:title":"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 | Improve Society","twitter:description":"\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"},"aioseo_meta_data":{"post_id":"3198","title":"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 | #site_title","description":"\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","keywords":[{"label":"\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0","value":"\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0"},{"label":"\u691c\u8a3c","value":"\u691c\u8a3c"},{"label":"\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9","value":"\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9"},{"label":"\u30c7\u30fc\u30bf\u578b","value":"\u30c7\u30fc\u30bf\u578b"},{"label":"\u65e5\u4ed8\u578b","value":"\u65e5\u4ed8\u578b"},{"label":"\u6570\u5024\u578b","value":"\u6570\u5024\u578b"},{"label":"\u90f5\u4fbf\u756a\u53f7","value":"\u90f5\u4fbf\u756a\u53f7"},{"label":"\u96fb\u8a71\u756a\u53f7","value":"\u96fb\u8a71\u756a\u53f7"},{"label":"\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9","value":"\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9"},{"label":"\u6587\u5b57\u5217\u578b","value":"\u6587\u5b57\u5217\u578b"},{"label":"\u6b63\u898f\u8868\u73fe","value":"\u6b63\u898f\u8868\u73fe"},{"label":"\u30d1\u30bf\u30fc\u30f3","value":"\u30d1\u30bf\u30fc\u30f3"}],"keyphrases":null,"primary_term":null,"canonical_url":null,"og_title":null,"og_description":null,"og_object_type":"default","og_image_type":"default","og_image_url":null,"og_image_width":null,"og_image_height":null,"og_image_custom_url":null,"og_image_custom_fields":null,"og_video":null,"og_custom_url":null,"og_article_section":null,"og_article_tags":null,"twitter_use_og":false,"twitter_card":"default","twitter_image_type":"default","twitter_image_url":null,"twitter_image_custom_url":null,"twitter_image_custom_fields":null,"twitter_title":null,"twitter_description":null,"schema":{"blockGraphs":[],"customGraphs":[],"default":{"data":{"Article":[],"Course":[],"Dataset":[],"FAQPage":[],"Movie":[],"Person":[],"Product":[],"ProductReview":[],"Car":[],"Recipe":[],"Service":[],"SoftwareApplication":[],"WebPage":[]},"graphName":"","isEnabled":true},"graphs":[]},"schema_type":null,"schema_type_options":null,"pillar_content":false,"robots_default":true,"robots_noindex":false,"robots_noarchive":false,"robots_nosnippet":false,"robots_nofollow":false,"robots_noimageindex":false,"robots_noodp":false,"robots_notranslate":false,"robots_max_snippet":null,"robots_max_videopreview":null,"robots_max_imagepreview":"large","priority":null,"frequency":null,"location":null,"local_seo":null,"breadcrumb_settings":null,"limit_modified_date":false,"ai":null,"created":"2020-12-21 23:41:52","updated":"2025-06-04 05:03:15","seo_analyzer_scan_date":null},"aioseo_breadcrumb":"<div class=\"aioseo-breadcrumbs\"><span class=\"aioseo-breadcrumb\">\n\t\t\t<a href=\"https:\/\/www.fujiitoshiki.com\/improvesociety\" title=\"Home\">Home<\/a>\n\t\t<\/span><span class=\"aioseo-breadcrumb-separator\">&raquo;<\/span><span class=\"aioseo-breadcrumb\">\n\t\t\t<a href=\"https:\/\/www.fujiitoshiki.com\/improvesociety\/?cat=1\" title=\"Database\">Database<\/a>\n\t\t<\/span><span class=\"aioseo-breadcrumb-separator\">&raquo;<\/span><span class=\"aioseo-breadcrumb\">\n\t\t\tExcel 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\n\t\t<\/span><\/div>","aioseo_breadcrumb_json":[{"label":"Home","link":"https:\/\/www.fujiitoshiki.com\/improvesociety"},{"label":"Database","link":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?cat=1"},{"label":"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","link":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3198"}],"_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}]}}