伊莉討論區

標題: 如何在特定數字中依序選號？ [打印本頁]

---

作者: zbc231    時間: 2017-4-15 02:38 AM     標題: 如何在特定數字中依序選號？

[attach]118413303[/attach]
最近想做出一個選號的系統，
有四個文字方塊分別為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    時間: 2017-4-17 08:39 AM

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

---

作者: iamhahalau    時間: 2017-4-23 12:12 AM

提示: 作者被禁止或刪除 內容自動屏蔽

---

作者: tryit244178    時間: 2017-4-27 02:53 PM



數字放在 工作表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

複製代碼

---

歡迎光臨 伊莉討論區 (http://www50.eyny.com/)

Powered by Discuz!