{"image_url":null,"categories":["VBS"],"title":"\u30d1\u30b9\u30ef\u30fc\u30c9\u4f5c\u6210vbs","width":"100%","url":"https://hiko-blog.hatenadiary.com/entry/2024/01/22/223659","height":"190","type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhiko-blog.hatenadiary.com%2Fentry%2F2024%2F01%2F22%2F223659\" title=\"\u30d1\u30b9\u30ef\u30fc\u30c9\u4f5c\u6210vbs - Hiko.Blog  Excel VBA\u6d3b\u7528\u8853\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_name":"hiko-blog","version":"1.0","author_url":"https://blog.hatena.ne.jp/hiko-blog/","blog_url":"https://hiko-blog.hatenadiary.com/","provider_name":"Hatena Blog","description":"Const n = 8 ' \u30d1\u30b9\u30ef\u30fc\u30c9\u306e\u6841\u6570Dim chars, upper, pointer, passwordDim logFilePath, logMessage chars = \"abcdefghijkmnpqrstuvwxyz0123456789*-_\"upper = Len(chars) Randomize For i = 1 To n pointer = Int(Rnd * upper) + 1 password = password + Mid(chars, pointer, 1)Next ' \u65b0\u3057\u3044\u30d1\u30b9\u30ef\u30fc\u30c9\u3092\u8868\u793aInputBox \"\u65b0\u3057\u3044\u30d1\u30b9\u30ef\u30fc\u30c9\u3067\u3059\u3002\",, passwo\u2026","published":"2024-01-22 22:36:59","blog_title":"Hiko.Blog  Excel VBA\u6d3b\u7528\u8853","provider_url":"https://hatena.blog"}