Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
Sub showProblem(num As Integer)
With Worksheets("Sheet1")
Label1.Caption = .Cells(num + 1, 1).Value '問題文
OptionButton1.Caption = .Cells(num + 1, 2).Value '選択肢1
OptionButton2.Caption = .Cells(num + 1, 3).Value '選択肢2
OptionButton3.Caption = .Cells(num + 1, 4).Value '選択肢3
OptionButton4.Caption = .Cells(num + 1, 5).Value '選択肢4
End With
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.