![](https://cdn-ak-scissors.b.st-hatena.com/image/square/7c705ee91965f1fd1679c3a3ecd23c60b8281f6a/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Farticle-ogp-background-9f5428127621718a910c8b63951390ad.png%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTkxNiZoPTMzNiZ0eHQ9RXhjZWwlMjBWQkElRTMlODElQTduc2xvb2t1cCZ0eHQtY29sb3I9JTIzMjEyMTIxJnR4dC1mb250PUhpcmFnaW5vJTIwU2FucyUyMFc2JnR4dC1zaXplPTU2JnR4dC1jbGlwPWVsbGlwc2lzJnR4dC1hbGlnbj1sZWZ0JTJDdG9wJnM9ODg3OGU3NjBkZjUzNjM2OWQxNjEzMjE3NDlhMWQzMWQ%26mark-x%3D142%26mark-y%3D112%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTYxNiZ0eHQ9JTQwaHJzdCZ0eHQtY29sb3I9JTIzMjEyMTIxJnR4dC1mb250PUhpcmFnaW5vJTIwU2FucyUyMFc2JnR4dC1zaXplPTM2JnR4dC1hbGlnbj1sZWZ0JTJDdG9wJnM9YzM0NmRhZDIzNjllNzg1MDMyYzY5MDA4Mzg1Y2Y4NTA%26blend-x%3D142%26blend-y%3D491%26blend-mode%3Dnormal%26s%3D5af1feb4d7e7969054a0d5e3849e9e6c)
エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
Excel VBAでnslookup - Qiita
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
Excel VBAでnslookup - Qiita
使い慣れないので記録を取っておく意味でエントリーしておく. 自前の関数は「標準モジュール」に配置す... 使い慣れないので記録を取っておく意味でエントリーしておく. 自前の関数は「標準モジュール」に配置する... と. Option Explicit Function nslookup(ip As String) As String Dim wsh, exec, cmd, res As String, i As Integer Dim buf() As String Set wsh = CreateObject("WScript.Shell") cmd = "nslookup " & ip Set exec = wsh.exec("%ComSpec% /c " & cmd) Do While exec.Status = 0 DoEvents Loop res = exec.StdOut.ReadAll buf = Split(res, vbCrLf) For i = 0 To UBound(b