③配列

・スマホ向けフリック入力タイピングはこちら
※アプリのインストールが必要です。
・PC向けタイピングはこちら
タブレット＋BlueToothキーボードのプレイもこちらがオススメです！
Webアプリでプレイ
投稿者投稿者どらねこ  いいね1  お気に入り登録
プレイ回数327  難易度(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

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

ピックアップ

もっと見る
タイピング練習講座 ローマ字入力表 アプリケーションの使い方 よくある質問

人気ランキング

もっと見る

注目キーワード