[發問] 如何做出上一筆下一筆的效果

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-4-20 13:17 | 只看該作者

請問各位大大前輩們:
如何做出上一筆下一筆的循環效果呢？

Book2.rar (18.87 KB)

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-6-15 17:13 | 只看該作者

回復 3# sammay
滑鼠點選於資料的任一儲存格然後如圖

3^#

發表於 2012-6-15 14:48 | 只看該作者

回復 2# GBKEE
謝謝GBKEE大大的回覆，感恩。
是否有更簡單的寫法呢？

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-6-3 11:40 | 只看該作者

回復 1# sammay
請重新制訂表單控制項 TextBox 名稱依序排列為 1-6

表單的程式碼

Dim DataSh As Worksheet, Row_No As Integer, Row_Min As Integer, Row_Max As Integer
Private Sub UserForm_Initialize() '表單顯示前的預設程序
Set DataSh = Sheets("sheet1") '資料的工作頁
Row_Min = 2 '第一筆的列號
Row_Max = DataSh.Cells(Rows.Count, 1).End(xlUp).Row '最後一筆列號
'Row_No 沒有給值 = 0
End Sub
Private Sub CommandButton1_Click() '上一筆
If Row_No > Row_Min Then
Row_No = Row_No - 1
Else
Row_No = Row_Min
End If
Show_Data
End Sub
Private Sub CommandButton2_Click() '下一筆
If Row_No < Row_Max Then
Row_No = Row_No + 1
ElseIf Row_No = 0 Then
Row_No = Row_Min
End If
Show_Data
End Sub
Private Sub Show_Data() '顯示在TextBox的數據
Dim xi As Integer
For xi = 1 To 6
Me.Controls("TextBox" & xi) = DataSh.Cells(Row_No, xi).Text
Next
End Sub

複製代碼

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。