{"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2020%2F01%2F07%2F232449\" title=\"\u30c0\u30df\u30fc\u30c6\u30fc\u30d6\u30eb\u4f5c\u6210\u3000\u2460 \u524d\u7de8 - Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","version":"1.0","type":"rich","published":"2020-01-07 23:24:49","provider_name":"Hatena Blog","categories":["Excel","VBA","\u30e6\u30fc\u30b6\u30fc\u5b9a\u7fa9\u95a2\u6570","\u4f5c\u3063\u3066\u307f\u305f"],"image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/I/Infoment/20200107/20200107231836.png","width":"100%","blog_title":"Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e","blog_url":"https://infoment.hatenablog.com/","author_url":"https://blog.hatena.ne.jp/Infoment/","description":"\u6628\u65e5\u306f\u3001\u30c6\u30b9\u30c8\u7528\u306e\u8868\u3092\u4f5c\u6210\u3059\u308b\u305f\u3081\u306b\u3001\u300c\u30c6\u30ad\u30c8\u30fc\u300d\uff08\u203b\u300c\u9069\u5f53\u300d\u3067\u306f\u306a\u3044\uff09\u306a\u540d\u524d\u306e\u793e\u540d\u3092\u4f5c\u3063\u3066\u8fd4\u3059\u95a2\u6570\u3092\u4f5c\u6210\u3057\u3066\u307f\u305f\u3002 infoment.hatenablog.com\u4eca\u65e5\u306f\u3053\u308c\u3092\u5143\u306b\u3001\u3044\u3088\u3044\u3088\u30c0\u30df\u30fc\u30c6\u30fc\u30d6\u30eb\u4f5c\u6210\u306b\u6311\u6226\u3059\u308b\u3002 \u514e\u306b\u89d2\u300c\u7121\u4f5c\u70ba\u611f\u300d\u3092\u51fa\u3057\u305f\u304b\u3063\u305f\u306e\u3067\u3001RandBetween\u95a2\u6570\u3092\u4e71\u7528\u3057\u3066\u3057\u307e\u3063\u305f\u3002\u3082\u3063\u3068\u30b9\u30de\u30fc\u30c8\u306a\u65b9\u6cd5\u3082\u3042\u308b\u306e\u3060\u308d\u3046\u304c\u3001\u4eca\u56de\u306f\u624b\u8efd\u306b\u3053\u308c\u3067\u6e08\u307e\u305b\u305f\u3002 Sub CriateDammyTable(Optional record_number As Long = 10) ' \u67b6\u7a7a\u306e\u4f1a\u793e\u540d\u683c\u7d0d\u7528\u914d\u5217\u3002 Dim FictitiousCompanys() As String ' \u4f1a\u793e\u540d\u2026","title":"\u30c0\u30df\u30fc\u30c6\u30fc\u30d6\u30eb\u4f5c\u6210\u3000\u2460 \u524d\u7de8","author_name":"Infoment","provider_url":"https://hatena.blog","url":"https://infoment.hatenablog.com/entry/2020/01/07/232449","height":"190"}