Excel VBA - 使用'next'和'previous'按鈕瀏覽工作表

Question

我有一個Excel表單，它從80行工作表的每一行讀取數據並將每個單元格填充到文本框中。

初始表單的代碼如下。

Private Sub UserForm_Initialize() 

txtbox_revri_idnum.Text = Worksheets("Risk&Issues").Range("A4").Value 
txtbox_revri_projname.Text = Worksheets("Risk&Issues").Range("B4").Value 
txtbox_revri_isrefnum.Text = Worksheets("Risk&Issues").Range("C4").Value 
txtbox_revri_riskrefnum.Text = Worksheets("Risk&Issues").Range("D4").Value 
... 
txtbox_revri_projname.SetFocus 

End Sub 

理想情況下，我希望做的是當按下「下一步」按鈕，下一行（A5，B5，C5，D5 ...）被解析到一個數組，範圍用下一行的數據更新。相反，「上一個」按鈕將以相反方向（A3，B3，C3，D3 ...）進行。實質上，我想在工作表中上下瀏覽，查看整個行，並在每個單元格中添加一個新的文本框。

我試過各種各樣的VBA組合（考慮到我是VBA新手，雖然有一些Java和PHP的經驗）。我現在的「下一個」按鈕的代碼具有下面的代碼。

Private Sub button_revri_next_Click() 

txtbox_revri_idnum.Text = ActiveCell.Next.Text 
... 
End Sub 

謝謝......我知道你們比我更聰明！

Answer 1

你可以使用.Offset來實現你想要的。

嘗試和測試

Dim i As Long, j As Long 
Dim rng As Range 

Private Sub UserForm_Initialize()  
    Set rng = Worksheets("Risk&Issues").Range("A4") 

    i = 0: j = 1 

    txtbox_revri_idnum.Text = rng.Offset(i).Value 
    txtbox_revri_projname.Text = rng.Offset(i, j).Value: j = j + 1 
    txtbox_revri_isrefnum.Text = rng.Offset(i, j).Value: j = j + 1 
    txtbox_revri_riskrefnum.Text = rng.Offset(i, j).Value: j = j + 1 
    ' 
    ' 
    txtbox_revri_projname.SetFocus 
End Sub 

'~~> Next Button 
Private Sub button_revri_next_Click() 
    i = i + 1: j = 1 

    If i > (Sheets("Risk&Issues").Rows.Count - 4) Then 
     MsgBox "Max rows Reached" 
     Exit Sub 
    End If 

    txtbox_revri_idnum.Text = rng.Offset(i).Value 
    txtbox_revri_projname.Text = rng.Offset(i, j).Value: j = j + 1 
    txtbox_revri_isrefnum.Text = rng.Offset(i, j).Value: j = j + 1 
    txtbox_revri_riskrefnum.Text = rng.Offset(i, j).Value: j = j + 1 
    ' 
    ' 
    txtbox_revri_projname.SetFocus 
End Sub 

同樣上一個按鈕

'~~> Previous Button 
Private Sub button_revri_prev_Click() 
    i = i - 1: j = 1 

    If i < 0 Then 
     MsgBox "1st Row Reached" 
     Exit Sub 
    End If 

    txtbox_revri_idnum.Text = rng.Offset(i).Value 
    txtbox_revri_projname.Text = rng.Offset(i, j).Value: j = j + 1 
    txtbox_revri_isrefnum.Text = rng.Offset(i, j).Value: j = j + 1 
    txtbox_revri_riskrefnum.Text = rng.Offset(i, j).Value: j = j + 1 
    ' 
    ' 
    txtbox_revri_projname.SetFocus 
End Sub