特定の行だけ取り出すには・・・ (ID:90150)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ・フォーム上にボタンを一つはりつけてください。 ・次のコードを貼り付け ※何も言わないけど、、、ううむ Private Sub Command1_Click() Dim dData(10) As Double Dim i As Integer Dim dKey As Double Dim iKey As Integer '*** データを配列変数に格納する dData(0) = 10 dData(1) = 100.56 dData(2) = 20 dData(3) = 86.45 dData(4) = 11 dData(5) = 125 dData(6) = 21 dData(7) = 135 '*** 取り出したい行のデータ内容を指定する場合 dKey = 86.45 For i = 0 To UBound(dData) - 1 If dData(i) = dKey Then Call MsgBox(dData(i), vbInformation) End If Next i '*** 取り出したい行番号を指定する場合 iKey = 3 Call MsgBox(dData(iKey), vbInformation) End Sub