{"id":1531,"date":"2019-03-10T01:18:28","date_gmt":"2019-03-09T16:18:28","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1531"},"modified":"2019-08-02T12:04:11","modified_gmt":"2019-08-02T03:04:11","slug":"origin-tool-bar-add01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/origin-tool-bar-add01","title":{"rendered":"Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5e\u300c\u30de\u30af\u30ed\u306e\u8a18\u9332\u300d\u6a5f\u80fd\u306e\u5fdc\u7528\uff1aExcel2010\u306e\u30ea\u30dc\u30f3\u306b\u3001Excel2003\u6642\u4ee3\u306e\u53e4\u3044\u30e1\u30cb\u30e5\u30fc\u30d0\u30fc\u3084\u30e1\u30cb\u30e5\u30fc\u30dc\u30bf\u30f3\u3092\u597d\u304d\u306a\u3088\u3046\u306b\u8868\u793a\u3059\u308b\u65b9\u6cd5\u3002\u6614\u306e\u5370\u5237\u30c0\u30a4\u30a2\u30ed\u30b0\uff08\u61d0\u304b\u3057\u3044\uff01\uff09\u3068\u304b\u3001\u4f59\u767d\u8a2d\u5b9a\u306e\u753b\u9762\u304c\u51fa\u3066\u304d\u3066\u7b11\u3048\u307e\u3059\u3002\u3068\u3044\u3044\u307e\u3059\u304b\u3001\u3084\u306f\u308a\u610f\u5916\u3068\u4fbf\u5229\u306a\u9762\u3082\u3042\u308a\u307e\u3057\u305f\u3002\uff08\u57fa\u672c\u3001\u4e0d\u5b8c\u5168\u3060\u3057\u30012010\u4ee5\u964d\u306b\u6163\u308c\u3066\u3057\u307e\u308f\u308c\u305f\u65b9\u306f\u30a4\u30de\u30a4\u30c1\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u30fb\u30fb\u30fb\u3002\uff09\uff5e"},"content":{"rendered":"

Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5e\u300c\u30de\u30af\u30ed\u306e\u8a18\u9332\u300d\u6a5f\u80fd\u306e\u5fdc\u7528\uff1aExcel2010\u306e\u30ea\u30dc\u30f3\u306b\u3001Excel2003\u6642\u4ee3\u306e\u53e4\u3044\u30e1\u30cb\u30e5\u30fc\u30d0\u30fc\u3084\u30e1\u30cb\u30e5\u30fc\u30dc\u30bf\u30f3\u3092\u597d\u304d\u306a\u3088\u3046\u306b\u8868\u793a\u3059\u308b\u65b9\u6cd5\u3002\u6614\u306e\u5370\u5237\u30c0\u30a4\u30a2\u30ed\u30b0\uff08\u61d0\u304b\u3057\u3044\uff01\uff09\u3068\u304b\u3001\u4f59\u767d\u8a2d\u5b9a\u306e\u753b\u9762\u304c\u51fa\u3066\u304d\u3066\u7b11\u3048\u307e\u3059\u3002\u3068\u3044\u3044\u307e\u3059\u304b\u3001\u3084\u306f\u308a\u610f\u5916\u3068\u4fbf\u5229\u306a\u9762\u3082\u3042\u308a\u307e\u3057\u305f\u3002\uff08\u57fa\u672c\u3001\u4e0d\u5b8c\u5168\u3060\u3057\u30012010\u4ee5\u964d\u306b\u6163\u308c\u3066\u3057\u307e\u308f\u308c\u305f\u65b9\u306f\u30a4\u30de\u30a4\u30c1\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u30fb\u30fb\u30fb\u3002\uff09\uff5e
\n\u3000\u3000<\/SPAN>
\n\u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002<\/span>
\n\u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002<\/span>
\n\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>
\n\u3000\u3000<\/SPAN>
\n\u7d50\u5c40\u50d5\u306f\u3068\u3066\u3064\u3082\u306a\u3044\u30d0\u30ab\u3067\u3057\u305f\u3002\u4eca\u306f\u30af\u30a4\u30c3\u30af\u30c4\u30fc\u30eb\u30d0\u30fc\u3067\u307b\u3068\u3093\u3069\u9593\u306b\u5408\u3063\u3061\u3083\u3046\u3093\u3067\u3059\u306d\u3002\u305d\u3093\u306a\u3053\u3068\u3082\u77e5\u3089\u306a\u3044Excel\u97f3\u75f4\u3067\u3059\u3002\u3067\u3082\u3001\u7d50\u69cb\u8272\u3005\u3068\u308f\u304b\u308a\u307e\u3057\u305f\u306e\u3067\u3001\u30af\u30a4\u30c3\u30af\u30c4\u30fc\u30eb\u30d0\u30fc\u3060\u3051\u3067\u306f\u89e3\u6c7a\u3067\u304d\u306a\u3044\u8907\u6570\u306e\u30b3\u30de\u30f3\u30c9\u3092\u6df7\u305c\u305f\u30de\u30af\u30ed\u3084\u305d\u306e\u4ed6\u306e\u30de\u30af\u30ed\u3092\u300c\u30a2\u30c9\u30a4\u30f3\u300d\u30bf\u30d6\u306b\u914d\u7f6e\u3059\u308c\u3070\u3001\u305d\u308c\u306f\u305d\u308c\u3067\u5f79\u306b\u7acb\u3061\u305d\u3046\u306a\u6c17\u3082\u3057\u307e\u3059\u3002
\n\u672c\u8a18\u4e8b\u306f\u3001\u300cExcel\u306e\u6a5f\u80fd\u3092\u3061\u3083\u3093\u3068\u77e5\u3089\u306a\u3044\u30d0\u30ab\u304cVBA\u3092\u3044\u3058\u308b\u3068\u3053\u3046\u306a\u308b\u300d\u3001\u3068\u3044\u3046\u300c\u60aa\u3044\u898b\u672c\uff08\u50d5\uff09\u300d<\/b><\/span>\u3068\u3057\u3066\u3054\u6d3b\u7528\u304f\u3060\u3055\u3044\u3002<\/b><\/span><\/p>\n

\u3000\u2193\u3000\u3053\u3093\u306a\u30e1\u30cb\u30e5\u30fc\u3092\u30ea\u30dc\u30f3\u306e\u4e2d\u306b\u4f5c\u308a\u307e\u3059\u3002
\n\"\"<\/a><\/p>\n

\"\"<\/a><\/p>\n

\u203b \u672c\u8a18\u4e8b\u306f\u3001Excel2010\u306e32bit\u3067\u306e\u304a\u8a71\u3067\u3059\u3002\uff08\u307b\u304b\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u3067\u306f\u672a\u691c\u8a3c\u3067\u3059\u3002\uff09
\n\u305d\u3057\u3066\u3001\u57fa\u672c\u3001\u300c\u4e0d\u5b8c\u5168\u300d\u3067\u3059\u3002
\n\u307e\u305f\u3001Excel\u3092\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u3070\u304b\u308a\u3067\u64cd\u4f5c\u3059\u308b\u65b9\u306b\u306f\u3001\uff08\u3082\u3068\u3082\u3068\u4e0d\u5b8c\u5168\u306a\u8a71\u306a\u306e\u3067\uff09\u307e\u3063\u305f\u304f\u95a2\u4fc2\u306e\u306a\u3044\u30fb\u304b\u3048\u3063\u3066\u30b8\u30e3\u30de\u30fb\u304b\u3064\u30fb\u4f5c\u696d\u52b9\u7387\u3092\u843d\u3068\u3057\u304b\u306d\u306a\u3044\u8a71\u3067\u3059\u306e\u3067\u3001\u3082\u3057\u304b\u3057\u305f\u3089\u3042\u307e\u308a\u8aad\u307e\u306a\u3044\u307b\u3046\u304c\u3044\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\u300cExcel\u306e\u30a8\u30ad\u30b9\u30d1\u30fc\u30c8\u3067\u306f\u306a\u3044\u65b9\u3067\u3001\u3069\u3046\u306b\u3082\u30ea\u30dc\u30f3\u304c\u3081\u3093\u3069\u304f\u3055\u3044\u65b9\uff08\u50d5\u306f\u30b3\u30ec\u3002\uff09\u300d\u3001\u3042\u308b\u3044\u306f\u9006\u306bExcel\u3092\u5358\u306a\u308b\u95a2\u6570\u591a\u7528\u306e\u300c\u4f5c\u8868\u3070\u304b\u308a\u300d\u3067\u306f\u306a\u304f\u3001\u300c\u8d85\u591a\u89d2\u7684\u77ac\u9593\u96c6\u8a08\u8a08\u7b97\u6a5f\u30fb\u771f\u306e\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u300d\u3068\u3057\u3066\u3082\u4e21\u65b9\u3001\u5e38\u306b\u5229\u7528\u3057\u3066\u3044\u308b\u65b9\u3001\u3042\u308b\u3044\u306f\u3001\u81ea\u793e\u30e6\u30fc\u30b6\u30fc\u306b\u305d\u308c\u3089\u306e\u65b9\uff08\u7279\u306b\u524d\u8005\uff09\u304c\u591a\u3044\u3001\u3068\u3044\u3046\u30b1\u30fc\u30b9\u306e\u307b\u3046\u304c\u5f79\u306b\u7acb\u3064\u304b\u3082\u3057\u308c\u307e\u305b\u3093\uff08\u4e0b\u56f3\u53c2\u7167\uff09\u3002<\/b><\/span>
\n\u305f\u3060\u3001\u8abf\u3079\u3066\u307f\u307e\u3057\u305f\u308d\u3053\u308d\u3001\u4e00\u5fdc\u3001\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u3082\u4f7f\u3048\u308b\u3088\u3046\u3067\u3059\u306e\u3067\u3001\u305d\u306e\u610f\u5473\u3067\u306f\u3001\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u3092\u305f\u304f\u3055\u3093\u64cd\u4f5c\u3059\u308b\u65b9\u306b\u3082\u3044\u3044\u306e\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\u4f8b\u3048\u3070\u8907\u96d1\u306a\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u30dc\u30bf\u30f3\u5316\u3057\u305f\u3082\u306e\u3092\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u64cd\u4f5c\u304b\u3089\u5b9f\u884c\u3057\u305f\u3044\u5834\u5408\u306a\u3069\u3067\u3059\u3002
\n\u4e0b\u56f3\u306e\u5de6\u4e0a\u306b\u3044\u304f\u3064\u304b\u914d\u7f6e\u3055\u308c\u3066\u3044\u308b\u300c\u9ec4\u8272\u3044\u4e38\u3044\u30dc\u30bf\u30f3\u300d\u306e\u3088\u3046\u306a\u300c\u72ec\u81ea\u4f5c\u6210\u3057\u305f\u30d7\u30ed\u30b0\u30e9\u30e0\u30dc\u30bf\u30f3\u300d\u306e\u6570\u306b\u3088\u3063\u3066\u306f\u3001\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u3092\u62bc\u3059\u6570\u3082\u30012\/3\uff5e\u6700\u5927\u30671\/2\u304f\u3089\u3044\u306b\u6e1b\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002

\n\"\"<\/a>

\n\u4f8b\u3048\u3070\u4e0a\u56f3\u306e\u9ec4\u8272\u3044\u4e38\u3044\u30dc\u30bf\u30f3\u3067\u3001\u300cPvt\u751f\u621001\u300d\u3068\u3044\u3046\u30dc\u30bf\u30f3\u306b\u306f\u3001\u300e\u30bd\u30fc\u30b9\u306e\u8868\u306b\u5bfe\u3057\u3066\u81ea\u52d5\u7684\u306b\u3001\u5217\u3084\u884c\u304c\u5897\u3048\u3066\u3082\u518d\u8a2d\u5b9a\u304c\u4e0d\u8981\u306a\u540d\u524d\u306e\u5b9a\u7fa9\u3092\u3057\u3066\u30fb\u304b\u3064\u30fb\u30d4\u30dc\u30c3\u30c8\u30922010\u306e\u5f62\u5f0f\u3067\u81ea\u52d5\u4f5c\u6210\u3057\u30fb\u304b\u3064\u30fb\u8868\u793a\u3068\u64cd\u4f5c\u65b9\u6cd5\u3060\u3051\u6614\u306e\u30d4\u30dc\u30c3\u30c8\u3068\u540c\u3058\u306b\u3057\u30fb\u304b\u3064\u30fb\u30aa\u30d7\u30b7\u30e7\u30f3\u8a2d\u5b9a\u306a\u3069\u3082\u6e08\u307e\u305b\u305f\u3082\u306e\u3001\u304c\u3001\u30ef\u30f3\u30af\u30ea\u30c3\u30af\u3067\u5168\u81ea\u52d5\u3067\u4f5c\u308c\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\uff08\u300c\u30de\u30af\u30ed\u306e\u8a18\u9332\u300d\u6a5f\u80fd\u3067\u751f\u6210\u3055\u308c\u305f\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u30d9\u30fc\u30b9\u306b\u4f5c\u308a\u307e\u3057\u305f\uff09\u300f<\/b><\/span>\u304c\u4ed5\u8fbc\u3093\u3067\u3042\u308a\u307e\u3059\u3002
\n\u3053\u306e\u3088\u3046\u306a\u30dc\u30bf\u30f3\u3092\u3069\u308c\u3060\u3051\u4f5c\u3063\u3066\u3001\u305d\u308c\u3092\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u64cd\u4f5c\u3067\u3069\u308c\u3060\u3051\u64cd\u4f5c\u3067\u304d\u308b\u304b\u3001\u3068\u3044\u3046\u3053\u3068\u3092\u8003\u3048\u308b\u306e\u3082\u826f\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002
\n\u305f\u3060\u3001\u65b0\u3057\u3044\u30ad\u30fc\u64cd\u4f5c\u3092\u899a\u3048\u306a\u3044\u3068\u3044\u3051\u306a\u304f\u306a\u308b\u3057\u3001\u30af\u30a4\u30c3\u30af\u30c4\u30fc\u30eb\u30d0\u30fc\u3067\u3082\u30de\u30af\u30ed\u767b\u9332\u3084\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u64cd\u4f5c\u306f\u3067\u304d\u308b\u306e\u3067\u3001\u305d\u306e\u610f\u5473\u3067\u3001\u300c\u304b\u3048\u3063\u3066\u975e\u52b9\u7387\u306b\u306a\u308b\u304b\u3082\uff1f\u300d\u3001\u3068\u66f8\u304d\u307e\u3057\u305f\u3002\u7121\u99c4\u3001\u3068\u611f\u3058\u3089\u308c\u305f\u3089\u30b9\u30eb\u30fc\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/b><\/span>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u95a2\u9023\u8a18\u4e8b
\n\u300e\u300c\u30de\u30af\u30ed\u300d\u306e\u30ea\u30dc\u30f3\u3078\u306e\u30e1\u30cb\u30e5\u30fc\u30dc\u30bf\u30f3\u5316\u30fb\u95a2\u9023\u306e\u8a18\u4e8b5\u3064\u300f\u21921<\/a>\u30012<\/a>\u30013<\/a>\u30014<\/a>\u30015<\/a>
\n\u300e\u7528\u8a9e\uff1aExcel\u3084Word\u306b\u304a\u3051\u308b\u300c\u30de\u30af\u30ed\u300d\u3068\u306f\uff1fVBA\u3068\u4f55\u304c\u9055\u3046\uff1f\uff08\u300cExcel\u3084Word\u81ea\u8eab\u300d\u306f\u300c\u30de\u30af\u30ed\u300d\u3092\u3069\u3046\u5224\u5225\u30fb\u533a\u5225\u3057\u3066\u3044\u308b\u304b\uff1f\uff09Access\u306e\u5834\u5408\u306f\uff1f<\/a>\u300f<\/p>\n

\u2605 \u3054\u6ce8\u610f
\n\u3069\u3093\u306a\u4e0d\u5177\u5408\u304c\u51fa\u308b\u304b\u308f\u304b\u3089\u306a\u3044\u306e\u3067\u3001\u3042\u304f\u307e\u3067\u3082\u81ea\u5df1\u8cac\u4efb\u3067\u3088\u308d\u3057\u304f\u304a\u9858\u3044\u3044\u305f\u3057\u307e\u3059\u3002
\n\u53e4\u3044\u30e1\u30cb\u30e5\u30fc\u3084\u30dc\u30bf\u30f3\u306a\u306e\u3067\u3001\u5c11\u3057\u3001\u300c\u8868\u793a\u306f\u3055\u308c\u308b\u3051\u3069\u52d5\u304b\u306a\u3044\u300d\u3068\u3044\u3046\u3082\u306e\u3082\u3042\u308a\u307e\u3059\u3002
\n\u57fa\u672c\u3001\u300c\u4e0d\u5b8c\u5168\u300d\u3067\u3059\u3002<\/b><\/span>
\n\u591a\u5206\u3067\u3059\u3051\u3069\u30012007\u306e\u6a5f\u80fd\u304b\u3089\u5b8c\u5168\u306b\u524a\u9664\u3055\u308c\u3066\u3057\u307e\u3063\u305f\u3082\u306e\u306f\u30c0\u30e1\u306a\u3093\u3060\u3068\u601d\u3044\u307e\u3059\u3002
\n\uff08\u7279\u306b\u30aa\u30fc\u30c8\u30b7\u30a7\u30a4\u30d7\u7cfb\u3084\u300c\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u8868\u793a\u300d\u7cfb\u3001\u306a\u3069\u3002\uff09
\n\u7f6b\u7dda\u306e\u4e0b\u5074\u306e2\u91cd\u7dda\u306e\u30dc\u30bf\u30f3\u30821\u91cd\u306e\u7dda\u3057\u304b\u63cf\u753b\u3067\u304d\u307e\u305b\u3093\u3067\u3057\u305f\u3002<\/p>\n

\u305f\u3060\u3001\u9006\u306b\u8a00\u3046\u3068\u3001\u610f\u5916\u306b\u3082\u5272\u3068\u591a\u304f\u306e\u6570\u306e\u300c\u6614\u306e\u6a5f\u80fd\u300d\u304c\u300c2010\u300d\u306e\u4e2d\u306b\u306f\u6b8b\u3055\u308c\u3066\u3044\u305f\u30fb\u30fb\u30fb\u3068\u3082\u8a00\u3048\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3051\u3069\u30fb\u30fb\u30fb\u3002<\/p>\n

\u3042\u3068\u3001\u300c\u8ffd\u52a0\u300d\u306f\u6210\u529f\u3057\u3066\u3082\u300c\u8868\u793a\u300d\u306b\u5931\u6557\u3059\u308b\u30dc\u30bf\u30f3\u3082\u7d50\u69cb\u3042\u308a\u307e\u3059\u3002
\n\u305f\u3060\u3001\u4f55\u304b\u65b9\u6cd5\u304c\u3042\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u306e\u3067\u3001\u5148\u751f\u3084\u5148\u8f29\u306a\u3069\u306b\u805e\u3044\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n

\u3059\u3067\u306b\u300c\u90f5\u4fbf\u756a\u53f7\u30a6\u30a3\u30b6\u30fc\u30c9\u306e\u3088\u3046\u306a\u3082\u306e\u300d\u306e\u7d44\u307f\u8fbc\u307f\u7b49\u3005\u3067\u3001\u300c\u30a2\u30c9\u30a4\u30f3\u300d\u30bf\u30d6\u304c\u51fa\u3066\u3044\u308b\u5834\u5408\u3067\u3001\u304b\u3064\u3001\u305d\u306e\u30a6\u30a3\u30b6\u30fc\u30c9\u3092\u4e00\u756a\u6700\u5f8c\uff08\u4e00\u756a\u53f3\u5074\uff09\u306b\u5165\u308c\u66ff\u3048\u305f\u3044\u3068\u304d\u306f\u3001\u3044\u3063\u305f\u3093\u30a6\u30a3\u30b6\u30fc\u30c9\u3092\u524a\u9664\u3057\u3066\u304b\u3089\u5165\u308c\u306a\u304a\u3059\u3068\u5165\u308c\u66ff\u308f\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002
\n\u57fa\u672c\u3001\u767b\u9332\u3057\u305f\u9806\u756a\u306b\u4e26\u3076\u306e\u3067\u30fb\u30fb\u30fb\u3002<\/p>\n

\u305f\u3060\u3001\u672a\u691c\u8a3c\u3067\u3059\u3057\u3001\u30a6\u30a3\u30b6\u30fc\u30c9\u304c\u4f7f\u3048\u306a\u304f\u306a\u3063\u3066\u3057\u307e\u3046\u3068\u3044\u3051\u306a\u3044\u306e\u3067\u3001\u304a\u30b9\u30b9\u30e1\u306f\u3057\u307e\u305b\u3093\u3002\u305d\u306e\u5834\u5408\u306f\u3001\u4ed6\u306eExcel\u3067\u8a66\u3059\u3001\u306a\u3069\u3092\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u306f\u3058\u3081\u306b<\/p>\n

\u57fa\u672c\u3001Excel2003\u306e\u300c\u30de\u30af\u30ed\u306e\u8a18\u9332\u300d\u6a5f\u80fd\u3092\u4f7f\u3063\u3066\u30b3\u30fc\u30c9\u3092\u751f\u6210\u3057\u3001\u305d\u308c\u3092\u307b\u3068\u3093\u3069\u300c\u307e\u3093\u307e\u300d\u3067\u4f7f\u3044\u307e\u3057\u305f\u3002<\/p>\n

\u4f7f\u3044\u52dd\u624b\u306f\u7d50\u69cb\u3044\u3044\u3067\u3059\u3002\uff08\u3063\u3066\u3042\u305f\u308a\u307e\u3048\u304b\u3002\u3053\u308c\u3067\u80b2\u3063\u3066\u304d\u305f\u3093\u3067\u3059\u304b\u3089\u3002\u7b11\uff09
\n\u305f\u3060\u3001\u6700\u8fd12010\u306e\u30ea\u30dc\u30f3\u306b\u5c11\u3057\u6163\u308c\u3066\u304d\u305f\u306e\u3067\u3001\u9006\u306b\u82e5\u5e72\u6238\u60d1\u3046\u9762\u3082\u3042\u308a\u307e\u3059\u304c\u30fb\u30fb\u30fb\u3002<\/p>\n

\u3067\u3082\u3001\u305d\u306e\u3046\u3061\u307e\u305f\u3053\u3061\u3089\u306e\u307b\u3046\u304c\u3084\u308a\u3084\u3059\u304f\u306f\u306a\u308a\u305d\u3046\u3067\u3059\u3002\u30ef\u30f3\u30af\u30ea\u30c3\u30af\u30822\u30af\u30ea\u30c3\u30af\u3082\u6e1b\u3089\u305b\u305d\u3046\u30fb\u30fb\u30fb\u3002<\/p>\n

\u304a\u82e5\u3044\u65b9\u3067\u3001\u6614\u306e\u30a4\u30f3\u30bf\u30fc\u30d5\u30a7\u30a4\u30b9\uff08\u30e1\u30cb\u30e5\u30fc\u30d0\u30fc\uff09\u3092\u77e5\u3089\u306a\u3044\u4eba\u3067\u3082\u3001\u4f7f\u3063\u3066\u307f\u308b\u3068\u3001\u610f\u5916\u3068\u4fbf\u5229\u306b\u611f\u3058\u3066\u3082\u3089\u3048\u308b\u306e\u3067\u306f\u306a\u3044\u304b\u3068\u601d\u3044\u307e\u3059\u3002\u3088\u304f\u4f7f\u3046\u6a5f\u80fd\u306f\u3044\u3061\u3044\u3061\u30bf\u30d6\u3092\u5207\u308a\u66ff\u3048\u305f\u308a\u3001\u4f59\u8a08\u306a\u30dc\u30bf\u30f3\u3092\u62bc\u3055\u306a\u304f\u3066\u3082\u6e08\u3080\u306e\u3067\u30fb\u30fb\u30fb\u3002
\n\u30af\u30a4\u30c3\u30af\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u300c\u7d75\u3084\u6587\u8a00\u304c\u81ea\u7531\u306b\u5909\u3048\u3089\u308c\u308b\u7248\u300d\u307f\u305f\u3044\u306a\u611f\u3058<\/b><\/span>\u3067\u4f7f\u3048\u308b\u306e\u3067\u306f\u306a\u3044\u304b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

\u30ea\u30dc\u30f3\u306e\u30e1\u30cb\u30e5\u30fc\u307b\u3046\u306f\u300e \u6ec5\u591a\u306b\u4f7f\u308f\u306a\u3044\u6700\u65b0\u6a5f\u80fd\u306e\u5834\u6240 \u300f\u3060\u3051\u899a\u3048\u308c\u3070\u3044\u3044\u304b\u3089\u30e9\u30af\u306b\u306a\u308a\u305d\u3046\u3067\u3059\u3002<\/p>\n

\u3046\u307e\u304f\u52d5\u304b\u306a\u3044\u306a\u3044\u3068\u3053\u308d\u306f\u3001\u3086\u304f\u3086\u304f\u306f\u3001\u305d\u308c\u3082\u300c\u30de\u30af\u30ed\u306e\u8a18\u9332\u300d\u6a5f\u80fd\u3092\u5229\u7528\u3057\u3066\u3000\u3088\u308a\u5177\u4f53\u7684\u306aVBA\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u4f5c\u3063\u3066\u30dc\u30bf\u30f3\u5316\u3059\u308c\u3070\u3044\u3044\u306e\u3067\u3001\u307b\u3068\u3093\u3069\u3001\u3053\u306e\u300c\u30a2\u30c9\u30a4\u30f3\u300d\u30bf\u30d6\u3060\u3051\u3067\u4f5c\u696d\u3067\u304d\u3066\u3057\u307e\u3046<\/b><\/span>\u3068\u601d\u3044\u307e\u3059\u3002\uff08\u7279\u306b\u3001\u3082\u3068\u3082\u3068\u3001\u50d5\u306f\u3001Excel\u30e6\u30fc\u30b6\u30fc\u3058\u3083\u306a\u3044\u306e\u3067\u3053\u308c\u3060\u3051\u3042\u308c\u3070\u3001\u65e2\u306b\u307b\u3068\u3093\u3069\u306e\u30bf\u30d6\u306f\u3042\u307e\u308a\u4f7f\u3044\u307e\u305b\u3093\u30fb\u30fb\u30fb\u3002\uff09<\/p>\n

\u672c\u8a18\u4e8b\u306e\u30b5\u30f3\u30d7\u30eb\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u306f\u3001\u6d88\u3057\u305f\u308a\u51fa\u3057\u305f\u308a\u306f\u3044\u3064\u3067\u3082\u3067\u304d\u307e\u3059\uff082013\u30842016\u3067\u3082\u52d5\u304f\u304b\u3069\u3046\u304b\u306f\u672a\u691c\u8a3c\u3067\u3059\u306e\u3067\u3001\u3042\u304f\u307e\u3067\u3082\u81ea\u5df1\u8cac\u4efb\u3067\u304a\u4f7f\u3044\u304f\u3060\u3055\u3044\u3002\uff09<\/p>\n

\u3061\u306a\u307f\u306b\u3067\u3059\u304c\u30e1\u30cb\u30e5\u30fc\u30dc\u30bf\u30f3\u306e\u30a2\u30a4\u30b3\u30f3\u306e\u300c\u7d75\u300d\u306e\u5dee\u3057\u66ff\u3048\u306b\u3064\u3044\u3066\u3067\u3059\u304c\u3001\u3001\u4ee5\u524d\u30c6\u30b9\u30c8\u3057\u307e\u3057\u305f\u3068\u3053\u308d\u3001\u7d75\u3092\u81ea\u7531\u306b\u5909\u3048\u3089\u308c\u308b\u30dc\u30bf\u30f3\u306f\u591a\u3044\u3053\u3068\u306f\u591a\u3044\u3067\u3059\u304c\u3001\u305f\u3060\u3001\u4e00\u5fdc\u3001\u7a2e\u985e\u304c\u9650\u3089\u308c\u3066\u3044\u308b\u3088\u3046\u3067\u3059\u3002\u5168\u90e8\u304c\u5168\u90e8\u3001\u5909\u3048\u3089\u308c\u308b\u308f\u3051\u3067\u306f\u306a\u3044\u3063\u307d\u3044\u3067\u3059\u3002\u305f\u3060\u3001\u30cb\u30b3\u3061\u3083\u3093\u30de\u30fc\u30af\u306e\u3088\u3046\u306a\u30a2\u30a4\u30b3\u30f3\u306f\u5168\u90e8\u81ea\u7531\u306b\u5909\u3048\u3089\u308c\u307e\u3059\u3002
\n\u57fa\u672c\u3001\u30dc\u30bf\u30f3\u306b\u3057\u305f\u3044\u7d75\uff08\u30d3\u30c3\u30c8\u30de\u30c3\u30d7\u5f62\u5f0f\uff09\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u624b\u52d5\u3067\u30b3\u30d4\u30fc\u3057\u3066\u304b\u3089\u3001\u300cPastFace\u300d\u30e1\u30bd\u30c3\u30c9\u3092\u5b9f\u884c\u3059\u308b\u3068\u305d\u306e\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306e\u7d75\u304c\u8cbc\u308a\u3064\u3044\u3066\u633f\u3057\u5909\u308f\u308a\u307e\u3059\u3002
\n\u305d\u306e\u307b\u304b\u300cFaceId\u300d\u30d7\u30ed\u30d1\u30c6\u30a3\u3067\u65e2\u5b58\u306e\u7d75\u306b\u3057\u305f\u3044\u5834\u5408\u306f\u3001\u2192\u3053\u3061\u3089<\/a>\u3092\u3054\u53c2\u7167\u304f\u3060\u3055\u3044\u3002<\/p>\n

\u3053\u3061\u3089\uff08OfficeTANAKA\u69d8\uff09<\/a>\u3084 \u3053\u3061\u3089\uff08\u30ea\u30dc\u30f3\u306e\u541b\u3068SuyamaSoft\u3055\u307e\uff09<\/a> \u306eWeb\u30da\u30fc\u30b8\u3082\u3002<\/p>\n

\u305d\u306e\u307b\u304b\u3001\u3053\u3061\u3089\u2193\u3082\u3054\u53c2\u8003\u306b\u3002\uff082007\u4ee5\u964d\u3067\u3057\u304b\u4f7f\u3048\u306a\u3044\u6280\u3067\u3059\u304c\u30fb\u30fb\u30fb\u3002\uff09
\n\"\"<\/a>
\nhttp:\/\/suyamasoft.blue.coocan.jp\/Ribbon\/ReverseResolution\/get_idMso\/index.html<\/a><\/p>\n

\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<\/p>\n

\u3000\u2193\u3000\u3053\u3093\u306a\u611f\u3058\u306e\u30e1\u30cb\u30e5\u30fc\u3092\u3001\u30ea\u30dc\u30f3\u306e\u4e2d\u306b\u81ea\u4f5c\u3067\u304d\u307e\u3057\u305f\u3002
\n\"\"<\/a><\/p>\n

\u30ea\u30dc\u30f3\u306e\u8a2d\u5b9a\u3067\u3001\u300c\u30a2\u30c9\u30a4\u30f3\u300d\u30bf\u30d6\u306e\u9806\u4f4d\u3092\u4e00\u756a\u4e0a\u306b\u4e0a\u3052\u3066\u3001Excel\u3092\u958b\u3044\u305f\u3068\u304d\u306b\u4e00\u756a\u6700\u521d\u306b\u3053\u306e\u30e1\u30cb\u30e5\u30fc\u304c\u51fa\u308b\u3088\u3046\u306b\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

\u3068\u3063\u3066\u3082\u3089\u304f\u3061\u3093\u3067\u3059\uff01(^^)<\/p>\n

\u6614\u61d0\u304b\u3057\u3044\u3001\u5370\u5237\u30c0\u30a4\u30a2\u30ed\u30b0\uff08\u3055\u3063\u3068\u5370\u5237\u3059\u308b\u3060\u3051\u306a\u3089\u3001\u3084\u3063\u3071\u308a\u4fbf\u5229\u3067\u3059\u3002\uff09\u304c\u51fa\u3066\u304f\u308b\u306e\u3067\u7b11\u3048\u307e\u3059\u3002(^^)\u3000\u307e\u305f\u3001\u30dc\u30bf\u30f3\u306e\u30ef\u30f3\u30af\u30ea\u30c3\u30af\u3067\u306e\u300c\u30c0\u30a4\u30a2\u30ed\u30b0\u8a2d\u5b9a\u7121\u3057\u306e\u3044\u304d\u306a\u308a\u5370\u5237\u300d\u3082\u3067\u304d\u307e\u3057\u305f\u3002\u61d0\u304b\u3057\u3044\u30fb\u30fb\u30fb\u3002\u3057\u3001\u3084\u3063\u3071\u308a\u4fbf\u5229\u30fb\u30fb\u30fb\u3002
\n\u300c\u7d76\u5bfe\u306b2\u679a\u306b\u306a\u308b\u308f\u3051\u306a\u3044\u300d\u3068\u3044\u3046\u5370\u5237\u3092\u3059\u3050\u306b\u3067\u304d\u307e\u3059\u306e\u3067\u30fb\u30fb\u30fb\u3002<\/p>\n

\u3082\u3061\u308d\u3093\u3001\u6614\u306e\u4f59\u767d\u8a2d\u5b9a\u306e\u3088\u3046\u306b\u3001\u70b9\u7dda\u3092\u4e0a\u4e0b\u5de6\u53f3\u306b\u30c9\u30e9\u30c3\u30b0\u3057\u3066\u30d8\u30c3\u30c0\uff08\uff1f\uff09\u3084\u4f59\u767d\u3092\u81ea\u7531\u306b\u8a2d\u5b9a\u3059\u308b\u753b\u9762\u3082\u51fa\u307e\u3059\u3002\uff08\u30d7\u30ec\u30d3\u30e5\u30fc\u753b\u9762\uff09<\/p>\n

\"\"<\/a><\/p>\n

\u306a\u304a\u3001\u3053\u306e\u30a2\u30c9\u30a4\u30f3\u30bf\u30d6\u306e\u300c\u8868\u793a\u300d\u2192\u300c\u30c4\u30fc\u30eb\u30d0\u30fc\u300d\u3067\u975e\u8868\u793a\u306b\u3067\u304d\u308b\u30c4\u30fc\u30eb\u30d0\u30fc\u3082\u3042\u308a\u307e\u3059\u3002\uff08\u8868\u793a\u2192\u30c4\u30fc\u30eb\u30d0\u30fc\u3001\u306e\u4e2d\u306e\u30e1\u30cb\u30e5\u30fc\u306f\u4f7f\u3048\u306a\u3044\u3082\u306e\u304c\u307b\u3068\u3093\u3069\u3067\u3059\u304c\u3002\uff09<\/p>\n

\u4f59\u8a08\u306a\u30c4\u30fc\u30eb\u30d0\u30fc\u3092\u6d88\u3059\u3068\u3001\u4eca\u56de\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u306f\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u30c4\u30fc\u30eb\u30d0\u30fc\u69cb\u6210\u3068\u306a\u308a\u307e\u3059\u3002
\n\"\"<\/a><\/p>\n

\u3053\u308c\u4ee5\u4e0a\uff08\u6a2a\u5e45\u306b\u53ce\u307e\u3089\u306a\u3044\u304f\u3089\u3044\uff09\u3001\u7a2e\u985e\u304c\u5897\u3048\u308b\u3068\u3001\u30e1\u30cb\u30e5\u30fc\u5168\u4f53\u304c\u5de6\u53f3\u306b\u30b9\u30af\u30ed\u30fc\u30eb\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002\uff09<\/p>\n

\u307e\u305f\u3001\u753b\u9762\u3044\u3063\u3071\u3044\u306b\u3059\u308b\u3068\u3001\u4e0b\u56f3\u306e\u3088\u3046\u306b\u5272\u3068\u307e\u3060\u672a\u4f7f\u7528\u90e8\u5206\u304c\u3042\u308a\u307e\u3059\u3002
\n\u81ea\u4f5c\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u30dc\u30bf\u30f3\u5316\u3057\u305f\u3082\u306e\u3082\u3001\u305d\u3053\u305d\u3053\u4f5c\u308c\u305d\u3046\u3067\u3059\u3002
\n\u9006\u306b\u3001\u305d\u3046\u3044\u3046\u3082\u306e\u3070\u3063\u304b\u308a\u306b\u3057\u3066\u4f7f\u3046\u306e\u3082\u3044\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002
\n\"\"<\/a>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u30c4\u30fc\u30eb\u30d0\u30fc\u3092\u8ffd\u52a0\u3059\u308b\u30b3\u30fc\u30c9\u30fb\u524a\u9664\u3059\u308b\u30b3\u30fc\u30c9
\n\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3092\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u30b3\u30d4\u30da\u3057\u3066\u3001OrgBarAdd() \u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001\u30c4\u30fc\u30eb\u30d0\u30fc\u304c\u767b\u9332\u3055\u308c\u307e\u3059\u3002
\nOrgBarDel()\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001\u5168\u90e8\u524a\u9664\u3055\u308c\u3066\u3001\u30ea\u30dc\u30f3\u304b\u3089\u6d88\u3048\u307e\u3059\u3002<\/p>\n

\u203b\u3069\u3093\u306a\u4e0d\u5177\u5408\u304c\u51fa\u308b\u304b\u308f\u304b\u3089\u306a\u3044\u306e\u3067\u3001\u3042\u304f\u307e\u3067\u3082\u81ea\u5df1\u8cac\u4efb\u3067\u3088\u308d\u3057\u304f\u304a\u9858\u3044\u3044\u305f\u3057\u307e\u3059\u3002<\/p>\n

\r\n'\r\n'\r\nOption Explicit\r\n\r\n\r\n'###############################################################################\r\n'\u30a2\u30c9\u30a4\u30f3\u30bf\u30d6\u306b\u3001\u3088\u304f\u4f7f\u3046\u30a2\u30a4\u30b3\u30f3\u3092\u8868\u793a\uff08\u81ea\u4f5c\u30c4\u30fc\u30eb\u30d0\u30fc\u306b\u3066\uff09\r\n'\u81ea\u4f5c\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u30926\u500b\u3001\u8868\u793a\u3055\u305b\u307e\u3059\u3002\r\n'\u81ea\u52d5\u7684\u306b\u300c\u30a2\u30c9\u30a4\u30f3\u300d\u30bf\u30d6\u304c\u751f\u6210\u3055\u308c\u3001\u305d\u3053\u306b\u3067\u304d\u3042\u304c\u308a\u307e\u3059\u3002\r\n'\uff08\u30a2\u30c9\u30a4\u30f3\u30bf\u30d6\u304c\u3059\u3067\u306b\u8868\u793a\u3055\u308c\u3066\u3044\u308c\u3070\u3001\u305d\u3053\u306b\u8868\u793a\u3055\u308c\u307e\u3059\u3002\uff09\r\n'###############################################################################\r\n\r\nSub OrgBarAdd()\r\n\r\n    Call NewCmdAddTest01\r\n    Call NewCmdAddTest02\r\n    Call NewCmdAddTest03\r\n    Call NewCmdAddTest04\r\n    Call NewCmdAddTest05\r\n    Call NewCmdAddTest06\r\n\r\nEnd Sub\r\n\r\n\r\n\r\n\r\n'###############################################################################\r\n'\u81ea\u4f5c\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u524a\u9664\r\n'6\u3064\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u3092\u3059\u3079\u3066\u524a\u9664\u3057\u307e\u3059\u3002\r\n'\u8ffd\u52a0\u3055\u308c\u305f\u6614\u306e\u300c\u30d5\u30a1\u30a4\u30eb\u300d\u2192\u8868\u793a\u2192\u30c4\u30fc\u30eb\u30d0\u30fc\u304b\u3089\u3001\r\n'\u300c\u975e\u8868\u793a\u300d\u306b\u3059\u308b\u3053\u3068\u3082\u3067\u304d\u307e\u3059\u3002\r\n'###############################################################################\r\n\r\nSub OrgBarDel()\r\n\r\n    Application.CommandBars(\"CSTMBar01_Std01\").Delete\r\n    Application.CommandBars(\"CSTMBar02_Main01\").Delete\r\n    Application.CommandBars(\"CSTMBar03_Font01\").Delete\r\n    Application.CommandBars(\"CSTMBar04_FontFilterSort01\").Delete\r\n    Application.CommandBars(\"CSTMBar05_DataOpe01\").Delete\r\n    Application.CommandBars(\"CSTMBar06_ShapeObj01\").Delete\r\n\r\nEnd Sub\r\n\r\n\r\n\r\n\r\n'###############################################################################\r\n'1\u3064\u76ee\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u8ffd\u52a0\r\n'\u6614\u306e2003\u6642\u4ee3\u306e\u30e1\u30cb\u30e5\u30fc\u30d0\u30fc\u3092\u300c\u30a2\u30c9\u30a4\u30f3\u300d\u30bf\u30d6\u306b\u8868\u793a\u3055\u305b\u307e\u3059\u3002\r\n'\u30d5\u30a1\u30a4\u30eb\u2192\u5370\u5237\u3001\u306a\u3069\u3067\u3001\u61d0\u304b\u3057\u3044\u6614\u306e\u30c0\u30a4\u30a2\u30ed\u30b0\u304c\u51fa\u3066\u304d\u3066\u3001\u7b11\u3048\u307e\u3059\u3002(^^)\r\n'###############################################################################\r\n\r\nSub NewCmdAddTest01()\r\n\r\n    Dim CmdBar01 As CommandBar\r\n    Dim CmdBarCrtls01 As CommandBarControls\r\n    \r\n    '\u7a7a\u306e\u65b0\u3057\u3044\u30e1\u30cb\u30e5\u30fc\u3092\u4f5c\u6210\r\n    Set CmdBar01 = Application.CommandBars.Add()  '\r\n           \r\n    CmdBar01.Name = \"CSTMBar01_Std01\"\r\n    CmdBar01.Visible = True\r\n    \r\n    Set CmdBarCrtls01 = CmdBar01.Controls\r\n\r\n    'With\u306f\u898b\u3065\u3089\u304f\u3066\u3042\u307e\u308a\u597d\u304d\u3067\u306f\u306a\u3044\u306e\u3067\u3001\u4f7f\u3063\u3066\u3044\u307e\u305b\u3093\u3002\r\n    CmdBarCrtls01.Add Type:=msoControlPopup, ID:=30002, Before:=1       '\u30d5\u30a1\u30a4\u30eb(&F)\r\n    CmdBarCrtls01.Add Type:=msoControlPopup, ID:=30003, Before:=2       '\u7de8\u96c6(&E)\r\n    CmdBarCrtls01.Add Type:=msoControlPopup, ID:=30004, Before:=3       '\u8868\u793a\r\n    CmdBarCrtls01.Add Type:=msoControlPopup, ID:=30005, Before:=4       '\u633f\u5165\r\n    CmdBarCrtls01.Add Type:=msoControlPopup, ID:=30006, Before:=5       '\u66f8\u5f0f\r\n    CmdBarCrtls01.Add Type:=msoControlPopup, ID:=30007, Before:=6       '\u30c4\u30fc\u30eb\r\n    CmdBarCrtls01.Add Type:=msoControlPopup, ID:=30011, Before:=7       '\u30c7\u30fc\u30bf\r\n    CmdBarCrtls01.Add Type:=msoControlPopup, ID:=30009, Before:=8       '\u30a6\u30a3\u30f3\u30c9\u30a6\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=298, Before:=9        '\u6574\u5217\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=443, Before:=10       '\u30a6\u30a3\u30f3\u30c9\u30a6\u67a0\u306e\u56fa\u5b9a(&F)\r\n\r\nEnd Sub\r\n\r\n\r\n\r\n\r\n'###############################################################################\r\n'2\u3064\u76ee\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u8ffd\u52a0\r\n'\u5206\u985e\u3057\u3065\u3089\u3044\u3001\u3067\u3082\u3001\u308f\u308a\u3068\u4f7f\u3046\u3082\u306e\u3092\u9069\u5f53\u306b\u96c6\u3081\u307e\u3057\u305f\u3002\r\n'###############################################################################\r\n\r\nSub NewCmdAddTest02()\r\n\r\n    Dim CmdBar01 As CommandBar\r\n    Dim CmdBarCrtls01 As CommandBarControls\r\n    \r\n    '\u7a7a\u306e\u65b0\u3057\u3044\u30e1\u30cb\u30e5\u30fc\u3092\u4f5c\u6210\r\n    Set CmdBar01 = Application.CommandBars.Add()  '\r\n           \r\n    CmdBar01.Name = \"CSTMBar02_Main01\"\r\n    CmdBar01.Visible = True\r\n    \r\n    Set CmdBarCrtls01 = CmdBar01.Controls\r\n\r\n    'With\u306f\u898b\u3065\u3089\u304f\u3066\u3042\u307e\u308a\u597d\u304d\u3067\u306f\u306a\u3044\u306e\u3067\u3001\u4f7f\u3063\u3066\u3044\u307e\u305b\u3093\u3002\r\n    CmdBarCrtls01.Add ID:=108, Before:=1        '\u66f8\u5f0f\u306e\u30b3\u30d4\u30fc\/??\u8cbc\u308a\u4ed8\u3051(&F)\r\n    CmdBarCrtls01.Add ID:=2521, Before:=2       '\u30af\u30a4\u30c3\u30af\u5370\u5237(&Q)\r\n    CmdBarCrtls01.Add ID:=109, Before:=3        '\u5370\u5237??\u30d7\u30ec\u30d3\u30e5\u30fc(&V)\r\n'    CmdBarCrtls01.Add Type:=msoControlButton, ID:=866, Before:=4        '\u518d\u8868\u793a(&U)...\r\n\r\n\r\n    CmdBarCrtls01.Add ID:=2950, Before:=4                            '\u300c\u518d\u8868\u793a\u300d\u30dc\u30bf\u30f3\u3092\u672c\u30c4\u30fc\u30eb\u30d0\u30fc\u306e4\u3064\u76ee\u306e\u30dc\u30bf\u30f3\u3068\u3057\u3066\u8ffd\u52a0\u3057\u307e\u3059\u3002\u300c\u30de\u30af\u30ed\u300d\u30dc\u30bf\u30f3\u3068\u3057\u3066\u8ffd\u52a0\u3057\u307e\u3059\u3002\r\n    CmdBarCrtls01(4).Style = msoButtonIconAndCaption                 ' \u30dc\u30bf\u30f3\u306e\u8868\u793a\u5f62\u5f0f\u3092\u300c\u30a4\u30e1\u30fc\u30b8\u3068\u30c6\u30ad\u30b9\u30c8\u300d\u306b\u3059\u308b\u3002\r\n    CmdBarCrtls01(4).Caption = \"\u518d\u8868\u793a(&C)\"                           ' \u30dc\u30bf\u30f3\u306e\u300c\u30c6\u30ad\u30b9\u30c8\u300d\u90e8\u5206\u3092\u3001\u300c\u518d\u8868\u793a(&C)\u300d\u306b\u5909\u66f4\u3059\u308b\u3002\u300c(&C)\u300d\u3092\u4ed8\u3051\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3002\r\n    CmdBarCrtls01(4).OnAction = \"ClmnRowAllVisible01\"                ' \u30dc\u30bf\u30f3\u3092\u300cClmnRowAllVisible01()\u300d\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3068\u95a2\u9023\u4ed8\u3051\u308b\r\n\r\n    CmdBarCrtls01.Add Type:=msoControlComboBox, ID:=1733, Before:=5    '\u30ba\u30fc\u30e0(&Z):\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=444, Before:=6       '\u753b\u9762\u8868\u793a\u62e1\u5927(&Z)\r\n    CmdBarCrtls01.Add ID:=445, Before:=7                               '\u753b\u9762\u8868\u793a\u7e2e\u5c0f(&Z)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=2034, Before:=8      '\u5165\u529b\u898f\u5247(&L)...\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=3058, Before:=9      '\u6761\u4ef6\u4ed8\u304d\u66f8\u5f0f(&D)...\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=855, Before:=10      '\u30bb\u30eb(&E)...\r\n'CmdBarCrtls01.Add Type:=msoControlButton, ID:=755, Before:=11         '\u5f62\u5f0f\u3092\u9078\u629e\u3057\u3066\u8cbc\u308a\u4ed8\u3051(&S)...\r\nEnd Sub\r\n\r\n\r\n'###############################################################################\r\n'\u4e0a\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u300c\u518d\u8868\u793a\u300d\u30dc\u30bf\u30f3\u304b\u3089\u547c\u3073\u51fa\u3059\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\uff08\u30d7\u30ed\u30b0\u30e9\u30e0\uff09\r\n'\u975e\u8868\u793a\u8a2d\u5b9a\u3055\u308c\u305f\u884c\u3068\u5217\u3092\u3059\u3079\u3066\u518d\u8868\u793a\u3002\r\n'###############################################################################\r\n\r\nSub ClmnRowAllVisible01()\r\n\r\n    Application.ScreenUpdating = False\r\n    Application.Cells.Select                                   '\u5168\u3066\u306e\u5217\u3068\u884c\u3092\u9078\u629e\u3059\u308b\u30dc\u30bf\u30f3\u3092\u62bc\u3059\u64cd\u4f5c\u3068\u540c\u7b49\u306e\u30b3\u30fc\u30c9\r\n    Application.Selection.EntireColumn.Hidden = False          '\u96a0\u308c\u305f\u5217\u3092\u8868\u793a\r\n    Application.Selection.EntireRow.Hidden = False             '\u96a0\u308c\u305f\u884c\u3092\u8868\u793a\r\n    Application.ActiveWorkbook.ActiveSheet.Range(\"A1\").Select  'A1\u30bb\u30eb\u3092\u9078\u629e\u3002\r\n    Application.ScreenUpdating = True\r\n    \r\nEnd Sub\r\n\r\n\r\n\r\n\r\n'###############################################################################\r\n'\uff13\u3064\u3081\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u8ffd\u52a0\r\n'\u30d5\u30a9\u30f3\u30c8\u95a2\u9023\u306e\u3082\u306e\u3092\u4e3b\u306b\u96c6\u3081\u3066\u307f\u307e\u3057\u305f\u3002\r\n'###############################################################################\r\n\r\nSub NewCmdAddTest03()\r\n\r\n    Dim CmdBar01 As CommandBar\r\n    Dim CmdBarCrtls01 As CommandBarControls\r\n    \r\n    '\u7a7a\u306e\u65b0\u3057\u3044\u30e1\u30cb\u30e5\u30fc\u3092\u4f5c\u6210\r\n    Set CmdBar01 = Application.CommandBars.Add()  '\r\n           \r\n    CmdBar01.Name = \"CSTMBar03_Font01\"\r\n    CmdBar01.Visible = True\r\n    \r\n    Set CmdBarCrtls01 = CmdBar01.Controls\r\n\r\n\r\n    'With\u306f\u898b\u3065\u3089\u304f\u3066\u3042\u307e\u308a\u597d\u304d\u3067\u306f\u306a\u3044\u306e\u3067\u3001\u4f7f\u3063\u3066\u3044\u307e\u305b\u3093\u3002\r\n    CmdBarCrtls01.Add Type:=msoControlComboBox, ID:=1728, Before:=1    '\u30d5\u30a9\u30f3\u30c8(&F):\r\n    CmdBarCrtls01.Add Type:=msoControlComboBox, ID:=1731, Before:=2    '\u30d5\u30a9\u30f3\u30c8 \u30b5\u30a4\u30ba (&F):\r\n    CmdBarCrtls01.Add ID:=401, Before:=3                               '\u30d5\u30a9\u30f3\u30c8\u8272\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=113, Before:=4       '\u592a\u5b57(&B)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=115, Before:=5       '\u4e0b\u7dda(&U)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=120, Before:=6       '\u5de6\u63c3\u3048(&L)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=122, Before:=7       '\u4e2d\u592e\u63c3\u3048(&C)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=121, Before:=8       '\u53f3\u63c3\u3048(&R)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=123, Before:=9       '\u4e21\u7aef\u63c3\u3048(&J)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=405, Before:=10      '\u7e26\u66f8\u304d\u30c6\u30ad\u30b9\u30c8(&V)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=139, Before:=11      '\u30c6\u30ad\u30b9\u30c8 \u30dc\u30c3\u30af\u30b9(&X)\r\n    \r\nEnd Sub\r\n\r\n\r\n\r\n\r\n'###############################################################################\r\n'4\u3064\u76ee\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\r\n'\u7f6b\u7dda\u3068\u30d5\u30a3\u30eb\u30bf\u30fb\u4e26\u3079\u66ff\u3048\u95a2\u9023\u306e\u3082\u306e\u3092\u96c6\u3081\u3066\u307f\u307e\u3057\u305f\u3002\r\n'###############################################################################\r\nSub NewCmdAddTest04()\r\n\r\n    Dim CmdBar01 As CommandBar\r\n    Dim CmdBarCrtls01 As CommandBarControls\r\n    \r\n    '\u7a7a\u306e\u65b0\u3057\u3044\u30e1\u30cb\u30e5\u30fc\u3092\u4f5c\u6210\r\n    Set CmdBar01 = Application.CommandBars.Add()  '\r\n           \r\n    CmdBar01.Name = \"CSTMBar04_FontFilterSort01\"\r\n    CmdBar01.Visible = True\r\n    Set CmdBarCrtls01 = CmdBar01.Controls\r\n    \r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=798, Before:=1              '\u30bb\u30eb\u306e\u7d50\u5408(&M)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=800, Before:=2              '\u30bb\u30eb\u7d50\u5408\u306e\u89e3\u9664\r\n    CmdBarCrtls01.Add Type:=msoControlSplitButtonPopup, ID:=203, Before:=3    '\u7f6b\u7dda(&B)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=151, Before:=4              '\u7f6b\u7dda\u306e\u30af\u30ea\u30a2\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=150, Before:=5              '\u5916\u67a0(&O)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=1704, Before:=6             '\u683c\u5b50(&A)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=1699, Before:=7             '\u4e0b\u4e8c\u91cd\u7f6b\u7dda(&B)\r\n    CmdBarCrtls01.Add Type:=msoControlSplitButtonPopup, ID:=203, Before:=8    '\u7f6b\u7dda\u30c9\u30ed\u30c3\u30d7\u30c0\u30a6\u30f3\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=458, Before:=9              '\u30aa\u30fc\u30c8\u30d5\u30a3\u30eb\u30bf(&F)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=901, Before:=10             '\u30d5\u30a3\u30eb\u30bf \u30aa\u30d7\u30b7\u30e7\u30f3\u306e\u8a2d\u5b9a(&A)...\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=210, Before:=11             '\u6607\u9806\u3067\u4e26\u3079\u66ff\u3048(&A)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=211, Before:=12             '\u964d\u9806\u3067\u4e26\u3079\u66ff\u3048(&C)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=928, Before:=13             '\u4e26\u3079\u66ff\u3048(&S)...\r\n\r\nEnd Sub\r\n\r\n\r\n\r\n'###############################################################################\r\n'5\u3064\u3081\u3002\u5916\u90e8\u30c7\u30fc\u30bf\u3084\u305d\u308c\u306b\u304b\u3089\u3080\u3082\u306e\u306a\u3069\u3002\r\n'###############################################################################\r\n\r\nSub NewCmdAddTest05()\r\n\r\n    Dim CmdBar01 As CommandBar\r\n    Dim CmdBarCrtls01 As CommandBarControls\r\n    \r\n    '\u7a7a\u306e\u65b0\u3057\u3044\u30e1\u30cb\u30e5\u30fc\u3092\u4f5c\u6210\r\n    Set CmdBar01 = Application.CommandBars.Add()  '\r\n           \r\n    CmdBar01.Name = \"CSTMBar05_DataOpe01\"\r\n    CmdBar01.Visible = True\r\n    Set CmdBarCrtls01 = CmdBar01.Controls\r\n    \r\n    CmdBarCrtls01.Add Type:=msoControlPopup, ID:=30023, Before:=1      '\u540d\u524d(&N)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=1951, Before:=2      '\u30c7\u30fc\u30bf\u7bc4\u56f2\u30d7\u30ed\u30d1\u30c6\u30a3(&A)\r\n    CmdBarCrtls01.Add Type:=msoControlPopup, ID:=30101, Before:=3      '\u5916\u90e8\u30c7\u30fc\u30bf\u306e\u53d6\u308a\u8fbc\u307f\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=1952, Before:=4      '\u3059\u3079\u3066\u66f4\u65b0(&A)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=459, Before:=5       '\u30c7\u30fc\u30bf\u306e\u66f4\u65b0(&R)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=1950, Before:=6      '\u30af\u30a8\u30ea\u306e\u7de8\u96c6(&E)...\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=2186, Before:=7      '\u65b0\u3057\u3044\u30de\u30af\u30ed\u306e\u8a18\u9332(&R)...\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=548, Before:=8       '\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb \u30c4\u30fc\u30eb\u30dc\u30c3\u30af\u30b9(&O)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=960, Before:=9       '\u518d\u8a08\u7b97\u5b9f\u884c(&C)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=1957, Before:=10     '\u30b0\u30e9\u30d5(&H)...\r\n\r\n\r\nEnd Sub\r\n\r\n\r\n\r\n\r\n'###############################################################################\r\n'\uff16\u3064\u3081\u3002\u30aa\u30fc\u30c8\u30b7\u30a7\u30a4\u30d7\u307e\u308f\u308a\u3001\u306a\u3069\u3002\r\n'\u3067\u3082\u306a\u305c\u304b\u77e2\u5370\u304c\u3072\u3051\u306a\u304b\u3063\u305f\u308a\u3067\u3001\u3042\u307e\u308a\u4f7f\u3048\u307e\u305b\u3093\u3067\u3057\u305f\u3002\r\n'###############################################################################\r\n\r\nSub NewCmdAddTest06()\r\n\r\n    Dim CmdBar01 As CommandBar\r\n    Dim CmdBarCrtls01 As CommandBarControls\r\n    \r\n    '\u7a7a\u306e\u65b0\u3057\u3044\u30e1\u30cb\u30e5\u30fc\u3092\u4f5c\u6210\r\n    Set CmdBar01 = Application.CommandBars.Add()  '\r\n           \r\n    CmdBar01.Name = \"CSTMBar06_ShapeObj01\"\r\n    CmdBar01.Visible = True\r\n    Set CmdBarCrtls01 = CmdBar01.Controls\r\n    \r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=1119, Before:=1               '\u6955\u5186(&O)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=1111, Before:=2               '\u56db\u89d2\u5f62(&R)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=243, Before:=3                '\u77e2\u5370(&A)\r\n    CmdBarCrtls01.Add Type:=msoControlButtonPopup, ID:=694, Before:=4           '\u77e2\u5370\u306e\u30b9\u30bf\u30a4\u30eb(&A)\r\n    CmdBarCrtls01.Add Type:=msoControlButtonPopup, ID:=692, Before:=5           '\u7dda\u306e\u30b9\u30bf\u30a4\u30eb(&L)\r\n    CmdBarCrtls01.Add Type:=msoControlSplitButtonPopup, ID:=1691, Before:=6     '\u5857\u308a\u3064\u3076\u3057\u306e\u8272(&F)\r\n    CmdBarCrtls01.Add Type:=msoControlSplitButtonPopup, ID:=1692, Before:=7     '\u7dda\u306e\u8272(&L)\r\n    CmdBarCrtls01.Add Type:=msoControlButtonPopup, ID:=693, Before:=8           '\u5b9f\u7dda\/\u70b9\u7dda\u306e\u30b9\u30bf\u30a4\u30eb(&D)\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=1031, Before:=9               '\u30ef\u30fc\u30c9\u30a2\u30fc\u30c8(&W)...\r\n    CmdBarCrtls01.Add Type:=msoControlButton, ID:=182, Before:=10               '\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u9078\u629e(&S)\r\n    CmdBarCrtls01.Add Type:=msoControlPopup, ID:=30177, Before:=11              '\u30aa\u30fc\u30c8\u30b7\u30a7\u30a4\u30d7\r\n'    CmdBarCrtls01.Add Type:=msoControlButton, ID:=732, Before:=12              '\u30c8\u30ea\u30df\u30f3\u30b0(&C)\r\n'    CmdBarCrtls01.Add Type:=msoControlButton, ID:=2827, Before:=13             '\u900f\u660e\u306a\u8272\u306b\u8a2d\u5b9a(&S)\r\n'    CmdBarCrtls01.Add Type:=msoControlButton, ID:=164, Before:=14              '\u30b0\u30eb\u30fc\u30d7\u5316(&G)\r\n'    CmdBarCrtls01.Add Type:=msoControlButton, ID:=165, Before:=15              '\u30b0\u30eb\u30fc\u30d7\u89e3\u9664(&U)\r\n'    CmdBarCrtls01.Add Type:=msoControlButton, ID:=166, Before:=16              '\u6700\u524d\u9762\u3078\u79fb\u52d5(&T)\r\n'    CmdBarCrtls01.Add Type:=msoControlButton, ID:=167, Before:=17              '\u6700\u80cc\u9762\u3078\u79fb\u52d5(&K)\r\n'    CmdBarCrtls01.Add Type:=msoControlButton, ID:=170, Before:=18              '\u524d\u9762\u3078\u79fb\u52d5(&F)\r\n'    CmdBarCrtls01.Add Type:=msoControlButton, ID:=171, Before:=19              '\u80cc\u9762\u3078\u79fb\u52d5(&B)\r\n'    CmdBarCrtls01.Add Type:=msoControlButton, ID:=206, Before:=20              '\u9802\u70b9\u306e\u7de8\u96c6(&E)\r\n\r\nEnd Sub\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5e\u300c\u30de\u30af\u30ed\u306e\u8a18\u9332\u300d\u6a5f\u80fd\u306e\u5fdc\u7528\uff1aExcel2010\u306e\u30ea\u30dc\u30f3\u306b\u3001Excel2003\u6642\u4ee3\u306e\u53e4\u3044\u30e1\u30cb\u30e5\u30fc\u30d0\u30fc\u3084\u30e1\u30cb\u30e5\u30fc\u30dc\u30bf\u30f3\u3092\u597d\u304d\u306a\u3088\u3046\u306b\u8868\u793a\u3059\u308b\u65b9\u6cd5\u3002\u6614\u306e\u5370\u5237\u30c0\u30a4\u30a2\u30ed\u30b0\uff08 ...","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\/1531"}],"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=1531"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1531\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1531"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1531"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}