{"version":"1.0","provider_name":"Hatena Blog","author_url":"https://blog.hatena.ne.jp/Infoment/","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/I/Infoment/20190603/20190603222315.png","url":"https://infoment.hatenablog.com/entry/2019/06/03/224801","height":"190","blog_title":"Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e","published":"2019-06-03 22:48:01","title":"\u5224\u5b9a\u5f8c\u306e\u518d\u8a08\u7b97\u3067\u304a\u304b\u3057\u306a\u7d50\u679c\u306b\uff08\u5931\u6557\u8ac7\uff09","author_name":"Infoment","categories":["Excel","VBA","\u5931\u6557\u8ac7"],"width":"100%","blog_url":"https://infoment.hatenablog.com/","description":"Excel VBA\u521d\u7d1a\u8005\u5411\u3051\u306e\u52c9\u5f37\u4f1a\u3067\u3001 \u7e70\u308a\u8fd4\u3057 \u6761\u4ef6\u5206\u5c90 \u3092\u540c\u6642\u306b\u6271\u3046\u3053\u3068\u306b\u306a\u3063\u305f\u3002\u305d\u3053\u3067\u3001\u307e\u305a\u3053\u306e\u3088\u3046\u306a\u8868\u3092\u4f5c\u6210\u3002 \u6570\u5024\u306b\u306f\u3001RANDBETWEEN\u95a2\u6570\u3092\u7528\u3044\u3066\u304a\u308a\u3001\u5404\u30bb\u30eb\u306b\uff11\u304b\u3089\uff11\uff10\u307e\u3067\u306e\u6570\u304c\u30e9\u30f3\u30c0\u30e0\u306b\u8868\u793a\u3055\u308c\u3066\u3044\u308b\u3002\u53c2\u52a0\u8005\u306b\u306f\u4ee5\u4e0b\u3092\u5165\u529b\u3057\u3001\u7d50\u679c\u3092\u78ba\u8a8d\u3057\u3066\u3082\u3089\u3063\u305f\u3002 Sub test() Dim i As Long For i = 2 To 11 If Range(\"A\" & i).Value = Range(\"B\" & i).Value Then Range(\"C\" & i).Value = \"\u3007\" Range(\"A\" & i & \":C\" & i).Interior.Color =\u2026","type":"rich","provider_url":"https://hatena.blog","html":""}