如何在特定數字中依序選號？

zbc231

最近想做出一個選號的系統，
有四個文字方塊分別為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。
該怎麼寫才能做到此功能呢？
...

瀏覽完整內容，請先 註冊 或 登入會員

johnwanz

似乎只需要一個Queue. 自工作表2輸入, 各tb button接能輸出.

使用 DIM A（20）這個順序來儲存所有數字，例如 A(0) = 3， A(1)=4 。。。。。。

一開始用了 4個 A(0)，A(1), A(2)，A(3)，往後按清除

tryit244178

數字放在 工作表2 的儲存格裡，宣告個索引用的變數(假設是index)
看是放直的還是橫的…
然後用 Rows(index) 或 Colums(index) 取出 工作表2 的值即可
補程式碼

1. Private index As Integer
   
2. 
   
3. Private Sub UserForm_Initialize()
   
4.     index = 0
   
5. End Sub
   
6. 
   
7. Private Sub CommandButton1_Click()
   
8.     TextBox1.Text = GetNumber
   
9. End Sub
   
10. 
    
11. Private Function GetNumber() As Integer
    
12.     index = index + 1
    
13.     GetNumber = 工作表2.Rows(1).Columns(index).Value '橫的用這行
    
14.     GetNumber = 工作表2.Columns(1).Rows(index).Value '直的用這行
    
15. End Function

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員