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

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

複製代碼

...

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