{"id":1652,"date":"2020-04-13T21:25:12","date_gmt":"2020-04-13T12:25:12","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1652"},"modified":"2020-07-22T11:42:39","modified_gmt":"2020-07-22T02:42:39","slug":"new_rec_add02_wsht-form01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/new_rec_add02_wsht-form01","title":{"rendered":"\u2605\u2605\u2605\u2605\u2605\u2605Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5e\u914d\u5217\u3092\u5229\u7528\u3057\u3066\u306e\u3001\u65b0\u898f\u30ec\u30b3\u30fc\u30c9\u306e\u4e00\u62ec\u30bb\u30eb\u30c7\u30fc\u30bf\uff08\u30ec\u30b3\u30fc\u30c9\uff09\u8ffd\u52a0\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u30fb\u305d\u306e\uff12\u3002\uff5e\u9867\u5ba2\u30de\u30b9\u30bf\u5165\u529b\uff5e\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u3092\u30d5\u30a9\u30fc\u30e0\u306b\u898b\u7acb\u3066\u3066\u3001\u7e26\u9577\u306e\u30c7\u30fc\u30bf\u306e\u884c\u3068\u5217\u3092\u5165\u308c\u66ff\u3048\u306a\u304c\u3089\u4ed6\u306e\u30b7\u30fc\u30c8\u3078\u8ee2\u8a18\u3059\u308b\u30b5\u30f3\u30d7\u30eb\u3002\uff5e"},"content":{"rendered":"<p>\u2605\u2605\u2605\u2605\u2605\u2605Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5e\u914d\u5217\u3092\u5229\u7528\u3057\u3066\u306e\u3001\u65b0\u898f\u30ec\u30b3\u30fc\u30c9\u306e\u4e00\u62ec\u30bb\u30eb\u30c7\u30fc\u30bf\uff08\u30ec\u30b3\u30fc\u30c9\uff09\u8ffd\u52a0\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u30fb\u305d\u306e\uff12\u3002\uff5e\u9867\u5ba2\u30de\u30b9\u30bf\u5165\u529b\uff5e\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u3092\u30d5\u30a9\u30fc\u30e0\u306b\u898b\u7acb\u3066\u3066\u3001\u7e26\u9577\u306e\u30c7\u30fc\u30bf\u306e\u884c\u3068\u5217\u3092\u5165\u308c\u66ff\u3048\u306a\u304c\u3089\u4ed6\u306e\u30b7\u30fc\u30c8\u3078\u8ee2\u8a18\u3059\u308b\u30b5\u30f3\u30d7\u30eb\u3002\uff5e<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<span style=\"color: #ff0000;\">\u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002<\/span><br \/>\n<span style=\"color: #ff0000;\">\u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002<\/span><br \/>\n<span style=\"color: #ff0000;\">\u203b\u30e1\u30e2\u66f8\u304d\u306a\u306e\u3067\u3001\u81ea\u5206\u3067\u3082\u610f\u5473\u4e0d\u660e\u306a\u7b87\u6240\u3082\u591a\u3044\u3067\u3059\u3002\u3054\u3081\u3093\u306a\u3055\u3044\u3002<\/span><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\u203b\u95a2\u9023\u8a18\u4e8b<br \/>\n\u300e <a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/new_rec_add01\" target=\"_blank\" rel=\"noopener noreferrer\">\u2605\u2605\u2605\u2605\u2605\u2605Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5e\u914d\u5217\u3092\u5229\u7528\u3057\u3066\u306e\u3001\u65b0\u898f\u30ec\u30b3\u30fc\u30c9\u306e\u4e00\u62ec\u30bb\u30eb\u30c7\u30fc\u30bf\uff08\u30ec\u30b3\u30fc\u30c9\uff09\u8ffd\u52a0\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3002\uff08\u30c6\u30fc\u30d6\u30eb\u5316\u3057\u305f\u8868\u306e\u5834\u5408\u3068\u3001\u305d\u3046\u3058\u3083\u306a\u3044\u8868\u306e\u5834\u5408\uff09\uff5e<\/a><br \/>\n\u300e <a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/get-last-row01\" target=\"_blank\" rel=\"noopener noreferrer\">\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5e\u6700\u7d42\u884c\u306e\u884c\u756a\u53f7\u3092\u6c42\u3081\u308b\u65b9\u6cd5\uff5e<\/a> \u300f<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2020-04-13---21-49-37.jpg\" target=\"_blank\" rel=\"noopener noreferrer\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2020-04-13---21-49-37.jpg\" alt=\"\" width=\"100%\" height=\"100%\" ><\/a><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\u2605 \u30b5\u30f3\u30d7\u30eb\u30d5\u30a1\u30a4\u30eb\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9<\/p>\n<p><a href=\"https:\/\/euc-access-excel-db.com\/00000WPZIP\/Wsht-Form.zip\" target=\"_blank\" rel=\"noopener noreferrer\">\u3053\u3061\u3089\u304b\u3089\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/a><\/p>\n<p>Eset\u3067\u30a6\u30a3\u30eb\u30b9\u30c1\u30a7\u30c3\u30af\u3057\u3066\u3042\u308a\u307e\u3059\u3002<\/p>\n<p>\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u305f\u3089\u3001Alt\uff0bF11 \u3067VBEditor\u3092\u958b\u304d\u307e\u3059\u3002<br \/>\n\u305d\u306e\u4e2d\u306e\u300c\u672c\u756a\u300d\u3068\u3044\u3046\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u30c0\u30d6\u30eb\u30af\u30ea\u30c3\u30af\u3059\u308b\u3068\u3001\u300cSampleNewRecAddAtherSht04()\u300d\u3068\u3068\u3044\u3046\u4eca\u56de\u306e\u30e1\u30a4\u30f3\u306e\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3092\u78ba\u8a8d\u3067\u304d\u307e\u3059\u3002<\/p>\n<p>\u305d\u306e\u307b\u304b\u306b\u3082\u5c11\u3057\u3001\u4ed6\u306e\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3\u304c\u3089\u307f\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3084\u30a4\u30d9\u30f3\u30c8\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3082\u8ffd\u52a0\u3057\u3066\u3042\u308a\u307e\u3059\u306e\u3067\u4e00\u5ea6\u3054\u89a7\u306b\u306a\u3063\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\u2605 \u306f\u3058\u3081\u306b<br \/>\n\u3053\u3053\u3067\u306f\u3001\u300cExcel\u306e\u30b7\u30e7\u30dc\u3044\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u300d\u3088\u308a\u3082\u3001\u30b7\u30fc\u30c8\u3092\u30d5\u30a9\u30fc\u30e0\u304c\u308f\u308a\u306b\u4f7f\u3063\u305f\u65b9\u304c\u4fbf\u5229\u306a\u4f8b\u3092\u6319\u3052\u3055\u305b\u3066\u3044\u305f\u3060\u304d\u307e\u3057\u305f\u3002\uff08\u7279\u306b\u81ea\u5206\u3060\u3051\u3067\u4f7f\u3046\u306a\u3089\u3002\u4ed6\u306e\u4eba\u306b\u3082\u4f7f\u308f\u305b\u308b\u306a\u3089\u30c0\u30e1\u304b\u3082\u3060\u3051\u3069\u3002\uff09<\/p>\n<p>Ctrl\u30ad\u30fc\u3092\u62bc\u3057\u306a\u304c\u3089\u30de\u30a6\u30b9\u306e\u30db\u30a4\u30fc\u30eb\u3092\u56de\u3059\u3068\u3001\u62e1\u5927\u8868\u793a\u3084\u7e2e\u5c0f\u8868\u793a\u304c\u3067\u304d\u307e\u3059\u306e\u3067\u3001\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u4f7f\u3046\u3088\u308a\u3082\u4fbf\u5229\u3060\u3068\u601d\u3044\u307e\u3059\u3002\u9ad8\u9f62\u8005\u3084\u6587\u5b57\u304c\u5c0f\u3055\u304f\u3066\u898b\u3048\u306a\u3044\u4eba\u306b\u3082\u5bfe\u5fdc\u3067\u304d\u307e\u3059\u3002\u3061\u3087\u3063\u3068\u3057\u305f\u30e1\u30e2\u3082\u30b7\u30fc\u30c8\u4e0a\u306b\u3067\u304d\u307e\u3059\u3057\u3002\u914d\u5217\u3067\u30bb\u30eb\u306e\u5024\u3082\u4e00\u767a\u3067\u53d6\u5f97\u3057\u3001\u304b\u3064\u3001\u305d\u306e\u30c7\u30fc\u30bf\u306e\u884c\u3068\u5217\u306e\u5165\u308c\u66ff\u3048\u3082\u3059\u3050\u306b\u3067\u304d\u307e\u3059\u3057\u3002<br \/>\n\u30b7\u30fc\u30c8\u3084\u30bb\u30eb\u306e\u8a2d\u5b9a\u3092\u81ea\u5206\u597d\u307f\u306b\u5909\u3048\u308b\u3053\u3068\u3082\u3067\u304d\u307e\u3059\u3002\uff08\u81ea\u5206\u3067\u4f7f\u3046\u3060\u3051\u3060\u304b\u3089\uff09<\/p>\n<p>\u9805\u76ee\u304c\u5897\u3048\u305f\u3089\u3001\u4f8b\u3048\u3070\u672c\u8a18\u4e8b\u306e\u30b5\u30f3\u30d7\u30eb\u306a\u3089\u3001\u30d5\u30a9\u30fc\u30e0\u4ee3\u308f\u308a\u306e\u30b7\u30fc\u30c8\u306b\u5897\u3084\u3057\u305f\u9806\u756a\u901a\u308a\u306b\u3001\u4e00\u89a7\u306e\u30b7\u30fc\u30c8\u306b\u3082\u5217\u3092\u5897\u3084\u3057\u3066\u3001\u30d5\u30a1\u30a4\u30eb\u3092\u518d\u8d77\u52d5\u3059\u308b\u3060\u3051\u3067\u3059\u3002<\/p>\n<p>Excel\u306e\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u3092\u4f7f\u3046\u3068\u3044\u3061\u3044\u3061\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306e\u5024\u3092\u30eb\u30fc\u30d7\u306a\u3069\u3067\u66f8\u304d\u51fa\u3055\u306a\u3044\u3068\u3044\u3051\u306a\u3044\u3057\u3001\u62e1\u5927\u7e2e\u5c0f\u8868\u793a\u3084\u305d\u306e\u4ed6\u306e\u30b7\u30fc\u30c8\u306e\u4fbf\u5229\u306a\u6a5f\u80fd\u3082\u4f7f\u3048\u306a\u3044\u306e\u3067\u4e0d\u4fbf\u3060\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>\u305f\u3060\u3001\u4ed6\u4eba\u306b\u4f7f\u308f\u305b\u305f\u3044\u5834\u5408\u306f\u3001\u300c\u30e6\u30fc\u30b6\u30fc\u306b\u4e0d\u8981\u306a\u3053\u3068\u306f\u3055\u305b\u305f\u304f\u306a\u3044\u300d\u3068\u3044\u3046\u5834\u5408\u306b\u306f\u3001\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306e\u307b\u3046\u304c\u3044\u3044\u5834\u5408\u3082\u3042\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\u3067\u3082\u50d5\u306a\u3089Excel\u306e\u30b7\u30e7\u30dc\u3044\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u4f7f\u3046\u304f\u3089\u3044\u306a\u3089\u3001\u5404\u7a2e\u8a2d\u5b9a\u304c50\u500d\u306f\u30e9\u30af\u306aAccess\u30d5\u30a9\u30fc\u30e0\u3092\u4f7f\u3044\u307e\u3059\u3002<\/p>\n<p>Excel\u306e\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306f\u3001\u300c\u3053\u308c\u306fExcel\u306e\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u3067\u3057\u304b\u7d76\u5bfe\u306b\u3067\u304d\u306a\u3044\uff01\u300d\u300cAccess\u30d5\u30a9\u30fc\u30e0\u306a\u3093\u304b\u3058\u3083\u304b\u3048\u3063\u3066\u4e0d\u4fbf\uff01\u300d\u3068\u3044\u3046\u3068\u304d\u306b\u4f7f\u3044\u307e\u3059\u3002\uff08\u4f8b\u3048\u3070\u30e6\u30fc\u30b6\u30fc\u306b\u4f55\u3089\u304b\u306e\u6761\u4ef6\u3092\u9078\u3070\u305b\u308b\u7b49\u3005\u306e\u3061\u3063\u3061\u3083\u306a\u30d5\u30a9\u30fc\u30e0\u3068\u304b\u3001\u305d\u306e\u4ed6\u8af8\u3005\u3002\uff09<\/p>\n<p>\u305d\u308c\u4ee5\u5916\uff08\u3042\u308b\u610f\u5473\u898f\u6a21\u306e\u5927\u304d\u306a\u30d5\u30a9\u30fc\u30e0\uff09\u306f\u3001\u3084\u306f\u308a\u3001\u30b7\u30fc\u30c8\u3092\u30d5\u30a9\u30fc\u30e0\u66ff\u308f\u308a\u306b\u4f7f\u3044\u307e\u3059\u3002<\/p>\n<p>\u3042\u3068\u3001\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306e\u307b\u3046\u304c\u300c\u898b\u305f\u76ee\u7684\u306b\u30ab\u30c3\u30b3\u30a4\u30a4\u6c17\u304c\u3059\u308b\u300d\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3001\u5927\u5909\u7121\u793c\u3067\u3059\u307f\u307e\u305b\u3093\u304c\u3001\u305d\u3046\u3044\u3046\u8003\u3048\u65b9\u306f\uff08\u4e0a\u304b\u3089\u76ee\u7dda\u3067\u672c\u5f53\u306b\u3059\u307f\u307e\u305b\u3093\u304c\u3067\u3082\u30de\u30b8\u3067\uff09\u300c\u611a\u306e\u9aa8\u9802\u300d\u3068\u3044\u3044\u307e\u3059\u304b\u30fb\u30fb\u30fb\u3001\u300c\u52b9\u7387\u306e\u3053\u3068\u3092\u7121\u8996\u3057\u3066\u3044\u307e\u3059\u300d\u306e\u3067\u3001\u7121\u99c4\u3060\u3089\u3051\u3068\u306a\u308a\u3001\u30b3\u30b9\u30d1\u3082\u6700\u60aa\u3068\u306a\u308a\u307e\u3059\u3002\u8ab0\u304b\u304c\u8a00\u3063\u3066\u3044\u3066\u3082\u7d76\u5bfe\u306b\u771f\u4f3c\u3057\u306a\u3088\u3046\u306b\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<p>\u305d\u3082\u305d\u3082\u300cExcel\u306e\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u300d\u306a\u3093\u3066\u3001\u4f7f\u3063\u305f\u3068\u3053\u308d\u3067\u52b9\u7387\u304c\u60aa\u3044\u3053\u3068\u304c\u5c11\u306a\u304f\u306a\u3044\u306e\u306b\u3001\u306a\u305c\u305d\u3093\u306a\u3082\u306e\u3092\u3001\u3057\u304b\u3082\u3001\u4f8b\u3048\u3070\u9867\u5ba2\u30c7\u30fc\u30bf\u5165\u529b\u306e\u3088\u3046\u306a\uff08\u4e0d\u8981\u306a\u30b7\u30fc\u30f3\u3067\uff09\u308f\u3056\u308f\u3056\u4f7f\u304a\u3046\u3068\u3059\u308b\u306e\u304b\u3001\u50d5\u306b\u306f\u307e\u3063\u305f\u304f\u7406\u89e3\u3067\u304d\u307e\u305b\u3093\u3002<BR><BR> \u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u3084\u8868\u64cd\u4f5c\u304c\u3089\u307f\u3067\u300c\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u3067\u3053\u3093\u306a\u3053\u3068\u307e\u3067\u3067\u304d\u3061\u3083\u3046\u3088\uff01\u300d\u306a\u3093\u3066\u8a00\u3063\u3066\u308b\u672c\u3084\u30b5\u30a4\u30c8\u3092\u898b\u304b\u3051\u307e\u3059\u304c\u3001Access\u306e\u30d5\u30a9\u30fc\u30e0\u6a5f\u80fd\u3092\u4f7f\u3048\u3070\u5341\u6570\u79d2\u304b\u6570\u5341\u79d2\u3067\u7d42\u308f\u308b\u3088\u3046\u306a\u300c\u4e8b\u52d9\u7cfb\u306e\u3088\u304f\u3042\u308b\u6a5f\u80fd\u300d\u306e\u4f5c\u308a\u3053\u307f\u3092\u3001Access\u306e\u6570\u4e07\u3092\u30b1\u30c1\u3063\u3066\u7121\u99c4\u306a\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u3044\u3061\u3044\u3061\u4f5c\u308b\u306a\u3093\u3066\u3001\u672c\u5f53\u306b\u300c\u611a\u306e\u9aa8\u9802\u300d\u3060\u3068\u601d\u3044\u307e\u3059\u3002<BR>Office365\u306a\u3089Access\u30bf\u30c0\u3067\u4ed8\u3044\u3066\u304f\u308b\u30fb\u30fb\u30fb\u3063\u3066\u8a00\u3063\u3066\u3082\u904e\u8a00\u3067\u306f\u306a\u3044\u304f\u3089\u3044\u5b89\u3044\u3067\u3059\u3057\u3002\u3044\u3064\u3082\u8a71\u304c\u9038\u308c\u3066\u3059\u307f\u307e\u305b\u3093\u304c\u3001\u5c0f\u898f\u6a21\uff08\u540c\u6642\u306b\u4f7f\u3046\u306e\u304c5\u53f0\u4ee5\u4e0b\uff09\u306a\u3089\u3001Access\u30e9\u30f3\u30bf\u30a4\u30e0\u3059\u3089\u5fc5\u8981\u306a\u304f\u3066\u3001Access\u304c\u4f7f\u3048\u308b\u308f\u3051\u3067\u3059\u304b\u3089\u3001COM\u30aa\u30fc\u30c8\u30e1\u30fc\u30b7\u30e7\u30f3\u3067Access\u30d5\u30a9\u30fc\u30e0\u3092\u547c\u3073\u51fa\u3057\u3066Excel\u3068\u9023\u643a\u30d7\u30ec\u30fc\u3059\u308b\u307b\u3046\u304c\u3001\u300c\u5727\u5012\u7684\u306b\u30b3\u30b9\u30d1\u304c\u30a4\u30a4\u300d\u3067\u3059\u3002<BR>\u5168\u90e8\u3092Excel\u3060\u3051\u3067\u3084\u308d\u3046\u3068\u3059\u308b\u306a\u3093\u3066\u3001\u672c\u5f53\u306b\u300c\u611a\u304b\u300d\u3060\u3068\u601d\u3044\u307e\u3059\u3002\u3060\u3063\u3066\u3001Office365\u306a\u3089Access\u30bf\u30c0\u307f\u305f\u3044\u306a\u3082\u3093\u306a\u3093\u3067\u3059\u304b\u3089\u3002\u306a\u305c\u300e \u30bf\u30c0\u3067\u30fb\u304b\u3064\u30fbExcel\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306e50\u500d\u306f\u52b9\u7387\u304c\u3044\u3044 \u300f\u306e\u306b\u5b66\u7fd2\u3057\u3088\u3046\u3068\u3057\u306a\u3044\u306e\u304b\u3001\u305d\u306e\u610f\u5473\u304c\u308f\u304b\u308a\u307e\u305b\u3093\u3002<BR>\u3082\u3061\u308d\u3093\u3001\u5168\u90e8\u3092Access\u3060\u3051\u3067\u3084\u308d\u3046\u3068\u3059\u308b\u306e\u3082\u300c\u30d0\u30ab\u306e\u6975\u307f\u300d\u3067\u3059\u3002<BR><BR>\u8a71\u3092\u623b\u3057\u307e\u3059\u3002<BR><BR>\u3082\u3063\u3068\u3044\u3046\u3068\u3001\u8868\u306e\u64cd\u4f5c\u306a\u3089\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u306a\u3093\u304b\u4f7f\u308f\u306a\u304f\u3066\u3082\u3001ADO\u3084DAO\u306a\u3069\u3067\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3068\u3057\u3066\u6271\u3048\u307e\u3059\u304b\u3089\u3001\u4e00\u822c\u7684\u306a\u30d3\u30b8\u30cd\u30b9\u96c6\u8a08\u306a\u3069\u306a\u3089\u3001\u307e\u305a\u3001\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u306a\u3093\u3066\u5fc5\u8981\u306a\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>\u305d\u3057\u3066Excel\u306e\u30b7\u30e7\u30dc\u3044\u300c\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u300d\u306a\u3093\u304b\u4f7f\u3046\u3088\u308a\u3082\u3001\u30b7\u30fc\u30c8\u3092\u30d5\u30a9\u30fc\u30e0\u66ff\u308f\u308a\u306b\u3059\u308b\u307b\u3046\u304c\u3088\u3063\u307d\u3069\u8272\u3093\u306a\u6a5f\u80fd\u304c\u4f7f\u3048\u307e\u3059\u3002<br \/>\n\u8272\u3093\u306a\u3082\u306e\u304c\u52d5\u304b\u305b\u307e\u3059\u3002<BR><font style=\"border-bottom:3px double #ff0000;\"><span style=\"color: #0000ff;\"><b>\u305d\u3057\u3066\u3001\u30b7\u30fc\u30c8\u3092\u30d5\u30a9\u30fc\u30e0\u66ff\u308f\u308a\u306b\u4f7f\u3046\u3068\u3001\u76ee\u7684\u6b21\u7b2c\u3067\u306fAccess\u306e\u30d5\u30a9\u30fc\u30e0\u3092\u3057\u306e\u3050\u3053\u3068\u3082\u3067\u304d\u3066\u3057\u307e\u3057\u307e\u3059\u3002\u975e\u5e38\u306b\u512a\u79c0\u3060\u3068\u601d\u3044\u307e\u3059\u3002<\/b><\/span><\/font><\/p>\n<p>\u898b\u305f\u76ee\u3088\u308a\u3001\u52b9\u7387\u3084\u4f5c\u308a\u5909\u3048\u304c\u30e9\u30af\u306a\u307b\u3046\u91cd\u8996\u304c\u3044\u3044\u3067\u3059\u3002<br \/>\n\u7279\u306b\u81ea\u5206\u3060\u3051\u304c\u4f7f\u3046\u5834\u5408\u3001\u58f2\u308b\u30bd\u30d5\u30c8\u3092\u4f5c\u308b\u308f\u3051\u3067\u306f\u306a\u3044\u306e\u3067\u3001\u300c\u898b\u305f\u76ee\u306a\u3093\u3066\u3069\u3046\u3067\u3082\u3044\u3044\u300d\u306e\u3067\u3059\u3002<br \/>\n\u898b\u305f\u76ee\u306b\u3053\u3060\u308f\u308b\u3068\u30b3\u30b9\u30d1\u304c\u6700\u60aa\u306b\u306a\u308a\u307e\u3059\u3002\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u203b\u88dc\u8db3\uff1aExcel\u306e\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306f\u672c\u5f53\u306b\u30e0\u30c0\uff1f<\/p>\n<p>\u3082\u3061\u308d\u3093\u3001Excel\u306e\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306f\u3001<br \/>\n\u300c\u307e\u3063\u305f\u304f\u306e\u5f79\u7acb\u305f\u305a\u300d\u3068\u3044\u3046\u610f\u5473\u3067\u306f\u3042\u308a\u307e\u305b\u3093\u3002<\/p>\n<p>\u30fb\u9867\u5ba2\u767b\u9332\u306b\u306f\u5fc5\u305a\u3057\u3082\u5fc5\u8981\u306a\u3044\uff08\u3068\u3044\u3046\u304b\u3001\u57fa\u672c\u3001\u5fc5\u8981\u306a\u3044\u3002\uff09\u3001<br \/>\n\u30fbExcel\u306e\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306e\u5984\u4fe1\u306f\u5371\u967a\u3001<br \/>\n\u30fb\u300cExcel\u306e\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306e\u307b\u3046\u304c\u306a\u3093\u3068\u306a\u304f\u30ab\u30c3\u30b3\u30a4\u30a4\u300d\u3068\u3044\u3046\u610f\u8b58\u306f<br \/>\n\u3000\u3000\u300c\u30c0\u30e1\u8a2d\u8a08\u306e\u5178\u578b\u300d\u3001<br \/>\n\u3068\u3044\u3046\u3060\u3051\u3067\u30fb\u30fb\u30fb\u3002<\/p>\n<p>Excel\u306e\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306f\u3001\u4f55\u304b\u306e\u52d5\u4f5c\u306e\u9014\u4e2d\u3067\u3001\u300c\u3061\u3087\u3063\u3068\u3057\u305f\u8a2d\u5b9a\u300d\u3092\u30e6\u30fc\u30b6\u30fc\u306b\u3055\u305b\u308b\u3068\u304d\u306b\u306f\u3001\u4fbf\u5229\u3067\u3001\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306b\u3057\u304b\u3067\u304d\u306a\u3044\u3053\u3068\u304c\u7d50\u69cb\u3042\u308b\u3001\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>\u305f\u3060\u3001\u7e70\u308a\u8fd4\u3057\u306b\u306a\u308a\u307e\u3059\u304c\u3001\u300c\u9867\u5ba2\u767b\u9332\u300d\u3068\u3044\u3046\u30b7\u30fc\u30f3\u306b\u306f\u3001\uff08\u3082\u3061\u308d\u3093\u4f7f\u3044\u305f\u3051\u308c\u3070\u4f7f\u3048\u3070\u3044\u3044\u3067\u3059\u304c\uff09\u3001\u57fa\u672c\u3001\u5fc5\u305a\u3057\u3082\u5fc5\u8981\u3067\u306f\u3042\u308a\u307e\u305b\u3093\u3002\u672c\u8a18\u4e8b\u3067\u304a\u793a\u3057\u3057\u305f\u3068\u304a\u308a\u3067\u3059\u3002<\/p>\n<p>\u30b7\u30fc\u30c8\u3092\u30d5\u30a9\u30fc\u30e0\u306b\u898b\u7acb\u3066\u308b\u307b\u3046\u304c\u3001\u300c\u7279\u5b9a\u306e\u30bb\u30eb\u306e\u5165\u529b\u306b\u3064\u3044\u3066\u300d\u3001\u5165\u529b\u898f\u5247\u7b49\u3005\u3067\u5404\u7a2e\u5236\u9650\u3084\u65e5\u672c\u8a9e\u5165\u529b\u30e2\u30fc\u30c9\u8a2d\u5b9a\u3001\u307e\u305f\u3001\u5358\u7d14\u306b\u62e1\u5927\u7e2e\u5c0f\u306a\u3069\u3082\u3067\u304d\u307e\u3059\u3057\u3001\u8272\u3005\u3068\u4fbf\u5229\u3060\u3068\u601d\u3044\u307e\u3059\u3002<br \/>\n\u3082\u3061\u308d\u3093\u3001VBA\u306b\u3088\u3063\u3066\u3001Change\u30a4\u30d9\u30f3\u30c8\u306b\u3088\u3063\u3066\u3082\u300c\u7279\u5b9a\u306e\u30bb\u30eb\u306e\u5165\u529b\u306b\u3064\u3044\u3066\u300d\u3001\u305d\u306e\u4ed6\u306e\u3053\u3068\u3092\u30c1\u30a7\u30c3\u30af\u3059\u308b\u3053\u3068\u3082\u53ef\u80fd\u3067\u3059\u3002<\/p>\n<p>\u305d\u308c\u3067\u306f\u5bfe\u5fdc\u3067\u304d\u306a\u3044\u306a\u3089\u3001\u300c\u305d\u306e\u3068\u304d\u306b\u306f\u3058\u3081\u3066\u300d\u3001Excel\u306e\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u3092\u4f7f\u3046\u3053\u3068\u3082\u9078\u629e\u80a2\u306b\u5165\u308c\u3066\u3082\u3044\u3044\u3067\u3059\u304c\u3001\u30eb\u30fc\u30d7\u30b3\u30fc\u30c9\u3092\u66f8\u304b\u306a\u3044\u3068\u3044\u3051\u306a\u304b\u3063\u305f\u308a\u3001\u5834\u5408\u306b\u3088\u3063\u3066\u306f\u540d\u524d\u7bc4\u56f2\u306e\u7121\u99c4\u306a\u6307\u5b9a\u3084\u95a2\u9023\u30b3\u30fc\u30c9\u304c\u5fc5\u8981\u3001\u30d5\u30a3\u30eb\u30bf\u3084\u691c\u7d22\u304c\u4f7f\u3048\u306a\u3044\u3001\u307e\u305f\u3001\u5358\u7d14\u306b\u62e1\u5927\u7e2e\u5c0f\u6a5f\u80fd\u306a\u3069\u3001\u300c\u7d50\u69cb\u4f5c\u308a\u3053\u307e\u306a\u3044\u3068\u3044\u3051\u306a\u304f\u306a\u308b\u306e\u304c\u8d85\u9762\u5012\u304f\u3055\u3044\u30fb\u975e\u52b9\u7387\u300d\u306b\u306a\u308a\u307e\u3059\u3002<br \/>\n\u305d\u308c\u306a\u3089\u30d5\u30a9\u30fc\u30e0\u306f\u30d5\u30a9\u30fc\u30e0\u3067\u3082\u3001\u300cAccess\u3068Access\u306e\u30d5\u30a9\u30fc\u30e0\u300d\u3092\u4f7f\u3046\u307b\u3046\u304c\u3001\u6570\u79d2\u3067\u8a2d\u5b9a\u304c\u7d42\u308f\u308b\u30b7\u30fc\u30f3\u304c\u5c11\u306a\u304f\u306a\u3044\u306e\u3067\u3001\u305d\u3061\u3089\u3092\u4f7f\u3063\u305f\u65b9\u304c\u306f\u308b\u304b\u306b\u52b9\u7387\u7684\u30fb\u30fb\u30fb\u3068\u3044\u3046\u3053\u3068\u306e\u307b\u3046\u304c\u300c\u4e8b\u5b9f\u300d\u300c\u73fe\u5b9f\u300d\u3067\u3059\u3002<\/p>\n<p>\u7d50\u5c40\u3001<br \/>\n\u300cAccess\u306e\u6570\u4e07\u3068\u5b66\u7fd2\u6642\u9593\u3092\u30b1\u30c1\u3063\u3066\u3001Excel\u3067\u7121\u99c4\u306a\u82e6\u52b4\u3092\u9811\u5f35\u308b\u300d\u304b\u3001<br \/>\n\u300c\u30b1\u30c1\u3089\u306a\u3044\u3067\u7d20\u76f4\u306bAccess\u3068Access\u30d5\u30a9\u30fc\u30e0\u3092\u4f7f\u3046\u300d\u304b\u3001<br \/>\n\u305d\u308c\u3092\u4e21\u3066\u3093\u3073\u3093\u306b\u304b\u3051\u308b\u308f\u3051\u3067\u3059\u304c\u3001<br \/>\n\u300cVBA\u3092\u7d76\u5bfe\u306b\u4f7f\u308f\u306a\u3044\u300d\u306a\u3089\u8a71\u306f\u5225\u3067\u3059\u304c\u3001\u300cVBA\u3092\u4f7f\u3046\u300d\u306e\u3067\u3059\u304b\u3089\u3001<br \/>\n\u60a9\u307e\u3057\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3001\u5f8c\u8005\u3067\u884c\u3063\u3066ADO\u3084QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306a\u3069\u3082\u5b66\u3076\u3068\u3001<br \/>\n\u78ba\u304b\u306b\u6700\u521d\u306f\u591a\u5c11\u82e6\u52b4\u3059\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3001<br \/>\n\u3067\u3082\u3001\u305d\u306e\u3042\u3068\u304c\u8272\u3005\u3068\u4fbf\u5229\u306b\u306a\u308b\u3068\u306f\u601d\u3044\u307e\u3059\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605 \u6838\u3068\u306a\u308b\u30c6\u30b9\u30c8\u30d7\u30ed\u30b0\u30e9\u30e0<\/p>\n<p>\u57fa\u672c\u7684\u306b\u306f\u4ee5\u4e0b\u306e\u6570\u884c\u3067\u4eca\u56de\u306e\u76ee\u7684\u306f\u9054\u6210\u3067\u304d\u307e\u3059\u3002<\/p>\n<p>\uff08\u3053\u306e\u6bb5\u968e\u3067\u306f\u3001\uff09<br \/>\n\u7591\u4f3c\u30d5\u30a9\u30fc\u30e0\u5074\uff08Sheet1\uff09\u306e\u884c\u304c\u5897\u3048\u305f\u3089\u3001\u305d\u308c\u306b\u5fdc\u3058\u3066\u540c\u3058\u4f4d\u7f6e\u306bSheet2\u306e\u5217\u3082\u5897\u3084\u3057\u3001\u3055\u3089\u306b\u305d\u308c\u306b\u5fdc\u3058\u3066\u3001\u4ee5\u4e0b\u306e2\u304b\u6240\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u30bb\u30eb\u7bc4\u56f2\u6307\u5b9a\u3092\u66f8\u304d\u63db\u3048\u307e\u3059\u3002<br \/>\n\u30fbv_CelData = ActiveWorkbook.Worksheets(\"Sheet1\").Range(\"B3:B17\")<br \/>\n\u30fbWorksheets(\"Sheet2\").Cells(l_TrgNewRow, 1).Range(\"A1:O1\") = v_CelData<\/p>\n<p>\u7591\u4f3c\u30d5\u30a9\u30fc\u30e0\u5074\uff08Sheet1\uff09\u306e\u884c\u306e\u9806\u5e8f\u3092\u5165\u308c\u66ff\u3048\u305f\u5834\u5408\u306f\u3001\u305d\u308c\u306b\u5fdc\u3058\u3066Sheet2\u306e\u5217\u306e\u9806\u5e8f\u3092\u5165\u308c\u66ff\u3048\u308c\u3070OK\u3067\u3059\u3002<br \/>\n\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u5909\u66f4\u306f\u8981\u308a\u307e\u305b\u3093\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n\r\n'\u6700\u521d\u306e\u30b3\u30fc\u30c9\u3002\r\n'\u30b7\u30fc\u30c8\u3092\u30d5\u30a9\u30fc\u30e0\u66ff\u308f\u308a\u306b\u4f7f\u3063\u3066\u3001\u914d\u5217\u3082\u5229\u7528\u3059\u308b\u3068\u3001\r\n'\u305f\u3063\u305f\u3053\u308c\u3060\u3051\u3067\u3082\u8ee2\u8a18\uff08\u884c\u5217\u3092\u5165\u308c\u66ff\u3048\u306a\u304c\u3089\u306e\uff09\u304c\r\n'\u53ef\u80fd\u306a\u3053\u3068\u3092\u77e5\u3063\u3066\u304f\u3060\u3055\u3044\u3002\r\n\r\nSub SampleNewRecAddAtherSht01()\r\n\r\n    Dim v_CelData   As Variant\r\n    Dim l_TrgNewRow As Long\r\n\r\n    v_CelData = ActiveWorkbook.Worksheets(\"Sheet1\").Range(\"B3:B17\")  '\u30bb\u30eb\u306e\u5024\u306e\u53d6\u5f97\uff08\u7e26\u9577\u306e2\u6b21\u5143\u914d\u5217\u306b\u306a\u308a\u307e\u3059\uff09\r\n    v_CelData = Application.WorksheetFunction.Transpose(v_CelData)   '\u884c\u5217\u306e\u5165\u308c\u66ff\u3048\uff08\u7e26\u9577\u306e2\u6b21\u5143\u914d\u5217\u3092\u6a2a\u306e1\u6b21\u5143\u914d\u5217\u306b\uff09\r\n\r\n    l_TrgNewRow = Worksheets(\"Sheet2\").UsedRange.Rows.Count + 1      '\u8ee2\u8a18\u5148\u306e\u6700\u65b0\u884c\u3092\u53d6\u5f97\r\n\r\n    Worksheets(\"Sheet2\").Cells(l_TrgNewRow, 1).Range(\"A1:O1\") = v_CelData   '\u6700\u65b0\u884c\u3078\u8ee2\u8a18\u3092\u5b9f\u884c\r\n\r\nEnd Sub\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\u2605 \u524d\u9805\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u5c11\u3057\u6c4e\u7528\u7684\u3063\u307d\u304f\uff1f\u4f5c\u308a\u5909\u3048\u305f\u3082\u306e<\/p>\n<p>\u30d5\u30a9\u30fc\u30e0\u5074\u306e\u884c\u304c\u5897\u3048\u305f\u3089\u3001\u305d\u308c\u306b\u5fdc\u3058\u3066\u540c\u3058\u4f4d\u7f6e\u306bSheet2\u306e\u5217\u3082\u5897\u3084\u3057\u307e\u3059\u3002<br \/>\n\u524d\u9805\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u3088\u3046\u306a\u3001\u884c\u304c\u5217\u304c\u5897\u3048\u308b\u3053\u3068\u306b\u4f34\u3063\u3066\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u5909\u66f4\u306f\u8981\u308a\u307e\u305b\u3093\u3002<\/p>\n<p>\u30d5\u30a9\u30fc\u30e0\u5074\u306e\u884c\u306e\u9806\u5e8f\u3092\u5165\u308c\u66ff\u3048\u305f\u5834\u5408\u306f\u3001\u305d\u308c\u306b\u5fdc\u3058\u3066Sheet2\u306e\u5217\u306e\u9806\u5e8f\u3092\u5165\u308c\u66ff\u3048\u308c\u3070OK\u3067\u3059\u3002<br \/>\n\u3053\u3061\u3089\u3082\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u5909\u66f4\u306f\u8981\u308a\u307e\u305b\u3093\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n\r\n'Sheet1\u306e\u884c\u306e\u9805\u76ee\u306e\u5897\u6e1b\u306b\u5bfe\u5fdc\u3067\u304d\u308b\u3088\u3046\u306b\u3059\u308b\u305f\u3081\u306b\u3001\r\n'\u30b0\u30ed\u30fc\u30d0\u30eb\u5909\u6570\u3068\u3057\u3066\u8ffd\u52a0\u3057\u307e\u3057\u305f\u3002\r\nPublic i_SrcRngLastRow01   As Integer\r\n\r\n\r\n\r\nSub Auto_Open()\r\n\r\n   'Sheet1\u306e\u884c\u306e\u9805\u76ee\u306e\u5897\u6e1b\u306b\u5bfe\u5fdc\u3067\u304d\u308b\u3088\u3046\u306b\u8ffd\u52a0\u3057\u307e\u3057\u305f\u3002\r\n   'Sheet1\u306e\u9805\u76ee\u540d\u306e\u6700\u7d42\u884c\u3092\u3001\u30b0\u30ed\u30fc\u30d0\u30eb\u5909\u6570\u306e\r\n   '\u300ci_SrcRngLastRow01\u300d\u306b\u4fdd\u5b58\uff08\u4ee3\u5165\uff09\u3057\u3066\u304a\u304d\u307e\u3059\u3002\r\n   '\u300ci_SrcRngLastRow01\u300d\u306f\u30b0\u30ed\u30fc\u30d0\u30eb\u5909\u6570\u306a\u306e\u3067\u3001\r\n   '\u3053\u306e\u30d5\u30a1\u30a4\u30eb\u304c\u958b\u3044\u3066\u3044\u308b\u9593\u3058\u3085\u3046\u3001\u305a\u30fc\u3063\u3068\u3001\u305d\u306e\u5024\u3092\u4fdd\u6301\u3057\u3066\u3044\u307e\u3059\u3002\r\n   '\u305f\u3060\u3057\u3001Sheet1\u306e\u884c\u306e\u9805\u76ee\u306e\u5897\u6e1b\u3092\u3055\u305b\u308b\u3068\u3001\u305d\u308c\u306b\u547c\u5fdc\u3057\u3066\u3001\r\n   '\u5024\u304c\u5909\u5316\u3057\u307e\u3059\u3002\uff08\u884c\u3092\uff11\u884c\u5897\u3084\u305b\u3070\u3001\u5024\u304c\uff11\u305a\u3064\u5897\u3048\u3001\u6e1b\u3089\u305b\u3070\u305d\u306e\u9006\u3067\u3059\u3002\uff09\r\n   \r\n    i_SrcRngLastRow01 = ThisWorkbook. _\r\n                         Worksheets(\"Sheet1\"). _\r\n                          Cells(Rows.Count, 1). _\r\n                           End(xlUp).Row\r\n\r\nEnd Sub\r\n\r\n\r\n\r\n\r\nSub SampleNewRecAddAtherSht04()\r\n'Sheet1\u306e\u884c\u306e\u9805\u76ee\u306e\u5897\u6e1b\u306b\u5bfe\u5fdc\u3067\u304d\u308b\u3088\u3046\u306b\u8ffd\u52a0\u3057\u307e\u3057\u305f\u3002\r\n    \r\n    Dim o_SrcRng01          As Range\r\n    Dim o_TrgSht01          As Worksheet\r\n    Dim s_TrgRngString01    As String\r\n    Dim v_CelData           As Variant\r\n    Dim i_Cel_Kosuu         As Integer\r\n    Dim l_TrgRowNm          As Long\r\n    Dim l_TrgNewRow         As Long\r\n    Dim i_Answ01            As Integer\r\n\r\n    \r\n    Set o_SrcRng01 = ThisWorkbook. _\r\n                      Worksheets(\"Sheet1\"). _\r\n                       Range(\"B3:B\" & i_SrcRngLastRow01)\r\n    '\u30bd\u30fc\u30b9\uff08\u8ee2\u8a18\u30e2\u30c8\uff09\u3068\u306a\u308b\u30bb\u30eb\u7bc4\u56f2\uff08\u30c7\u30fc\u30bf\u306e\u7bc4\u56f2\uff09\u3092\u6307\u5b9a\r\n    '\u884c\u6570\u306e\u6307\u5b9a\u306b\u306f\u3001\u30b0\u30ed\u30fc\u30d0\u30eb\u5909\u6570\u306e\u300ci_SrcRngLastRow01\u300d\u3092\u4f7f\u3063\u3066\u3044\u307e\u3059\u3002\r\n            \r\n            \r\n            \r\n    Set o_TrgSht01 = ThisWorkbook. _\r\n                      Worksheets(\"Sheet2\")\r\n    '\u8ee2\u8a18\u5148\u3068\u306a\u308b\u300c\u30b7\u30fc\u30c8\u300d\u3092\u6307\u5b9a\r\n    '\u305f\u3060\u3057\u3001\u8ee2\u8a18\u5148\u306b\u5217\u540d\u304c\u5165\u529b\u3055\u308c\u3066\u306a\u3044\u3068\u6b63\u5e38\u306b\u52d5\u304d\u307e\u305b\u3093\u3002\r\n    '\u5217\u540d\u7121\u3057\u3067\u30fb\u304b\u3064\u30fbUsedRange\u3092\u3069\u3046\u3057\u3066\u3082\u4f7f\u3044\u305f\u3044\u306a\u3089\u3001\r\n    '\u5217\u540d\u304c\u7121\u3044\u5206\u3001\u6b21\u306e\u30b3\u30fc\u30c9\u306e\u300c\uff0b\uff11\u300d\u3092\u300c\uff0b\uff12\u300d\u306b\u3059\u308b\u5fc5\u8981\u304c\u308a\u307e\u3059\u3002\r\n    '\u3067\u306a\u3044\u3068\u8ee2\u8a18\u5148\u30b7\u30fc\u30c8\u306e\uff12\u884c\u76ee\u306b\u4e0a\u66f8\u304d\u3055\u308c\u3066\u3044\u304f\u3060\u3051\u306b\u306a\u3063\u3066\u3057\u307e\u3044\u307e\u3059\u3002\r\n    \r\n    \r\n    s_TrgRngString01 = o_TrgSht01.UsedRange.Rows(1).Address\r\n'    s_TrgRngString01 = \"A1:O1\"\r\n    '\u306e\u3061\u306e\u3061\u306e\u30e1\u30a4\u30f3\u8ee2\u8a18\u306e\u30b3\u30fc\u30c9\u3067\u4f55\u6545\u304b\u3001\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3\u304b\u3089\u547c\u3073\u51fa\u3057\u305f\u3068\u305f\u3093\u3001\r\n    '\u30a8\u30e9\u30fc\u306b\u306a\u3063\u3066\u3057\u307e\u3046\u306e\u3067\u3001\u8ee2\u8a18\u5148\u306e\u30bb\u30eb\u7bc4\u56f2\u306e\u6307\u5b9a\u65b9\u6cd5\u306b\u3064\u3044\u3066\u3001\r\n    'Cells\u3067\u306e\u6307\u5b9a\u3092Range\u3067\u306e\u30bb\u30eb\u6307\u5b9a\u306b\u5909\u3048\u308b\u305f\u3081\u306b\u3001\u3053\u306e\u30b3\u30fc\u30c9\u3092\u8ffd\u52a0\u3057\u307e\u3057\u305f\u3002\r\n    ' \u300cs_TrgRngString01 = \"A1:O1\"\u300d \u3068\u3001\"A1:O1\"\u3068\u76f4\u63a5\u306e\u30bb\u30eb\u6307\u5b9a\u3092\u3057\u3066\u3082\u3082\u3061\u308d\u3093OK\u3002\r\n    '  \u3067\u3059\u304c\u3001\r\n    '  \u306e\u3061\u306e\u30e1\u30a4\u30f3\u306e\u8ee2\u8a18\u306e\u30b3\u30fc\u30c9\u3067\u306f\u3001\u8ee2\u8a18\u5148\u306e\u4f4d\u7f6e\u306e\u6307\u5b9a\u306b\u3001\r\n    ' \u300co_TrgSht01.Rows(l_TrgRowNm).Range(s_TrgRngString01)\u300d\u3068\u3001\r\n    '  Range.Range\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u4f7f\u3063\u3066\u8ee2\u8a18\u5148\u3092\u6307\u5b9a\u3057\u3066\u3044\u307e\u3059\u3002\r\n    '  \u3053\u308c\u306f\u3059\u306a\u308f\u3061\u3001\r\n    ' \u300co_TrgSht01.Rows(l_TrgRowNm) \uff1d\u65b0\u3057\u3044\u884c\u300d\u306e\u5148\u982d\u30bb\u30eb\u3092\u3092\u8d77\u70b9\u3068\u3057\u305f\r\n    '  \u76f8\u5bfe\u7684\u306a\u30bb\u30eb\u6307\u5b9a\u306b\u306a\u308a\u307e\u3059\u3002\r\n    '  \u3053\u308c\u306f\u3001\u6700\u65b0\u884c\u306e\u5148\u982d\u30bb\u30eb\u3092\u8d77\u70b9\u3092\u300cA1\u300d\u3068\u307f\u306a\u3057\u3066\u3001\u300cO1\u300d\u307e\u3067\u3001\r\n    '  \u3068\u3044\u3046\u8ee2\u8a18\u5148\u306e\u30bb\u30eb\u6307\u5b9a\u3092\u3057\u3066\u3044\u307e\u3059\u3002\r\n    '  \u3053\u3053\u3067\u300co_TrgSht01.UsedRange.Rows(1).Address\u300d\u3068\u66f8\u304f\u3068\u3001\r\n    '  \u300c$A$1:$O$1\u300d\u304c\u81ea\u52d5\u7684\u306b\u8fd4\u3063\u3066\u304f\u308b\u306e\u3067\u3059\u304c\u3001\r\n    '  \u305d\u308c\u3092\u3001\u305d\u3053\u3067\u306e\u76f8\u5bfe\u7684\u306a\u30bb\u30eb\u6307\u5b9a\u306b\u4f7f\u3048\u307e\u3059\u3002\r\n    '  \u3053\u308c\u306f\u300c\u5217\u6570\u304c\u5897\u3048\u3066\u5217\u540d\u304c\u5897\u3048\u3066\u3082\u81ea\u52d5\u7684\u306b\u5224\u65ad\u3057\u3066\u304f\u308c\u308b\u300d\r\n    '  \u306e\u3067\u3001\u300c\u3053\u306e\u307e\u307e\u66f8\u304d\u63db\u3048\u308b\u5fc5\u8981\u304c\u7121\u304f\u653e\u3063\u3066\u304a\u3051\u3070\u3044\u3044\u300d\u3068\u3044\u3046\u610f\u5473\u3067\u3082\u3042\u308a\u307e\u3059\u3002\r\n    '  \u3067\u3059\u306e\u3067\u3001\u3053\u3053\u3067\u306f\uff08\u5f8c\u3067\u624b\u629c\u304d\u3057\u305f\u3044\u306e\u3067\uff09\u3001s_TrgRngString01 = \"A1:O1\" \u3068\u305b\u305a\u306b\r\n    ' \u300cs_TrgRngString01 = o_TrgSht01.UsedRange.Rows(1).Address\u300d\u3068\u3057\u3066\u307f\u307e\u3057\u305f\u3002\r\n    '  \u3067\u3082\u7e70\u308a\u8fd4\u3057\u307e\u3059\u304c\u3001\u306e\u3061\u306e\u3061\u30a8\u30e9\u30fc\u304c\u51fa\u308b\u304b\u3082\u3057\u308c\u306a\u3044\u3057\u8aa4\u4f5c\u52d5\u3082\u8d77\u3053\u30ab\u30e2\u306a\u306e\u3067\u3001\r\n    ' \u300cs_TrgRngString01 = \"A1:O1\"\u300d \u3068\u66f8\u3044\u3066\u3001\u305d\u306e\u90fd\u5ea6\u3001\u624b\u4fee\u6b63\u3057\u3066\u3082\u4f55\u306e\u554f\u984c\u3082\u3042\u308a\u307e\u305b\u3093\u3002\r\n    \r\n    \r\n    l_TrgNewRow = o_TrgSht01.UsedRange.Rows.Count + 1\r\n    '\u5024\u306e\u8ee2\u8a18\u5148\u306e\u884c\u3092\u4eca\u306e\u30bb\u30eb\u7bc4\u56f2\u306e\u6b21\u306e\u884c\u306b\u6307\u5b9a\u3002\r\n    'UsedRange\u3092\u4f7f\u3046\u3068\u3001\u5165\u529b\u3055\u308c\u3066\u3044\u306a\u3044\u884c\u306e\u9ad8\u3055\u3084\u7f6b\u7dda\u30fb\u8272\u306a\u3069\u3092\u5909\u3048\u305f\u3068\u304d\u306b\r\n    '\u8fd4\u3063\u3066\u304f\u308b\u5024\u304c\u30e1\u30c1\u30e3\u30af\u30c1\u30e3\u306b\u306a\u3063\u3066\u3057\u307e\u3046\u306e\u3067\u3001\u3053\u3053\u3067\u306f\u305d\u308c\u3089\u306e\u8a2d\u5b9a\u306f\r\n    '\u300c\u5909\u3048\u306a\u3044\u524d\u63d0\u300d\u3067\u3059\u3002\u624b\u629c\u304d\u3057\u305f\u304b\u3063\u305f\u306e\u3082\u3042\u3063\u3066\u3002\r\n    '\u3082\u3057\u9ad8\u3055\u306a\u3069\u3092\u5909\u3048\u308b\u53ef\u80fd\u6027\u304c\u3042\u308b\u306a\u3089\u3001\u4e00\u822c\u7684\u306a\u6307\u5b9a\u65b9\u6cd5\u306e\u307b\u3046\u304c\u3044\u3044\u304b\u3082\u3067\u3059\u3002\r\n    \r\n    \r\n    v_CelData = o_SrcRng01.Value\r\n    '\u7e26\u9577\u306e\u30bb\u30eb\u7bc4\u56f2\u306e\u5024\u3092\u3001Variant\u578b\u306e\u5909\u6570\u306b\u4ee3\u5165\u3002\r\n    '\u3053\u306e\u5834\u5408\u3001Variant\u578b\u306e\u5909\u6570\u306e\u4e2d\u3067\u3001\u81ea\u52d5\u7684\u306b\u7e26\u9577\u306e\u300c\uff12\u300d\u6b21\u5143\u914d\u5217\u306b\u5909\u63db\u3055\u308c\u307e\u3059\u3002\r\n    \r\n\r\n    v_CelData = Application.WorksheetFunction.Transpose(v_CelData)\r\n    '\u7e26\u9577\u306e\uff12\u6b21\u5143\u914d\u5217\u3092\u3001\u6a2a\u9577\uff08\u3068\u3044\u3046\u304b\u201d\u666e\u901a\u201d\uff09\u306e\u300c\uff11\u300d\u6b21\u5143\u914d\u5217\u306b\u5909\u63db\u3057\u307e\u3059\u3002\r\n    \r\n    \r\n'    i_Cel_Kosuu = UBound(v_CelData)  '\u5217\u756a\u53f7\u3092\u8a2d\u5b9a\u3057\u305f\u3044\u306e\u3067\u306b\u3001\u914d\u5217\u306e\u8981\u7d20\u6570\u3092\u53d6\u5f97\r\n'     '\u30e1\u30a4\u30f3\u306e\u8ee2\u8a18\u306e\u3068\u3053\u308d\u3067\u3001\u8ee2\u8a18\u5148\u306e\u30bb\u30eb\u6307\u5b9a\u3092\u3001\r\n'     '\u30a8\u30e9\u30fc\u304c\u51fa\u3066\u3057\u307e\u3046\u305f\u3081\u3001Cells\u3067\u306e\u6307\u5b9a\u304b\u3089Range\u3067\u306e\u6307\u5b9a\u306b\u5909\u3048\u305f\u306e\u3067\r\n'     '\u3053\u306e\u30b3\u30fc\u30c9\u306f\u4e0d\u8981\u306b\u306a\u308a\u307e\u3057\u305f\u3002\u306a\u306e\u3067\u4f7f\u7528\u7981\u6b62\u3002\r\n\r\n     \r\n    l_TrgRowNm = l_TrgNewRow\r\n    '\u2191\u8ee2\u8a18\u5148\u306e\u884c\u3092\u3001\u8ee2\u8a18\u5148\u306e\u30b7\u30fc\u30c8\u306e\u4eca\u306e\u30bb\u30eb\u7bc4\u56f2\u306e\u6b21\u306e\u884c\uff08\u3064\u307e\u308a\u6700\u65b0\u884c\uff09\u306b\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n\r\n\r\n    o_TrgSht01.Rows(l_TrgRowNm).Range(s_TrgRngString01).Value = v_CelData\r\n    '\u306a\u305c\u304b\u2193\u306e\u30b3\u30fc\u30c9\u304c\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3\u304b\u3089\u547c\u3073\u51fa\u3059\u3068\u30a8\u30e9\u30fc\u306b\u306a\u3063\u3066\u3057\u307e\u3046\u306e\u3067\u2191\u306e\u30b3\u30fc\u30c9\u3067\u3084\u308a\u307e\u3059\u3002\r\n'    o_TrgSht01.Rows(l_TrgRowNm).Range(Cells(1, 1), Cells(1, i_Cel_Kosuu)).Value = v_CelData\r\n    \r\n    '\u2191\u6307\u5b9a\u3057\u305f\u884c\u306e\u6307\u5b9a\u3057\u305f\u30bb\u30eb\u7bc4\u56f2\uff08\u8981\u7d20\u6570\u5206\u306e\u30bb\u30eb\uff09\u306b\u3001\u8ee2\u8a18\u3002\r\n    '  Range.Range\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u4f7f\u3063\u3066\u8ee2\u8a18\u5148\u3092\u6307\u5b9a\u3057\u3066\u3044\u308b\u306e\u3067\u3001\r\n    '  o_TrgSht01.Rows(l_TrgRowNm) \u3092\u8d77\u70b9\u3068\u3057\u305f\u76f8\u5bfe\u7684\u306a\u30bb\u30eb\u6307\u5b9a\u306b\u306a\u308a\u307e\u3059\u3002\r\n    ' \u306a\u306e\u3067\u3001\u300cs_TrgRngString01\u300d\u3064\u307e\u308a\u3001\u300c$A$1:$O$1\u300d\u306e\u3088\u3046\u306a\u6307\u5b9a\u304c\u4f7f\u3048\u307e\u3059\u3002\r\n    '\u3000\u65b0\u898f\u306e\u884c\u3092\u6307\u5b9a\u3059\u308c\u3070\u3001\u300c\uff11\u4ef6\u306e\u65b0\u898f\u30ec\u30b3\u30fc\u30c9\u8ffd\u52a0\u300d\u3068\u3044\u3046\u610f\u5473\u306b\u306a\u308a\u307e\u3059\u3002\r\n    '     \u203bValue\u3092\u7701\u7565\u3059\u308b\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3053\u3068\u304c\u3042\u308b\u304b\u3082\uff1f\u3002\r\n\r\n\r\n\r\n    '\u4ee5\u4e0b\u3001\u8ee2\u8a18\u30e2\u30c8\u306e\u30bd\u30fc\u30b9\u306e\u30c7\u30fc\u30bf\u3092\u6d88\u3059\u304b\u3069\u3046\u304b\u306e\u51e6\u7406\r\n    i_Answ01 = MsgBox(\"\u8ffd\u52a0\u304c\u5b8c\u4e86\u3057\u307e\u3057\u305f\u3002\u4eca\u306e\u3053\u306e\u5165\u529b\u30c7\u30fc\u30bf\u3092\u6d88\u3057\u3066\u3082\u3044\u3044\u3067\u3059\u304b\uff1f\", vbDefaultButton2 + vbYesNoCancel, \"\u30c7\u30fc\u30bf\u306e\u6d88\u53bb\")\r\n    \r\n    If i_Answ01 = 2 Then      '\u30ad\u30e3\u30f3\u30bb\u30eb\r\n        \r\n    ElseIf i_Answ01 = 6 Then  '\u306f\u3044\r\n        o_SrcRng01.ClearContents\r\n    ElseIf i_Answ01 = 7 Then  '\u3044\u3044\u3048\r\n    \r\n    Else\r\n    \r\n    End If\r\n    \r\n    '\u5148\u982d\u306e\u30bb\u30eb\u306b\u623b\u308b\u3002\r\n    o_SrcRng01.Range(\"A1\").Activate\r\n    \r\nEnd Sub\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<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><\/p>\n","protected":false},"excerpt":{"rendered":"\u2605\u2605\u2605\u2605\u2605\u2605Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5e\u914d\u5217\u3092\u5229\u7528\u3057\u3066\u306e\u3001\u65b0\u898f\u30ec\u30b3\u30fc\u30c9\u306e\u4e00\u62ec\u30bb\u30eb\u30c7\u30fc\u30bf\uff08\u30ec\u30b3\u30fc\u30c9\uff09\u8ffd\u52a0\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u30fb\u305d\u306e\uff12\u3002\uff5e\u9867\u5ba2\u30de\u30b9\u30bf\u5165\u529b\uff5e\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u3092\u30d5\u30a9\u30fc\u30e0\u306b\u898b\u7acb\u3066\u3066\u3001\u7e26\u9577\u306e\u30c7\u30fc\u30bf\u306e ...","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[234],"_links":{"self":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1652"}],"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=1652"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1652\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1652"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1652"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}