Excel VBA UserFrom翻頁問題

excel excel vba vba

r80073 2022-03-07 18:26:56 ‧ 1275 瀏覽

分享至

各位大神好，想請教我在VBA userform上寫了一個考試介面，初始由第1頁開始依序按「下一頁」都能正常顯示，如按「上一頁」，只要沒有回到第1頁，前後頁切換也都正常，但如果有按至第1頁，再依序按到第3頁的時候，學員的答案會被第2頁答案覆蓋，請教大神我是否再哪一段程式碼有疏漏，感謝

Private Sub CommandButton2_Click()
Dim i, x, y As Integer

If sheet4.Range("F2") = 1 Then
    '上一頁-當下資料寫入學員作答頁
    x = sheet4.Range("F2")
    For i = 11 To 20
        sheet2.Cells(x + 1, 5) = Me("TextBox" & i).Value
        x = x + 1
    Next
    Response = MsgBox("已經到第一頁囉")
    
ElseIf sheet4.Range("F2") = 2 Then
    '上一頁-當下資料寫入學員作答頁
    y = sheet4.Range("F2") * 10
    For i = 11 To 20
        sheet2.Cells(y + 2, 5) = Me("TextBox" & i).Value
        y = y + 1
    Next
    '上一頁-帶出上一頁考題
    y = sheet4.Range("F2") - 1
    For i = 1 To 10
    Me("TextBox" & i).Value = sheet2.Cells(y + 1, 3)
    y = y + 1
    Next
    
    '上一頁-帶出上一頁學員作答
    y = sheet4.Range("F2") - 1
    For i = 11 To 20
    Me("TextBox" & i).Value = sheet2.Cells(y + 1, 5)
    y = y + 1
    Next
    
    '上一頁-當前頁數-1
    sheet4.Range("F2") = sheet4.Range("F2") - 1
    '顯示頁碼
    Label15.Caption = "頁碼：" & sheet4.Range("F2")
    
Else
    '上一頁-當下資料寫入學員作答頁
    y = sheet4.Range("F2") - 1
    y = y * 10
    For i = 11 To 20
        sheet2.Cells(y + 2, 5) = Me("TextBox" & i).Value
        y = y + 1
    Next
    
    '上一頁-帶出上一頁考題
    y = sheet4.Range("F2") - 1
    y = y * 10 - 10
    For i = 1 To 10
    Me("TextBox" & i).Value = sheet2.Cells(y + 2, 3)
    y = y + 1
    Next
    
    '上一頁-帶出上一頁學員作答
    y = sheet4.Range("F2") - 1
    y = y * 10 - 10
    For i = 11 To 20
    Me("TextBox" & i).Value = sheet2.Cells(y + 2, 5)
    y = y + 1
    Next
    
    '上一頁-當前頁數-1
    sheet4.Range("F2") = sheet4.Range("F2") - 1
    '顯示頁碼
    Label15.Caption = "頁碼：" & sheet4.Range("F2")
    
    
End If

End Sub

Private Sub CommandButton3_Click()
Dim i, x, y As Integer

If sheet4.Range("F2") = 1 Then

    '下一頁-當下資料寫入學員作答頁
    x = sheet4.Range("F2")
    For i = 11 To 20
        sheet2.Cells(x + 1, 5) = Me("TextBox" & i).Value
        x = x + 1
    Next
    '下一頁-帶出下一頁考題
    x = 12
    For i = 1 To 10
    Me("TextBox" & i).Value = sheet2.Cells(x, 3)
    x = x + 1
    Next
    
    '下一頁-帶出下一頁學員作答
    x = 12
    For i = 11 To 20
    Me("TextBox" & i).Value = sheet2.Cells(x, 5)
    x = x + 1
    Next
    
    '下一頁-當前頁數+1
    sheet4.Range("F2") = sheet4.Range("F2") + 1
    '顯示頁碼
    Label15.Caption = "頁碼：" & sheet4.Range("F2")
        
