{"height":"190","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/r/rarapotesura/20230614/20230614103022.png","author_name":"rarapotesura","description":"\u2b50\ufe0fVBA\u30b3\u30fc\u30c9\u2b50\ufe0f Sub CalcTenPercent() Dim rng As Range Dim cell As Range Dim sheet As Worksheet ' \u4f5c\u696d\u3059\u308b\u30b7\u30fc\u30c8\u306e\u8a2d\u5b9a Set sheet = ThisWorkbook.Sheets(\"\u30b7\u30fc\u30c8\u540d\") ' C\u5217\u306e\u7bc4\u56f2\u3092\u8a2d\u5b9a Set rng = sheet.Range(\"C1:C\" & sheet.Cells(sheet.Rows.Count, \"C\").End(xlUp).Row) ' \u5404\u30bb\u30eb\u306b\u5bfe\u3057\u3066\u64cd\u4f5c\u3092\u5b9f\u884c For Each cell In rng ' \u5024\u304c\u6570\u5024\u3067\u3042\u308b\u5834\u5408\u306e\u307f\u8a08\u7b97\u3092\u5b9f\u884c If IsNumer\u2026","published":"2023-06-14 10:31:31","author_url":"https://blog.hatena.ne.jp/rarapotesura/","version":"1.0","provider_name":"Hatena Blog","blog_url":"https://rarapotesura.jp/","blog_title":"\u3089\u3089\u307d\u3066\u3059\u3089\u30d6\u30ed\u30b0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Frarapotesura.jp%2Fentry%2F2023%2F06%2F14%2F103131\" title=\"\u4f1a\u793e\u3067\u6d88\u8cbb\u7a0e\u7b97\u51fa\u3059\u308b\u70baVBA\u4f5c\u3063\u305f\u306e\u3067\u89e3\u8aac\u7d39\u4ecb\ud83c\udf38 - \u3089\u3089\u307d\u3066\u3059\u3089\u30d6\u30ed\u30b0\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","type":"rich","url":"https://rarapotesura.jp/entry/2023/06/14/103131","width":"100%","categories":[],"title":"\u4f1a\u793e\u3067\u6d88\u8cbb\u7a0e\u7b97\u51fa\u3059\u308b\u70baVBA\u4f5c\u3063\u305f\u306e\u3067\u89e3\u8aac\u7d39\u4ecb\ud83c\udf38","provider_url":"https://hatena.blog"}