SI2200

気温キオンと飽和ホウワ水蒸気スイジョウキ量リョウ

気温キオンと飽和ホウワ水蒸気スイジョウキ量リョウ

気温キオン（℃）

露点ロテン（℃）

気温キオン　（℃）

0

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

22

15

飽和ホウワ水蒸気スイジョウキ量リョウg/m３

4.8

5.2

5.6

5.9

6.4

6.8

7.3

7.8

8.3

8.8

9.4

10

11

11

12

13

14

15

15

16

17

18

19

21

22

23

24

26

27

29

30

32

34

36

38

40

42

44

46

49

資料シリョウ　浜島ハマジマ書店ショテン　理科リカ便覧ビンランから

飽和ホウワ 水蒸気スイジョウキ量リョウ

水蒸気スイジョウキ量リョウ

湿度シツド

ｇ／ｍ３

ｇ／ｍ３

％

19.4

12.8

65.98

露点ロテンから湿度シツドを求モトめる計算ケイサン

マクロ記入キニュウの　Visual Basic　例レイ

Sub 露点から湿度()

'

' 露点から湿度 Macro

マクロ記録日 : 2005/1/19  ユーザー名 :

'

Dim kionx As Integer

Dim rotenx As Integer

Range("B5").Activate

Range("C5").Activate

Range("B9").Activate

Range("C9").Activate

Range("D9").Activate

Range("D9").Formula = "=($C$9/$B$9)*100"

If Range("B5") = "0" Then

kionx = kionx + 7&

ElseIf Range("B5") = "1" Then

kionx = kionx + 8&

ElseIf Range("B5") = "2" Then

kionx = kionx + 9&

ElseIf Range("B5") = "3" Then

kionx = kionx + 10&

ElseIf Range("B5") = "4" Then

kionx = kionx + 11&

ElseIf Range("B5") = "5" Then

kionx = kionx + 12&

ElseIf Range("B5") = "6" Then

kionx = kionx + 13&

ElseIf Range("B5") = "7" Then

kionx = kionx + 14&

ElseIf Range("B5") = "8" Then

kionx = kionx + 15&

ElseIf Range("B5") = "9" Then

kionx = kionx + 16&

ElseIf Range("B5") = "10" Then

kionx = kionx + 17&

ElseIf Range("B5") = "11" Then

kionx = kionx + 18&

ElseIf Range("B5") = "12" Then

kionx = kionx + 19&

ElseIf Range("B5") = "13" Then

kionx = kionx + 20&

ElseIf Range("B5") = "14" Then

kionx = kionx + 21&

ElseIf Range("B5") = "15" Then

kionx = kionx + 22&

ElseIf Range("B5") = "16" Then

kionx = kionx + 23&

ElseIf Range("B5") = "17" Then

kionx = kionx + 24&

ElseIf Range("B5") = "18" Then

kionx = kionx + 25&

ElseIf Range("B5") = "19" Then

kionx = kionx + 26&

ElseIf Range("B5") = "20" Then

kionx = kionx + 27&

ElseIf Range("B5") = "21" Then

kionx = kionx + 28&

ElseIf Range("B5") = "22" Then

kionx = kionx + 29&

ElseIf Range("B5") = "23" Then

kionx = kionx + 30&

ElseIf Range("B5") = "24" Then

kionx = kionx + 31&

ElseIf Range("B5") = "25" Then

kionx = kionx + 32&

ElseIf Range("B5") = "26" Then

kionx = kionx + 33&

ElseIf Range("B5") = "27" Then

kionx = kionx + 34&

ElseIf Range("B5") = "28" Then

kionx = kionx + 35&

ElseIf Range("B5") = "29" Then

kionx = kionx + 36&

ElseIf Range("B5") = "30" Then

kionx = kionx + 37&

ElseIf Range("B5") = "31" Then

kionx = kionx + 38&

ElseIf Range("B5") = "32" Then

kionx = kionx + 39&

ElseIf Range("B5") = "33" Then

kionx = kionx + 40&

ElseIf Range("B5") = "34" Then

kionx = kionx + 41&

