어제 엑셀 VBA 학습 - 유전학 학습편 -

안녕하세요!

어제부터 장기적인 범위에서 유전학의 기본적인 것을 배울 수 있다고 생각합니다.

유전학의 기초의 책을 바탕으로 엑셀 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("당쇄의 당이 구성되어 있는 분자를 3개 대답하십시오.", "")
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(티민)
같은 누구나 알고있는 기본 4 염기와 아미노산 20 종류를

기억하는 것은 쉬운 일이 아니며

개미의 염색체 수는 2 개이지만 그 게놈을 쓰십시오.

같은 것을 묻는다면, 지금의 나에서는 무리군요.

또한 병리학에서는 T로 바뀌는 염기로 U (우라실)

라는 것이 있는 것 같습니다.

그것에 관해서도 향후는 유전학·병리학등의 것을 배워 가면서

이런 것도 만들어 가면 좋겠다고 생각합니다.



이런 식으로 만들고 있습니다.

캡처와 코드를 올려 놓기 때문에

이런 식으로 학습 장애가 있으면서도 매일 노력하고 있습니다.