{"id":1764,"date":"2021-03-21T14:58:17","date_gmt":"2021-03-21T05:58:17","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1764"},"modified":"2021-03-31T12:02:46","modified_gmt":"2021-03-31T03:02:46","slug":"vba-1row-2row-xrow-ope","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/vba-1row-2row-xrow-ope","title":{"rendered":"\u2605 Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66 \uff5e ExcelVBA\u3067\u3001\u884c\uff11\u884c\u5206\u306e\u6307\u5b9a\u3084\u9078\u629e\u30fb\u633f\u5165\u30fb\u8ffd\u52a0\u306a\u3069\u306e\u65b9\u6cd5\u3001\u3044\u308d\u3044\u308d\u3002\uff08\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\u3092\u4f7f\u308f\u306a\u3044\u666e\u901a\u306e\u5834\u5408\u3068\u3001\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\u3092\u4f7f\u3046\u5834\u5408\uff09\uff5e\u30d7\u30e9\u30b9\u3001\u3064\u3044\u3067\u306b\uff12\u884c\u3054\u3068\u3001\uff13\u884c\u3054\u3068\u3001\uff58\u884c\u3054\u3068\u3001\u306a\u3068\u3067\u3001\u300c\u4e0b\u3078\u305a\u308c\u3066\u9078\u629e\u3059\u308b\u300d\u65b9\u6cd5\u3082\u5c11\u3057\u3002\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\u3092\u4f7f\u308f\u306a\u3044\u5834\u5408\u306f\u3001\u4e3b\u306b\u3001Range.Resize\u3068Range.Offset\u30d7\u30ed\u30d1\u30c6\u30a3\u3067\u3002"},"content":{"rendered":"<p>\u2605 Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66 \uff5e ExcelVBA\u3067\u3001\u884c\uff11\u884c\u5206\u306e\u6307\u5b9a\u3084\u9078\u629e\u30fb\u633f\u5165\u30fb\u8ffd\u52a0\u306a\u3069\u306e\u65b9\u6cd5\u3001\u3044\u308d\u3044\u308d\u3002\uff08\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\u3092\u4f7f\u308f\u306a\u3044\u666e\u901a\u306e\u5834\u5408\u3068\u3001\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\u3092\u4f7f\u3046\u5834\u5408\uff09\uff5e\u30d7\u30e9\u30b9\u3001\u3064\u3044\u3067\u306b\uff12\u884c\u3054\u3068\u3001\uff13\u884c\u3054\u3068\u3001\uff58\u884c\u3054\u3068\u3001\u306a\u3068\u3067\u3001\u300c\u4e0b\u3078\u305a\u308c\u3066\u9078\u629e\u3059\u308b\u300d\u65b9\u6cd5\u3082\u5c11\u3057\u3002\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\u3092\u4f7f\u308f\u306a\u3044\u5834\u5408\u306f\u3001\u4e3b\u306b\u3001Range.Resize\u3068Range.Offset\u30d7\u30ed\u30d1\u30c6\u30a3\u3067\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605 \u306f\u3058\u3081\u306b<\/p>\n<p>\u30bb\u30eb\u7bc4\u56f2\u306e\u9078\u629e\u3084\u64cd\u4f5c\u306b\u306f\u672c\u5f53\u306b\u8272\u3093\u306a\u65b9\u6cd5\u304c\u3042\u308a\u307e\u3059\u304c\u3001\u305d\u306e\u4e2d\u3067\u3082\u7279\u306b\u3001<br \/>\n\u300c\uff11\u884c\u9078\u629e\uff08\u3042\u308b\u3044\u306f\u6307\u5b9a\uff09\u3057\u3066\u3001\u9014\u4e2d\u306e\u884c\u306b\u633f\u5165\u3057\u305f\u308a\u3001\u6700\u7d42\u884c\u306b\u8ffd\u52a0\u3057\u305f\u308a\u300d<br \/>\n\u3068\u3044\u3046\u51e6\u7406\u306f\u591a\u3044\u3067\u3059\u3002<\/p>\n<p>\uff08\u611a\u304b\u306a\u65b9\u6cd5\u306a\u306e\u3067\u3084\u3081\u308b\u3053\u3068\u3092\u63a8\u5968\u3057\u307e\u3059\u304c\uff09\u7279\u306b\u3001\u300c\u9867\u5ba2\u30c7\u30fc\u30bf\u300d\u3092\u3001\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u304b\u3089\u5165\u529b\u3057\u305f\u3044\u306a\u3069\u306e\u5834\u5408\u3082\u3001\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u4e0a\u306e\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306e\u30c7\u30fc\u30bf\u3092\u30b7\u30fc\u30c8\u5074\uff08\u4e00\u89a7\u8868\uff09\u306b\u8ee2\u8a18\u3059\u308b\u3088\u3046\u306a\u51e6\u7406\u3067\u3082\u4f7f\u3044\u307e\u3059\u3002<\/p>\n<p>\u306a\u306e\u3067\u3001\u3053\u3053\u3067\u306f\u305d\u306e\u3001<br \/>\n\u300c\uff11\u884c\u9078\u629e\uff08\u3042\u308b\u3044\u306f\u6307\u5b9a\uff09\u3057\u3066\u3001\u9014\u4e2d\u306e\u884c\u306b\u633f\u5165\u3057\u305f\u308a\u3001\u6700\u7d42\u884c\u306b\u8ffd\u52a0\u3057\u305f\u308a\u300d<br \/>\n\u3068\u3044\u3046\u3053\u3068\u306e\u30c6\u30b9\u30c8\u3092\u3057\u3066\u307f\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u203b\u91cd\u8981\u306a\u88dc\u8db3<br \/>\n\u300c\u9867\u5ba2\u30c7\u30fc\u30bf\u300d\u5165\u529b\u3067\u3044\u3061\u3044\u3061\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u3092\u4f7f\u3046\u306e\u306f\u30ed\u30b9\u304c\u591a\u304f\u3066\u611a\u304b\u306a\u65b9\u6cd5\u3067\u3059\u3002<br \/>\n\u300c\u9867\u5ba2\u30c7\u30fc\u30bf\u5165\u529b\u300d\u3058\u3083\u306a\u304f\u3066\u3082\u3001\u300c\u4e00\u89a7\u8868\u30c7\u30fc\u30bf\u3092\u3064\u304f\u308a\u305f\u3044\u300d\u3068\u3044\u3046\u8981\u671b\u304c\u3042\u308b\u6642\u306b\u3001\u3044\u3061\u3044\u3061\u624b\u9593\u306e\u304b\u304b\u308b\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u3092\u4f7f\u3046\u306e\u306f\u3001\u30d7\u30ed\u30b0\u30e9\u30e0\u4f5c\u6210\u3084\u4fee\u6b63\u3001\u6a5f\u80fd\u8ffd\u52a0\u3001\u7b49\u3005\u306e\u6642\u9593\u3092\u30c9\u30d6\u306b\u6368\u3066\u308b\u3088\u3046\u306a\u3082\u306e\u3067\u3059\u3002<br \/>\n\u300c\u7d76\u5bfe\u306b\u3084\u3081\u307e\u3057\u3087\u3046\u300d\u3002\uff08\u3069\u3046\u3057\u3066\u3082\u3084\u3080\u3092\u5f97\u306a\u3044\u5834\u5408\u4ee5\u5916\u306f\uff09<br \/>\n\u30c7\u30fc\u30bf\u3092\u6a2a\u65b9\u5411\u306b\u5165\u529b\u3059\u308b\u306e\u304c\u76ee\u304c\u75b2\u308c\u308b\u306a\u3089\u3001\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u3067\u306f\u306a\u304f\u30b7\u30fc\u30c8\u3092\u30d5\u30a9\u30fc\u30e0\u306b\u898b\u305f\u3066\u3066\u4ee3\u7528\u3059\u308b\u65b9\u304c\uff08\u30bb\u30eb\u3084\u30b7\u30fc\u30c8\u306a\u3069\u306e\u8272\u3093\u306a\u6a5f\u80fd\u304c\u4f7f\u3048\u308b\u305f\u3081\uff09\u3001\u306f\u308b\u304b\u306b\u52b9\u7387\u7684\u3067\u3059\u3002<\/p>\n<p>\u4f8b<br \/>\n\uff08Excel\u306e\u30b7\u30e7\u30dc\u3044\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u3088\u308a\u3082\u30b7\u30fc\u30c8\u3084Access\u30d5\u30a9\u30fc\u30e0\u306e\u65b9\u304c50\u500d\u826f\u3044\u3067\u3059\uff09<br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/new_rec_add02_wsht-form01\" 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\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<\/a><\/p>\n<p>\u3042\u308b\u3044\u306f\u3001<br \/>\n\u30fb\u30aa\u30d7\u30b7\u30e7\u30f3\u8a2d\u5b9a\u306b\u95a2\u4fc2\u306a\u304f<br \/>\n\u30fbEnter\u3067\u53f3\u3078\u30bb\u30eb\u79fb\u52d5\u3067\u304d\u3001<br \/>\n\u30fb\u8868\u306e\u53f3\u7aef\u3092\u81ea\u52d5\u691c\u77e5\u3057\u3066<br \/>\n\u30fb\u6b21\u884c\u306e\u5148\u982d\u306b\u6298\u308a\u8fd4\u3059\u30d7\u30ed\u30b0\u30e9\u30e0<br \/>\n\u3092\u4f5c\u3063\u3066\u3001\u666e\u901a\u306b\u4e00\u89a7\u8868\u306b\u30c0\u30a4\u30ec\u30af\u30c8\u306b\u5165\u529b\u3057\u305f\u307b\u3046\u304c\u3044\u3044\u3067\u3059\u3002<\/p>\n<p>\u4f8b<br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/active-cell_move_by_enter01\" target=\"_blank\" rel=\"noopener noreferrer\">\u2605\u2605\u2605\u2605\u2605\u2605Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5e\u2605\u8868\u306e\u3001\u5217\u540d\u306e\u7d42\u7aef\u3092\u81ea\u52d5\u5224\u5225\u3057\u3066\u3001\u300cTAB\u3067\u300d\u3058\u3083\u306a\u304f\u3066\u300c\u5168\u90e8Enter\u300d\u3067\u53f3\u306e\u5217\u3078\u79fb\u52d5\u3057\u300c\u4e00\u756a\u53f3\u7aef\u306e\u5217\u306b\u304d\u305f\u3089\u3001Enter\u30ad\u30fc\u3092\u62bc\u3057\u305f\u3068\u304d\u306b\u3001\u81ea\u52d5\u7684\u306b\u6b21\u884c\u306b\u79fb\u308a\u3001\u30a2\u30af\u30c6\u30a3\u30d6\u30bb\u30eb\u3092\u5148\u982d\u3078\u79fb\u52d5\u3055\u305b\u308bVBA\u30d7\u30ed\u30b0\u30e9\u30e0\uff08\u30c6\u30f3\u30ad\u30fc\u7528\uff1f\u304b\u3082\uff09\uff5e<\/a><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n\u30b7\u30fc\u30c8\u3092\u5165\u529b\u30d5\u30a9\u30fc\u30e0\u3068\u3057\u3066\u4ee3\u7528\u3059\u308c\u3070\u3001\u62e1\u5927\u7e2e\u5c0f\u3057\u3066\uff08\u6587\u5b57\u3092\u5927\u304d\u304f\u5c0f\u3055\u304f\uff09\u3082\u30e9\u30af\u3067\u3059\u3057\u3001\u30c7\u30fc\u30bf\u306e\u5165\u529b\u5236\u9650\u306f\u300c\u5165\u529b\u898f\u5247\u300d\u306a\u3069\u3092\u4f7f\u3048\u3070\u3001\u5165\u529b\u30df\u30b9\u306e\u9632\u6b62\u7b56\u3068\u3057\u3066\u3082\u7d50\u69cb\u306a\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<br \/>\n\u4f5c\u308a\u5909\u3048\u3001\u4f5c\u308a\u8db3\u3057\u3001\u3082\u30e9\u30af\u3067\u3059\u3002<\/p>\n<p>\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<br \/>\n\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<br \/>\n\u4f5c\u6210\u3084\u30e1\u30f3\u30c6\u306e\u7121\u99c4\u306a\u30b3\u30b9\u30c8\uff08\u6642\u9593\u30fb\u91d1\u984d\uff09\u304c\uff12\u500d\u3069\u3053\u308d\u304b\u3001\uff13\u500d\u3082\uff14\u500d\u3082\u304b\u304b\u308b\u3088\u3046\u306b\u306a\u3063\u3066\u3057\u307e\u3044\u307e\u3059\u3002<\/p>\n<p>\u7279\u306b\u3001\u6700\u8fd1\u306e\u611a\u304b\u306a\u300c\u6559\u79d1\u66f8\u300d\u3092\u540d\u4e57\u308b\u3088\u3046\u306a\u3001VBA\u306e\u5e02\u8ca9\u66f8\u7c4d\u306a\u3069\u306b \u305d\u3046\u3044\u3046\u30b5\u30f3\u30d7\u30eb\u304c\u591a\u3044\u306e\u3067\u3001\u9593\u9055\u3063\u3066\u3082\u3042\u3053\u304c\u308c\u306a\u3069\u306f\u6301\u305f\u306c\u3088\u3046\u3001\u9a19\u3055\u308c\u306a\u3044\u3088\u3046\u306b\u6c17\u3092\u4ed8\u3051\u3066\u304f\u3060\u3055\u3044\u3002<br \/>\n\u4ed5\u4e8b\u306e\u6642\u9593\u3092\u30e0\u30c0\u306b\u596a\u308f\u308c\u3066\u3001\u300c\u672c\u6765\u304b\u3051\u308b\u5fc5\u591c\u306e\u7121\u3044\u300d\u300c\u7121\u99c4\u306a\u30d7\u30ed\u30b0\u30e9\u30e0\u4f5c\u6210\u7528\u30fb\u6539\u4fee\u7528\u306e\u4eba\u4ef6\u8cbb\u300d\u3092\u300c\u5782\u308c\u6d41\u3059\u3060\u3051\u300d\u3067\u3059\u3002<\/p>\n<p>\u672c\u5f53\u306b\u3001\u7121\u8cac\u4efb\u3067\u30d0\u30ab\u306a\u5e02\u8ca9\u66f8\u7c4d\u306e\u8457\u8005\u3084\u30b5\u30a4\u30c8\u306b\u306f\u3001\u9a19\u3055\u308c\u306a\u3044\u3088\u3046\u306b\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605 \u30b5\u30f3\u30d7\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9<\/p>\n<p><a href=\"https:\/\/euc-access-excel-db.com\/00000WPZIP\/vba-1row-ope.zip\" target=\"_blank\" rel=\"noopener noreferrer\">\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9<\/a><\/p>\n<p>\u3044\u3061\u304a\u3046\u3001ESET\u3067\u30a6\u30a3\u30eb\u30b9\u30c1\u30a7\u30c3\u30af\u3057\u3066\u3042\u308a\u307e\u3059\u3002<br \/>\n\u89e3\u51cd\u3059\u308b\u3068\u3001\u300c\u884c\uff11\u884c\u5206\u306e\u6307\u5b9a\u3084\u9078\u629e\u30fb\u633f\u5165\u30fb\u8ffd\u52a0\u306a\u3069.xlsm\u300d\u304c\u51fa\u3066\u304d\u307e\u3059\u3002<\/p>\n<p>\u89e3\u51cd\u3067\u304d\u307e\u3057\u305f\u3089\u3001VBE\u3092\u958b\u3044\u3066\u4e0b\u8a18\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3092F8\u30ad\u30fc\u3067\u30b9\u30c6\u30c3\u30d7\u5b9f\u884c\u3057\u3066\u307f\u305f\u308a\u3001<br \/>\n\u30b3\u30fc\u30c9\u306e\u300c\u884c\u3084\u5217\u306e\u5024\u300d\u3092\u5909\u3048\u305f\u308a\u3057\u3066\u3001\u3054\u81ea\u5206\u3067\u3082\u8272\u3005\u3068\u8a66\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u524d\u534a\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3067Insert\uff08\u884c\u306e\u633f\u5165\u3092\uff09\u3059\u308b\u3068\u304d\u306b\u3001<br \/>\n\u30bb\u30eb\u306e\u66f8\u5f0f\u3082\u3064\u3044\u3067\u306b\u30b3\u30d4\u30fc\u3057\u305f\u3044\u5834\u5408\u306f\u3001<br \/>\no_WS01.Rows.Item(i_Row).Insert<br \/>\n\u3092<br \/>\no_WS01.Rows.Item(i_Row).Insert xlDown, xlFormatFromLeftOrAbove '\u66f8\u5f0f\u3082\u30b3\u30d4\u30fc<br \/>\n\u306b\u66f8\u304d\u63db\u3048\u307e\u3059\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u5f8c\u534a\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u306f\u3001<br \/>\n\u300cWith o_List01.ListRows.Add(Position:=2)\u300d<br \/>\n\u306e\u90e8\u5206\u306f\u3001<br \/>\n\u4f8b\u3048\u3070<br \/>\n\u300cDim o_RtnNewRow01 As ListRow<br \/>\n\u3000Set o_RtnNewRow01 = o_List01.ListRows.Add(Position:=2) \u300d<br \/>\n\u307f\u305f\u3044\u306b\u3084\u3063\u3066\u304a\u3044\u3066\u304b\u3089\u3001<br \/>\n\u300cWith o_RtnNewRow01<br \/>\n\u3000\u3000\uff5e\u3000\uff5e<br \/>\n\u3000\u3000\uff5e\u3000\uff5e<br \/>\n\u3000End With \u300d<br \/>\n\u306a\u3069\u3068\u3084\u3063\u3066\u307b\u3046\u304c\u30e9\u30af\u3067\u898b\u3084\u3059\u3044\uff1f\u304b\u3082\uff1f<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<font style=\"border-bottom:3px double #ff0000;\"><span style=\"color: #0000ff;\"><b>\u3042\u3068\u3001\u3064\u3044\u3067\u306b\u3067\u3059\u304c\u3001<br \/>\n\u7d44\u307f\u8fbc\u307f\u306e\u30e1\u30bd\u30c3\u30c9\u3092\u5168\u90e8\u300cCall\u300d\u3067\u547c\u3073\u51fa\u3057\u3066\u3001<br \/>\n\u5909\u6570\u3084\u30d7\u30ed\u30d1\u30c6\u30a3\u3078\u306e\u5024\u306e\u4ee3\u5165\u306b\u306f\u5168\u90e8\u300cLet\u300d\u3092\u4ed8\u3051\u3066\u307f\u307e\u3057\u305f\u3002<\/b><\/span><\/font><\/p>\n<p><span style=\"color: #32cd32;\"><b>\u4e00\u822c\u7684\u306b\u306f\u305d\u3093\u306a\u3053\u3068\u3057\u307e\u305b\u3093\u304c\u3001<BR><br \/>\n\u300e \u7d44\u8fbc\u306e\u30e1\u30bd\u30c3\u30c9\u306fCall\u3067\u547c\u3073\u51fa\u305b\u308b\uff1d\u306a\u3089\u7d44\u8fbc\u306e\u30e1\u30bd\u30c3\u30c9\u306e\u300c\u5b9f\u4f53\u30fb\u5b9f\u614b\u30fb\u6b63\u4f53\u300d\u306f\u3001\u300cSub\u304bFunction\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u300d\u3067\u306f\u7121\u3044\u304b\uff1f\u3068\u63a8\u6e2c\u3067\u304d\u308b\u3002\u306a\u305c\u306a\u3089Call\u306fSub\u3068Function\u3060\u3051\u3057\u304b\u547c\u3073\u51fa\u305b\u306a\u3044\u547d\u4ee4\u3060\u304b\u3089\u3002 \u300f<BR><br \/>\n\u3068\u3044\u3046\u3053\u3068\u3068<BR><br \/>\n\u300e \u30d7\u30ed\u30d1\u30c6\u30a3\u9805\u76ee\u3078\u306e\u5024\u306e\u4ee3\u5165\u3067\u3042\u3063\u3066\u3082\u3001\u305d\u306e\u547d\u4ee4\u6587\u306f \u201d \u4ee3\u5165\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8 \u201d \u306b\u306f\u9055\u3044\u306f\u306a\u3044\u306e\u3067\u3001Let \u3092\u4f7f\u3046\u3053\u3068\u304c\u3067\u304d\u308b\u306e\u3067\u306f\uff1f\u3068\u3044\u3046\u5b9f\u9a13\u3092\u691c\u8a3c\u3057\u305f\u3002\uff06 \u305d\u3093\u306a\u3053\u3068\u8003\u3048\u305f\u3053\u3068\u3059\u3089\u306a\u3044 \uff1d \u201d \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8 \u201d \u306e\u610f\u5473\u3092\u307e\u308b\u3067\u308f\u304b\u3063\u3066\u306a\u3044\u8b1b\u5e2b\u304c\u591a\u3044\uff1f\u3053\u3068\u3078\u306e\u8b66\u9418 \uff06 \u305d\u3093\u306a4\u6d41\u4ee5\u4e0b\u306e\u8b1b\u5e2b\u306b\u30c6\u30ad\u30c8\u30fc\u306a\u30ec\u30c3\u30b9\u30f3\u3055\u308c\u3066\u3001\u3060\u307e\u3055\u308c\u306a\u3044\u3088\u3046\u306b\u6c17\u3092\u4ed8\u3051\u3066\u3002 \u300f<BR><br \/>\n\u3068\u3044\u3046\u7406\u7531\u304b\u3089\u3001<br \/>\n\u300c\u306a\u305c\uff1f\u300d<br \/>\n\u300c4\u6d41\u4ee5\u4e0b\u306e\u8b1b\u5e2b\u3092\u7591\u3046\u3002\u300d<br \/>\n\u300c\u65e5\u672c\u306eVBA\u6559\u80b2\u3092\u7591\u3046\u3002\u300d<br \/>\n\u3068\u3044\u3046\u610f\u8b58\u3092\u3082\u3063\u3066\u307b\u3057\u3044\u3068\u601d\u3063\u305f\u306e\u3067\u3001\u305d\u3046\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/b><\/span><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u53c2\u8003URL<br \/>\n\u3010\u6700\u7d42\u884c\u3011<br \/>\n<a href=\"http:\/\/www.niji.or.jp\/home\/toru\/notes\/8.html\" target=\"_blank\" rel=\"noopener noreferrer\">\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306e\u6700\u7d42\u884c\u3001\u6700\u7d42\u5217\u3092\u53d6\u5f97\u3059\u308b<\/a><br \/>\n<a href=\"http:\/\/www.niji.or.jp\/home\/toru\/notes\/8-2.html\" target=\"_blank\" rel=\"noopener noreferrer\">\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306e\u6700\u7d42\u884c\u3001\u6700\u7d42\u5217\u3092\u53d6\u5f97\u3059\u308b\uff08\u307e\u3068\u3081\uff09<\/a><br \/>\n\u3010\u884c\u306e\u633f\u5165\u3011<br \/>\n<a href=\"https:\/\/excel-ubara.com\/excelvba2\/EXCELVBA016.html\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/excel-ubara.com\/excelvba2\/EXCELVBA016.html<\/a><br \/>\n<a href=\"https:\/\/www.tipsfound.com\/vba\/08004\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/www.tipsfound.com\/vba\/08004<\/a><br \/>\n<a href=\"https:\/\/akira55.com\/insertdelete\/\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/akira55.com\/insertdelete\/<\/a><br \/>\n<a href=\"https:\/\/www.google.co.jp\/search?sourceid=navclient&aq=&oq=vba+%e8%a1%8c+%e6%8c%bf%e5%85%a5+%e6%9b%b8%e5%bc%8f&hl=ja&ie=UTF-8&rlz=1T4GGHP_jaJP820JP821&q=vba+%e8%a1%8c+%e6%8c%bf%e5%85%a5+%e6%9b%b8%e5%bc%8f&gs_l=hp...0l2j0i30j0i5i30.0.0.5.9812...........0.i78PVp8RB9w#spf=1616316425779\" target=\"_blank\" rel=\"noopener noreferrer\">Google\u691c\u7d22\u300cvba \u884c \u633f\u5165 \u66f8\u5f0f\u300d<\/a><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nOption Explicit\r\n'\r\n'\r\n\r\n'#########################################################\r\n'\u300c\u30c6\u30fc\u30d6\u30eb\u300d\u6a5f\u80fd\u3092\u4f7f\u308f\u306a\u3044\u5834\u5408\u306e\uff11\u884c\u306e\u9078\u629e\u3084\r\n'\u633f\u5165\u3001\u65b0\u898f\u8ffd\u52a0\u3001\u306a\u3069\u3002\r\n'F8\u30ad\u30fc\u3067\u306e\u30b9\u30c6\u30c3\u30d7\u5b9f\u884c\u3067\u5c11\u3057\u305a\u3064\u78ba\u8a8d\u3057\u3066\u304f\u3060\u3055\u3044\u3002\r\n'#########################################################\r\n\r\nSub GyouSousa()\r\n\r\n    Dim o_WS01 As Worksheet\r\n    Dim i_Row As Long\r\n    \r\n'    Set o_WS01 = Application. _\r\n'                  ActiveWorkbook. _\r\n'                   Worksheets.Item(\"\u666e\u901a\u306e\u8868\")\r\n'\r\n    Set o_WS01 = Application. _\r\n                  ActiveWorkbook. _\r\n                   ActiveSheet\r\n                   \r\n                   \r\n    Stop  '\u3053\u308c\u4ee5\u964d\u3092F8\u30ad\u30fc\u306e\u30b9\u30c6\u30c3\u30d7\u5b9f\u884c\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002\r\n    \r\n    Call o_WS01.Activate\r\n    \r\n    \r\n    '\u2605 \u884c\u3092\u6307\u5b9a\u3059\u308b\u51e6\u7406\r\n    'http:\/\/www.niji.or.jp\/home\/toru\/notes\/8.html\r\n    'http:\/\/www.niji.or.jp\/home\/toru\/notes\/8-2.html\u3092\u53c2\u7167\u3002\r\n    '\uff08\u305e\u308c\u305e\u308c\u306e\u65b9\u6cd5\u306e\u6b20\u70b9\u304c\u5206\u304b\u308a\u307e\u3059\u3002\uff09\r\n    \r\n        '\u25bc\u4efb\u610f\u306e\u884c\u3092\u624b\u52d5\u6307\u5b9a\r\n    '    Let i_Row = 3\r\n        \r\n        \r\n        '\u25bc\u65b0\u898f\u306e\u884c\u3092\u81ea\u52d5\u6307\u5b9a\uff08\u30d5\u30a3\u30eb\u30bf\u8003\u616e\u306b\u5165\u308c\u3066\u306a\u3044\uff09\r\n        \r\n        '     \u2193End(xlUp)\u5229\u7528\uff08\u8868\u306e\u4e0a\u306b\u7a7a\u767d\u30bb\u30eb\u304c\u3042\u3063\u3066\u3082\u7121\u304f\u3066\u3082\u3001\u30bb\u30eb\u66f8\u5f0f\u304c\u3069\u3046\u3067\u3042\u3063\u3066\u3082\u95a2\u4fc2\u306a\u3057\u3002\r\n        Let i_Row = o_WS01.Cells(Rows.Count, \"B\").End(xlUp).Row + 1  '\u6700\u7d42\u884c\u306b\u7a7a\u767d\u30bb\u30eb\u304c\u3042\u308b\u5217\u306f\u30c0\u30e1\u306a\u306e\u3067\u3001\u9023\u756a\u5217\u306a\u3069\u306e\u7d76\u5bfe\u306b\u7a7a\u767d\u304c\u7121\u3044\u5217\u3067\u3084\u308b\u3057\u304b\u306a\u3044\u3002\r\n            \r\n'        '     \u2193UsedRange\u5229\u7528\u3067\u8868\u306e\u4e0a\u306b\u7a7a\u767d\u304c\u7121\u3044\u5834\u5408\u3002\r\n'        Let i_Row = o_WS01.UsedRange.Rows.Count + 1                                             '\u5024\u306e\u5165\u3063\u3066\u3044\u308b\u30bb\u30eb\u306e\u307f\u3002\u305f\u3060\u3057\u3001\u884c\u306e\u9ad8\u3055\u3084\u30bb\u30eb\u66f8\u5f0f\u306e\u5909\u66f4\u3055\u308c\u305f\u7a7a\u767d\u30bb\u30eb\u3092\u542b\u3080\r\n'        Let i_Row = o_WS01.UsedRange.Find(\"*\", , xlFormulas, , xlByRows, xlPrevious).Row + 1    '\u5024\u306e\u5165\u3063\u3066\u3044\u308b\u30bb\u30eb\u306e\u307f\u3002\u3000\u307e\u305f\u3001\u884c\u306e\u9ad8\u3055\u3084\u30bb\u30eb\u8a2d\u5b9a\u306e\u5909\u66f4\u3055\u308c\u305f\u7a7a\u767d\u30bb\u30eb\u3092\u542b\u307e\u306a\u3044\r\n'        '     \u2193UsedRange\u5229\u7528\u3067\u8868\u306e\u4e0a\u306b\u7a7a\u767d\u884c\u304c\u3042\u308b\u5834\u5408\u3002\uff08\u7a7a\u767d\u884c\u306b\u30bb\u30eb\u66f8\u5f0f\u304c\u4f55\u3082\u8a2d\u5b9a\u3055\u308c\u3066\u306a\u3044\u3053\u3068\u304c\u524d\u63d0\uff09\r\n'        Let i_Row = o_WS01.UsedRange.Row + o_WS01.UsedRange.Rows.Count\r\n'        Let i_Row = o_WS01.UsedRange.Find(\"*\", , xlFormulas, , xlByRows, xlPrevious).Row + 1    '\u2605\u2605 \u3053\u306e\u5f0f\u3060\u3068\u300cEnd(xlUp)\u300d\u307f\u305f\u3044\u306b\u3001\u4e0b\u304b\u3089\u30c1\u30a7\u30c3\u30af\u3059\u308b\u306e\u3067\u3001\u8868\u306e\u4e0a\u306b\u7a7a\u767d\u884c\u304c\u3042\u3063\u3066\u3082\u7121\u95a2\u4fc2\u306a\u306e\u3067\u5927\u4e08\u592b\u3002\r\n    \r\n    \r\n        Call o_WS01.Range(\"A1\").Select '\u3068\u308a\u3042\u3048\u305aA1\u30bb\u30eb\u3092\u9078\u629e\u3057\u3066\u304a\u304f\r\n        \r\n    \r\n    '\u2605 \uff11\u884c\u5206\u306e\u30bb\u30eb\u7bc4\u56f2\u3092\u9078\u629e\u3059\u308b\u51e6\u7406\r\n        \r\n        '\u9078\u3093\u3060\u884c\u3067\uff11\u884c\u9078\u629e\u3059\u308b\uff08\u5217\u6570\u3092\u660e\u793a\u7684\u306b\u6307\u5b9a\u3057\u3066\u3002\u8d77\u70b9\u306e\u30bb\u30eb\u306e\u300c\u5217\u300d\u3084\u9078\u629e\u3059\u308b\u30bb\u30eb\u7bc4\u56f2\u306e\u5217\u6570\u306f\u624b\u52d5\u8a2d\u5b9a\u3002\uff09\r\n        \r\n        '\u300cRange.Resize\u300d\u3092\u4f7f\u3063\u305f\u5834\u5408\u3002\r\n        '\uff08\u8868\u306e\u53f3\u7aef\u306e\u4f4d\u7f6e\u306f\u624b\u52d5\u8a2d\u5b9a\u306b\u306a\u308a\u307e\u3059\u3002\uff09\r\n        ' \u7279\u306b\u7406\u7531\u304c\u7121\u3044\u9650\u308a\u306f\u3001\u300cRange.Resizs\u300d\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u4f7f\u3046\u307b\u3046\u304c\u3001\r\n        '\u300cRange.Resizs\u300d\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u4f7f\u3046\u3088\u308a\u3082\u5206\u304b\u308a\u3084\u3059\u3044\u3057\u5909\u6570\u3068\u3082\u304b\u3089\u3081\u3084\u3059\u3044\u3068\u601d\u3044\u307e\u3059\u3002\r\n        Rem\u3000\u3000\u884c\u6570\u3082\u5217\u6570\u3082\u3001\u300c\uff11\u30b9\u30bf\u30fc\u30c8\u300d\u306a\u306e\u3067\u3001\u308f\u304b\u308a\u3084\u3059\u3044\u3002\r\n        \r\n        '\u2605\u2605\u2605\r\n        Call o_WS01.Range(\"B\" & i_Row).Resize(1, 3).Select 'Worksheet.Range\u3092\u4f7f\u3063\u305f\u5834\u5408\u3002\r\n        Call o_WS01.Range(\"A1\").Select\r\n        \r\n        '\u2605\u2605\u2605\r\n        Call o_WS01.Cells(i_Row, 2).Resize(1, 3).Select    'Worksheet.Cells\u3092\u4f7f\u3063\u305f\u5834\u5408\u3002\r\n        Call o_WS01.Range(\"A1\").Select\r\n        \r\n        '\u2191\u300cRange.Resize\u300d\u306f\u6027\u683c\u7684\u306b\u300c\uff11\u30b9\u30bf\u30fc\u30c8\u300d\u306a\u306e\u3067\u3001\u65b0\u898f\u884c\u3092\u8868\u73fe\u3059\u308b\u306e\u306b\u306f\u3001\r\n        '  \u300cRange.Offset\u300d\u306e\u5834\u5408\u3068\u306f\u7570\u306a\u308a\u3001\u884c\u306e\u6570\u5024\u3067\u300c\uff0d\uff11\u300d\u3092\u3059\u308b\u5fc5\u8981\u306f\u3042\u308a\u307e\u305b\u3093\u3002\r\n        \r\n        \r\n        \r\n        '\u300cActiveWindow.Selection\uff08\u3042\u308b\u3044\u306fApplication.Selection\uff09\u300d\u3068\r\n        '\u300cRange.Resize\u300d\u3092\u7d44\u307f\u5408\u308f\u305b\u3066\u4f7f\u3063\u305f\u5834\u5408\r\n        ' \u3053\u3061\u3089\u3082\u3001\u7279\u306b\u7406\u7531\u304c\u7121\u3044\u9650\u308a\u306f\u3001\u300cRange.Resizs\u300d\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u4f7f\u3046\u307b\u3046\u304c\u3001\r\n        '\u300cRange.Resizs\u300d\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u4f7f\u3046\u3088\u308a\u3082\u5206\u304b\u308a\u3084\u3059\u3044\u3057\u5909\u6570\u3068\u3082\u304b\u3089\u3081\u3084\u3059\u3044\u3068\u601d\u3044\u307e\u3059\u3002\r\n        Call o_WS01.Range(\"B\" & i_Row).Select\r\n        '\u2605\u2605\u2605\r\n        Call ActiveWindow.Selection.Resize(1, 3).Select\r\n        Call o_WS01.Range(\"A1\").Select\r\n        \r\n        Call o_WS01.Range(\"B\" & i_Row).Select\r\n        '\u2605\u2605\u2605\r\n        Call Selection.Resize(1, 3).Select   '\u300cActiveWIndow.\u300d\u3092\u7701\u7565\u3057\u3066\u300cSelection\u300d\u3060\u3051\u3092\u66f8\u304f\u3068\u3001Application.Selection \u3068\u540c\u69d8\u306e\u7d50\u679c\u306b\u306a\u308a\u307e\u3059\u3002\u3082\u3061\u308d\u3093\u3001\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u968e\u5c64\u69cb\u9020\u304c\u7406\u89e3\u3067\u304d\u308b\u307e\u3067\u306f\u3001\u7701\u7565\u3057\u306a\u3044\u307b\u3046\u304c\u3067\u3059\u3002\r\n            '\u2191 Selection\u30d7\u30ed\u30d1\u30c6\u30a3\u306f\u3001\u300cActiveSheet\uff08Worksheet\u5358\u4e00\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09\u300d\u3084\r\n            '  \u300cActiveWorkbook\uff08Workbook\u5358\u4e00\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09\u300d\u3067\u306f\u4f7f\u3048\u307e\u305b\u3093\u3002\r\n            '   \u305d\u308c\u3089\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u3060\u3068\u52d8\u9055\u3044\u3057\u3066\u4f7f\u3046\u3068\uff08\uff1d\u66f8\u304f\u3068\uff09\u3001\u30a8\u30e9\u30fc\u306b\u306a\u308b\u306e\u3067\u6ce8\u610f\u304c\u5fc5\u8981\u3067\u3059\u3002\r\n            '   Selection\u30d7\u30ed\u30d1\u30c6\u30a3\u306f\u3001\u3082\u3068\u3082\u3068\u3001\u300c ActiveWindow \u304b \u3042\u308b\u3044\u306f Application \u300d\u3067\u3057\u304b\u4f7f\u3048\u307e\u305b\u3093\u3002\r\n        Call o_WS01.Range(\"A1\").Select\r\n        \r\n        '\u2605\u2605\u2605\r\n        Call o_WS01.Range(\"B\" & i_Row).Resize(1, 3).Select\r\n        '\u2191\u307b\u3093\u3068\u306f\u3044\u3061\u3044\u3061\u4e8b\u524d\u306b B1\u30bb\u30eb\u3092Select\u3059\u308b\u306e\u306f\u3084\u3081\u3066\u3001\r\n        '\u3000\u3053\u3046\u66f8\u3051\u3070\u3044\u3044\u3002\r\n        \r\n        Call o_WS01.Range(\"A1\").Select\r\n        \r\n        \r\n        \r\n        '\u300cRange.Offset\u300d\u3092\u4f7f\u3063\u305f\u5834\u5408\u3067\u3001\u304b\u3064\u3001\u3042\u3048\u3066\u300ci_Row\u300d\u306e\u5024\u3092\u65b0\u898f\u884c\u306e\u5024\u3068\u3057\u3066\u4f7f\u3044\u305f\u3044\u5834\u5408\r\n        '\u2605\u2605\u2605\r\n        Call o_WS01.Range(Cells(2), Cells(4)).Offset(i_Row - 1, 0).Select\r\n        \r\n        '\u2191 Offset\u306f\u6027\u683c\u7684\u306b\u300c0\u30b9\u30bf\u30fc\u30c8\u300d\u306a\u306e\u3067\u65b0\u898f\u884c\u3092\u8868\u73fe\u3059\u308b\u306e\u306b\u306f\u300c\uff0d\uff11\u300d\u304c\u5fc5\u8981\u3068\u306a\u308a\u307e\u3059\u3002\r\n        '   \u307e\u305f\u3001\u3053\u306e\u4f8b\u306e\u3088\u3046\u306b\u300ci_Row\u3068Offset\u3092\u4e21\u65b9\u540c\u6642\u306b\u4f7f\u3044\u305f\u3044\u3068\u304d\u300d\u306f\u3001\r\n        '   \u57fa\u6e96\u306e\u30bb\u30eb\u7bc4\u56f2\u3092 Range(\"B2:D2\") \u3067\u306f\u306a\u304f\u3001\r\n        '  \u300e Range(\"B1:D1\")\u3068\u304b Range(Cells(2), Cells(4)) \u306a\u3069 \uff08\u3064\u307e\u308a\uff11\u884c\u76ee\uff09\u300f\u3001\r\n        '   \u306b\u3057\u306a\u3044\u3068\u3044\u3051\u306a\u304f\u306a\u308a\u307e\u3059\u3002\r\n        '\r\n        '   \u2605 \u306a\u304a\u3001\u300c o_WS01.Range(Cells(2), Cells(4)) \u300d\u306f\r\n        '\u3000\u3000\u3000\uff11\u884c\u76ee\u306e\uff11\u5217\u76ee\u306e\u30bb\u30eb\u304b\u3089\u9806\u756a\u306b\u6570\u3048\u305f\u6570\u5b57\u3092\u3001\u30ab\u30c3\u30b3\u306e\u4e2d\u306b\u5165\u308c\u3066\u3044\u307e\u3059\u3002\r\n        '\u3000\u3000 \u304c\u3001\r\n        '\u3000\u3000\u300co_WS01.Range(Cells(1, 2), Cells(1, 4)) \u300d\u3068\u540c\u3058\u610f\u5473\u306b\u306a\u308a\u307e\u3059\u3002\r\n        '\u3000\u3000\u300c\u30ab\u30c3\u30b3\u306e\u4e2d\u306e\u6570\u5b57\u304c\u3001\u5217\u756a\u53f7\u3068 \u201d\u30a4\u30b3\u30fc\u30eb \u201d\u300d\u306a\u308a\u307e\u3059\u3002\r\n        '\u3000\u3000 \u305f\u3060\u3001\u3001\r\n        '\u3000\u3000\u300c o_WS01.Range(Cells(2), Cells(4)) \u300d\u304c\u305d\u3046\u306a\u308c\u308b\u306e\u306f\r\n        '\u3000\u3000\u300c\uff11\u884c\u76ee\u306b\u9650\u3063\u3066\u300d\u3001\u3067\u3059\u3002\r\n        '\u3000\u3000 \uff08\uff12\u884c\u76ee\u4ee5\u964d\u306f\u30ab\u30c3\u30b3\u306e\u4e2d\u306e\u6570\u5b57\u306f\u5217\u756a\u53f7\u3068\u30a4\u30b3\u30fc\u30eb\u306b\u306a\u308a\u307e\u305b\u3093\u3002\r\n        '\u3000\u3000\u3000 \uff12\u884c\u76ee\u306e\uff12\u5217\u76ee\u3068\uff14\u5217\u76ee\u3092\u6570\u5b57\u3060\u3051\u3067\u8868\u3057\u305f\u5834\u5408\u306f\r\n        '\u3000\u3000  \u300c o_WS01.Range(Cells(16386), Cells(16388)) \u300d\u306b\u306a\u308a\u307e\u3059\u3002\uff09\r\n        '\u3000\u3000 \u3088\u3063\u3066\u3001\u300co_WS01.Range(Cells(\u00d7\u00d7, 2), Cells(\u00d7\u00d7, 4)) \u300d\u3068\r\n        '\u3000\u3000\u3000\u66f8\u304b\u306a\u3044\u3068\u3044\u3051\u306a\u304f\u306a\u308a\u307e\u3059\u3002\r\n        '\r\n        '\u3000\u3000 \u3064\u307e\u308a\u3001\u300c\u7a7a\u767d\u884c\u3068\u306a\u3063\u3066\u3057\u307e\u3063\u3066\u3044\u308b \u201d\uff11\u884c\u76ee \u201d\u306e\uff12\u5217\u76ee\uff5e\uff14\u5217\u76ee\u300d\u3092\u57fa\u6e96\u306e\u30bb\u30eb\u7bc4\u56f2\u3068\u3057\u3066\u3044\u307e\u3059\u3002\r\n        '   \u3000\u3064\u307e\u308a\u3001\u57fa\u6e96\u3068\u306a\u308b\u30bb\u30eb\u7bc4\u56f2\u306b\u3064\u3044\u3066\u306f\u3001\u300c\u9805\u76ee\u540d\u306e\u884c\u300d\u3092\u7121\u8996\u3057\u3066\u3001\r\n        '\u3000\u3000\u300c\u5024\u304c\u3042\u308d\u3046\u304c\u7121\u304b\u308d\u3046\u304c\u3001\uff11\u884c\u76ee\u3092\u57fa\u6e96\u306b\u300d\u3001\u8003\u3048\u3066\u3044\u307e\u3059\u3002\r\n        '   \u3000\u3082\u3046\u5c11\u3057\u8a00\u3046\u3068\u3001\u300c\u9805\u76ee\u540d\u306e\u884c\u300d\u306e\u300c\u884c\u306e\u4f4d\u7f6e\u300d\u306f\u300c\u7121\u8996\u300d\u3057\u3066\u3001\r\n        '\u3000\u3000\u300c\u5217\u306e\u4f4d\u7f6e\u3060\u3051\u300d\u3092\u300c\u610f\u8b58\u300d\u3057\u3066\u3044\u307e\u3059\u3002\r\n        \r\n        Call o_WS01.Range(\"A1\").Select\r\n        \r\n        \r\n        \r\n        \r\n        ' \u300cRange.Offset\u300d\u3092\u4f7f\u3063\u305f\u5834\u5408\u3067\u3001\u57fa\u6e96\u306e\u30bb\u30eb\u7bc4\u56f2\u3092Range(\"B2:D2\")\u306b\u3057\u305f\u3044\u5834\u5408\u3002\r\n        '                                  \uff1d\u300ci_Row02\u300d\u306e\u5024\u3092\u65b0\u898f\u884c\u306e\u5024\u3068\u3057\u3066\u4f7f\u3046\u5834\u5408\u3002\r\n        \r\n        Dim i_Row02 As Integer\r\n        i_Row02 = (i_Row - 1) - (o_WS01.Range(\"B4\").Row - 1) + 1     '\u2190\u3053\u306e\u5834\u5408\u3067\u306e\u30e9\u30b9\u30c8\u306e\u300c\uff0b\uff11\u300d\u306f\u300c\u65b0\u898f\u884c\u300d\u306e\u610f\u5473\u3067\u3059\u3002\r\n        \r\n        Rem \u2191(o_WS01.Range(\"B2\").Row - 1) \u306e\u300c\uff0d\uff11\u300d\u306f\u3001\u300c\u305d\u306e\u884c\u306e\u76f4\u524d\u306e\u884c\uff1d\uff11\u884c\u5dee\u3057\u5f15\u3044\u305f\u884c\u300d\u3092\u8868\u3057\u305f\u3044\u306e\u3067\u3001\u5dee\u3057\u5f15\u3044\u3066\u3044\u3066\u3001\r\n        Rem \u3000(i_Row - 1)\u306e\u300c\uff0d\uff11\u300d\u306f\u3001\u4eca\u73fe\u5728\u300ci_Row\u300d\u306f\u300c\u65b0\u898f\u306e\u7a7a\u767d\u884c\u300d\u306b\u306a\u3063\u3066\u3057\u307e\u3063\u3066\u308b\u306e\u3067\u3001\u305d\u3046\u3058\u3083\u306a\u304f\u3066\u3001\r\n        Rem\u3000\u300c\u5024\u306e\u57cb\u307e\u3063\u305f \u201d\u6700\u5f8c\u306e\u884c \u201d\u300d\u3092\u8868\u3057\u305f\u3044\u305f\u3081\u306b\u3001\u305d\u308c\u306e\u5206\u306e\u300c\uff11\u300d\u3092\u5dee\u3057\u5f15\u3044\u3066\u3044\u307e\u3059\u3002\r\n        Rem\u3000 \u3068\u3044\u3046\u3053\u3068\u306f\u3001\u7d50\u5c40\u306f\u3001\r\n        Rem\u3000\u300e i_Row - o_WS01.Range(\"B4\").Row + 1 \u304c\u8868\u306e\u300c\u9805\u76ee\u540d\u306e\u884c\u300d\u3092\u57fa\u6e96\u306b\u3057\u305f\u65b0\u898f\u306e\u884c\u306e\u4f4d\u7f6e \u300f\u3001\r\n        Rem\u3000 \u3068\u3044\u3046\u3053\u3068\u3068\u540c\u3058\u4e8b\u3067\u3059\u3051\u3069\u30fb\u30fb\u30fb\uff61\r\n        \r\n        Stop\r\n        \r\n        '\u2605\u2605\u2605\r\n        Call o_WS01.Range(\"B4:D4\").Offset(i_Row02 - 1, 0).Select\r\n\r\n        Rem \u2191\u300cRange.Offset\u300d\u306f\u6027\u683c\u7684\u306b\u300c0\u30b9\u30bf\u30fc\u30c8\u300d\u306a\u306e\u3067\u3001\r\n        Rem   \u300c\uff0d\uff11\u300d\u3057\u306a\u3044\u3068\u65b0\u898f\u884c\u3092\u8868\u73fe\u3067\u304d\u307e\u305b\u3093\u3002\r\n        Rem    \u3082\u3057\u304b\u3057\u305f\u3089\u300c\u914d\u5217\u300d\uff08\u3053\u308c\u3082\u57fa\u672c \u6027\u683c\u7684\u306b\u300c0\u30b9\u30bf\u30fc\u30c8\u300d\uff09\u3067\u306e\u30bb\u30eb\u306e\u64cd\u4f5c\r\n        Rem     \u3068\u76f8\u6027\u304c\u3044\u3044\u304b\u3082\uff1f\r\n        Rem    \u305d\u3046\u3044\u3046\u7528\u9014\u3058\u3083\u306a\u3051\u308c\u3070\u3001\u300cRange.Resize\u300d\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u4f7f\u3046\u307b\u3046\u304c\u3001\r\n        Rem\u3000\u3000\u884c\u6570\u3082\u5217\u6570\u3082\u3001\u300c\uff11\u30b9\u30bf\u30fc\u30c8\u300d\u306a\u306e\u3067\u3001\u308f\u304b\u308a\u3084\u3059\u3044\u3002\r\n        \r\n        Stop\r\n        \r\n        \r\n            \r\n        '\u8868\u306e\u4e2d\u306e\u884c\u3092\uff11\u884c\u9078\u629e\u3059\u308b\r\n        \r\n        '\u300cEnd(xlToRight)\u300d\u3092\u4f7f\u3063\u305f\u5834\u5408\u3002\r\n        '\u300cEnd(xlToRight)\u300d\u3067\u8868\u306e\u53f3\u7aef\u306e\u4f4d\u7f6e\u3092\u81ea\u52d5\u8a2d\u5b9a\u3002\r\n        '\uff08\u81ea\u52d5\u8a2d\u5b9a\u306f\u3044\u3044\u306e\u3067\u3059\u304c\u3001\u305f\u3060\u3057\u3001\u300c\u8868\u306e\u53f3\u7aef\u306b\u7d76\u5bfe\u306b\u5024\u304c\u5165\u3063\u3066\u3044\u306a\u3044\u3068\u3044\u3051\u306a\u3044\u300d\u306e\u3067\u4f7f\u3048\u306a\u3044\u3053\u3068\u3082\u3042\u308b\u306e\u3067\u6ce8\u610f\u304c\u5fc5\u8981\u3067\u3059\u3002Excel\u3063\u3066\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u30bd\u30d5\u30c8\u3068\u9055\u3063\u3066\u3053\u3046\u3044\u3046\u3068\u3053\u308d\u304c\u30de\u30cc\u30b1\u3068\u3044\u3046\u304b\u9762\u5012\u304f\u3055\u3044\u3067\u3059\u3002\u4ed6\u306b\u3082\u9762\u5012\u304f\u3055\u3044\u3068\u3053\u308d\u304c\u591a\u3044\u3067\u3059\u3002\uff09\r\n        Let i_Row = i_Row - 2 '\u64cd\u4f5c\u5bfe\u8c61\u306e\u884c\u306e\u4f4d\u7f6e\u3092\u3001\u300c \u201d\u884c\u633f\u5165\u3057\u305f\u3044 \u201d\u3001\u72ec\u81ea\u306b\u6307\u5b9a\u3057\u305f\u884c \u300d\u306e\u4f4d\u7f6e\u306b\u5909\u66f4\u3002\u8a2d\u5b9a\u3002\r\n        Dim o_StartCel As Range\r\n        Set o_StartCel = o_WS01.Range(\"B\" & i_Row) '\u8d77\u70b9\u306e\u30bb\u30eb\u3092\u5909\u6570\u5316\u3057\u3066\u6271\u3044\u3084\u3059\u304f\u3059\u308b\u3002\r\n        \r\n        '\u2605\u2605\u2605\r\n        Call o_WS01.Range(o_StartCel, o_StartCel.End(xlToRight)).Select\r\n        '  \u2191 Call o_WS01.Range(\u8d77\u70b9\u30bb\u30eb, \u8d77\u70b9\u30bb\u30eb.End(xlToRight)).Select\r\n        '      \u3068\u3044\u3046\u69cb\u6587\u3067\u3059\u3002\r\n        '     \u3064\u307e\u308a\u3001\r\n        '     Call o_WS01.Range(\u8d77\u70b9\u30bb\u30eb, \u7d42\u70b9\u30bb\u30eb).Select\r\n        '     \u3068\u3044\u3046\u3053\u3068\u3092\u8868\u3057\u3066\u3044\u308b\u69cb\u6587\u3067\u3059\u3002\r\n        '     \u3053\u308c\u3082\u300c\uff11\u884c\u300d\u3092\u8868\u73fe\u3059\u308b\u69cb\u6587\u306e\u3072\u3068\u3064\u3067\u3059\u3002\r\n        \r\n        '\u65b0\u898f\u306e\u884c\u3092\u9078\u629e\r\n    '    i_Row = o_WS01.UsedRange.Find(\"*\", , xlFormulas, , xlByRows, xlPrevious).Row + 1\r\n                \r\n        Stop\r\n                \r\n        '\u884c\u3092\u633f\u5165\u3057\u3066\u5024\u3092\u4ee3\u5165\r\n        Call o_WS01.Rows.Item(i_Row).Insert\r\n        \r\n        '\u2191\u3082\u3057\u8907\u6570\u884c\u3092\u633f\u5165\u3059\u308b\u306b\u306f\u3001\r\n        '  .Insert \u3084 Rows(\"3:5\").Insert\u3001Range(\"3:5\").Insert \u3001\r\n        '  \u3042\u308b\u3044\u306f\u3001Range(\"B4:D6\").Insert \u306a\u3069\u3002\r\n        '  \u305f\u3060\u3057\u3001Range(\"B4:D4\").Insert\u306f\u300c\u884c\u300d\u306e\u633f\u5165\u3067\u306f\u306a\u304f\u3001\r\n        ' \u300c\u30bb\u30eb\u300d\u306e\u633f\u5165\u306b\u306a\u3063\u3066\u3057\u307e\u3046\u306e\u3067\u6ce8\u610f\u3002\r\n        '  \u3042\u3068\u3001Range(\"3:5\").Insert\u3082\u5c11\u3057\u6027\u683c\u304c\u7570\u306a\u308b\u304b\u3082\u306a\u306e\u3067\u3001\u6ce8\u610f\u3002\r\n        \r\n        Let o_WS01.Cells(i_Row, 2).Resize(1, 3).Value = Array(9, 9, 9) '\u5024\u3092\u4ee3\u5165\r\n        \r\n\r\nEnd Sub\r\n\r\n'###############################################################\r\n'\u4ee5\u4e0b\u306f\u3001\u8868\u3092\u300c\u30c6\u30fc\u30d6\u30eb\u300d\u306b\u5909\u63db\u3057\u305f\u5834\u5408\u306e\u3001\r\n'\u65b0\u3057\u3044\u884c\u306e\u8ffd\u52a0\u3001\u633f\u5165\u3002\r\n'\u203b\u300c\u30c6\u30fc\u30d6\u30eb\u300d\u306b\u3059\u308b\u3068\u8ffd\u52a0\u3068\u633f\u5165\u304c\u30e9\u30af\u306b\u306a\u308b\u3002\r\n'###############################################################\r\n\r\n\r\nSub TableRowAdd01_NoWith_1Code()\r\n\r\n    Dim o_WS01 As Worksheet\r\n    Dim o_List01 As ListObject\r\n\r\n    Set o_WS01 = Application. _\r\n                  ActiveWorkbook. _\r\n                   Worksheets.Item(\"\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\u306e\u8868\")\r\n                   \r\n    Set o_List01 = o_WS01.ListObjects.Item(\"\u30c6\u30fc\u30d6\u30eb1\")\r\n    \r\n    Call o_WS01.Activate\r\n    \r\n    '\u30ea\u30b9\u30c8\u306e\u5217\u540d\u3092\u542b\u3081\u306a\u30442\u884c\u76ee\uff08\u3064\u307e\u308a\u5217\u540d\u306e\u4e0b\u306e\u4e0b\uff09\u306b\u633f\u5165\u8ffd\u52a0\r\n    Let o_List01.ListRows.Add(Position:=2).Range = Array(1, 1)\r\n    \r\n    '\u30e9\u30b9\u30c8\u884c\u306e\u4e0b\u306e\u65b0\u898f\u884c\u306b\u8ffd\u52a0\r\n    Let o_List01.ListRows.Add.Range = Array(1, 1)\r\n\r\nEnd Sub\r\n\r\n\r\n\r\n\r\nSub TableRowAdd02_ByWith01()\r\n\r\n    Dim o_WS01 As Worksheet\r\n    Dim o_List01 As ListObject\r\n\r\n    Set o_WS01 = Application. _\r\n                  ActiveWorkbook. _\r\n                   Worksheets.Item(\"\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\u306e\u8868\")\r\n                   \r\n    Set o_List01 = o_WS01.ListObjects.Item(\"\u30c6\u30fc\u30d6\u30eb1\")\r\n    \r\n    Call o_WS01.Activate\r\n    \r\n    '\u30ea\u30b9\u30c8\u306e\u5217\u540d\u3092\u542b\u3081\u306a\u30442\u884c\u76ee\uff08\u3064\u307e\u308a\u5217\u540d\u306e\u4e0b\u306e\u4e0b\uff09\u306b\u633f\u5165\u8ffd\u52a0\r\n'   Let o_List01.ListRows.Add(Position:=2).Range = Array(1, 1)\r\n    \r\n    'With\u3092\u4f7f\u3063\u3066\u3084\u3063\u3066\u307f\u308b\u3002\r\n    '\uff085\u30d1\u30bf\u30fc\u30f3\u3002\u3069\u308c\u3082\u7d50\u679c\u306f\u4e0a\u8a18\u306e\uff11\u6587\u306e\u52d5\u304d\u3068\u540c\u3058\u3002\u307e\u305f\u30013\u3064\u76ee\u4ee5\u964d\u306f\u76f8\u5bfe\u7684\u306aRange\u3002\r\n    '  \u203b2\u3064\u76ee\u307e\u3067\u306e\u3084\u3064\u3082\u3001ListObject \u3092\u4f7f\u3063\u3066\u308b\u6642\u70b9\u3067\u3001\u3059\u3067\u306b\u76f8\u5bfe\u7684\u306a\u306e\u304b\u3082\u3002\uff09\r\n'    With o_List01.ListRows.Add(Position:=2)\r\n'     Let .Range(1) = 1\r\n'     Let .Range(2) = 1\r\n'    End With\r\n\r\n'    With o_List01.ListRows.Add(Position:=2)\r\n'     Let .Range(1, 1) = 1\r\n'     Let .Range(1, 2) = 1\r\n'    End With\r\n\r\n'    With o_List01.ListRows.Add(Position:=2)\r\n'     Let .Range.Range(\"A1\") = 1\r\n'     Let .Range.Range(\"B1\") = 1\r\n'    End With\r\n\r\n'    With o_List01.ListRows.Add(Position:=2)\r\n'     Let .Range.Columns(1) = 1\r\n'     Let .Range.Columns(2) = 1\r\n'    End With\r\n\r\n    With o_List01.ListRows.Add(Position:=2)\r\n      Let .Range.Cells(1, 1) = 1\r\n      Let .Range.Cells(1, 2) = 1\r\n    End With\r\n        \r\n    \r\n    '\u30e9\u30b9\u30c8\u884c\u306e\u4e0b\u306e\u65b0\u898f\u884c\u306b\u8ffd\u52a0\r\n    Let o_List01.ListRows.Add.Range = Array(7, 7)\r\n\r\n\r\nEnd Sub\r\n\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605 Range.Offset\u3067\u3001\uff11\u884c\u305a\u3064\u3092\u3001\u4e0b\u3078\u3001\u9078\u629e\u30fb\u79fb\u52d5\u306e\u5834\u5408<br \/>\n\u203bRange.Resize\u3067\u306e\u300c\u4e0b\u3078\u306e\u79fb\u52d5\u300d\u306e\u5834\u5408\u3082\u3001Offset\u3088\u308a\u3082\u30e9\u30af\u304b\u3082\uff1f\uff1f<br \/>\n\u305f\u3060\u3001\u30ab\u30a6\u30f3\u30bf\u5909\u6570\uff08\u7e70\u308a\u8fd4\u3057\u306e\u5024\uff09\u306f\u3001\u300c\u6700\u521d\u306e\u8907\u6570\u884c\u300d\u3092\u9078\u629e\u3057\u305f\u3044\u5834\u5408\u306a\u3069\u306f\u3001\u300c0\u30b9\u30bf\u30fc\u30c8\u300d\u306b\u306a\u3063\u3066\u3057\u307e\u3046\u3002<\/p>\n<p>'\uff11\u884c\u5206\u3092 i \u884c\u98db\u3070\u3057\u3067\u3002<br \/>\nActiveSheet.Range(\"A1:D1\").Offset(i * 3, 0).Address    <\/p>\n<p>'\uff11\u884c\u305a\u3064\u57fa\u6e96\u30bb\u30eb\u7bc4\u56f2\u5074\u3067\u79fb\u52d5<br \/>\n? ActiveSheet.Range(\"A\" & 2 & \":D\" & 2).Offset(1 , 0).Address<br \/>\n? ActiveSheet.Range(\"A\" & 3 & \":D\" & 3).Offset(1 , 0).Address<br \/>\n? ActiveSheet.Range(\"A\" & 4 & \":D\" & 4).Offset(1 , 0).Address<br \/>\n? ActiveSheet.Range(\"A\" & 5 & \":D\" & 5).Offset(1 , 0).Address<\/p>\n<p>? ActiveSheet.Range(\"A\" & i & \":D\" & i).Offset(1 , 0).Address<br \/>\n-- <\/p>\n<p>\u7d50\u5c40<\/p>\n<p>? ActiveSheet.Range(\"A\" & i & \":D\" & i).Address<br \/>\n\u3084<br \/>\n? ActiveSheet.Range(Cells(i,1),Cells(i,4)).Address<\/p>\n<p>\u3068\u3084\u308b\u304b\u3001\u4ee5\u964d\u306e\u3088\u3046\u306b\u3059\u308b\u304b\u306e\u3069\u3061\u3089\u304b\uff1f<\/p>\n<p>'\uff11\u884c\u305a\u3064\u3092\u3001\u57fa\u6e96\u30bb\u30eb\u7bc4\u56f2\u5074\u306e\u8a2d\u5b9a\u3067\u306f\u306a\u304f\u3001Range.Offset\u306e\u5074\u3067\u8a2d\u5b9a\u3057\u3066\u79fb\u52d5<br \/>\n\u8868\u306e\u5217\u540d\u306e\u30bb\u30eb\u3092\u6307\u5b9a\u3057\u3066\u300ci\u300d\u3092\u6700\u65b0\u884c\u306e\u6570\u5b57\u306b\u3059\u308b\u3002<br \/>\n\uff08\u8868\u306e\u5468\u56f2\u306b\u7a7a\u767d\u306e\u884c\u3084\u5217\u304c\u3042\u3063\u3066\u3082\uff09<\/p>\n<p>? ActiveSheet.Range(\"A1:D1\").Offset(0 , 0).Address<br \/>\n? ActiveSheet.Range(\"A1:D1\").Offset(1 , 0).Address<br \/>\n? ActiveSheet.Range(\"A1:D1\").Offset(2 , 0).Address<br \/>\n? ActiveSheet.Range(\"A1:D1\").Offset(3 , 0).Address<\/p>\n<p>? ActiveSheet.Range(\"A1:D1\").Offset(i , 0).Address<br \/>\n? ActiveSheet.Range(Cells(1,1),Cells(1,4)).Offset(i,0).Address<br \/>\n? ActiveSheet.Range(Cells(1),Cells(4)).Offset(i,0).Address<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>Range.Resize\u3067\u3001\uff11\u884c\u305a\u3064\u4e0b\u3078\u79fb\u52d5\u3059\u308b\u5834\u5408<\/p>\n<p>ActiveSheet.Cells(i,1).Resize(1,4).select<\/p>\n<p>\u2191\u300c\u8d77\u70b9\u306e\u30bb\u30eb\uff1d\u8d77\u70b9\u306eRange\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d\u3092\u8868\u73fe\u3059\u308b\u306e\u306b\u3001Range\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u4f7f\u308f\u305a\u306b\u3001Cells\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u4f7f\u3044\u307e\u3059\u3002<br \/>\nOffset\u3068\u9055\u3063\u3066\u300c\u8d77\u70b9\u306e\u30bb\u30eb\u7bc4\u56f2\u300d\u306e\u8a2d\u5b9a\u3092\u3059\u308b\u306e\u306b\u3001\u300c\u5358\u4e00\u30bb\u30eb\u3067\u6e08\u307e\u305b\u3089\u308c\u308b\u300d\uff1d\u300c1\u884c\u5206\u306e\u5168\u90e8\u306e\u30bb\u30eb\u3058\u3083\u306a\u304f\u3066\u3082\u3088\u3044\u300d\u304b\u3089\u3067\u3059\u3002<br \/>\nOffset\u306e\u8d77\u70b9\u30bb\u30eb\u7bc4\u56f2\u306e\u5834\u5408\u306f\u3001\u30bb\u30eb\u7bc4\u56f2\u3092\u300c\u884c\u306e\u5168\u90e8\u306e\u30bb\u30eb\u300d\u3092\u6307\u5b9a\u3057\u306a\u3044\u3068\u3044\u3051\u307e\u305b\u3093\u3002<br \/>\n\u30ab\u30a6\u30f3\u30bf\u5909\u6570\u306e i \u306f\u3001\uff11\u30b9\u30bf\u30fc\u30c8\u3067\u884c\u3051\u308b\u306e\u3067\u3001\u3053\u308c\u3082\u30e9\u30af\u3002<br \/>\n\u203b\u305f\u3060\u3057\u3001Offset\u3058\u3083\u306a\u3044\u3068\u30c0\u30e1\u306a\u30b1\u30fc\u30b9\u3082\u3082\u3061\u308d\u3093\u3042\u308b\u3068\u601d\u3044\u307e\u3059\u306e\u3067Resize\u3092\u5984\u4fe1\u3057\u3044\u306a\u3044\u3088\u3046\u306b\u3054\u6ce8\u610f\u3092\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n\uff1d\uff1d\uff1d<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\u2605 Range.Offset\u3067\u3001\u8907\u6570\u306e\u884c\u305a\u3064\u3092\u3001\u4e0b\u3078\u3001\u9078\u629e\u30fb\u79fb\u52d5\u306e\u5834\u5408<br \/>\n\u203bRange.Resize\u3067\u306e\u300c\u4e0b\u3078\u306e\u79fb\u52d5\u300d\u306e\u5834\u5408\u306f\u3001<br \/>\n\u300c1\u884c\u305a\u3064\u300d\u306a\u3089\u3001Offset\u3088\u308a\u3082\u30e9\u30af\u3060\u3051\u3069\u3001<br \/>\n\u300c\u8907\u6570\u884c\u305a\u3064\u300d\u3060\u3068\u3001\u3061\u3087\u3063\u3068\u8003\u3048\u65b9\u304c\u9762\u5012\u304f\u3055\u3044\u3002\u9006\u306b\u3001Offset\u306e\u65b9\u304c\u30e9\u30af\u3002<br \/>\n\u4e00\u756a\u6700\u5f8c\u306b\u4e8b\u4f8b\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n<p>\u5217\u69cb\u6210\u306f\u5909\u3048\u305a\u306b\u3001\u540c\u3058\u5217\u306b \uff12\u884c\u305a\u3064\u306e\u5834\u5408\uff08i \u306f \u300c\uff12\u884c\u305a\u3064\u306e i \u304f\u304f\u308a\u3081\u300d\u3068\u3044\u3046\u610f\u5473\u3067\u3059\u3002\uff09<br \/>\n? ActiveSheet.Range(Cells(1,1),Cells(2,4)).Offset(3*2,0).Address<br \/>\n$A$7:$D$8<br \/>\n$A$5:$D$6<br \/>\n$A$3:$D$4<br \/>\n$A$1:$D$2<br \/>\n\u3064\u307e\u308a\u3001<br \/>\n? ActiveSheet.Range(Cells(1,1),Cells(2,4)).Offset(i*2,0).Address<br \/>\ni\u306b\u306f\u300c0\u300d\u3092\u5165\u308c\u3066\u3082\u30a8\u30e9\u30fc\u306b\u306f\u306a\u3089\u306a\u3044\u3002<\/p>\n<p>\uff1d\uff1d\uff1d<\/p>\n<p>\u5217\u69cb\u6210\u306f\u5909\u3048\u305a\u306b\u3001\u540c\u3058\u5217\u306b \uff13\u884c\u305a\u3064\u306e\u5834\u5408<br \/>\n? ActiveSheet.Range(Cells(1,1),Cells(3,4)).Offset(3*3,0).Address<br \/>\n$A$7:$D$8<br \/>\n$A$5:$D$6<br \/>\n$A$3:$D$4<br \/>\n$A$1:$D$2<br \/>\n\u3064\u307e\u308a\u3001<br \/>\n? ActiveSheet.Range(Cells(1,1),Cells(3,4)).Offset(i*3,0).Address<br \/>\ni\u306b\u306f\u300c0\u300d\u3092\u5165\u308c\u3066\u3082\u30a8\u30e9\u30fc\u306b\u306f\u306a\u3089\u306a\u3044\u3002<\/p>\n<p>\uff1d\uff1d\uff1d<\/p>\n<p>\u5217\u69cb\u6210\u306f\u5909\u3048\u305a\u306b\u3001\u540c\u3058\u5217\u306b x \u884c\u305a\u3064\u306e\u5834\u5408<br \/>\n? ActiveSheet.Range(Cells(1,1),Cells(3,4)).Offset(3*3,0).Address<br \/>\n$A$7:$D$8<br \/>\n$A$5:$D$6<br \/>\n$A$3:$D$4<br \/>\n$A$1:$D$2<br \/>\n\u3064\u307e\u308a\u3001<br \/>\n? ActiveSheet.Range(Cells(1,1),Cells(x,4)).Offset(i*x,0).Address<br \/>\ni\u306b\u306f\u300c0\u300d\u3092\u5165\u308c\u3066\u3082\u30a8\u30e9\u30fc\u306b\u306f\u306a\u3089\u306a\u3044\u3002<\/p>\n<p>\u203b\u5217\u3082\u5909\u6570\u5316\u3057\u305f\u3044\u5834\u5408\u306f\u3001<br \/>\n? ActiveSheet.Range(Cells(FirstCelNum,l_ClmnStrt),Cells(x,l_ClmnEnd)).Offset(i*x,0).Address<br \/>\n\u307f\u305f\u3044\u306a\u611f\u3058\u3067\uff1f<br \/>\nFirstCelNum \u306f\u8907\u6570\u884c\u306e\u30bb\u30eb\u7bc4\u56f2\u306e\u5de6\u4e0a\u306e\u30bb\u30eb\u306e\u884c\u306e\u4f4d\u7f6e<br \/>\nl_ClmnStrt\u306f\u540c\u3058\u5de6\u4e0a\u306e\u30bb\u30eb\u306e\u5217\u306e\u4f4d\u7f6e<br \/>\nx \u306f\u304f\u304f\u308a\u305f\u3044\u884c\u6570\uff08\uff1d\u53f3\u4e0b\u306e\u30bb\u30eb\u306e\u884c\u306e\u4f4d\u7f6e\uff09<br \/>\nl_ClmnEnd\u306f\u53f3\u4e0b\u306e\u30bb\u30eb\u306e\u5217\u306e\u4f4d\u7f6e<\/p>\n<p>\u3082\u3046\u5c11\u3057\u7c21\u5358\u306b\u3059\u308b\u3068\u3001<br \/>\n? ActiveSheet.Range(Cells(AA,BB),Cells(x,CC)).Offset(i*x,0).Address<br \/>\n\u3067\u3001<br \/>\nAA \u306f \u8907\u6570\u884c\u306e\u30bb\u30eb\u7bc4\u56f2\u306e\u5de6\u4e0a\u306e\u30bb\u30eb\u306e\u884c\u306e\u4f4d\u7f6e<br \/>\nBB \u306f \u540c\u3058\u5de6\u4e0a\u306e\u30bb\u30eb\u306e\u5217\u306e\u4f4d\u7f6e<br \/>\nx \u306f\u304f\u304f\u308a\u305f\u3044\u884c\u6570\uff08\uff1d\u53f3\u4e0b\u306e\u30bb\u30eb\u306e\u884c\u306e\u4f4d\u7f6e\uff09<br \/>\nCC \u306f \u53f3\u4e0b\u306e\u30bb\u30eb\u306e\u5217\u306e\u4f4d\u7f6e<\/p>\n<p>\u30fb\u30fb\u30fb\u30fb\u3068\u3044\u3046\u611f\u3058\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605 Range.Resize\u3067\u3001\u8907\u6570\u306e\u884c\u305a\u3064\u3092\u3001\u4e0b\u3078\u3001\u9078\u629e\u30fb\u79fb\u52d5\u306e\u5834\u5408\uff08\u5217\u69cb\u6210\u306f\u56fa\u5b9a\uff09<br \/>\n\u203bRange.Resize\u3067\u306e\u300c\u4e0b\u3078\u306e\u79fb\u52d5\u300d\u306e\u5834\u5408\u3082\u3001Offset\u3088\u308a\u3082\u30e9\u30af\u304b\u3082\uff1f\uff1f<br \/>\n\u305f\u3060\u3001\u30ab\u30a6\u30f3\u30bf\u5909\u6570\uff08\u7e70\u308a\u8fd4\u3057\u306e\u5024\uff09\u306e i \u306f\u3001\u300c\u6700\u521d\u306e\u8907\u6570\u884c\u300d\u3092\u9078\u629e\u3057\u305f\u3044\u5834\u5408\u306a\u3069\u306f\u3001\u300c0\u30b9\u30bf\u30fc\u30c8\u300d\u306b\u306a\u3063\u3066\u3057\u307e\u3046\u3002<\/p>\n<p>ActiveSheet.Cells(i * x + 1, 1).Resize(x, 4).Select<\/p>\n<p>Cells(i*x+1,1) \u306a\u3069\u306e\u300c+1\u300d\u306f\u3001Range.Resize \u304c\u300c\uff11\u30b9\u30bf\u30fc\u30c8\u3060\u304b\u3089\uff1f\u300d<br \/>\n\u300cx\u300d\u306f\u8907\u6570\u884c\u306e\u884c\u6570\u6307\u5b9a\u3002\u3082\u3061\u308d\u3093\u300c\uff11\u884c\u300d\u306e\u610f\u5473\u3067\u300c\uff11\u300d\u3067\u6307\u5b9a\u3057\u3082OK\u3002<br \/>\n\u300ci\u300d\u306f\u3001\u300c\u304f\u304f\u308a\u300d\u3068\u3057\u3066\u306e\u7e70\u308a\u8fd4\u3057\u56de\u6570\u306e\u6307\u5b9a\u3002\u305f\u3060\u3057\u3001\u670d\u9808\u884c\u79fb\u52d5\u306e\u5834\u5408\u306f\u3001\u300e i \u306f\u300c\uff0b\uff11\u300d\u3057\u306a\u3044\u3068\u3044\u3051\u306a\u304f\u306a\u3063\u3066\u3057\u307e\u3046 \u300f\u305f\u3081\u3001\u305d\u308c\u306b\u5f15\u304d\u305a\u3089\u308c\u3066 i \u306e\u5024\u306f\u300c0\u30b9\u30bf\u30fc\u30c8\u300d\u306b\u3057\u306a\u3044\u3068\u3044\u3051\u306a\u3044\u3002<\/p>\n<p>\u3042\u3068\u3001\u300c\u8d77\u70b9\u306e\u30bb\u30eb\uff1d\u8d77\u70b9\u306eRange\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d\u3092\u8868\u73fe\u3059\u308b\u306e\u306b\u3001Range\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u4f7f\u308f\u305a\u306b\u3001Cells\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u4f7f\u3044\u307e\u3059\u3002<br \/>\nOffset\u3068\u9055\u3063\u3066\u300c\u8d77\u70b9\u306e\u30bb\u30eb\u7bc4\u56f2\u300d\u306e\u8a2d\u5b9a\u3092\u3059\u308b\u306e\u306b\u3001\u300c\u5358\u4e00\u30bb\u30eb\u3067\u6e08\u307e\u305b\u3089\u308c\u308b\u300d\uff1d\u300c1\u884c\u5206\u306e\u5168\u90e8\u306e\u30bb\u30eb\u3058\u3083\u306a\u304f\u3066\u3082\u3088\u3044\u300d\u304b\u3089\u3001Offset\u3058\u3083\u306a\u304f\u3066Resiza\u304c\u4f7f\u3048\u307e\u3059\u3002<br \/>\n\uff08Offset\u306e\u8d77\u70b9\u30bb\u30eb\u7bc4\u56f2\u306e\u6307\u5b9a\u306e\u5834\u5408\u306f\u3001\u30bb\u30eb\u7bc4\u56f2\u3092\u300c\u884c\u306e\u5168\u90e8\u306e\u30bb\u30eb\u300d\u3092\u6307\u5b9a\u3057\u306a\u3044\u3068\u3044\u3051\u307e\u305b\u3093\u3002\uff09<br \/>\n\u203b\u305f\u3060\u3057\u3001Offset\u3058\u3083\u306a\u3044\u3068\u30c0\u30e1\u306a\u30b1\u30fc\u30b9\u3082\u3082\u3061\u308d\u3093\u3042\u308b\u3068\u601d\u3044\u307e\u3059\u306e\u3067Resize\u3092\u5984\u4fe1\u3057\u3044\u306a\u3044\u3088\u3046\u306b\u3054\u6ce8\u610f\u3092\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u306a\u304a\u30012\u5217\u3081\uff5e4\u5217\u76ee\u307e\u3067\u306e\u300c3\u5217\u5206\u300d\u3067\u4e0b\u3078\u79fb\u52d5\u3059\u308b\u306a\u3089\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>ActiveSheet.Cells(i * x + 1, 2).Resize(x, 3).Select<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"\u2605 Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66 \uff5e ExcelVBA\u3067\u3001\u884c\uff11\u884c\u5206\u306e\u6307\u5b9a\u3084\u9078\u629e\u30fb\u633f\u5165\u30fb\u8ffd\u52a0\u306a\u3069\u306e\u65b9\u6cd5\u3001\u3044\u308d\u3044\u308d\u3002\uff08\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\u3092\u4f7f\u308f\u306a\u3044\u666e\u901a\u306e\u5834\u5408\u3068\u3001\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\u3092\u4f7f\u3046\u5834\u5408\uff09\uff5e\u30d7\u30e9\u30b9\u3001\u3064\u3044\u3067\u306b ...","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\/1764"}],"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=1764"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1764\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1764"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1764"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}