{"provider_name":"Hatena Blog","image_url":null,"version":"1.0","height":"190","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2020%2F04%2F11%2F193944\" title=\"URL\u6307\u5b9a\u3055\u308c\u3066\u308b\u30bb\u30eb\u304b\u3089URL\u3092\u53d6\u308b - shikaku&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_url":"https://blog.systemjp.net/","categories":["excel"],"type":"rich","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/shikaku/","title":"URL\u6307\u5b9a\u3055\u308c\u3066\u308b\u30bb\u30eb\u304b\u3089URL\u3092\u53d6\u308b","width":"100%","description":"\u95a2\u6570\u4f5c\u3063\u3066\u305d\u308c\u3092\u547c\u3076\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u4ee5\u4e0b\u8ffd\u52a0 Function GetURL(lnk As Range) As String Dim Add As String If lnk.Hyperlinks.Count > 0 Then With lnk.Hyperlinks(1) If .Address Like \"http*\" Then Add = .Address End If End With End If If Add <> \"\" Then GetURL = Add Else GetURL = \"\" End If End Function \u30cd\u30bf\u5143 https://ameblo.jp/sumit\u2026","url":"https://blog.systemjp.net/entry/2020/04/11/193944","author_name":"shikaku","blog_title":"shikaku's blog","published":"2020-04-11 19:39:44"}