{"blog_title":"Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e","type":"rich","categories":["Excel","VBA","\u30e6\u30fc\u30b6\u30fc\u5b9a\u7fa9\u95a2\u6570","\u5931\u6557\u8ac7"],"author_url":"https://blog.hatena.ne.jp/Infoment/","provider_url":"https://hatena.blog","version":"1.0","author_name":"Infoment","height":"190","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2018%2F07%2F04%2F204251\" title=\"\u3007\u00d7\u53cd\u8ee2 - Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","published":"2018-07-04 20:42:51","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/I/Infoment/20180704/20180704202422.png","blog_url":"https://infoment.hatenablog.com/","url":"https://infoment.hatenablog.com/entry/2018/07/04/204251","description":"\u3007\u306a\u3089\u00d7\u306b\u3001\u00d7\u306a\u3089\u3007\u306b\u3001\u30aa\u30bb\u30ed\u306e\u3088\u3046\u306b\u53cd\u8ee2\u3055\u305b\u305f\u3044\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002 \u30e6\u30fc\u30b6\u30fc\u5b9a\u7fa9\u95a2\u6570\u3092\u4f5c\u3063\u3066\u307f\u307e\u3057\u305f\u3002 Function CrossingOver(str As String) As String Select Case str Case \"\u3007\" CrossingOver = \"\u00d7\" Case \"\u00d7\" CrossingOver = \"\u3007\" End Select End Function Sub test() MsgBox CrossingOver(\"\u3007\") End Sub \u3053\u308c\u306f\u3053\u308c\u3067\u52d5\u304f\u306e\u3067\u3059\u304c\u3001\u3082\u3046\u5c11\u3057\u77ed\u304f\u3057\u3066\u307f\u305f\u3044\u3002 \u3068\u3044\u3046\u3053\u3068\u3067\u3001\u3053\u3093\u306a\u98a8\u306b\u6539\u9020\u3057\u3066\u307f\u307e\u3057\u305f\u3002 Function Cros\u2026","provider_name":"Hatena Blog","title":"\u3007\u00d7\u53cd\u8ee2","width":"100%"}