{"provider_name":"Hatena Blog","image_url":null,"type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2020%2F05%2F13%2F161656\" title=\"ExcelVBA\u3067\u53f3\u96a3\u306e\u30bb\u30eb\u60c5\u5831\u53d6\u5f97 - 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>","url":"https://blog.systemjp.net/entry/2020/05/13/161656","author_url":"https://blog.hatena.ne.jp/shikaku/","width":"100%","description":"Offset()\u4f7f\u3046 Sub Sample1() Dim FoundCell As Range Set FoundCell = Range(\"A:A\").Find(\"\u7530\u4e2d\") If Not FoundCell Is Nothing Then MsgBox FoundCell.Offset(0, 1) End If End Sub \u30cd\u30bf\u5143 https://www.moug.net/tech/exvba/0050161.html","blog_title":"shikaku's blog","blog_url":"https://blog.systemjp.net/","author_name":"shikaku","published":"2020-05-13 16:16:56","provider_url":"https://hatena.blog","version":"1.0","height":"190","title":"ExcelVBA\u3067\u53f3\u96a3\u306e\u30bb\u30eb\u60c5\u5831\u53d6\u5f97","categories":["ExcelVBA"]}