返回列表 上一主題 發帖

[發問] 上一欄、下一欄怎麼設計?

kkooo15
　暱稱: 新手

中學生Rank: 2

帖子
123 
主題
37 
精華
0 
積分
177 
點名
0  
作業系統
WIN10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-11-9 
最後登錄
2024-3-28 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2019-7-18 22:29 | 只看該作者

[發問] 上一欄、下一欄怎麼設計?

我想要可以按下一頁就下一欄修改資料
到第一欄就MsgBox ("資料最上層")
按上一頁就上一欄修改資料
到最後一欄沒有資料就MsgBox ("沒有資料")

  1. Private Sub CB1_Click()
  2. i = i - 1
  3. TB1.Text = xSh.Cells(i, 3)
  4. End Sub

  6. Private Sub CB2_Click()
  7. i = i + 1
  8. TB1.Text = xSh.Cells(i, 3)
  9. End Sub
  10. Private Sub CB3_Click()
  11. Set xSh = Sheets("工作表1")
  12. '讀取資料
  13. Dim i As Integer
  14. i = 4
  15. Do
  16. i = i + 1
  17. If xSh.Cells(i, 4) = "" Then Exit Do
  18. If TB1.Text = xSh.Cells(i, 3) Then
  19.     '廠商客戶資料TBox1~3
  20.     TB2.Text = xSh.Cells(i, 4)
  21.     TB3.Text = xSh.Cells(i, 5)
  22.     TB4.Text = xSh.Cells(i, 6)
  23.     TB5.Text = xSh.Cells(i, 7)
  24.     TB6.Text = xSh.Cells(i, 8)
  25. Exit Sub
  26. End If
  27. Loop
  28. End Sub
  29. Private Sub CB4_Click()
  30. Set xSh = Sheets("工作表1")
  31. '修改資料
  32. Dim i As Integer
  33. i = 4
  34. Do
  35. i = i + 1

  37. If xSh.Cells(i, 4) = "" Then Exit Do
  38. If TB1.Text = xSh.Cells(i, 3) Then
  39.   
  40.     '廠商客戶資料TBox1~3
  41.     xSh.Cells(i, 4) = TB2.Text
  42.     xSh.Cells(i, 5) = TB3.Text
  43.     xSh.Cells(i, 6) = TB4.Text
  44.     xSh.Cells(i, 7) = TB5.Text
  45.     xSh.Cells(i, 8) = TB6.Text

  47. Exit Sub
  48. End If
  49. Loop
  50. End Sub
複製代碼
test.rar (20.64 KB)
收藏 分享
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

kkooo15
　暱稱: 新手

中學生Rank: 2

帖子
123 
主題
37 
精華
0 
積分
177 
點名
0  
作業系統
WIN10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-11-9 
最後登錄
2024-3-28 
3#
發表於 2019-7-20 01:30 | 只看該作者
回復 2# 准提部林

太酷了，內容要花一點時間吸收。
１．原來宣告可以整個表單使用。
２．原來表單的資料也可以用ＦＯＲ　回圈填入資料。
謝謝大大。
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
2#
發表於 2019-7-19 11:21 | 只看該作者
參考檔:
Xl0000605.rar (15.43 KB)

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題