エクセル -> VBA

連想配列(ハッシュ)の参照渡し

Sub メイン()

  Dim ハッシュ As Object
  Set ハッシュ = CreateObject("scripting.dictionary")

'# 1つ目の キー = 値を設定
  キー = "ブック名"
  値 = "設計書"
  ハッシュ.Add キー, 値
  
'# 2つ目の キー = 値を設定
  キー = "シート名"
  値 = "一覧"
  ハッシュ.Add キー, 値
  
'# ハッシュオブジェクトを関数へ渡す(参照渡し)
  Call 表示(ハッシュ)

End Sub
Function 表示(ByRef ハッシュ As Variant)
   '# 参照渡しの場合 Variant 型を指定する。


   '# 全キーを取り出す
    For Each Key In ハッシュ.keys
        MsgBox (Key)
    Next Key

   '# 全値を取り出す
    For Each Item In ハッシュ.items
        MsgBox (Item)
    Next Item

   '# キー=値 形式で取り出す
    For Each Key In ハッシュ.keys
        MsgBox (Key & "=" & ハッシュ.Item(Key))
    Next Key

End Function

呼び出し元へオブジェクトを返す場合

呼び出し側 Sub
Sub Main()
  Set 値 = 値設定()
  
  '# キーを指定して値を取り出す
  Msgbox(値.Item("縦軸"))
  Msgbox(値.Item("横軸"))
End Sub
呼び出され側 Function
Function 値設定()
  Dim 値 As Object
  Set 値 = CreateObject("scripting.dictionary")
  
  値.Add "縦軸", "使用率"
  値.Add "横軸", "日付"
  
  '# 関数の戻り値を設定
  Set 値設定 = 値
End Function

      Document-Folder          一覧
HP-UX
HULFT
JAVA
JP1
JavaScript
Linux
MAC
PHP
Perl
Python
Ruby
SOA
Solaris
Unix全般
Windows
XML
エクセル
スタイルシート
セキュリティー
データベース
ネットワーク
パソコン
ブラウザ
プログラム構文
仮想化
          RSS-Folder
ニュース
   アットマーク・アイティ(@IT)
   シンクイット(ThinkIT)
   インターネットコム
   インターネットウォッチ
   日経IT-Pro
   日経パソコン
   CNET Japan
   ZD-NetJapan
   MYCOM
   RBB-Today
ベンダー
   日本IBM
   日本HP
   サンマイクロシステムズ
   NEC
   富士通
   日立
ソフトウェア
   マイクロソフト
   トレンドマイクロ
   オラクル
   サイボウズ
   Mozilla
   野村総合研究所
   (その他ソフトウェア企業)
更新履歴 一覧
 07/08 PERF
プログラム構文
 07/07 PERF
プログラム構文
 06/25 オブジェクトプログラミング2
Perl>サンプル
 07/12 クローン作成
仮想化>vCenter
 07/12 vyatta設定
ネットワーク>vyatta
 07/12 vyattaインストール
ネットワーク>vyatta
 07/12 リポジトリサーバ
Linux>サーバ構築
 07/05 VMwareのインストール
仮想化>VMware
 07/05 PXEブート
仮想化>KVM
 07/01 DHCPでのPXEブート
仮想化>KVM
 06/27 qcow2仮想DISK作成
仮想化>KVM
 06/13 NWの設定
仮想化>VMwareEsxi
 06/13 IPアドレスの変更
仮想化>VMwareEsxi
 06/12 自動ssh
Unix全般>シェル>Bash
 06/12 diffプログラミング
Python
Google