{"description":"\u307b\u3093\u3068\u306fCase\u6587\u3067Like\u3064\u304b\u3048\u305f\u3089\u306a\u3068\u304a\u3082\u3063\u3066\u3044\u305f\u306e\u3060\u3051\u3069\u4f7f\u3048\u306a\u3044\u3053\u3068\u304c\u767a\u899a\u3057\u305f\u306e\u3067If\u6587\u3067\u3057\u3053\u3057\u3053\u3068\u3002 \u81ea\u5206\u304c\u4f7f\u3046\u7bc4\u56f2\u3067\u306e\u3082\u306e\u306a\u306e\u3067\u5fc5\u8981\u306b\u5fdc\u3058\u3066\u8a02\u6b63\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u3063\u3066\u3044\u3046\u304b\u4f7f\u3046\u4eba\u3044\u306a\u3055\u305d\u3046\u3060\u3051\u3069\uff57 Sub Todoufuken_conv_e_j() Dim RanA As Range Dim ValA As String For Each RanA In Range(\"I1:I5189\") ValA = RanA.Cells.Value If ValA Like \"[t,T][0,o,O][k,K][y,Y][o,0,O]*\" Then RanA.Cells(1, 1).Value = \u2026","blog_url":"https://bazuo.hatenadiary.org/","provider_url":"https://hatena.blog","url":"https://bazuo.hatenadiary.org/entry/20080704/1215168438","width":"100%","provider_name":"Hatena Blog","author_name":"bazuo","published":"2008-07-04 19:47:18","image_url":null,"type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fbazuo.hatenadiary.org%2Fentry%2F20080704%2F1215168438\" title=\"\u90fd\u9053\u5e9c\u770c\u3092\u82f1\u8a9e\u2192\u65e5\u672c\u8a9e\u306b\u5909\u63db - \u3070\u305a\u306a\u30c0\u30a4\u30a2\u30ea\u30fc\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_title":"\u3070\u305a\u306a\u30c0\u30a4\u30a2\u30ea\u30fc","height":"190","categories":["Excel","VBA"],"title":"\u90fd\u9053\u5e9c\u770c\u3092\u82f1\u8a9e\u2192\u65e5\u672c\u8a9e\u306b\u5909\u63db","author_url":"https://blog.hatena.ne.jp/bazuo/","version":"1.0"}