エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
EXCEL VBA COLLECTIONオブジェクトについて教えてください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
EXCEL VBA COLLECTIONオブジェクトについて教えてください。
n-junです。 ご参考程度として新規Bookで試してみて下さい。 Sub try_next() Dim myDic As Object D... n-junです。 ご参考程度として新規Bookで試してみて下さい。 Sub try_next() Dim myDic As Object Dim s1 As String, s2 As String Dim s1t As String, s2t As String Dim s1n As String, s2n As String Dim r As Range Set myDic = CreateObject("Scripting.Dictionary") s1 = "60000AABB": s1t = "鹿児島店": s1n = "001-0789-0123" s2 = "60000AaBb": s2t = "神奈川店": s2n = "001-0123-4567" '顧客コードをキーに、顧客名と電話番号を項目として myDic.Add s1, Array(s1t, s1n) myDic.