素人がExcelVBAによる「一人働き方改革」に挑むブログスマートフォン用の表示で見る素人がExcelVBAによる「一人働き方改革」に挑むブログExcelVBAネタです。2018-03-09Scripting.Dictionaryの要素をCollection化するFunctionVBA自作メソッドScripting.Dictionaryの要素をCollection化するFunctionScripting.DictionaryクラスのItemsメソッド何気なくScripting.Dictionaryクラスのインスタンスをぶち込んだ変数の後に「.」(ドット)を打ち込んだら、Intellisenseでこんなのが出た。見たら、「Items」ってのがメソッドのアイコン付きで出ている。オブジェクト内のすべての項目を格納した配列を返します。Scripting.Dictionaryの要素のうち、「Key」ではなく「Item」の方を配列にして返すメソッドらしい。Runtime」にチェックを入れて、次のコードで実験してみる。Withで要素数4のScripting.Dictionaryのインスタンスを生成。convertArrayToCollection(dic.Items)で前回記事のリスト1のFunctionに渡して、返り値をCollection型の変数clにぶち込む。これで、変数clにはScripting.Dictionaryのインスタンスdocの要素(「Item」の方)が格納されているはずなので、後はForループで1つづつ取り出してDebug.Printでイミディエイトに表示する。意図どおりの結果となった。おわりに前回記事の内容と今回記事の内容を踏まえて、無駄にIteratorクラスを作ってみたりしています。「改良」なのかどうかはわからんが。»プロフィールid:akashi_keirinExcelVBAネタです。SyntaxHighlighter.all();注目記事はてなブログをはじめよう!akashi_keirinさんは、はてなブログを使っています。ブログを報告するスターをつけました引用をストックしましたストック一覧を見る閉じる引用するにはまずログインしてくださいログイン閉じる引用をストックできませんでした。再度お試しください閉じる限定公開記事のため引用できません。