Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6020 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【47732】配列の特定の場所に名前を付ける hiyo 07/3/21(水) 9:04 質問[未読]
【47733】Re:配列の特定の場所に名前を付ける かみちゃん 07/3/21(水) 9:15 発言[未読]
【47734】Re:配列の特定の場所に名前を付ける hiyo 07/3/21(水) 9:52 質問[未読]
【47752】Re:配列の特定の場所に名前を付ける ichinose 07/3/21(水) 18:24 発言[未読]
【47754】Re:配列の特定の場所に名前を付ける Kein 07/3/21(水) 20:23 発言[未読]
【47758】Re:配列の特定の場所に名前を付ける hiyo 07/3/21(水) 21:50 お礼[未読]
【47732】配列の特定の場所に名前を付ける
質問  hiyo  - 07/3/21(水) 9:04 -
引用なし
パスワード
   まいどお世話になっております。
配列の特定の場所に名前を付けることは可能でしょうか？

例
　　sub bon()
　　dim a()
　　dim b
　　　　
　　set b = a(2,3)
　　end sub

上記のプログラムはもちろんエラーになりますが
上のような感じで名前をつけることが出来たら便利なんですが
excell vbaにそういった機能は用意されていないんでしょうか？
【47733】Re:配列の特定の場所に名前を付ける
発言  かみちゃん  - 07/3/21(水) 9:15 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>配列の特定の場所に名前を付けることは可能でしょうか？

目的がわかりません。
変数に代入すればいいだけなのでは？
b = a(2,3)
【47734】Re:配列の特定の場所に名前を付ける
質問  hiyo  - 07/3/21(水) 9:52 -
引用なし
パスワード
   ▼かみちゃん さん：
>こんにちは。かみちゃん　です。
>
>>配列の特定の場所に名前を付けることは可能でしょうか？
>
>目的がわかりません。
>変数に代入すればいいだけなのでは？
>b = a(2,3)

ちょっと説明不足でしたすいません、さらに詳しく言うと

b = 20 にしたとき　a(2,3)に値を格納するのが目的です。
bが変数だと、変数bに20が格納されてしまいます。

例えばa(2,3)に入る値がいつも　「今日の売り上げ」とかなら
set Uriage = 200000という具合に配列に格納出来るとわかりやすいのですが。
【47752】Re:配列の特定の場所に名前を付ける
発言  ichinose  - 07/3/21(水) 18:24 -
引用なし
パスワード
   こんばんは。

>>>配列の特定の場所に名前を付けることは可能でしょうか？

こういうこと出来る言語もありますけど、残念ながら、
VBAでは、無理ですね！！

Excel/VBA場合は、配列を作業領域として適当なセル範囲に移行すれば、
名前の定義を使用して、セル範囲中の特定なセルを取得することはできますけどねえ・・・。
イメージは、これでしょ？　でも、これは配列変数では無理ですかねえ！！


Property Get　　や　Property Let　を使えば

それらしく見せることは出来ますけど、

恐らくは、ご希望の事とは違うと思います。
【47754】Re:配列の特定の場所に名前を付ける
発言  Kein  - 07/3/21(水) 20:23 -
引用なし
パスワード
   その場合も、一番近いと思われるのは Dictionaryオブジェクト では
ないでしょーか ? 一つのKey(名前)に対応する一つのItem(値)を入れる
わけですから・・・。
【47758】Re:配列の特定の場所に名前を付ける
お礼  hiyo  - 07/3/21(水) 21:50 -
引用なし
パスワード
   propety get とか dictionary　とかヘルプでみてみましたが
初心者なもんでいまいち理解出来ませんでしたが、
range型の変数の set〜のようにスマートにはいかないようなので
ちょっと使い勝手が悪そうです。


処理速度を少し犠牲にして、変数の値を配列に格納させて代用
してみようかと思います。

どうもありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6020 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free