Re: [VB6 ] 關於和excel的連結

[fumizuki (矇面加菲獅)]

※ 引述《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
推 dxsrx:謝謝,我試試看^_^