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

質問編集履歴

2

Code機能を利用

2018/11/07 08:14

投稿

pbdev
pbdev

スコア21

title CHANGED
File without changes
body CHANGED
@@ -1,5 +1,6 @@
1
1
  現在業務でVBAを触っています。
2
2
  そこで、1点質問です。
3
+ ```ここに言語を入力
3
4
   Dim itm As Variant
4
5
   Dim arr(1 To 2, 1 To 3) As String
5
6
 
@@ -14,6 +15,8 @@
14
15
    MsgBox itm
15
16
   Next itm
16
17
 
18
+ ```
19
+
17
20
  上記のような多次元配列をループしている際に多次元配列の値がYであればNに、NならばYに変更したい場合どのようにソースを変更すればよいのでしょうか?
18
21
  結果としては以下のようにしたいです。。。
19
22
   arr(2, 1) = "Y"→arr(2, 1) = "N"

1

結果の修正

2018/11/07 08:14

投稿

pbdev
pbdev

スコア21

title CHANGED
File without changes
body CHANGED
@@ -17,5 +17,5 @@
17
17
  上記のような多次元配列をループしている際に多次元配列の値がYであればNに、NならばYに変更したい場合どのようにソースを変更すればよいのでしょうか?
18
18
  結果としては以下のようにしたいです。。。
19
19
   arr(2, 1) = "Y"→arr(2, 1) = "N"
20
-  arr(2, 2) = "Y"→arr(2, 1) = "N"
20
+  arr(2, 2) = "Y"→arr(2, 2) = "N"
21
-  arr(2, 3) = "N"→arr(2, 1) = "Y"
21
+  arr(2, 3) = "N"→arr(2, 3) = "Y"