Re: [VB6 ] 關於和excel的連結
※ 引述《dxsrx (金門人)》之銘言：
: 我先用excel作3個亂數
: A1:1~1000
: B1:500~5000
: C1:800~2500
: 請問能在list上展示嗎?
: (就是我點command,讓ABC產生,在show出來,還是有別的方式?謝謝(_ _))
Private Sub CommandButton1_Click()
Dim A1 As Long, B1 As Long, C1 As Long
ListBox1.Clear
A1 = RndNumber(1, 1000)
B1 = RndNumber(500, 5000)
C1 = RndNumber(800, 2500)
ListBox1.AddItem A1
ListBox1.AddItem B1
ListBox1.AddItem C1
End Sub
Public Function RndNumber(ByVal Min As Long, ByVal Max As Long) As Long
Randomize Timer
RndNumber = Fix(Rnd * (Max - Min) + Min)
End Function
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.194.224.174
推
06/26 15:09, , 1F
06/26 15:09, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：