![](https://cdn-ak-scissors.b.st-hatena.com/image/square/4e291e1b546c35913014bbbba406f2a81511971b/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-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTkxNiZoPTMzNiZ0eHQ9VkJBJUUzJTgxJUE3JUU5JTg1JThEJUU1JTg4JTk3JUUzJTgyJTkyJUU1JUJDJTk1JUU2JTk1JUIwJUUzJTgzJUJCJUU2JTg4JUJCJUUzJTgyJThBJUU1JTgwJUE0JUUzJTgxJUFCJUUzJTgxJTk5JUUzJTgyJThCJUU2JTk2JUI5JUU2JUIzJTk1JnR4dC1jb2xvcj0lMjMyMTIxMjEmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9NTYmdHh0LWNsaXA9ZWxsaXBzaXMmdHh0LWFsaWduPWxlZnQlMkN0b3Amcz1jMTJiODI1Mzk0MDMyZDY5NmY5YmI5NjRmYWE0NjQ1YQ%26mark-x%3D142%26mark-y%3D112%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTcxNiZ0eHQ9JTQwcnlvc3VrZTA4MjUmdHh0LWNvbG9yPSUyMzIxMjEyMSZ0eHQtZm9udD1IaXJhZ2lubyUyMFNhbnMlMjBXNiZ0eHQtc2l6ZT0zMiZ0eHQtYWxpZ249bGVmdCUyQ3RvcCZzPTMzNDZkZTBmNjI2NGE5NTc3YTgzOWU5ODU2YTZlY2M5%26blend-x%3D142%26blend-y%3D491%26blend-mode%3Dnormal%26s%3D8ad845d680a10e19a3eb38ead32abcc2)
エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
VBAで配列を引数・戻り値にする方法 - Qiita
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
VBAで配列を引数・戻り値にする方法 - Qiita
前書き 久しぶりにVBAを使うと毎回のように調べているので、VBAでプロシージャに配列を引数として渡す、... 前書き 久しぶりにVBAを使うと毎回のように調べているので、VBAでプロシージャに配列を引数として渡す、戻り値として受け取る方法をまとめました。 初めての投稿なので、未熟な部分がありましたらご指摘いただけると幸いです。 配列を引数として渡す 呼び出し時の変数名の後ろの「()」を付けなくても実行できる。 配列を引数にする場合は参照渡し(ByRef)にする必要がある。 Sub main() Dim arr(2) As Long arr(0) = 1 arr(1) = 2 arr(2) = 3 Call test(arr()) End Sub Sub test(ByRef arr() As Long) Dim val As Variant For Each val In arr Debug.Print val Next End Sub