teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

2

文法の変更

2019/11/08 03:24

投稿

SiiSuu
SiiSuu

スコア14

title CHANGED
File without changes
body CHANGED
@@ -1,6 +1,7 @@
1
1
  ### 前提・実現したいこと
2
2
 
3
3
  2次元配列をループを使わないで宣言したい。
4
+ (Arr(0,0)で取り出せる2次元配列を、値を一つづつ簡単に変更できる形で作りたい。)
4
5
 
5
6
  ### 発生している問題・エラーメッセージ
6
7
 
@@ -8,16 +9,30 @@
8
9
 
9
10
  ### 該当のソースコード
10
11
 
12
+ ```ここに言語を入力
11
13
  Sub Array_Test()
12
- Dim Arr()
14
+ Dim Arr() As Integer
13
15
 
14
- Arr = Array(Array(0))
15
16
 
16
- Debug.Print Arr(0)(0) ←実行可能
17
+ 'ループで作った場合 Arr(0,0) になる。
18
+ ReDim Arr(5, 5)
17
19
 
20
+ For i = 0 To 5
21
+ For i2 = 0 To 5
18
- Debug.Print Arr(0, 0) ←こちら側で実行したい。
22
+ Arr(i, i2) = 0
23
+ Next i2
24
+ Next i
19
25
 
26
+ 'ループを使わずに作った場合 Arr(0)(0) になる。(型が一致しません)
27
+ Arr = Array(Array(0, 0, 0, 0, 0, 0), _
28
+ Array(0, 0, 0, 0, 0, 0), _
29
+ Array(0, 0, 0, 0, 0, 0), _
30
+ Array(0, 0, 0, 0, 0, 0), _
31
+ Array(0, 0, 0, 0, 0, 0), _
32
+ Array(0, 0, 0, 0, 0, 0)) _
33
+
20
34
  End Sub
35
+ ```
21
36
 
22
37
  ### 試したこと
23
38
 

1

誤字修正

2019/11/08 03:23

投稿

SiiSuu
SiiSuu

スコア14

title CHANGED
File without changes
body CHANGED
@@ -21,4 +21,4 @@
21
21
 
22
22
  ### 試したこと
23
23
 
24
- ローカルウィンドウで確認すると Arr(0)(0) になっているので、 Arr(0,1) でループを使わずに宣言したいです。
24
+ ローカルウィンドウで確認すると Arr(0)(0) になっているので、 Arr(0,0) でループを使わずに宣言したいです。