連載投稿 – NOMAD-LAB

2019年8月29日2019年9月5日

連載3:　三高評価を VBAで作成します

前回に引き続き、今回は

A子さんとB子さんの条件分岐入力です

A子さんの場合

Private Sub CommandButton2_Click()

If (a > 80 And b > 180 And c > 1000) Then
MsgBox "OKです！"
Else
MsgBox "次に方へ"
End If

End Sub


B子さんの場合

Private Sub CommandButton3_Click()

If (a > 80 Or b > 180 Or c > 1000) Then
MsgBox "OKです！"
Else
MsgBox "次に方へ"
End If

End Sub

次回で最終掲載です！

2019年8月27日2019年9月5日

連載2:　三高評価を VBAで作成します

ユーザーフォームの作成は抜粋します。
（作り方は、BMI値の算出を参照して下さい）

最初に、三高の基準となる設定をします

'変数宣言

Dim atai1 As Integer
Dim atai2 As Integer
Dim atai3 As Integer


'入力
atai1 = a.Value
atai2 = b.Value
atai3 = c.Value

'条件処理

If a > 80 Then
MsgBox "よく出来ました"
Else
MsgBox "偏差値は普通です"
End If

If b > 180 Then
MsgBox "背高いですね"
Else
MsgBox "身長は普通です"
End If

If c > 1000 Then
MsgBox "高収入ですね"
Else
MsgBox "収入は普通です"
End If


End Sub

2019年8月26日2019年8月26日

連載1:　三高評価を VBAで作成します　(4回完結)

今回は、VBAで三高評価を作ります！(IF文を用いて作成)

三高とは、少し前に流行った、女性が男性を選ぶ時に基準とした

高学歴・高身長・高収入　を　2人(A子さん・B子さん)の条件を設定して

メッセーが出るプログラムです

【三高の標準設定値】

身長　＝　１８０ｃｍ

偏差値　＝　８０

収入　＝　1,000万円　


【三高のそれぞれの値のついてメッセージ】
　
偏差値が　＞　80　であれば　”よく出来ました！”
それ以外は、 "偏差値は普通です"


身長が　 >　 180 cm　であれば　”背高いですね！"
それ以外は、 "身長は普通です"
 
年収が　>　1000万 円　であれば　 "高収入ですね！"
それ以外は、　 "収入は普通です"



【A 子さんの　ok  条件】　AND文

身長　１８０cm以上、偏差値　８０以上、年収　1,000万円以上であれば『OK』

条件に一つでも合わなければ、『次の方へ』のメッセージ



【Ｂ子さんの　ok  条件】　OR文

条件に一つでも合えば『OK』

条件に一つも合わなければ、『次の方へ』のメッセージ

画面は以下の通りになります！