Skip to content

Instantly share code, notes, and snippets.

Embed
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.