Sub クイズ() j = 0 tensu = 0 Do Until j = 2 I = Rnd * 2 S = Int(I) + 1 GRIDA = "A" & Application.WorksheetFunction.Text(S, "0") GRIDB = "B" & Application.WorksheetFunction.Text(S, "0") メッセージ = Range("" & GRIDA & "") ANS = InputBox("" …
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。