ElseIf sheet4.Range("F2") = sheet4.Range("G2") Then
    
    '下一頁-當下資料寫入學員作答頁
    x = sheet4.Range("F2") - 1
    x = x * 10
    For i = 11 To 20
        sheet2.Cells(x + 2, 5) = Me("TextBox" & i).Value
        x = x + 1
    Next

    Response = MsgBox("已經到最後一頁囉")

Else
    '下一頁-當下資料寫入學員作答頁
    y = sheet4.Range("F2") - 1
    y = y * 10
    For i = 11 To 20
        sheet2.Cells(y + 2, 5) = Me("TextBox" & i).Value
        y = y + 1
    Next
    
    '下一頁-帶出下一頁考題
    y = sheet4.Range("F2") * 10
    For i = 1 To 10
    Me("TextBox" & i).Value = sheet2.Cells(y + 2, 3)
    y = y + 1
    Next
    
    '下一頁-帶出下一頁學員作答
    y = sheet4.Range("F2") * 10
    For i = 11 To 20
    Me("TextBox" & i).Value = sheet2.Cells(y + 2, 5)
    y = y + 1
    Next
    
    '下一頁-當前頁數+1
    sheet4.Range("F2") = sheet4.Range("F2") + 1
    '顯示頁碼
    Label15.Caption = "頁碼：" & sheet4.Range("F2")

End If

End Sub

blanksoul12 iT邦研究生 5 級 ‧ 2022-03-08 08:47:57 檢舉

前前後後按完後回到第一頁時 , sheet4.Range("F2") = ?

登入發表討論

熱門推薦

{{ item.channelVendor }} | {{ item.webinarstarted }} |

直播中

1 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2022-03-08 09:48:45

最佳解答

你寫的有點太複雜
我試著把程式簡化如下供參考
(page 的 0 或是大於最後一頁你再自己加判斷)

Sub FormToSheet(byval page as integer)
    '依照「頁數」把表單的「答案」寫到 sheet 中
End Sub
Sub SheetToForm(byval page as integer)
    '依照「頁數」把表單的「題目」和「答案」寫到 form 中
End Sub
Sub CommandButton2_Click()
    page = Sheet.Range("F2")
    call FormToSheet(page)
    page = page - 1
    call SheetToForm(page)
    Sheet.Range("F2") = page
End Sub
Sub CommandButton3_Click()
    page = Sheet.Range("F2")
    call FormToSheet(page)
    page = page + 1
    call SheetToForm(page)
    Sheet.Range("F2") = page
End Sub

回應 5
分享
檢舉

看更多先前的回應...收起先前的回應...

尼克 iT邦大師 1 級 ‧ 2022-03-08 10:14:21 檢舉

VBA 大神

r80073 iT邦新手 5 級 ‧ 2022-03-08 12:13:06 檢舉

感謝大神教授!!!

r80073 iT邦新手 5 級 ‧ 2022-03-08 12:19:18 檢舉

大神另外想請教，我的題目產出後都會放在同1個sheet，但userfrom一次只會秀出10題，程式碼中「FormToSheet」跟「SheetToForm」這裡可以怎麼調整?

海綿寶寶 iT邦大神 1 級 ‧ 2022-03-08 17:00:34 檢舉

我寫 SheetToForm
FormToSheet 你自己寫

Sub SheetToForm(byval page as integer)
    '依照「頁數」把表單的「題目」和「答案」寫到 form 中
    row = (page - 1) * 10 + 2  '計算起始列數,2,12,22,...
    colQuestion = 3  '題目行數
    colAnswer = 5    '學生答案行數
    For i = 0 To 9
        Me("TextBox" & (i+1)).Value = sheet2.Cells(row + i, colQuestion)
        Me("TextBox" & (i+11)).Value = sheet2.Cells(row + i, colAnswer)
    Next
End Sub