{"provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/excelmacro/","width":"100%","type":"rich","image_url":null,"blog_title":"excelmacro\u2019s diary","blog_url":"https://excelmacro.hateblo.jp/","version":"1.0","published":"2021-09-05 21:03:32","author_name":"excelmacro","description":"Sub addString_Exe(n As Integer)'\u5404\u30bb\u30eb\u306e\u524d\u5f8c\u306b\u6587\u5b57\u3092\u8ffd\u52a0\u3059\u308b Dim msg As String Dim strForward As String Dim strBack As String msg = \"\u307e\u305a\u524d\u65b9\" & n & \"\u6587\u5b57\u76ee\u306b\u8ffd\u52a0\u3059\u308b\u6587\u5b57\u3092\u5165\u529b\u3057\u3066\u4e0b\u3055\u3044\u3002\u7a7a\u6b04\u3067\u3082\u69cb\u3044\u307e\u305b\u3093\u3002\" 'Application.InputBox\u306eType '0:\u6570\u5f0f '1:\u6570\u5024 '2:\u6587\u5b57\u5217 '8:\u30bb\u30eb\u53c2\u7167 strForward = Application.InputBox(msg, Title:=\"\u524d\u65b9\u8ffd\u52a0\u6587\u5b57\u5217\", Type:=2) '\u6587\u5b57\u5f62\u5f0f(Type:=2)\u306eIn\u2026","title":"\u6587\u5b57\u8ffd\u52a0\u30de\u30af\u30ed","url":"https://excelmacro.hateblo.jp/entry/2021/09/05/210332","height":"190","provider_name":"Hatena Blog","categories":[],"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fexcelmacro.hateblo.jp%2Fentry%2F2021%2F09%2F05%2F210332\" title=\"\u6587\u5b57\u8ffd\u52a0\u30de\u30af\u30ed - excelmacro\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>"}