A 回答 (6件)
- 最新から表示
- 回答順に表示
No.6
- 回答日時:
oribeyakiさん ありがとうございます。
「Type」の意味は「独自の構造体をつくってみては?」という事だったのですね。
それならば納得です。
感謝です。
No.5
- 回答日時:
1の方ではないですが、「TYPE」です。
(※用法的にはTYPEと動的配列を併用することが多いです)
◇宣言部
Private Type TEST
strA As String
strB As String
lngC As Long
End Type
Private TestArray() As TEST
実行部
sub subTEST()
Dim I as integer
ReDim TestArray(0 to 9)
For I = 0 To 9
TestArray(I).strA = "A"
TestArray(I).strB = "B"
TestArray(I).lngC = I
Next
このような形になります。
この利点としては、異なるデータ型のものを一元管理できることがあげられます。
(DBのレコードをそのまま取り込めるので非常に便利)
でわ。
No.4
- 回答日時:
サンプルです。
全て2次元配列を作成します。しかし、※3subArrayは2次元配列のように見せているだけで、VBでいう2次元配列というものとは、ちょっと違います。
※1と※2は配列要素が宣言してあるのと、実行途中で要素が定まるという違いがあります。
※1に適したものの例(要素数が変わることがなく、要素数があらかじめわかっているもの)
信号の色、性別、都道府県、血液型 など
※2に適したものの例(要素数が変わる恐れがある。もしくは要素数があらかじめわからない)
生徒の数、ユーザに都道府県を選択させたあとの市町村の数 など
※3に適したものの例
特に適したものはないが、プログラミングが楽。ただ宣言がVariantであるためにメモリ消費が大きいので、膨大な配列には使用を避けた方がいいかも?
※1
Sub subDim()
Dim m(2, 3) As String
Dim i As Long
Dim j As Long
m(0, 0) = "aa": m(0, 1) = "bb": m(0, 2) = "cc": m(0, 3) = "dd"
m(1, 0) = "ee": m(1, 1) = "ff": m(1, 2) = "gg": m(1, 3) = "hh"
m(2, 0) = "ii": m(2, 1) = "jj": m(2, 2) = "kk": m(2, 3) = "ll"
For i = LBound(m, 1) To UBound(m, 1)
For j = LBound(m, 2) To UBound(m, 2)
Debug.Print m(i, j),
Next j
Debug.Print
Next i
End Sub
※2
Sub subRedim()
Dim m() As String
Dim i As Long
Dim j As Long
ReDim m(2, 3) As String
m(0, 0) = "aa": m(0, 1) = "bb": m(0, 2) = "cc": m(0, 3) = "dd"
m(1, 0) = "ee": m(1, 1) = "ff": m(1, 2) = "gg": m(1, 3) = "hh"
m(2, 0) = "ii": m(2, 1) = "jj": m(2, 2) = "kk": m(2, 3) = "ll"
For i = LBound(m, 1) To UBound(m, 1)
For j = LBound(m, 2) To UBound(m, 2)
Debug.Print m(i, j),
Next j
Debug.Print
Next i
End Sub
※3
Sub subArray()
Dim m As Variant
Dim i As Long
Dim j As Long
m = Array(Array("aa", "bb", "cc", "dd"), Array("ee", "ff", "gg", "hh"), Array("ii", "jj", "kk", "ll"))
For i = LBound(m) To UBound(m)
For j = LBound(m(i)) To UBound(m(i))
Debug.Print m(i)(j),
Next j
Debug.Print
Next i
End Sub
それと#1のBigBoobsさんの発言で「type」とありますが、ぼくはその方法を知らないです。
その方法はどんな方法か、もしこの発言を見てたらサンプルを載せてもらえませんか?
No.3
- 回答日時:
こんにちは。
maruru01です。配列の要素数が決まっている場合(例えば3行4列)は、
Dim m(2, 3) As String
Dim moji As String
m(0, 0) = "aa"
m(0, 1) = "bb"
:
:
moji = m(0, 1)
こんな感じで良いのではじゃないでしょうか。
要素数が未定の場合は動的配列宣言して、後で宣言をしなおせば良いと思いますが。
Dim m() As String
要素数がa行b列に決まったら、
ReDim m(a-1, b-1)
として、各要素の値を代入していきます。
では。
この回答へのお礼
お礼日時:2002/01/15 00:53
返事遅くなってごめんなさい。
ぱそこん、調子わるくて。
回答ありがとうございました。
この方法でやり成功しました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA シート上にドロップダウンリストを作り、予め指定値をセットしたいのですが 1 2023/03/25 15:15
- Visual Basic(VBA) ExcelVBAで質問です。離れた二次元配列を一つにしたい 4 2022/07/26 19:06
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
- Visual Basic(VBA) エクセルVBAで以下のようなコードを書いたらエラーになりました。何処が間違っているの教えて? 1 2023/02/10 18:30
- Visual Basic(VBA) エクセルVBAについて 8 2022/07/13 22:41
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- PHP ファイルの書き込みについて教えて下さい。 1 2023/03/20 12:01
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Perlで<select multiple>の複数...
-
リストボックスに縦スクロール...
-
for文とforeach文について
-
perlで2次元配列をサブルーチ...
-
2次元配列の扱い
-
perl このテキストファイルを簡...
-
VBA 二次元配列 ループの書き方
-
文字の整列(printf)
-
二次元配列における要素数のは...
-
Powershell $変数 = @()の空配...
-
do-while文での無限ループ?
-
perl 配列名変数指定するには
-
一致する要素が格納されている...
-
プログラミングについて。 1つ...
-
文字列を変数名として扱う方法
-
エクセルの当番表を作っていま...
-
チェックデジットについて
-
ネットワークループとルーティ...
-
どなたかこのプログラミングを...
-
VBA for i=1 to lastrow
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAのautofilter、criteriaの配...
-
二次元配列のインデックスについて
-
リストボックスに縦スクロール...
-
Excel VBA ユーザーフォームの...
-
マクロ Publicでの配列定義
-
エクセルVBAでTransposeの不思議
-
二次元配列における要素数のは...
-
Strawberry Perl for Windows ...
-
perlで2次元配列をサブルーチ...
-
クラスに配列を渡す方法
-
Dim flag(4) as boolean で配列...
-
文字の整列(printf)
-
perlで配列の要素が空なのを知...
-
jcode->jfold で禁則処理
-
VB6で配列の最大値を簡単に求め...
-
perl 配列の要素数について
-
ファイル名に日付・時刻を付与...
-
チェックボックスのperlでの値...
-
組み合わせについての質問です...
-
配列を初期化する時ってどうす...
おすすめ情報