- Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
537 ：デフォルトの名無しさん[sage]：2015/02/24(火) 20:49:49.67 ID:PIm2u7Y8 - とりあえず、どのボタンが押されたかが分かるサンプルと、引数に与えた最小値と最大値の間の整数を返す関数を置いておきますね
Sub Sample1()
Dim Button_Name As String
Button_Name = Application.Caller
MsgBox Button_Name
End Sub
Function makeRndInt(minInt As Integer, maxInt As Integer) As Integer
Randomize
makeRndInt = Int((maxInt - minInt + 1) * Rnd + minInt)
End Function
次の問題ボタンはA1〜D8のセルをランダムに抽出し、E1に表示する機能
回答ボタンは、どのボタンが押されたかを見て、対応する列名を取得し、A1〜D8範囲を探す機能を追加すればいいかと
|
|