{"categories":[],"width":"100%","title":"\u30a8\u30af\u30bb\u30eb\u30de\u30af\u30ed\u3000\u5408\u8a08\u307e\u308b\u3081","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fexcelmacro.hateblo.jp%2Fentry%2F2021%2F07%2F19%2F014033\" title=\"\u30a8\u30af\u30bb\u30eb\u30de\u30af\u30ed\u3000\u5408\u8a08\u307e\u308b\u3081 - 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>","url":"https://excelmacro.hateblo.jp/entry/2021/07/19/014033","image_url":null,"author_name":"excelmacro","published":"2021-07-19 01:40:33","blog_title":"excelmacro\u2019s diary","description":"Sub \u5de5\u7a2e\u5408\u8a08\u307e\u308b\u3081() Dim b As Long Dim i As Long Dim k As Long For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1) <> \"\" Then Cells(i, 4) = WorksheetFunction.Sum(Range(\"F\" & i, \"J\" & i)) b = Range(\"B\" & i).Value k = -(Log(b) / Log(10)) Cells(i, 3) = WorksheetFunction.Round(Range(\"D\" & i), k) End\u2026","version":"1.0","type":"rich","provider_url":"https://hatena.blog","provider_name":"Hatena Blog","blog_url":"https://excelmacro.hateblo.jp/","height":"190","author_url":"https://blog.hatena.ne.jp/excelmacro/"}