こんにちは！

昨日から長期的スパンで遺伝学の基本的な事を学べるようにと思って

遺伝学の基礎の本を元にしたエクセルVBA開発をしています。

めちゃめちゃシンプルな作りにしています。

以下、コードです。

Sub Oct11()
MsgBox ("これから遺伝学の勉強を始めます")
Worksheets("sheet1").Range("A1").Value = InputBox("メンデルの法則を作ったのはだれ？", "")
Worksheets("sheet1").Range("B1") = "=if(A1 = ""グレゴール・ヨハン・メンデル"",""正解"",""残念。"")"

Worksheets("sheet1").Range("A2").Value = InputBox("メンデルが修道院に属しながらおこなった交配実験は？", "")
Worksheets("sheet1").Range("B2") = "=if(A2 = ""エンドウ豆"",""正解"",""残念。"")"

Worksheets("sheet1").Range("A3").Value = InputBox("糖鎖の糖が構成されている分子を３つ答えなさい。", "")
Worksheets("sheet1").Range("B3") = "=if(A3 = ""炭素・水素・酸素"",""正解"",""残念。"")"

Worksheets("sheet1").Range("A4").Value = InputBox("O型ではガラクトースの次に来る糖は何か？", "")
Worksheets("sheet1").Range("B4") = "=if(A4 = ""フコース"",""正解"",""残念。"")"

Worksheets("sheet1").Range("A5").Value = InputBox("A型ではO型の糖鎖の途中のガラクトースにつく糖は何か？", "")
Worksheets("sheet1").Range("B5") = "=if(A5 = ""Nアセチルガラクトサミン"",""正解"",""残念。"")"

'Worksheets("sheet1").Range("A6").Value = InputBox("", "")
'Worksheets("sheet1").Range("B6") = "=if(A6 = """",""残念。"")"

'Worksheets("sheet1").Range("A7").Value = InputBox("", "")
'Worksheets("sheet1").Range("B7") = "=if(A7 = """",""正解"",""残念。"")"

'Worksheets("sheet1").Range("A8").Value = InputBox("", "")
'Worksheets("sheet1").Range("B8") = "=if(A8 = """",""正解"",""残念。"")"

'Worksheets("sheet1").Range("A9").Value = InputBox("", "")
'Worksheets("sheet1").Range("B9") = "=if(A9 = """",""正解"",""残念。"")"

'Worksheets("sheet1").Range("A3").Value = InputBox("", "")
'Worksheets("sheet1").Range("B3") = "=if(A3 = """",""正解"",""残念。"")"

End Sub

Sub Module()
Module1.Oct11
End Sub

まだまだ作り途中なのですけども、こんな風にしています。

そしてボタンモジュールを組み込んでいるのでボタンをクリックしたら

MsgBoxが出て、エンターを押すと問題をひたすら解いていく

というような形ですごくシンプルですが量がとてつもなく多いです。

例えば
G（グアニン）
C（シトシン）
A(アデニン)
T(チミン)
みたいな誰でも知っているような基本４塩基とアミノ酸２０種類を

覚えたりするのは容易な事ではないですしさらに

アリの染色体本数は2本ですけどもそのゲノムを書きなさい

みたいなことを問われたら、今の私では無理ですね。

また、病理学においてはTに変わる塩基でU(ウラシル)

というものがあるようですね。

それに関しても今後は遺伝学・病理学などの事を学んでいきながら

こういったものも作っていけたらなと考えています。

こんな風に、作っています。

キャプチャとコードを載せておきますので

こんな風に学習障害がありながらも、日々努力をしています。