{"provider_url":"https://hatena.blog","type":"rich","image_url":null,"version":"1.0","width":"100%","provider_name":"Hatena Blog","blog_title":"excelmacro\u2019s diary","height":"190","url":"https://excelmacro.hateblo.jp/entry/2021/10/03/220337","categories":[],"title":"\u7d4c\u8def\u691c\u7d22","description":"Sub \u30cf\u30a4\u30d1\u30fc\u30ea\u30f3\u30af\u633f\u5165() Dim My_Site As StringDim i As Long For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row My_Site = \"https://www.google.co.jp/maps/dir/\" & Cells(i, 1) & \"/\" & Cells(i, 2) ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 3), Address:= _ My_Site, TextToDisplay:=\"\u30eb\u30fc\u30c8\u691c\u7d22\"Next i End Sub","author_url":"https://blog.hatena.ne.jp/excelmacro/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fexcelmacro.hateblo.jp%2Fentry%2F2021%2F10%2F03%2F220337\" title=\"\u7d4c\u8def\u691c\u7d22 - 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>","published":"2021-10-03 22:03:37","author_name":"excelmacro","blog_url":"https://excelmacro.hateblo.jp/"}