③配列

背景
投稿者投稿者どらねこ  いいね1  お気に入り登録
プレイ回数325  難易度(3.8) 686打 長文 英字

関連タイピング

関連タイピング一覧

問題文

ふりがな非表示 ふりがな表示

(ｄｉｍ　ｍｙａｒｒａｙ１　ａｓ　ｖａｒｉａｎｔ)

Dim MyArray1 As Variant

(ｄｉｍ　ｍｙａｒｒａｙ２（）　ａｓ　ｖａｒｉａｎｔ)

Dim MyArray2() As Variant

(ｄｉｍ　ｍｙａｒｒａｙ３（）　ａｓ　ｖａｒｉａｎｔ)

Dim MyArray3() As Variant

(ｄｉｍ　ｉ　ａｓ　ｌｏｎｇ)

Dim i As Long

(ｄｉｍ　ｊ　ａｓ　ｌｏｎｇ)

Dim j As long

(ｄｉｍ　ｉｘ　ａｓ　ｌｏｎｇ：ｉｘ＝０)

Dim ix As long:ix=0

(ｍｙａｒｒａｙ１＝ｃｅｌｌｓ（，）．ｃｕｒｒｅｎｔｒｅｇｉｏｎ．ｖａｌｕｅ)

MyArray1=cells(,).CurrentRegion.Valu

(ｆｏｒ　ｉ＝１　ｔｏ　ｕｂｏｕｎｄ（ｍｙａｒｒａｙ１，１）)

For i=1 to Ubound(MyArray1,1)

(ｉｆ　ｍｙａｒｒａｙ１（ｉ，　）　　　　ｔｈｅｎ 　ｉｘ＝ｉｘ＋１)

If MyArray1(i, ) then ix=ix+1

(ｒｅｄｉｍ　ｐｒｅｓｅｒｖｅ　ｍｙａｒｒａｙ２（　，ｉｘ）)

Redim Preserve MyArray2( ,ix)

(ｍｙａｒｒａｙ２（１，ｉｘ）＝ｍｙａｒｒａｙ１（ｉ，　）)

MyArray2(1,ix)=MyArray1(i, )

(ｍｙａｒｒａｙ２（２，ｉｘ）＝ｍｙａｒｒａｙ１（ｉ，　）)

MyArray2(2,ix)=MyArray1(i, )

(ｅｎｄ　ｉｆ　 ｎｅｘｔ　ｉ)

End if　 Next i

(ｒｅｄｉｍ　ｍｙａｒｒａｙ３（ｕｂｏｕｎｄ（ｍｙａｒｒａｙ２，２）)

ReDim MyArray3(Ubound(MyArray2,2)

(，ｕｂｏｕｎｄ（ｍｙａｒｒａｙ２，１））)

,UBound(MyArray2,1))

(ｆｏｒ　ｉ＝１　ｔｏ　ｕｂｏｕｎｄ（ｍｙａｒｒａｙ２，２）)

For i=1 to UBound(MyArray2,2)

(ｆｏｒ　ｊ＝１　ｔｏ　ｕｂｏｕｎｄ（ｍｙａｒｒａｙ２，１）)

For j=1 to UBound(MyArray2,1)

(ｍｙａｒｒａｙ３（ｉ，ｊ）＝ｍｙａｒｒａｙ２（ｊ，ｉ）)

MyArray3(i,j)=MyArray2(j,i)

(ｎｅｘｔ　ｊ　 ｎｅｘｔ　ｉ)

Next j　 Next i

(ｒａｎｇｅ（ｃｅｌｌｓ（１，１）)

Range(cells(1,1)

など

(，ｃｅｌｌｓ（ｕｂｏｕｎｄ（ｍｙａｒｒａｙ３，１）)

,Cells(UBound(MyArray3,1)

(，ｕｂｏｕｎｄ（ｍｙａｒｒａｙ３，２）））．ｖａｌｕｅ＝ｍｙａｒｒａｙ３)

,UBound(MyArray3,2).Value=MyArray3

(ｗｏｒｋｂｏｏｋｓ（ｍｙｆｉｌｅ．ｎａｍｅ）)

Workbooks(MyFile.Name)

(．ｃｌｏｓｅ　ｓａｖｅｃｈａｎｇｅｓ：＝ｆａｌｓｅ)

.Close savechanges:=False

(ｍｙｆｉｌｅ．ｎａｍｅ＝ｍｙｆｓｏ．ｇｅｔｂａｓｅｎａｍｅ（ｍｙｆ）　＆)

MyFile.Name=MyFSO.GetBaseName(MyF) &

(ａｐｐｌｉｃａｔｉｏｎ．ｓｃｒｅｅｎｕｐｄａｔｉｎｇ＝ｔｒｕｅ)

Application.ScreenUpdating=True

(ａｐｐｌｉｃａｔｉｏｎ．ｄｉｓｐｌａｙａｌｅｒｔｓ＝ｔｒｕｅ)

Application.DisplayAlerts=True

問題文を全て表示 一部のみ表示 誤字・脱字等の報告