{"id":2090,"date":"2026-06-17T20:05:58","date_gmt":"2026-06-17T11:05:58","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=2090"},"modified":"2026-09-27T19:38:28","modified_gmt":"2026-09-27T10:38:28","slug":"kokyaku-daburi-del01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct08_exceltruebasic\/ct080501_truecomputerexcel\/kokyaku-daburi-del01","title":{"rendered":"\u25cf\u9867\u5ba2ID\u304c\u7121\u3044\u5834\u5408\u306e\u3001\u9867\u5ba2\u540d\u7c3f\u306e\u91cd\u8907\u524a\u9664\u306e\u65b9\u6cd5"},"content":{"rendered":"<p>\u25cf\u9867\u5ba2ID\u304c\u7121\u3044\u5834\u5408\u306e\u3001\u9867\u5ba2\u540d\u7c3f\u306e\u91cd\u8907\u524a\u9664\u306e\u65b9\u6cd5<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u57fa\u672c\u7684\u306b\u306f\u3001\u9867\u5ba2ID\u304c\u7121\u3044\u5834\u5408\u306e\u3001\u9867\u5ba2\u540d\u7c3f\u306e\u91cd\u8907\u524a\u9664\u306e\u65b9\u6cd5\u30fb\u30fb\u30fb\u30fb\u3001\u3067\u3059\u304c\u3001\u9867\u5ba2ID\u304c\u3042\u3063\u305f\u3068\u3057\u3066\u3082\u3001\u5165\u529b\u30df\u30b9\u3067\u30c0\u30d6\u3063\u3066\u5165\u529b\u3057\u305f\u308a\uff08\u9867\u5ba2ID\u9055\u3044\u3067\u5185\u5bb9\u304c\u5168\u90e8\u540c\u3058\uff09\u3001\u3067\u3059\u3068\u304b\u3001\u300c\u5bb6\u65cf\u300d\u3092\u30d0\u30e9\u30d0\u30e9\u306b\u300c\u72ec\u7acb\u3057\u305f\uff11\u4eba\u306e\u9867\u5ba2\u3068\u3057\u3066\u300d\u9867\u5ba2\u540d\u7c3f\u306b\u5165\u529b\u3057\u3066\u3057\u307e\u3063\u305f\u308a\u3001\u8272\u3093\u306a\u5165\u529b\u30df\u30b9\u304c\u3042\u308a\u307e\u3059\u304b\u3089\u3001\u4e00\u5fdc\u3001\u305d\u3046\u3044\u3046\u30df\u30b9\u304c\u7121\u3044\u304b\u3082\u3001\u3053\u308c\u3067\u30c1\u30a7\u30c3\u30af\u3067\u304d\u307e\u3059\u3002<\/p>\n<p>(01)\u3000\u25cf\u307e\u305a\u306f\u6c0f\u540d\u3067\u30c1\u30a7\u30c3\u30af<br \/>\n\u5358\u7d14\u306b\u30d4\u30dc\u30c3\u30c8\u3067\u6c0f\u540d\u3067\u30c1\u30a7\u30c3\u30af\u3002<br \/>\n\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3082\u4f5c\u6210\u3002\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3092\u3057\u3084\u3059\u304f\u3059\u308b\u305f\u3081\u306b\u3002<br \/>\n\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3\u5316\u3059\u308b\u304b\u3001\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u5272\u308a\u5f53\u3066\u3092\u3059\u308b\u3068\u30e9\u30af\u3061\u3093\u3002<\/p>\n<p>\u30d4\u30dc\u30c3\u30c8\u5185\u306e\u30bb\u30eb\u3092\u4e00\u3064\u9078\u629e\u3057\u3066\u304b\u3089\u5b9f\u884c\u3059\u308b\u3002<br \/>\n\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3057\u3066\u3001\uff12\u884c\u5206\u3092\u9078\u629e\u3057\u305f\u306e\u3061\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u9001\u3063\u3066\u304f\u308c\u308b\u306e\u3067\u3001\u91cd\u8907\u30c1\u30a7\u30c3\u30af\u5bfe\u8c61\u3092\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306b\u30b3\u30d4\u30da\u30e1\u30e2\u3059\u308b\u306e\u306b\u4f7f\u3048\u307e\u3059\u3002<\/p>\n<p>\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u5f8c\u306e\u30b3\u30d4\u30fc\u884c\u6570\u306f\u5fc5\u8981\u306b\u5fdc\u3058\u3066\u5909\u66f4\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n\r\nSub DM\u30ea\u30b9\u30c8\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3068\u884c\u9078\u629e()\r\n'\r\n' Macro2 Macro\r\n' \u30de\u30af\u30ed\u8a18\u9332\u65e5 : 2026\/6\/16  \u30e6\u30fc\u30b6\u30fc\u540d : a\r\n'\r\n\r\n'\r\n'    Range(\"B7\").Select\r\n    Selection.ShowDetail = True\r\n    Rows(\"2:3\").Select\r\n    Selection.Copy\r\n'    Rows(\"5:5\").Select\r\n'    ActiveSheet.Paste\r\nEnd Sub\r\n\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n2025\/11\/07\uff5e12\u306e\u3001\u300c\uff58\uff58\uff58\uff58\u3054\u4f9d\u983c\uff1aDM\u30ea\u30b9\u30c8\u91cd\u8907\u8abf\u67fb\u2192\u300d\u3067\u30d5\u30a3\u30eb\u30bf\u3059\u308b\u3068\u308f\u304b\u308a\u3084\u3059\u3044\u3002<\/p>\n<p>\u7dcf\u5408\u9023\u756a\t\u524a\u9664\u533a\u5206\t\u90e8\u5206\u9023\u756a\t\u304a\u5c4a\u3051\u5148\u540d\t\u304a\u5c4a\u3051\u5148\u90f5\u4fbf\u756a\u53f7\t\u304a\u5c4a\u3051\u5148\u4f4f\u6240\t\u304a\u5c4a\u3051\u5148\u5efa\u7269\u540d\uff08\u30a2\u30d1\u30fc\u30c8\u30de\u30f3\u30b7\u30e7\u30f3\u540d\uff09\t\u304a\u5c4a\u3051\u5148\u96fb\u8a71\u756a\u53f7\t\u9867\u5ba2ID\t\u304a\u5c4a\u3051\u5148\u4f1a\u793e\u30fb\u90e8\u9580\uff11\t\u304a\u5c4a\u3051\u5148\u4f1a\u793e\u30fb\u90e8\u9580\uff12\t\u304a\u5c4a\u3051\u5148\u540d\u7565\u79f0\uff76\uff85\t\u656c\u79f0\t\u3054\u4f9d\u983c\u4e3b\u96fb\u8a71\u756a\u53f7\t\u533a\u520601\t\u533a\u520602\t\u533a\u520603\t\u533a\u520604\t\u533a\u520605<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>(02)\u3000\u25cf\u3054\u5bb6\u65cf\u7591\u3044\u30c1\u30a7\u30c3\u30af \u305d\u306e\uff11 \uff08=LEFT(E2,1)&RIGHT(G2,1)\uff09<br \/>\n\u300c=LEFT(E2,1)&RIGHT(G2,1)\u300d\u3092\u57cb\u3081\u8fbc\u3080\u5217\u306e\u540d\u524d\u306f\u300c\u5bb6\u65cf\u7591\u3044\u30d5\u30e9\u30b0\u300d\u3002<br \/>\n\u300c\u5bb6\u65cf\u7591\u3044\u30d5\u30e9\u30b0\u300d\u306e\u5217\u306f\u3001\u3053\u306e\u3042\u3068\u3001\u3044\u308d\u3093\u306a\u30c1\u30a7\u30c3\u30af\u30d5\u30e9\u30b0\uff08\u6570\u5f0f\u3067\u306e\uff09\u306b\u6d41\u7528\u3057\u307e\u3059\u3002<\/p>\n<p>\u203b\u300c\u3007\u3007\u770c\u300d\u300c\u3007\u3007\u3007\u5e02\u300d\u300c\u756a\u5730\u300d\u3092\u9806\u756a\u306b\u7f6e\u63db\u3067\u6d88\u3057\u3066\u3001\u300c\u5bb6\u65cf\u7591\u3044\u30d5\u30e9\u30b0\u7528\u4f4f\u624001\u300d\u3068\u3059\u308b\u3002<br \/>\n\u3000\u305d\u306e\u5f8c\u3001\u300c\u6c0f\u540d\u300d\u306e\u5148\u982d1\u6587\u5b57\u3068\u300c\u5bb6\u65cf\u7591\u3044\u30d5\u30e9\u30b0\u7528\u4f4f\u624001\u300d\u306e\u6700\u5f8c\u306e1\u6587\u5b57\u3067\u30c1\u30a7\u30c3\u30af\u3002<br \/>\n\u30c1\u30a7\u30c3\u30af\u7528\u306e\u30de\u30af\u30ed\u3042\u308a\u3002<br \/>\n\u3069\u308c\u3092\u6d88\u3059\u304b\u306f\u3001\u666e\u901a\u306b\u300c\u524a\u9664\u533a\u5206\u300d\u306e\u5217\u3067\u300c\uff14\u756a\u30fb\u30fb\u771f\u3063\u5148\u306b\u524a\u9664\u300d\u306a\u3069\u3092\u30d5\u30e9\u30b0\u3092\u7acb\u3066\u305f\u3002<\/p>\n<p>\u7dcf\u5408\u9023\u756a\t\u6c0f\u540d\t\u90f5\u4fbf\u756a\u53f7\t\u5bb6\u65cf\u7591\u3044\u30d5\u30e9\u30b0\u7528\u4f4f\u624001\t\u4f4f\u624002\t\u96fb\u8a71\u756a\u53f7\t\u9867\u5ba2ID\t\u5bb6\u65cf\u7591\u3044\u30d5\u30e9\u30b0\t\u304a\u5c4a\u3051\u5148\u4f4f\u6240\t\u524a\u9664\u533a\u5206\t\u90e8\u5206\u9023\u756a\t\u304a\u5c4a\u3051\u5148\u4f1a\u793e\u30fb\u90e8\u9580\uff11\t\u304a\u5c4a\u3051\u5148\u4f1a\u793e\u30fb\u90e8\u9580\uff12\t\u304a\u5c4a\u3051\u5148\u540d\u7565\u79f0\uff76\uff85\t\u656c\u79f0\t\u3054\u4f9d\u983c\u4e3b\u96fb\u8a71\u756a\u53f7\t\u533a\u520601\t\u533a\u520602\t\u533a\u520603\t\u533a\u520604\t\u533a\u520605<br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n\r\nSub DM\u30ea\u30b9\u30c8\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u7e2e\u5c0f\u8868\u793a\u3068\u4e26\u3079\u66ff\u3048()\r\n'\r\n' Macro2 Macro\r\n' \u30de\u30af\u30ed\u8a18\u9332\u65e5 : 2026\/6\/16  \u30e6\u30fc\u30b6\u30fc\u540d : a\r\n'\r\n\r\n'\r\n    ActiveCell.Offset(1, 0).Select\r\n\r\n\r\n'    Range(\"B7\").Select\r\n    Selection.ShowDetail = True\r\n    ActiveWindow.Zoom = 80\r\n\r\n    Range(\"D1\").Select\r\n    Selection.Sort Key1:=Range(\"D1\"), Order1:=xlAscending, Header:=xlGuess, _\r\n        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _\r\n        :=xlPinYin\r\n        \r\n'    Rows(\"5:5\").Select\r\n'    ActiveSheet.Paste\r\nEnd Sub\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>(03)\u3000\u25cf\u3054\u5bb6\u65cf\u7591\u3044\u30c1\u30a7\u30c3\u30af \u305d\u306e\uff12 \uff08=LEFT(E2,1)&RIGHT(G2,1)\uff09<br \/>\n\u300c\u6c0f\u540d\u300d\u306e\u5148\u982d1\u6587\u5b57\u3068\u300c\u96fb\u8a71\u756a\u53f7\u300d\u306e\u6700\u5f8c\u306e1\u6587\u5b57\u3067\u30c1\u30a7\u30c3\u30af\u3002<br \/>\n\u300c\u5bb6\u65cf\u7591\u3044\u30d5\u30e9\u30b0\u300d\u306b\u3066\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>(04)\u3000\u25cf\u6c0f\u540d\u306e\u5217\u3092\u8907\u88fd\u3057\u3001\u30b9\u30da\u30fc\u30b9\uff08\u534a\u89d2\u30fb\u5168\u89d2\u3068\u3082\u306b\uff09\u3092\u524a\u9664\u3057\u3066\u3001\u518d\u5ea6\u3001\u5358\u7d14\u6bd4\u8f03<\/p>\n<p>\u30d4\u30dc\u30c3\u30c8\u306e\u6642\u70b9\u3067\u91cd\u8907\u30bc\u30ed\u3060\u3063\u305f\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>(05)\u3000\u25cf\u96fb\u8a71\u756a\u53f7\u306e\u307f\u3067\u5358\u7d14\u6bd4\u8f03<\/p>\n<p>\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u7d50\u679c\u306b\u3066\u3001\u300c\u524a\u9664\u533a\u5206\u300d\u306e\u5217\u3060\u3051\u79fb\u52d5\u3057\u3066\u3001\u3053\u3053\u306b\u30b3\u30d4\u30da\u30e1\u30e2\u3002<\/p>\n<p>\u7dcf\u5408\u9023\u756a\t\u524a\u9664\u533a\u5206\t\u6c0f\u540d\u30b9\u30da\u30fc\u30b9\u306a\u3057\u533a\u5206\t\u6c0f\u540d\t\u90f5\u4fbf\u756a\u53f7\t\u5bb6\u65cf\u7591\u3044\u30d5\u30e9\u30b0\u7528\u4f4f\u624001\t\u4f4f\u624002\t\u96fb\u8a71\u756a\u53f7\t\u9867\u5ba2ID\t\u5bb6\u65cf\u7591\u3044\u30d5\u30e9\u30b0\t\u304a\u5c4a\u3051\u5148\u4f4f\u6240\t\u90e8\u5206\u9023\u756a\t\u304a\u5c4a\u3051\u5148\u4f1a\u793e\u30fb\u90e8\u9580\uff11\t\u304a\u5c4a\u3051\u5148\u4f1a\u793e\u30fb\u90e8\u9580\uff12\t\u304a\u5c4a\u3051\u5148\u540d\u7565\u79f0\uff76\uff85\t\u656c\u79f0\t\u3054\u4f9d\u983c\u4e3b\u96fb\u8a71\u756a\u53f7\t\u533a\u520601\t\u533a\u520602\t\u533a\u520603\t\u533a\u520604\t\u533a\u520605\t<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>(06)\u3000\u25cf\u4f4f\u6240\u306e\u307f\u3067\u3082\u30c1\u30a7\u30c3\u30af<br \/>\n\uff08\u611b\u77e5\u770c\u3001\u540d\u53e4\u5c4b\u5e02\u3001\u756a\u5730\u3001\u30ab\u30c3\u30c8\u3057\u305f\u3082\u306e\u3067\uff09<br \/>\n\uff12\uff18\u4ef6\u307b\u3069\u3060\u3063\u305f\u306e\u3067\u3001\u624b\u4f5c\u696d\u3067\u30c1\u30a7\u30c3\u30af\u2192\u3067\u3082\u7121\u304b\u3063\u305f\u306e\u3067\u30b9\u30eb\u30fc\u3002<\/p>\n<p>\u30d4\u30dc\u30c3\u30c8\u306f\u90fd\u5ea6\u6d88\u3057\u305f\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>(07)\u3000\u25cf=RIGHT(G2,1)&RIGHT(I2,1)\u3067\u4f4f\u6240\u306e\u6700\u5f8c\u306e\uff11\u6587\u5b57\u3068\u3001TEL\u306e\u6700\u5f8c\u5c3e\u306e\uff11\u6587\u5b57\u3067\u30c1\u30a7\u30c3\u30af\u3002<br \/>\n\u300c\u5bb6\u65cf\u7591\u3044\u30d5\u30e9\u30b0\u300d\u306b\u3066\u3002<\/p>\n<p>\u30d4\u30dc\u30c3\u30c8\u3067\u8abf\u3079\u305f\u3089\uff11\uff17\uff10\u4ef6\u307b\u3069\u3082\u3042\u3063\u305f\u306e\u3067\u3001\u30af\u30ea\u30c3\u30af\u304c\u5927\u5909\u3060\u304b\u3089\u3001<br \/>\n\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u30c1\u30a7\u30c3\u30af\u3092\u30de\u30af\u30ed\u5316<\/p>\n<p>\u3067\u3001\u7d50\u5c40\u30c1\u30a7\u30c3\u30af\u3057\u305f\u3089\u602a\u3057\u3044\u3084\u3064\u306f\u30bc\u30ed\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n\r\nSub \u91cd\u8907\u30c1\u30a7\u30c3\u30af\u540d\u524d1\u6587\u5b57\u4f4f\u6240\u6700\u7d421\u6587\u5b57()\r\n'\r\n' Macro2 Macro\r\n' \u30de\u30af\u30ed\u8a18\u9332\u65e5 : 2026\/3\/27  \u30e6\u30fc\u30b6\u30fc\u540d : a\r\n'\r\n\r\n'\r\n'    Range(\"B12\").Select\r\n    Selection.ShowDetail = True\r\n    Range(\"G2\").Select\r\n    Selection.Sort Key1:=Range(\"G2\"), Order1:=xlAscending, Header:=xlGuess, _\r\n        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _\r\n        :=xlPinYin\r\n        \r\n    ActiveWindow.Zoom = 70\r\n'    Columns(\"A:C\").Select\r\n'    Range(\"C1\").Activate\r\n    Columns(\"A:C\").ColumnWidth = 2\r\nEnd Sub\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>(08)\u3000\u25cf=RIGHT(G2,2)&RIGHT(I2,2)\u3067\u4f4f\u6240\u306e\u6700\u5f8c\u306e\uff12\u6587\u5b57\u3068\u3001TEL\u306e\u6700\u5f8c\u5c3e\u306e\uff12\u6587\u5b57\u30c1\u30a7\u30c3\u30af\u3002<br \/>\n\u300c\u5bb6\u65cf\u7591\u3044\u30d5\u30e9\u30b0\u300d\u306b\u3066\u3002<br \/>\n\u4f4f\u6240\u306e\u6700\u5f8c\u306e\uff11\u6587\u5b57\u3068\u3001TEL\u306e\u6700\u5f8c\u5c3e\u306e\uff11\u6587\u5b57\u3067\u3059\u3067\u306b\u3084\u3063\u3066\u308b\u306e\u3067\u3001\u7121\u610f\u5473\u3002<br \/>\n\u3084\u3089\u306a\u3044\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>(09)\u3000\u25cf=LEFT(H29,2)&RIGHT(E29,1)&RIGHT(L29,1)\u3067\u3001\u540d\u524d\u306e\uff12\u6587\u5b57\u3068\u3001\u4f4f\u6240\u306e\u6700\u5f8c\u306e\uff11\u6587\u5b57\u3001\u96fb\u8a71\u306e\u6700\u5f8c\u306e\uff11\u6587\u5b57\u3002<br \/>\n\u300c\u5bb6\u65cf\u7591\u3044\u30d5\u30e9\u30b0\u300d\u306b\u3066\u3002<br \/>\n\u3000\u300c\u6c0f\u540d\u300d\u306e\u5148\u982d1\u6587\u5b57\u3068\u300c\u5bb6\u65cf\u7591\u3044\u30d5\u30e9\u30b0\u7528\u4f4f\u624001\u300d\u306e\u6700\u5f8c\u306e1\u6587\u5b57\u3067\u3059\u3067\u306b\u3084\u3063\u3066\u308b\u306e\u3067\u7121\u610f\u5473\u304b\u3082\uff1f<br \/>\n\u3084\u308b\u306a\u3089\u3001\u540d\u524d\u306e\uff12\u6587\u5b57\u3068\u3001\u96fb\u8a71\u306e\u6700\u5f8c\u306e\uff11\u6587\u5b57\u3067\u3084\u308b\uff1f<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>(10)\u3000\u25cf=LEFT(E2,2)&RIGHT(G2,2)\u3067\u540d\u524d\u306e\u5148\u982d\u306e\uff12\u6587\u5b57\u3068\u3001\u4f4f\u6240\u306e\u6700\u5f8c\u5c3e\u306e\uff12\u6587\u5b57\u30c1\u30a7\u30c3\u30af\u3002<br \/>\n\u3000\u300c\u6c0f\u540d\u300d\u306e\u5148\u982d1\u6587\u5b57\u3068\u300c\u5bb6\u65cf\u7591\u3044\u30d5\u30e9\u30b0\u7528\u4f4f\u624001\u300d\u306e\u6700\u5f8c\u306e1\u6587\u5b57\u3067\u3059\u3067\u306b\u3084\u3063\u3066\u308b\u306e\u3067\u7121\u610f\u5473\u3002<\/p>\n<p>\u3084\u3089\u306a\u3044\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>(11)\u3000\u25cf\u30e9\u30b9\u30c8\u306b\u3001\u793e\u9577\u69d8\u306e\u524a\u9664\u5bfe\u8c61\u9867\u5ba2\u3068\u3001\u300cDM\u7d76\u5bfe\u7981\u6b62\u306e\u304a\u5ba2\u69d8.xls\u300d\u3092\u7167\u3089\u3057\u5408\u308f\u305b\u308b\u3002<\/p>\n<p>\u5b8c\u5168\u4e00\u81f4\u3068\u3001\u59d3\u3060\u3051\u306e\u524d\u65b9\u4e00\u81f4\u3068\uff12\u30b1\u30fc\u30b9\u3067\u3002<\/p>\n<p>SELECT *<br \/>\nFROM \uff14\u8868\u5408\u4f53\uff3f\u52a0\u5de5<br \/>\nWHERE (((\u6c0f\u540d) Like \"\u6c0f\u540d01*\"<br \/>\n Or (\u6c0f\u540d) Like \"\u6c0f\u540d01*\"<br \/>\n Or (\u6c0f\u540d) Like \"\u6c0f\u540d01*\"<br \/>\n Or (\u6c0f\u540d) Like \"\u6c0f\u540d01*\"<br \/>\n Or (\u6c0f\u540d) Like \"\u6c0f\u540d01*\"<br \/>\n Or (\u6c0f\u540d) Like \"\u6c0f\u540d01*\"<br \/>\n Or (\u6c0f\u540d) Like \"\u6c0f\u540d01*\"<br \/>\n Or (\u6c0f\u540d) Like \"\u6c0f\u540d01*\"<br \/>\n Or (\u6c0f\u540d) Like \"\u6c0f\u540d01*\"))<br \/>\nORDER BY \u6c0f\u540d;<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>(12)\u3000\u25cf\u30e9\u30b9\u30c8\u306e\u30e9\u30b9\u30c8\u306b\u3001\uff14\u8868\u7d50\u5408org\u3084\u3001\u518d\u5ea6\u3001\u307b\u307c\u3044\u3058\u3063\u3066\u306a\u3044\u65b0\u3057\u3044\uff14\u8868\u7d50\u5408\u3092\u3057\u305f\u3082\u306e\u3067Access\u30d5\u30a1\u30a4\u30eb\u306b\u3066\u30c1\u30a7\u30c3\u30af\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<\/p>\n<p>\u25cf\u5b9f\u969b\u306b\u4f7f\u3046\u3088\u3046\u306b\u500b\u4eba\u7528\u30de\u30af\u30ed\u30d6\u30c3\u30af\u306b\u4f5c\u3063\u305f\u30b3\u30fc\u30c9\u3002<\/p>\n<p>\u30df\u30cb\u30c4\u30fc\u30eb\u30d0\u30fc\u306b\u3001\u30a4\u30a8\u30ed\u30fc\u30de\u30af\u30ed\u30dc\u30bf\u30f3\u5316\u3057\u3066\u4f7f\u3044\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n\r\n\u5b9f\u969b\u306b\u4f7f\u3063\u3066\u3044\u308b\u30b3\u30fc\u30c9\u3002\r\n\u30a4\u30a8\u30ed\u30fc\u30dc\u30bf\u30f3\u3001\u5de6\u304b\u3089\r\nPERSONAL.XLS!\u500b\u4eba\u7528MB\u5c02\u7528_DM\u30ea\u30b9\u30c8\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3068\u884c\u9078\u629e\u3068\u5225\u30d6\u30c3\u30af\u3078\u306e\u30b3\u30d4\u30da\r\nPERSONAL.XLS!\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u306e\u524a\u9664\r\nPERSONAL.XLS!\u500b\u4eba\u7528MB\u5c02\u7528_DM\u30ea\u30b9\u30c8\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u7e2e\u5c0f\u8868\u793a\u3068\u4e26\u3079\u66ff\u3048\r\n\r\n\r\n'#########################################################################################################\r\n'\u30d4\u30dc\u30c3\u30c8\u306e\u9078\u629e\u30bb\u30eb\u3092\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3057\u305f\u969b\u306e\u5185\u5bb9\u3092\u3001\u305d\u306e\u307e\u307e\u3001\u5225\u30d6\u30c3\u30af\u306e\u5225\u30b7\u30fc\u30c8\u3078\u30b3\u30d4\u30da\u3059\u308b\u3002\r\n'\u30b3\u30d4\u30da\u5b8c\u4e86\u5f8c\u306f\u3001\u30d4\u30dc\u30c3\u30c8\u306e\u9078\u629e\u30bb\u30eb\u304c\uff11\u3064\u4e0b\u306b\u4e0b\u304c\u308b\u3002\r\n'\u3042\u3089\u304b\u3058\u3081\u3001\u300c\u5225\u30d6\u30c3\u30af\u306e\u5225\u30b7\u30fc\u30c8\u300d\u3092\u958b\u3044\u3066\u304a\u304b\u306a\u3044\u3068\u3044\u3051\u306a\u3044\u3002\r\n'\u305f\u3060\u3001\u958b\u3044\u3066\u306a\u3051\u308c\u3070\u30a8\u30e9\u30fc\u304c\u51fa\u3066\u30d4\u30dc\u30c3\u30c8\u306e\u9078\u629e\u30bb\u30eb\u306f\u305d\u306e\u307e\u307e\u3067\u3001\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3057\u305f\u30b7\u30fc\u30c8\u3082\u6d88\u3048\u308b\u3002\r\n'\u306a\u304a\u3001\u30d4\u30dc\u30c3\u30c8\u306e\u3042\u308b\u30b7\u30fc\u30c8\u3001\u3067\u3001\u304b\u3064\u3001\u30c9\u30ea\u30b9\u30b9\u30eb\u30fc\u3067\u304d\u308b\u30bb\u30eb\u304c\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u306a\u3063\u3066\u306a\u3044\u3068\u52d5\u304b\u306a\u3044\u3002\r\n'\u30b3\u30d4\u30da\u5148\u306e\u30d6\u30c3\u30af\u3084\u30b7\u30fc\u30c8\u306e\u540d\u524d\u3092\u5148\u306b\u624b\u52d5\u7de8\u96c6\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b\u3002\r\n'\r\n'\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u3053\u3068\u306b\u4f7f\u3048\u308b\u3002\r\n'\u25cf\u6c0f\u540d\u3067\u306e\u5358\u7d14\u6bd4\u8f03\r\n'\u25cf\u6c0f\u540d\u306e\u5217\u3092\u8907\u88fd\u3057\u3001\u30b9\u30da\u30fc\u30b9\u3092\u524a\u9664\u3057\u3066\u306e\u3001\u518d\u5ea6\u306e\u5358\u7d14\u6bd4\u8f03\r\n'\u25cf\u96fb\u8a71\u756a\u53f7\u306e\u307f\u3067\u5358\u7d14\u6bd4\u8f03\uff08\uff12\u4e16\u5e2f\u4f4f\u5b85\u3001\u540c\u3058\u6577\u5730\u5185\u3001\u306e\u7591\u3044\uff09\r\n'\u25cf\u4f4f\u6240\u306e\u307f\u3067\u3082\u30c1\u30a7\u30c3\u30af\uff08\u611b\u77e5\u770c\u3001\u540d\u53e4\u5c4b\u5e02\u3001\u756a\u5730\u3001\u30ab\u30c3\u30c8\u3057\u305f\u3082\u306e\u3067\uff09\r\n'    \u2191\u5fc5\u8981\u306b\u5fdc\u3058\u3066\u3001\u300cDM\u30ea\u30b9\u30c8\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u7e2e\u5c0f\u8868\u793a\u3068\u4e26\u3079\u66ff\u3048()\u300d\u3068\u4f75\u7528\u3059\u308b\u3002\r\n'#########################################################################################################\r\n\r\nSub \u500b\u4eba\u7528MB\u5c02\u7528_DM\u30ea\u30b9\u30c8\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3068\u884c\u9078\u629e\u3068\u5225\u30d6\u30c3\u30af\u3078\u306e\u30b3\u30d4\u30da()\r\n\r\n    Dim s_TrgWBNm01                 As String    '\u8ee2\u8a18\u5148\u30d6\u30c3\u30af\u306e\u540d\u524d\r\n    Dim s_TrgWsNm01                 As String    '\u8ee2\u8a18\u5148\u30b7\u30fc\u30c8\u306e\u540d\u524d\r\n    Dim s_TrgWsClmForLastRow        As String    '\u8ee2\u8a18\u5148\u30b7\u30fc\u30c8\u306e\uff64\u6700\u7d42\u884c\u3092\u30c1\u30a7\u30c3\u30af\u3059\u308b\u305f\u3081\u306e\u3001\u305d\u306e\u5217\u306e\u756a\u53f7\r\n    Dim s_TrgWsPastCelClm           As String    '\u8ee2\u8a18\u5148\u30b7\u30fc\u30c8\u306e\u30da\u30fc\u30b9\u30c8\u57fa\u70b9\u3068\u306a\u308b\u30bb\u30eb\u306e\u3001\u305d\u306e\u5217\u306e\u756a\u53f7\r\n    \r\n    Dim o_DrilWs                    As Worksheet '\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3057\u305f\u30b7\u30fc\u30c8\r\n    Dim s_DrilWsClmForLastRow       As String    '\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3057\u305f\u30b7\u30fc\u30c8\u306e\u6700\u5f8c\u306e\u884c\u3092\u8abf\u3079\u308b\u305f\u3081\u306e\u3001\u305d\u306e\u5217\u306e\u756a\u53f7\r\n    Dim l_DrilWsLastRow             As Long      '\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3057\u305f\u30b7\u30fc\u30c8\u306e\u6700\u5f8c\u306e\u884c\u3002\r\n    Dim s_DrilSrcRngAdr             As String    '\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3057\u305f\u30b7\u30fc\u30c8\u306e\u3001\u30b3\u30d4\u30fc\u5143\u306e\u30bb\u30eb\u7bc4\u56f2\u306e\u5217\u756a\u53f7\uff08\u3069\u3053\u307e\u3067\u306e\u5217\u3092\u30b3\u30d4\u30fc\u3059\u308b\u304b\u306e\u6307\u5b9a\u306e\u305f\u3081\u306b\uff09\r\n    Dim o_DrilSrcRng001             As Range     '\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3057\u305f\u30b7\u30fc\u30c8\u306e\u30b3\u30d4\u30fc\u5143\u306e\u30bb\u30eb\u7bc4\u56f2\u306eRange\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u7528\r\n    \r\n    Dim l_Answ                      As Long      '\u300cCopyRangeToDest()\u300d\u95a2\u6570\uff1d\u30bb\u30eb\u7bc4\u56f2\u306e\u30b3\u30d4\u30da\u5b9f\u884c\u306e\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u306e\u6210\u529f\u30fb\u5931\u6557\u306e\u30d5\u30e9\u30b0\u683c\u7d0d\u7528\r\n\r\n'    Dim l_NextRow         As Long\r\n        \r\n    \r\n    '\u25cf\u8a2d\u5b9a\u4e8b\u9805\r\n\r\n    Let s_TrgWBNm01 = \"\u30c6\u30b9\u30c8\u8cbc\u308a\u4ed8\u3051\u7528.xls\"   '\u8cbc\u308a\u4ed8\u3051\u5148\u306e\u30d6\u30c3\u30af\u540d\u3092\u8a2d\u5b9a\r\n    Let s_TrgWsNm01 = \"Sheet1\"   \u3000\u3000\u3000\u3000\u3000\u3000\u3000'\u8cbc\u308a\u4ed8\u3051\u5148\u306e\u30b7\u30fc\u30c8\u540d\u3092\u8a2d\u5b9a\r\n    \r\n    Let s_TrgWsClmForLastRow = \"A\"      '\u8ee2\u8a18\u5148\u30b7\u30fc\u30c8\u306e\u3001\u6700\u7d42\u884c\u3092\u30c1\u30a7\u30c3\u30af\u3059\u308b\u305f\u3081\u306e\u3001\u305d\u306e\u5217\u306e\u6307\u5b9a\uff08\u7a7a\u767d\u30bb\u30eb\u304c\u7d76\u5bfe\u306b\u767a\u751f\u3057\u306a\u3044\u5217\u756a\u53f7\u3067\u3002\uff09\r\n    Let s_TrgWsPastCelClm = \"A\"         '\u8ee2\u8a18\u5148\u306e\u30da\u30fc\u30b9\u30c8\u57fa\u70b9\u3068\u306a\u308b\u30bb\u30eb\u306e\u5217\u306e\u6307\u5b9a\uff08\u884c\u6570\u306f\u3042\u3068\u3067\u300cCopyRangeToDest()\u300d\u95a2\u6570\u306e\u5074\u3067\u6700\u65b0\u884c\u3092\u81ea\u52d5\u53d6\u5f97\u3002\uff09\r\n        \r\n    Let s_DrilWsClmForLastRow = \"A\"     '\uff08\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3057\u305f\u30b7\u30fc\u30c8\u306e\uff09\u30b3\u30d4\u30fc\u5143\u30bb\u30eb\u7bc4\u56f2\u306e\u6700\u7d42\u884c\u3092\u30c1\u30a7\u30c3\u30af\u3059\u308b\u305f\u3081\u306e\u3001\u305d\u306e\u5217\u306e\u6307\u5b9a\uff08\u7a7a\u767d\u30bb\u30eb\u304c\u7d76\u5bfe\u306b\u767a\u751f\u3057\u306a\u3044\u5217\u756a\u53f7\u3067\u3002\uff09\r\n    Let s_DrilSrcRngAdr = \"A2:Z\"        '\uff08\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3057\u305f\u30b7\u30fc\u30c8\u306e\uff09\u30b3\u30d4\u30fc\u5143\u306e\u30bb\u30eb\u7bc4\u56f2\u306e\u6307\u5b9a\uff08\u884c\u6570\u306f\u3042\u3068\u3067\u300cCopyRangeToDest()\u300d\u95a2\u6570\u306e\u5074\u3067\u6700\u65b0\u884c\u3092\u81ea\u52d5\u53d6\u5f97\u3002\uff09\r\n        \r\n    Let l_Answ = 0 '\u4e00\u5fdc\u5ff5\u306e\u305f\u3081\u306b\u521d\u671f\u5316\r\n    \r\n    \r\n    ' \u524a\u9664\u6642\u306e\u8b66\u544a\u753b\u9762\u3092\u975e\u8868\u793a\u306b\u3059\u308b\r\n    Application.DisplayAlerts = False\r\n\r\n\r\n\u3000\u3000'\u25cf\u30e1\u30a4\u30f3\r\n    \r\n    ' \u30e6\u30fc\u30b6\u30fc\u304c\u30d4\u30dc\u30c3\u30c8\u4e0a\u3067\u9078\u629e\u3057\u305f\u30bb\u30eb\u306e\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3092\u5b9f\u884c\r\n    Selection.ShowDetail = True\r\n    \r\n    ' \u65b0\u3057\u304f\u958b\u3044\u305f\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u30b7\u30fc\u30c8\u3092\u5909\u6570\u306b\u30bb\u30c3\u30c8\r\n    Set o_DrilWs = ActiveSheet\r\n    \r\n    '\u3000\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u30b7\u30fc\u30c8\u306e\u30b3\u30d4\u30fc\u5143\u30bb\u30eb\u7bc4\u56f2\u306e\u884c\u6570\u3092\u6c42\u3081\u308b\u3002\r\n    '\u3000\u4eca\u56de\u306fA\u5217\u3092\u4f7f\u3046\u3002\r\n    '\u3000A\u5217\u306f\u7dcf\u5408\u9023\u756a\u306e\u305f\u3081\u3001\u5024\u306e\u629c\u3051\u304c\u7121\u3044\u306e\u3067\u3002\r\n    '\u3000A\u5217\u306e\u30c7\u30fc\u30bf\u304c\u5b58\u5728\u3059\u308b\u6700\u7d42\u884c\u3092\u53d6\u5f97\r\n    l_DrilWsLastRow = o_DrilWs.Cells(o_DrilWs.Rows.Count, s_DrilWsClmForLastRow).End(xlUp).Row\r\n    \r\n\r\n    ' --- \u5225\u306e\u30d5\u30a1\u30a4\u30eb\u3078\u306e\u8ee2\u8a18\u51e6\u7406 ---\r\n    On Error Resume Next\r\n\r\n    ' \u3082\u3057\u5168\u304f\u30c7\u30fc\u30bf\u304c\u306a\u3044\u30b7\u30fc\u30c8\u306e\u5834\u5408\u306f\u4f55\u3082\u3057\u306a\u3044\r\n    If l_DrilWsLastRow >= 2 Then\r\n    \r\n        '\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u306e\u30b7\u30fc\u30c8\u306e\u3001\uff12\u884c\u76ee\u304b\u3089\u6700\u7d42\u884c\u306e\u30bb\u30eb\u7bc4\u56f2\u3092\u30b2\u30c3\u30c8\u3002\r\n        Set o_DrilSrcRng001 = o_DrilWs.Range(s_DrilSrcRngAdr & l_DrilWsLastRow)\r\n        \r\n        '\u305d\u308c\u3092\u8ee2\u8a18\u5148\u30d6\u30c3\u30af\u306e\u6307\u5b9a\u3057\u305f\u30b7\u30fc\u30c8\u306e\u3001\u6307\u5b9a\u3057\u305f\u5217\uff08\u4eca\u56de\u306fA\u5217\uff09\u306b\u8ee2\u8a18\u3002\r\n        Let l_Answ = CopyRangeToDest(o_DrilSrcRng001, _\r\n                             s_TrgWBNm01, _\r\n                             s_TrgWsNm01, _\r\n                             s_TrgWsClmForLastRow, _\r\n                             s_TrgWsPastCelClm)\r\n                            \r\n\r\n                \r\n   Else\r\n   \r\n   End If\r\n\r\n\r\n    ' --- \u30b7\u30fc\u30c8\u306e\u524a\u9664\u51e6\u7406 ---\r\n    ' \u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3057\u305f\u30b7\u30fc\u30c8\u3092\u524a\u9664\r\n    o_DrilWs.Delete\r\n        \r\n        \r\n    '\u3082\u3057\u30b3\u30d4\u30da\u304c\u6210\u529f\u3059\u308c\u3070\u3001\u30d4\u30dc\u30c3\u30c8\u306e\u30b7\u30fc\u30c8\u306e\u6b21\u306e\u884c\uff08\u30bb\u30eb\uff09\u306b\u4e0b\u304c\u308b\u3002\r\n    '\uff08\u5931\u6557\u3057\u305f\u3089\u4e0b\u304c\u3089\u306a\u3044\u3002\uff09\r\n    If l_Answ = 0 Then\r\n        ActiveCell.Offset(1, 0).Select\r\n    Else\r\n        \r\n    End If\r\n    \r\n\r\n\r\n    ' \u8b66\u544a\u753b\u9762\u306e\u8868\u793a\u3092\u5143\u306b\u623b\u3059\r\n    Application.DisplayAlerts = True\r\n    \r\n    \r\n    ' \u30e1\u30e2\u30ea\u306e\u89e3\u653e\r\n    Set o_DrilWs = Nothing\r\n\r\n\r\nEnd Sub\r\n\r\n\r\n\r\n'#########################################################################################################\r\n'\u500b\u4eba\u7528MB\u5c02\u7528_DM\u30ea\u30b9\u30c8\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3068\u884c\u9078\u629e\u3068\u5225\u30d6\u30c3\u30af\u3078\u306e\u30b3\u30d4\u30da()\u95a2\u6570\u304b\u3089\r\n'\u547c\u3073\u51fa\u3055\u308c\u308b\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3002\r\n'\u753b\u9762\u3092Select\u3059\u308b\u3053\u3068\u306a\u304f\u30bb\u30eb\u7bc4\u56f2\u306e\u30b3\u30d4\u30da\u304c\u3067\u304d\u308b\u3002\r\n'\u8ee2\u8a18\u5148\u306e\u30d6\u30c3\u30af\u3084\u30b7\u30fc\u30c8\u304c\u958b\u3044\u3066\u306a\u3051\u308c\u3070\u4e2d\u65ad\u3057\u3001\u300c\u5931\u6557\u300d\u306e\u30d5\u30e9\u30b0\u3068\u3057\u3066\u300c\uff11\u300d\u3092\u8fd4\u3059\u3002\r\n'#########################################################################################################\r\n\r\n\r\n\r\nFunction CopyRangeToDest(o_SrcRng As Range, _\r\n                    s_TrgWbNm As String, _\r\n                    s_TrgWsNm As String, _\r\n                    s_TrgLastRowClmNm As String, _\r\n                    s_TrgPastCelClmNm As String) As Long\r\n                    \r\n    Dim o_TrgWb As Workbook\r\n    Dim o_TrgWs As Worksheet\r\n    Dim l_TrgNewRow As Long\r\n    \r\n    ' 1. \u8ee2\u8a18\u5148\u30d6\u30c3\u30af\u3068\u30b7\u30fc\u30c8\u306e\u5b58\u5728\u30c1\u30a7\u30c3\u30af\uff08\u30a8\u30e9\u30fc\u5bfe\u7b56\uff09\r\n    On Error Resume Next\r\n    Set o_TrgWb = Workbooks(s_TrgWbNm)           '\u8ee2\u8a18\u5148\u30d6\u30c3\u30af\u304c\u958b\u3044\u3066\u306a\u3044\u3068\u3001\u300cNothing\u300d\u304c\u5165\u308b\u3002\r\n    Set o_TrgWs = o_TrgWb.Worksheets(s_TrgWsNm)  '\u540c\u4e0a\r\n    On Error GoTo 0\r\n    \r\n    If o_TrgWb Is Nothing Then\r\n        MsgBox \"\u8ee2\u8a18\u5148\u30d6\u30c3\u30af\u300c\" & s_TrgWbNm & \"\u300d\u304c\u958b\u304b\u308c\u3066\u3044\u307e\u305b\u3093\u3002\", vbCritical\r\n        Let CopyRangeToDest = 1 '\u8ee2\u8a18\u5148\u304c\u958b\u3044\u3066\u306a\u304b\u3063\u305f\u3089\uff11\u3092\u8fd4\u3059\u3002\u6210\u529f\u3057\u305f\u6642\u306f\u660e\u793a\u7684\u306b\u81ea\u52d5\u3067 0 \u3092\u8fd4\u3059\u306e\u3067OK\u3002\r\n        Exit Function\r\n    End If\r\n    \r\n    If o_TrgWs Is Nothing Then\r\n        MsgBox \"\u8ee2\u8a18\u5148\u30b7\u30fc\u30c8\u300c\" & s_TrgWsNm & \"\u300d\u304c\u898b\u3064\u304b\u308a\u307e\u305b\u3093\u3002\", vbCritical\r\n        Let CopyRangeToDest = 1 '\u8ee2\u8a18\u5148\uff08\u3057\u30fc\u3068\uff09\u304c\u958b\u3044\u3066\u306a\u304b\u3063\u305f\u3089\uff11\u3092\u8fd4\u3059\u3002\u6210\u529f\u3057\u305f\u6642\u306f\u660e\u793a\u7684\u306b\u81ea\u52d5\u3067 0 \u3092\u8fd4\u3059\u306e\u3067OK\u3002\r\n        Exit Function\r\n    End If\r\n    \r\n    ' 2. \u8ee2\u8a18\u5148\u30b7\u30fc\u30c8\u306eA\u5217\u306e\u6700\u7d42\u884c\u3092\u53d6\u5f97\u3057\u3001\u305d\u306e\u4e0b\u306e\u884c\uff08\u6b21\u306e\u66f8\u304d\u8fbc\u307f\u884c\uff09\u3092\u6c7a\u5b9a\r\n    ' \u203bExcel 2000\u306e\u6700\u5927\u884c\u6570\uff0865536\u884c\uff09\u306b\u5bfe\u5fdc\u3059\u308b\u305f\u3081 Rows.Count \u3092\u4f7f\u7528\r\n    l_TrgNewRow = o_TrgWs.Cells(o_TrgWs.Rows.Count, s_TrgLastRowClmNm).End(xlUp).Row + 1\r\n    \r\n'    ' \u203b\u3082\u3057\u8ee2\u8a18\u5148\u30b7\u30fc\u30c8\u304c\u5b8c\u5168\u306b\u7a7a\u3067\u30011\u884c\u76ee\u304b\u3089\u66f8\u304d\u8fbc\u307f\u305f\u3044\u5834\u5408\u306e\u7c21\u6613\u5224\u5b9a\r\n'    If l_TrgNewRow = 2 And o_TrgWs.Cells(1, \"A\").Value = \"\" Then\r\n'        l_TrgNewRow = 1\r\n'    End If\r\n    \r\n    ' 3. \u30c7\u30fc\u30bf\u306e\u30b3\u30d4\u30fc\uff06\u30da\u30fc\u30b9\u30c8\uff08\u5024\u3060\u3051\u3067\u306a\u304f\u66f8\u5f0f\u7b49\u3082\u4e38\u3054\u3068\u30b3\u30d4\u30fc\u3059\u308b\u5834\u5408\uff09\r\n    o_SrcRng.Copy o_TrgWs.Cells(l_TrgNewRow, s_TrgPastCelClmNm)\r\n    \r\n    ' 4. \u30b3\u30d4\u30fc\u30e2\u30fc\u30c9\u306e\u89e3\u9664\uff08\u70b9\u6ec5\u67a0\u7dda\u3092\u6d88\u3059\uff09\r\n    Application.CutCopyMode = False\r\n    \r\nEnd Function\r\n\r\n\r\n\r\n'#####################################################################\r\n'\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u306e\u524a\u9664()\r\n'#####################################################################\r\nSub \r\nSendKeys \"{Enter}\", False\r\nActiveSheet.Delete\r\n\r\nEnd Sub\r\n\r\n\r\n\r\n\r\n'#########################################################################################################\r\n'\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3057\u305f\u30b7\u30fc\u30c8\u3092\u4e26\u3079\u66ff\u3048\u3066\u3001\u5168\u4f53\u304c\u898b\u3084\u3059\u3044\u3088\u3046\u306b\u7e2e\u5c0f\u8868\u793a\u3057\u305f\u308a\u3001\r\n'\u4e0d\u8981\u306a\u5217\u306e\u5e45\u3092\u305b\u3070\u3081\u307e\u3059\u3002\r\n'\u305f\u3060\u3057\u3001\u4e0d\u8981\u5217\u306e\u5217\u5e45\u3092\u305b\u3070\u3081\u308b\u306b\u306f\u3001\u30b3\u30fc\u30c9\u3092\u76f4\u63a5\u3044\u3058\u3089\u306a\u3044\u3068\u3044\u3051\u306a\u3044\u3067\u3059\u3002\r\n\r\n'\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u3053\u3068\u306b\u4f7f\u3048\u307e\u3059\u3002\r\n'\u25cf\u3054\u5bb6\u65cf\u7591\u3044 \u305d\u306e\uff11\uff08\u300c\u6c0f\u540d\u300d\u306e\u5148\u982d1\u6587\u5b57\u3068\u300c\u5bb6\u65cf\u7591\u3044\u30d5\u30e9\u30b0\u7528\u4f4f\u624001\u300d\u306e\u6700\u5f8c\u306e1\u6587\u5b57\u3067\u30c1\u30a7\u30c3\u30af\u3002\uff09\r\n'\u25cf\u3054\u5bb6\u65cf\u7591\u3044 \u305d\u306e\uff12\uff08\u300c\u6c0f\u540d\u300d\u306e\u5148\u982d1\u6587\u5b57\u3068\u300c\u96fb\u8a71\u756a\u53f7\u300d\u306e\u6700\u5f8c\u306e1\u6587\u5b57\u3067\u30c1\u30a7\u30c3\u30af\u3002\uff09\r\n'\u25cf\u4f4f\u6240\u306e\u6700\u5f8c\u306e\uff11\u6587\u5b57\u3068\u3001TEL\u306e\u6700\u5f8c\u5c3e\u306e\uff11\u6587\u5b57\u3067\u30c1\u30a7\u30c3\u30af\u3002\r\n'    \u2191\u5fc5\u8981\u306b\u5fdc\u3058\u3066\u3001\u300cNew01_DM\u30ea\u30b9\u30c8\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3068\u884c\u9078\u629e\u3068\u5225\u30d6\u30c3\u30af\u3078\u306e\u30b3\u30d4\u30da()\u300d\u3068\u4f75\u7528\u3059\u308b\u3002\r\n'\r\n'#########################################################################################################\r\n\r\n\r\nSub \u500b\u4eba\u7528MB\u5c02\u7528_DM\u30ea\u30b9\u30c8\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u7e2e\u5c0f\u8868\u793a\u3068\u4e26\u3079\u66ff\u3048()\r\n'\r\n' Macro2 Macro\r\n' \u30de\u30af\u30ed\u8a18\u9332\u65e5 : 2026\/6\/16  \u30e6\u30fc\u30b6\u30fc\u540d : a\r\n'\r\n\r\n'    Range(\"B7\").Select\r\n\r\n    Dim o_Wb            As Workbook\r\n    Dim o_Ws            As Worksheet\r\n    Dim o_DetailWs      As Worksheet    '\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3057\u305f\u30b7\u30fc\u30c8\u6307\u5b9a\u7528\r\n    Dim s_CelAddr01     As String       '\u4e26\u3079\u66ff\u3048\u3059\u308b\u5217\u306e\u6307\u5b9a\u7528\uff08\u30bb\u30eb\u3068\u3057\u3066\u6307\u5b9a\uff09\r\n    Dim l_SortOrder     As XlSortOrder  '\u4e26\u3079\u66ff\u3048\u306e\u9806\u5e8f\uff08\u6607\u9806\/\u964d\u9806\uff09\u306e\u6307\u5b9a\u7528\r\n\r\n\r\n    '\u25cf\u8a2d\u5b9a\u4e8b\u9805\r\n\r\n    Let s_CelAddr01 = \"C1\"   '\u2190\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3057\u305f\u30b7\u30fc\u30c8\u306e\u4e2d\u3067\u3001\r\n                             '\u3000\u3000\u4e26\u3079\u66ff\u3048\u3057\u305f\u3044\u5217\u3092\u30bb\u30eb\u3067\u6307\u5b9a\u3002\r\n\r\n    Let l_SortOrder = xlAscending '\u2190\u3053\u3053\u3067\u3001\u4e26\u3079\u66ff\u3048\u304c\u3001\r\n                                   '  \u300cxlAscending\uff08\u6607\u9806\uff09\u300d\u304b\r\n                                   '\u3000\u300cxlDescending\uff08\u964d\u9806\uff09\u300d\u304b\u3092\u6307\u5b9a\u3002\r\n\r\n   \r\n    '\u25cf\u30e1\u30a4\u30f3\r\n\r\n    ' \u524a\u9664\u6642\u306e\u8b66\u544a\u753b\u9762\u3092\u975e\u8868\u793a\u306b\u3059\u308b\r\n    Application.DisplayAlerts = False\r\n    \r\n    Set o_Wb = ActiveWorkbook\r\n    Set o_Ws = ActiveSheet\r\n    \r\n    Selection.ShowDetail = True    '\u30c9\u30ea\u30eb\u30b9\u30eb\u30fc\u3092\u5b9f\u884c\u3002\r\n    Set o_DetailWs = ActiveSheet   '\u8868\u793a\u3055\u308c\u305f\u305d\u306e\u30b7\u30fc\u30c8\u3092\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u5909\u6570\u306b\u683c\u7d0d\u3002\r\n    \r\n    ActiveWindow.Zoom = 80         '\uff18\uff10\uff05\u306b\u7e2e\u5c0f\u8868\u793a\u3002\r\n\r\n\r\n'    o_DetailWs.Range(s_CelAddr01).Select\r\n      '\u2191\u4e26\u3079\u66ff\u3048\u3057\u305f\u3044\u5217\u3092\u6307\u5b9a\u3002\u5909\u6570s_CelAddr01\u306b\u3066\u3002\r\n      '\r\n      '\u2191\u203b\u4e26\u3079\u66ff\u3048\u3067\u76f4\u63a5\u30bb\u30eb\u3092\u6307\u5b9a\u3059\u308b\u3088\u3046\u306b\u3057\u305f\u306e\u3067\u3001\r\n      '\u3000\u3000\u3053\u306e\u300cSelect\u300d\u306f\u4e0d\u8981\u306b\u306a\u3063\u305f\u3002\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3002\r\n\r\n    \r\n    '\u4e26\u3079\u66ff\u3048\u958b\u59cb\uff08Select\u306f\u3057\u306a\u3044\u3067\uff09\r\n    o_DetailWs.Range(s_CelAddr01).Sort _\r\n        Key1:=o_DetailWs.Range(s_CelAddr01), _\r\n        Order1:=l_SortOrder, _\r\n        Header:=xlGuess, _\r\n        OrderCustom:=1, _\r\n        MatchCase:=False, _\r\n        Orientation:=xlTopToBottom, _\r\n        SortMethod:=xlPinYin\r\n        '\u2191\u300cOrder1:=l_SortOrder, _ \u300d\u306b\u3066\u3001\r\n        '\u3000\u3000\u5909\u6570\uff08l_SortOrder\uff09\u3092\u4f7f\u3063\u3066\u3001\u6607\u9806\u964d\u9806\u3092\u6307\u5b9a\r\n        \r\n    \r\n    '\u30c1\u30a7\u30c3\u30af\u306b\u91cd\u8981\u306a\u610f\u5473\u3067\u306f\u306a\u3044\u5217\u3092\u72ed\u3081\u308b\r\n    o_DetailWs.Columns(3).ColumnWidth = 2.5 '\uff10\uff11\uff08\u5fc5\u8981\u306b\u5fdc\u3058\u3066\u5909\u3048\u308b\uff09\r\n'    o_DetailWs.Columns(4).ColumnWidth = 2.5 '\uff10\uff12\uff08\u5fc5\u8981\u306b\u5fdc\u3058\u3066\u5909\u3048\u308b\uff09\r\n    \r\n    o_Wb.Activate '\u2190\u5fc5\u9808\r\n    o_Ws.Activate\r\n    ActiveCell.Offset(1, 0).Select\r\n\r\n    o_DetailWs.Activate\r\n\r\n\r\n    ' \u8b66\u544a\u753b\u9762\u306e\u8868\u793a\u3092\u5143\u306b\u623b\u3059\r\n    Application.DisplayAlerts = True\r\n\r\n    ' \u30e1\u30e2\u30ea\u306e\u89e3\u653e\r\n    Set o_DetailWs = Nothing\r\n    Set o_Wb = Nothing\r\n    Set o_Ws = Nothing\r\n    \r\n    \r\n'    Rows(\"5:5\").Select\r\n'    ActiveSheet.Paste\r\nEnd Sub\r\n\r\n\r\n\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"\u25cf\u9867\u5ba2ID\u304c\u7121\u3044\u5834\u5408\u306e\u3001\u9867\u5ba2\u540d\u7c3f\u306e\u91cd\u8907\u524a\u9664\u306e\u65b9\u6cd5 \u3000\u3000 \u57fa\u672c\u7684\u306b\u306f\u3001\u9867\u5ba2ID\u304c\u7121\u3044\u5834\u5408\u306e\u3001\u9867\u5ba2\u540d\u7c3f\u306e\u91cd\u8907\u524a\u9664\u306e\u65b9\u6cd5\u30fb\u30fb\u30fb\u30fb\u3001\u3067\u3059\u304c\u3001\u9867\u5ba2ID\u304c\u3042\u3063\u305f\u3068\u3057\u3066\u3082\u3001\u5165\u529b\u30df\u30b9\u3067\u30c0\u30d6\u3063\u3066\u5165\u529b\u3057\u305f\u308a\uff08\u9867\u5ba2ID\u9055\u3044\u3067\u5185\u5bb9\u304c\u5168\u90e8\u540c\u3058\uff09\u3001 ...","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[48,113,57],"_links":{"self":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/2090"}],"collection":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/comments?post=2090"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/2090\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=2090"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=2090"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}