頁:
[1]
如何在特定數字中依序選號？
最近想做出一個選號的系統，
有四個文字方塊分別為tb1.tb2.tb3.tb4，
底下為四個清除按鈕，分別對應tb1-tb4,
在工作表2有一組數字，分別為3.4.5.10.12.14.15.19.20.24，
獲取第一次資料後，tb1-tb4能顯示前四個數字3.4.5.10，
當tb3按下底下的按鈕清除後，5會消失，
並立刻補上12做為顯示的數字。
再按下tb1下的清除鍵後，3會消失，並補上14。
該怎麼寫才能做到此功能呢？
<div></div> 似乎只需要一個Queue. 自工作表2輸入, 各tb button接能輸出. 使用 DIM A（20）這個順序來儲存所有數字，例如 A(0) = 3， A(1)=4 。。。。。。
一開始用了 4個 A(0)，A(1), A(2)，A(3)，往後按清除 本帖最後由 tryit244178 於 2017-5-1 05:19 PM 編輯
數字放在 工作表2 的儲存格裡，宣告個索引用的變數(假設是index)
看是放直的還是橫的…
然後用 Rows(index) 或 Colums(index) 取出 工作表2 的值即可
補程式碼
Private index As Integer
Private Sub UserForm_Initialize()
index = 0
End Sub
Private Sub CommandButton1_Click()
TextBox1.Text = GetNumber
End Sub
Private Function GetNumber() As Integer
index = index + 1
GetNumber = 工作表2.Rows(1).Columns(index).Value '橫的用這行
GetNumber = 工作表2.Columns(1).Rows(index).Value '直的用這行
End Function
...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>
頁:
[1]