Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


44960 / 76732 ←次へ | 前へ→

【36779】Re:遅くなりました。
回答  Kein  - 06/4/13(木) 16:16 -

引用なし
パスワード
   Dictionaryオブジェクトのヘルプを抜粋して提示しておきます。
-------------------------------------------------------------------
Dictionary オブジェクト参 照
FileSystemObject オブジェクト | TextStream オブジェクト
言語
JScript

VBScript

すべて表示
キーと項目を対で格納するオブジェクトです。

解説
Dictionary オブジェクトは、PERL 関連の配列と同じです。
項目はデータの任意の形式で配列に保存されます。各項目には、項目を一意に識別
するためのキーが関連付けられます。キーは、それぞれの項目を取り出すときに
使用されます。キーは、配列以外の値を使用します。通常では整数値または文字列を
使用します。

次のコードは、Dictionary オブジェクトを作成する例です。

[VBScript]
Dim d  ' Create a variable.
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "アテネ"  ' キーと項目を追加します。
d.Add "b", "ベオグラード"
d.Add "c", "カイロ"
...
メソッド
Add メソッド (Dictionary オブジェクト) | Exists メソッド |
Items メソッド | Keys メソッド | Remove メソッド | RemoveAll メソッド

プロパティ
Count プロパティ | Item プロパティ | Key プロパティ
----------------------------------------------------------------------
>keyとitemがあって、itemに配列を取得することはできないのでしょうか?
どちらも配列になります。Itemを配列にしたものは Items です。
そのヘルプも抜粋しておきます。
---------------------------------------------------------------------
Items メソッド参 照
Add メソッド (Dictionary オブジェクト) | Exists メソッド |
Keys メソッド | Remove メソッド | RemoveAll メソッド

対象: Dictionary オブジェクト
言語
JScript

VBScript

すべて表示
Dictionary オブジェクト内のすべての項目を格納した配列を返します。

object.Items( )
object には、Dictionary オブジェクトの名前を指定します。

解説
次のコードは、Items メソッドの使用例です。

[VBScript]
Function DicDemo
  Dim a, d, i, s  ' 変数を作成します。
  Set d = CreateObject("Scripting.Dictionary")
  d.Add "a", "アテネ"  ' キーと項目を追加します。
  d.Add "b", "ベオグラード"
  d.Add "c", "カイロ"
  a = d.Items  ' 項目を取得します。
  For i = 0 To d.Count -1 ' 取得した配列に繰り返し処理を行います。
   s = s & a(i) & "<BR>" ' 結果を返します。
  Next
  DicDemo = s
End Function

1 hits

【36692】特定の文字列をシート名に含むシートのみ串刺し計算 VBA☆ 06/4/8(土) 8:51 質問
【36693】Re:特定の文字列をシート名に含むシートの... VBA☆ 06/4/8(土) 8:57 質問
【36694】Re:特定の文字列をシート名に含むシートの... ponpon 06/4/8(土) 12:12 発言
【36695】Re:特定の文字列をシート名に含むシートの... Kein 06/4/8(土) 12:38 回答
【36698】Re:特定の文字列をシート名に含むシートの... Hirofumi 06/4/8(土) 15:16 回答
【36701】Re:特定の文字列をシート名に含むシートの... ichinose 06/4/8(土) 20:08 発言
【36702】Re:特定の文字列をシート名に含むシートの... ichinose 06/4/9(日) 8:10 発言
【36703】みなさまありがとうございます VBA☆ 06/4/9(日) 14:49 お礼
【36773】遅くなりました。 [名前なし] 06/4/13(木) 14:56 質問
【36779】Re:遅くなりました。 Kein 06/4/13(木) 16:16 回答
【36789】Re:遅くなりました。 ponpon 06/4/13(木) 21:19 発言

44960 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free