Created
August 27, 2015 21:03
-
-
Save ochilab/b419a7731393fd5c1aa2 to your computer and use it in GitHub Desktop.
問題表示サンプル(講義資料
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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