{"author_name":"t-hom","height":"190","provider_name":"Hatena Blog","published":"2018-02-14 08:26:03","blog_title":"t-hom\u2019s diary","url":"https://thom.hateblo.jp/entry/2018/02/14/082603","blog_url":"https://thom.hateblo.jp/","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/t/t-hom/20180214/20180214081217.png","width":"100%","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/t-hom/","categories":["VBA"],"version":"1.0","title":"VBA \u77e9\u5f62\u9078\u629e\u7bc4\u56f2\u3067\u91cd\u8907\u30c7\u30fc\u30bf\u306e\u5165\u3063\u305f\u30bb\u30eb\u3092\u5857\u308a\u3064\u3076\u3059\u65b9\u6cd5","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fthom.hateblo.jp%2Fentry%2F2018%2F02%2F14%2F082603\" title=\"VBA \u77e9\u5f62\u9078\u629e\u7bc4\u56f2\u3067\u91cd\u8907\u30c7\u30fc\u30bf\u306e\u5165\u3063\u305f\u30bb\u30eb\u3092\u5857\u308a\u3064\u3076\u3059\u65b9\u6cd5 - t-hom\u2019s diary\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","description":"\u91cd\u8907\u30c7\u30fc\u30bf\u3092\u63a2\u3059\u3068\u3044\u3046\u306e\u306f\u6bd4\u8f03\u7684\u3088\u304f\u3084\u308b\u51e6\u7406\u3060\u3051\u308c\u3069\u3001\u30c7\u30fc\u30bf\u304c\u77e9\u5f62\u306b\u914d\u7f6e\u3055\u308c\u3066\u3044\u3066\u305d\u306e\u59ff\u306e\u307e\u307e\u51e6\u7406\u3057\u305f\u3044\u5834\u5408\u306f\u95a2\u6570\u3067\u306f\u5c11\u3005\u9762\u5012\u304f\u3055\u3044\u3002\u4eca\u56de\u306f\u9078\u629e\u3057\u305f\u77e9\u5f62\u7bc4\u56f2\u306e\u30c7\u30fc\u30bf\u304b\u3089\u5185\u5bb9\u306e\u91cd\u8907\u3059\u308b\u30bb\u30eb\u3092\u5857\u308a\u3064\u3076\u3057\u3066\u53ef\u8996\u5316\u3059\u308b\u30de\u30af\u30ed\u3092\u4f5c\u3063\u305f\u3002 \u3061\u306a\u307f\u306b\u5b9a\u6570\u3067\u3069\u308c\u3092\u4f55\u8272\u3067\u5857\u308b\u304b\u3001\u5857\u3089\u306a\u3044\u304b\u3092\u9078\u629e\u3067\u304d\u308b\u3088\u3046\u306b\u3057\u305f\u3002 Sub \u91cd\u8907or\u30e6\u30cb\u30fc\u30af\u3092\u5857\u308b() Const \u91cd\u8907\u3092\u5857\u308b = True Const \u91cd\u8907\u30bb\u30eb\u8272 = vbYellow Const \u30e6\u30cb\u30fc\u30af\u3092\u5857\u308b = False Const \u30e6\u30cb\u30fc\u30af\u30bb\u30eb\u8272 = vbRed Dim arr: arr = Selection.Value Dim arr2: ReDim \u2026","type":"rich"}