SI2101		visual Basic Editor の例レイ
簡易カンイ乾湿カンシツ計ケイ					乾湿カンシツ計ケイ用ヨウ湿度シツド表ヒョウ
						乾カワ球キュウと湿シツ球キュウとの目盛メモりの読ヨみの差サ（℃）
	示シ度ドの入力ニュウリョク				（℃）	0	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15
	乾イヌイ球タマの 示度シド	湿球シッキュウの 示度シド	温度差オンドサ		35	100	93	87	80	74	68	63	57	52	47	42	37	33	28	24	20
					34	100	93	86	80	74	68	62	56	51	46	41	36	31	27	23	18
	20	18	2		33	100	93	86	80	73	67	61	56	50	45	40	35	30	26	21	17
					32	100	93	86	79	73	66	61	55	49	44	39	34	29	24	20	15
					31	100	93	86	79	72	66	60	54	48	43	37	32	27	23	18	13
					30	100	92	85	78	72	65	59	53	47	41	36	31	26	21	16	12
	湿度シツド (マクロを実行ジッコウする。）				29	100	92	85	78	71	64	58	52	46	40	35	29	24	19	14	10
					28	100	92	85	77	70	64	57	51	45	39	33	28	22	17	12	7
	81				27	100	92	84	77	70	63	56	50	43	37	32	26	21	15	10	5
		％			26	100	92	84	76	69	62	55	48	42	36	30	24	19	13	8	3
					25	100	92	84	76	68	61	54	47	41	34	28	22	17	11	6
					24	100	91	83	75	68	60	53	46	39	33	26	20	14	9	3
					23	100	91	83	75	67	59	52	45	38	31	24	18	12	6	0
	簡易カンイ湿度計シツドケイの作ツクり方カタ				22	100	91	82	74	66	58	50	43	36	29	22	16	10	4
					21	100	91	82	73	65	57	49	42	34	27	20	14	7	1
	乾イヌイ球タマ（温度計オンドケイ）	水ミズを含フクんだガーゼ付ツき			20	100	91	81	73	64	56	48	40	32	25	18	11	4
			温度計オンドケイ		19	100	90	81	72	63	54	46	38	30	23	15	8	1
					18	100	90	80	71	62	53	44	36	28	20	13	5
					17	100	90	80	70	61	51	43	34	26	18	10	2
		省略ショウリャク			16	100	89	79	69	59	50	41	32	23	15	7
					15	100	89	78	68	58	48	39	30	21	12	4
					14	100	89	78	67	57	46	37	27	18	9
					13	100	88	77	66	55	45	34	25	15	6
					12	100	88	76	65	53	43	32	22	12	2
					11	100	87	75	63	52	40	29	19	8
	温度計オンドケイと水ミズを含フクんだガーゼを付ツけた				10	100	87	74	62	50	38	27	16	5
	温度計オンドケイを用意ヨウイする.				9	100	86	73	60	48	36	24	12	1
					8	100	86	72	59	46	33	20	8
	湿度シツドの表示ヒョウジ				7	100	85	71	57	43	30	17	4
	�@　乾カワ球キュウ（温度計オンドケイ）の温度オンドを入力ニュウリョクする				6	100	85	70	55	41	27	13	0
	�A　湿シツ球キュウ（水ミズを含フクんだガーゼを付ツけた				5	100	84	68	53	38	24	9
	温度計オンドケイ）の温度オンドを入力ニュウリョクする				4	100	83	67	51	35	20	5
					3	100	82	65	49	32	16	1
	コンピュータの表示ヒョウジ				2	100	82	64	46	29	12
	�@　温度差オンドサの表示ヒョウジ				1	100	81	62	43	25	8
					0	100	80	60	40	21	3
	マクロの実ジツ行コウ				-0	100	80	61	43	25	8
	�@　ツールを開ヒラく				-1	99	79	59	40	21	3
	�A　マクロを開ヒラく				-2	98	77	56	36	16
	�B　「マクロ」を選エラぶ				-3	97	75	53	32	11
	�C　実ジツ行コウを押オす				-4	96	73	50	28	6
					-5	95	71	47	23
	コンピュータの表示ヒョウジ														資料シリョウ　　浜島ハマジマ書店ショテン　理科リカ便覧ビンランから
	�@　温度差オンドサ
	�A　湿度シツド
sa1000	簡易カンイ湿度計シツドケイのVisual Basic 例レイ
		Sub 簡易カンイ湿度シツド　（）											サブルーチンの始ハジまり
		Dim Jikx As Integer											配列ハイレツ　ｘ
		Dim Jiky As Integer											配列ハイレツ　ｙ
		Range("B7").Activate											使用シヨウセル		B7
		Range("C7").Activate											使用シヨウセル		C7
		Range("D7").Activate											使用シヨウセル		D7
		Range("B13").Activate											使用シヨウセル		B13
		Range("D7").Formula = "=$B$7-$C$7"											温度差オンドサの計算ケイサン
		If Range("B7") = "35" Then											If 文ブン　　乾イヌイ球タマ　35　℃　のとき
		Jiky = Jkly + 5&											配列ハイレツ　ｘ　を　ｘ　+　5　とする　（行ギョウを35度ドの行ギョウに合アわせる）
		ElseIf Range("B7") = "34" Then
		Jiky = Jiky + 6&											以下イカ
		ElseIf Range("B7") = "33" Then
		Jiky = Jiky + 7&
		ElseIf Range("B7") = "32" Then
		Jiky = Jiky + 8&
		ElseIf Range("B7") = "31" Then
		Jiky = Jiky + 9&
		ElseIf Range("B7") = "30" Then
		Jiky = Jiky + 10&
		ElseIf Range("B7") = "29" Then
		Jiky = Jiky + 11&
		ElseIf Range("B7") = "28" Then
		Jiky = Jiky + 12&
		ElseIf Range("B7") = "27" Then
		Jiky = Jiky + 13&
		ElseIf Range("B7") = "26" Then
		Jiky = Jiky + 14&
		ElseIf Range("B7") = "25" Then
		Jiky = Jiky + 15&
		ElseIf Range("B7") = "24" Then
		Jiky = Jiky + 16&
		ElseIf Range("B7") = "23" Then
		Jiky = Jiky + 17&
		ElseIf Range("B7") = "22" Then
		Jiky = Jiky + 18&
		ElseIf Range("B7") = "21" Then
		Jiky = Jiky + 19&
		ElseIf Range("B7") = "20" Then
		Jiky = Jiky + 20&
		ElseIf Range("B7") = "19" Then
		Jiky = Jiky + 21&
		ElseIf Range("B7") = "18" Then
		Jiky = Jiky + 22&
		ElseIf Range("B7") = "17" Then
		Jiky = Jiky + 23&
		ElseIf Range("B7") = "16" Then
		Jiky = Jiky + 24&
		ElseIf Range("B7") = "15" Then
		Jiky = Jiky + 25&
		ElseIf Range("B7") = "14" Then
		Jiky = Jiky + 26&
		ElseIf Range("B7") = "13" Then
		Jiky = Jiky + 27&
		ElseIf Range("B7") = "12" Then
		Jiky = Jiky + 28&
		ElseIf Range("B7") = "11" Then
		Jiky = Jiky + 29&
		ElseIf Range("B7") = "10" Then
		Jiky = Jiky + 30&
		ElseIf Range("B7") = "9" Then
		Jiky = Jiky + 31&
		ElseIf Range("B7") = "8" Then
		Jiky = Jiky + 32&
		ElseIf Range("B7") = "7" Then
		Jiky = Jiky + 33&
		ElseIf Range("B7") = "6" Then
		Jiky = Jiky + 34&
		ElseIf Range("B7") = "5" Then
		Jiky = Jiky + 35&
		ElseIf Range("B7") = "4" Then
		Jiky = Jiky + 36&
		ElseIf Range("B7") = "3" Then
		Jiky = Jiky + 37&
		ElseIf Range("B7") = "2" Then
		Jiky = Jiky + 38&
		ElseIf Range("B7") = "1" Then
		Jiky = Jiky + 39&
		ElseIf Range("B7") = "0" Then
		Jiky = Jiky + 40&
		ElseIf Range("B7") = "-1" Then
		Jiky = Jiky + 41&
		ElseIf Range("B7") = "-2" Then
		Jiky = Jiky + 42&
		ElseIf Range("B7") = "-3" Then
		Jiky = Jiky + 43&
		ElseIf Range("B7") = "-4" Then
		Jiky = Jiky + 44&
		ElseIf Range("B7") = "-5" Then
		Jiky = Jiky + 45&
		ElseIf Range("B7") = "-6" Then
		Jiky = Jiky + 46&
		Else
		Jiky = Jiky
		End If											If　文ブンの終了シュウリョウ
		If Range("D7") = "0" Then											If　文ブン　　温度差オンドサ　０℃　のとき
		Jikx = Jikx + 7&											配列ハイレツ　ｙ　を　ｙ　+　7　とする　（列レツを温度差オンドサ　０℃　の行ギョウに合アわせる）
		ElseIf Range("D7") = "1" Then
		Jikx = Jikx + 8&											以下イカ
		ElseIf Range("D7") = "2" Then
		Jikx = Jikx + 9&
		ElseIf Range("D7") = "3" Then
		Jikx = Jikx + 10&
		ElseIf Range("D7") = "4" Then
		Jikx = Jikx + 11&
		ElseIf Range("D7") = "5" Then
		Jikx = Jikx + 12&
		ElseIf Range("D7") = "6" Then
		Jikx = Jikx + 13&
		ElseIf Range("D7") = "7" Then
		Jikx = Jikx + 14&
		ElseIf Range("D7") = "8" Then
		Jikx = Jikx + 15&
		ElseIf Range("D7") = "9" Then
		Jikx = Jikx + 16&
		ElseIf Range("D7") = "10" Then
		Jikx = Jikx + 17&
		ElseIf Range("D7") = "11" Then
		Jikx = Jikx + 18&
		ElseIf Range("D7") = "12" Then
		Jikx = Jikx + 19&
		ElseIf Range("D7") = "13" Then
		Jikx = Jikx + 20&
		ElseIf Range("D7") = "14" Then
		Jikx = Jikx + 21&
		ElseIf Range("D7") = "15" Then
		Jikx = Jikx + 22&
		Else
		Jikx = Jikx
		End If											If　文ブンの終了シュウリョウ
		Cells(Jiky, Jikx).Activate											乾イヌイ球タマの示度シドと温度差オンドサから相当ソウトウする湿度シツドの数値スウチのセルを使用シヨウ
		Range("B13").Value = Cells(Jiky, Jikx).Value											湿度シツドの表示ヒョウジ場所バショに相当ソウトウする湿度シツドの数値スウチをコピー
		MsgBox "温度差は、" & Range("D7") & "℃です。"											メッセージボックスで、温度差オンドサの表示ヒョウジ
		MsgBox "湿度は、" & Cells(Jiky, Jikx).Value & " ％です。"											メッセージボックスで、湿度シツドの表示ヒョウジ
		End  Sub											サブルーチンの終了シュウリョウ