ElseIf Range("B5") = "35" Then

kionx = kionx + 42&

ElseIf Range("B5") = "36" Then

kionx = kionx + 43&

ElseIf Range("B5") = "37" Then

kionx = kionx + 44&

ElseIf Range("B5") = "38" Then

kionx = kionx + 45&

ElseIf Range("B5") = "39" Then

kionx = kionx + 46&

Else

kionx = kionx

End If

Cells(5, kionx).Activate

Range("B9").Value = Cells(5, kionx).Value

MsgBox "気温の飽和水蒸気量は、" & Range("B9") & "g/m3です。"

If Range("C5") = "0" Then

rotenx = rotenx + 7&

ElseIf Range("C5") = "1" Then

rotenx = rotenx + 8&

ElseIf Range("C5") = "2" Then

rotenx = rotenx + 9&

ElseIf Range("C5") = "3" Then

rotenx = rotenx + 10&

ElseIf Range("C5") = "4" Then

rotenx = rotenx + 11&

ElseIf Range("C5") = "5" Then

rotenx = rotenx + 12&

ElseIf Range("C5") = "6" Then

rotenx = rotenx + 13&

ElseIf Range("C5") = "7" Then

rotenx = rotenx + 14&

ElseIf Range("C5") = "8" Then

rotenx = rotenx + 15&

ElseIf Range("C5") = "9" Then

rotenx = rotenx + 16&

ElseIf Range("C5") = "10" Then

rotenx = rotenx + 17&

ElseIf Range("C5") = "11" Then

rotenx = rotenx + 18&

ElseIf Range("C5") = "12" Then

rotenx = rotenx + 19&

ElseIf Range("C5") = "13" Then

rotenx = rotenx + 20&

ElseIf Range("C5") = "14" Then

rotenx = rotenx + 21&

ElseIf Range("C5") = "15" Then

rotenx = rotenx + 22&

ElseIf Range("C5") = "16" Then

rotenx = rotenx + 23&

ElseIf Range("C5") = "17" Then

rotenx = rotenx + 24&

ElseIf Range("C5") = "18" Then

rotenx = rotenx + 25&

ElseIf Range("C5") = "19" Then

rotenx = rotenx + 26&

ElseIf Range("C5") = "20" Then

rotenx = rotenx + 27&

ElseIf Range("C5") = "21" Then

rotenx = rotenx + 28&

ElseIf Range("C5") = "22" Then

rotenx = rotenx + 29&

ElseIf Range("C5") = "23" Then

rotenx = rotenx + 30&

ElseIf Range("C5") = "24" Then

rotenx = rotenx + 31&

ElseIf Range("C5") = "25" Then

rotenx = rotenx + 32&

ElseIf Range("C5") = "26" Then

rotenx = rotenx + 33&

ElseIf Range("C5") = "27" Then

rotenx = rotenx + 34&

ElseIf Range("C5") = "28" Then

rotenx = rotenx + 35&

ElseIf Range("C5") = "29" Then

rotenx = rotenx + 36&

ElseIf Range("C5") = "30" Then

rotenx = rotenx + 37&

ElseIf Range("C5") = "31" Then

rotenx = rotenx + 38&

ElseIf Range("C5") = "32" Then

rotenx = rotenx + 39&

ElseIf Range("C5") = "33" Then

rotenx = rotenx + 40&

ElseIf Range("C5") = "34" Then

rotenx = rotenx + 41&

ElseIf Range("C5") = "35" Then

rotenx = rotenx + 42&

ElseIf Range("C5") = "36" Then

rotenx = rotenx + 43&

ElseIf Range("C5") = "37" Then

rotenx = rotenx + 44&

ElseIf Range("C5") = "38" Then

rotenx = rotenx + 45&

Else

rotenx = rotenx

End If

Cells(5, rotenx).Activate

Range("C9").Value = Cells(5, rotenx).Value

MsgBox "露点の飽和水蒸気量は、" & Range("C9") & "g/m3です。"

MsgBox "湿度は、" & Range("D9") & "％です。"

'

End Sub