Document

１年
組＿＿＿＿＿
目次







目的
占いの説明
占いの作り方
マクロについて①
マクロについて②
Vlookupについて
感想
目的


今まで習ってきた知識を
活かして、占いを作って
みる
星座別占いを作る
占いの説明

1.
2.
3.
4.
自分の誕生日を入力
すると、次のことが診
断される。
星座
星座別の総合順位
ラッキーカラー
ラッキーグッズ
しク
てリ
ねッ
♪ク
占いの作り方




星座の出し方
⇒マクロによって出す
総合順位、ラッキーカラー、ラッキーグッズの
出し方
⇒ vlookupによって出す
マクロについて①



Sub 星座()
a = Cells(3, 3)
b = Cells(3, 5)















If a = 3 And b > 20 Then
Cells(5, 4) = "おひつじ"
ElseIf a = 4 And b < 20 Then
Cells(5, 4) = "おひつじ"
ElseIf a = 4 And b > 19 Then
Cells(5, 4) = "おうし"
ElseIf a = 5 And b < 21 Then
Cells(5, 4) = "おうし"
ElseIf a = 5 And b > 20 Then
Cells(5, 4) = "ふたご"










ElseIf a = 6 And b < 22 Then
Cells(5, 4) = "ふたご"
ElseIf a = 6 And b > 21 Then
Cells(5, 4) = "かに"
ElseIf a = 7 And b < 23 Then
Cells(5, 4) = "かに"
ElseIf a = 7 And b > 22 Then
Cells(5, 4) = "しし"
ElseIf a = 8 And b < 23 Then
Cells(5, 4) = "しし"
ElseIf a = 8 And b > 22 Then
Cells(5, 4) = "おとめ"
ElseIf a = 9 And b < 23 Then
Cells(5, 4) = "おとめ"
マクロについて②














ElseIf a = 9 And b > 22 Then
Cells(5, 4) = "てんびん"
ElseIf a = 10 And b < 24 Then
Cells(5, 4) = "てんびん"
ElseIf a = 10 And b > 23 Then
Cells(5, 4) = "さそり"
ElseIf a = 11 And b < 22 Then
Cells(5, 4) = "さそり"
ElseIf a = 11 And b > 21 Then
Cells(5, 4) = "いて"
ElseIf a = 12 And b < 22 Then
Cells(5, 4) = "いて"
ElseIf a = 12 And b > 21 Then
Cells(5, 4) = "やぎ"











ElseIf a = 1 And b < 20 Then
Cells(5, 4) = "やぎ"
ElseIf a = 1 And b > 19 Then
Cells(5, 4) = "みずがめ"
ElseIf a = 2 And b < 19 Then
Cells(5, 4) = "みずがめ"
ElseIf a = 2 And b > 18 Then
Cells(5, 4) = "うお"
ElseIf a = 3 And b < 21 Then
Cells(5, 4) = "うお"
End If


End Sub
Vlookupについて


1.
2.
3.
例えば。。。
=VLOOKUP(D5,$M$8:$O$19,3)
D5⇒検索値
$M$8:$O$19⇒範囲
テーブルは昇順に
3⇒列番号
並び替
えておこう☆
感想

はじめに占いを作ると決めたときは、具体的に
どのように作ったらいいのか分からなくて困っ
たけど、最終的に何とか形になってよかったで
す☆いろいろ先生の手もかりてしまったけど、
マクロやその他関数の使い方が授業で習って
いただけのときよりも理解できた気がします。
将来絶対この情報で習ったことが役に立つ日
が来ると思うので、そのときまでしっかり覚えて
おきたいと思いました(^▽^)/

Download Report