0

Visual Basic でコーディングしてからしばらく経ちましたが、MS Excel で作業していたときの知識の多くを忘れていました。私は実際に MS Excel 2007 の開発者タブ内でコーディングしています。

「MySheet」というシートを含む既存のワークブックがあります。このシートには、テキスト値を持つセル範囲があり、セル範囲は A1:A10 です。ボタンをクリックして、この範囲内のランダムなセルからテキストを選択したいと思います。テキストは、メッセージ ボックスに表示されます。これが私がこれまでに持っているものです。これは確かにうまくいきません。何か助けてください。ありがとう！

Private Sub myButton_Click()
Dim xl As New Excel.Application
Dim xlsheet As Excel.Worksheet
Dim xlwbook As Excel.Workbook
Dim myCell As Range
Dim rndText As String
Dim rndIndex as Integer

rndIndex = **random number...not sure how**
rndText = ""

xlsheet = xl.Workbook.Sheets("MySheet")
myCell = xlsheet.Cells(rndIndex, 1)
rndText = myCell.Value
MsgBox (rndText)

End Sub
4

1 に答える 1

1

あなたは間違いなく正しい方向に進んでいます。.NETで乱数を取得するには、次の方法があります。

Dim rand = new Random()
rndIndex = rand.Next()

'Or you can do this and set a minimum and maximum value for the random number
rndIndex = rand.Next(0, 100)
于 2012-11-29T21:35:05.813 に答える