粗茶でございます日本語 プログラミング 言語 「なでしこ」 大好き 

この記事に含まれるtag :
Excel  VBA  

スポンサーサイト

   ↑  --/--/-- (--)  カテゴリー: スポンサー広告
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

(記事編集) http://nadesocha.blog.fc2.com/?overture" target="_new

--/--/-- | Comment (-) | ホーム | ↑ ページ先頭へ ↑ |

Excel VBA 構造体を使った二次元配列

   ↑  2013/01/31 (木)  カテゴリー: Excel
 前回は、VBAで動的二次元配列の作成を紹介しましたが、今回は構造体を使った動的二次元配列の作成方法です。

Option Explicit

'========================================
' 構造体を使った動的二次元配列の作成
'========================================

'列用の配列を作る
Type typeCol
col() As Long
End Type

'行用の配列に列用の配列を入れる
Private row() As typeCol

Public Sub testSample()
Dim idx_row As Long, idx_col As Long
'配列の要素数を仮に宣言しておく
'行と列は別々に宣言する
ReDim row(0)
ReDim row(0).col(0)

For idx_row = 0 To 9
'行の要素数を増やす
'この時点では列の要素数は未定
ReDim Preserve row(idx_row)
For idx_col = 0 To 9
'列の要素数を増やす
ReDim Preserve row(idx_row).col(idx_col)
'配列の指定はArray(x,y)ではなく、
'Array_row(x).Array_col(y)のようになる
row(idx_row).col(idx_col) = idx_row + idx_col
Next idx_col
Next idx_row

For idx_row = 0 To 9
For idx_col = 0 To 9
Cells(idx_row + 1, idx_col + 1) = row(idx_row).col(idx_col)
Next idx_col
Next idx_row
End Sub


result20130131.gif
実行結果


関連記事

この記事に含まれるtag : Excel VBA 

FC2スレッドテーマ : プログラミング (ジャンル : コンピュータ

(記事編集) http://nadesocha.blog.fc2.com/blog-entry-165.html

2013/01/31 | Comment (1) | Trackback (0) | ホーム | ↑ ページ先頭へ ↑ |

Comment


ありがとうございました

あなたさまの公開してくださった構造体を使った二次元配列のおかげで、ずっとうまくいかなくて、2週間悩んでいたデータ読み出しができました!
本当にありがとうございました。
心からお礼申し上げます。

柳沢由香里 |  2017/05/06 (土) 16:49 No.18

コメント:を投稿する 記事: Excel VBA 構造体を使った二次元配列

お気軽にコメント:をぞうぞ。
非公開 (管理人のみ閲覧可能なコメント:) にしたい場合には、ロック にチェックを入れてください。

  任意 : 後から修正や削除ができます。
  非公開コメント:として投稿する。(管理人にのみ公開)

Trackback

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。