好酸球性副鼻腔炎診断入力テンプレートをつくる
（参考）
厚生労働省ウェブサイト 指定難病 306 好酸球性副鼻腔炎
https://gyazo.com/f8eca1659f7d8a42480c2913f8dca343
好酸球性副鼻腔炎の診断基準
JESREC スコアの合計11 点以上かつ、鼻茸組織中好酸球数（400 倍視野）3視野平均が 70 個以上存在した場合を確定診断とする。
JESREC スコア
病側：両側
鼻茸あり
ＣＴにて篩骨洞優位の陰影あり
末梢血好酸球（％）
nananana.icon 病理診断では、鼻茸組織中好酸球数（400 倍視野） を3視野で測定する必要あり。難病の書類は病院クラークが記入することもあるため、書類記載に沿って報告すること。70 個以上存在した場合を確定診断とするが、1視野あたり9999個まで数えることを要求されている。
新規ファイルを立ち上げる
https://gyazo.com/9040f2bc2b6501a43eea6d88eaacaf65
https://gyazo.com/fc96cbcfa906ad0253c27cbea410cb8d
入力フィールドを作成
https://gyazo.com/cc102c8d593512589ce0cca4cdb2c753
/nananana-icon/入力.icon 入力：好酸球数
/nananana-icon/処理.icon 処理：四則演算 /nananana-icon/出力.icon 出力：好酸球数の平均
/nananana-icon/入力.icon 入力：3か所に数値を入力
/nananana-icon/処理.icon 処理：=(E5+E6+E7)/3
/nananana-icon/出力.icon 出力：計算結果を出力
https://gyazo.com/9e4ea0d7c8f7b2b4d4ed28fd8bd5c6c9
セルに入力制限をかける
/nananana-icon/入力.icon 入力：セル入力時に強制的に整数入力、小数点以下四捨五入して出力する
/nananana-icon/処理.icon 処理：セルの書式設定で数値と小数点以下の桁数を設定する
/nananana-icon/出力.icon 出力：四捨五入された数字の出力
nananana.icon 平均値を四捨五入するか否かは決まっていないため、また計算がなされていることを視覚的に確認するために、平均値の出力は小数点以下1桁とする。
https://gyazo.com/18a7e9c2eeb3f5b1f98568b4710d84e7
/nananana-icon/入力.icon 入力：好酸球数
/nananana-icon/処理.icon 処理：四則演算 /nananana-icon/出力.icon 出力：好酸球数の平均
/nananana-icon/入力.icon 入力：セル入力時に強制的に数字(半角・英字)にする
/nananana-icon/処理.icon 処理：データの入力規則でIMEを英語モードにする
/nananana-icon/出力.icon 出力：なし
https://gyazo.com/0ad48521aef3d5b4c709f0a364c359bd
/nananana-icon/入力.icon 入力：入力できるセルを限定する
/nananana-icon/処理.icon 処理：セルの書式設定からフィールドにロックをかける。入力に必要なセルのロックを外す。シートの保護を行い、ロックされていないセル範囲のみ許可する。
/nananana-icon/出力.icon 出力：なし
全体にロックをかける
https://gyazo.com/3765e3ad00945845a4ea17d5707aacf7
入力に必要なセルはロックをはずす
https://gyazo.com/9e585669d467cbf05eeefbbea95b86af
シートの保護をおこなう
https://gyazo.com/0937dc1a908f19fc10c2db50db625aa8
平均値の個数判定をおこなう
診断基準
/nananana-icon/入力.icon 入力：出力された平均値
/nananana-icon/処理.icon 処理：70個以上かどうかを判定
/nananana-icon/出力.icon 出力：70個以上なら病理学的に診断とする
/nananana-icon/入力.icon 入力：出力された平均値
/nananana-icon/処理.icon 処理：IF関数 =IF(E8>=70,"好酸球性副鼻腔炎","慢性副鼻腔炎") /nananana-icon/出力.icon 出力：結果の出力
https://gyazo.com/6bbe31439062ce807ef9a491f10fb001
出力用の所見を出力する
出力したいテンプレ
400倍1視野中の好酸球数は視野1がXXXX個、視野2がYYYY個、視野3がZZZZ個です。3視野平均はaaaa個です。
病理組織学的に好酸球性副鼻腔炎に矛盾しません。
病理組織学的に好酸球性副鼻腔炎は否定的です。
出力フィールドをつくる
https://gyazo.com/3a07fee8805177b1f1486365bda076da
400倍1視野中の好酸球数は視野1が70個、視野2が80個、視野3が90個です。3視野平均は80個です。病理組織学的に好酸球性副鼻腔炎に矛盾しません。
ホームの配置よりセルを結合する
https://gyazo.com/7080040e0bbacc25f8c629e9fa6b9af8
出力フィールドをつくる
https://gyazo.com/6a30d6656928f1b2570fe8883c50ca5f
＆でセルをつなぎ、所見出力を完成させる。
https://gyazo.com/c48f88b143c87ef635c501a03e5b7fba
https://gyazo.com/ae86dda650d73d3364fb6bb84a38a684
最終的に
出力フィールドの背景およびフォントの色を白にして見えなくする
全体にロックをかけて選択できないようにする
入力値を消すボタンをつくる
https://gyazo.com/5e4fc5d1bf461fcc27b958d85e4054d9
ボタンを押すとセルを消去するマクロを組みます。
Sub 消去ボタン()
' 消去ボタン Macro
Range("E5").Select
ActiveCell.FormulaR1C1 = ""
Range("E6").Select
ActiveCell.FormulaR1C1 = ""
Range("E7").Select
ActiveCell.FormulaR1C1 = ""
Range("e5").Select
End Sub
出力された所見をコピーするボタンをつくる
図形の挿入から適当にボタンを作成
https://gyazo.com/46f668353fd04994ce1ed0c15862ba9e
マクロを割付します。
https://gyazo.com/c48f88b143c87ef635c501a03e5b7fba
コピー先は結合したセルでは無くて、セル1個を選択すること
→ J15を選択する
nananana.icon 結合されたC16をコピーするとペーストした時に結合されたセルの数だけスペースがペーストされてしまう
https://gyazo.com/f8eca1659f7d8a42480c2913f8dca343
コピーするセルは選択状態になるため、画面上に見えないようにするためにはもう一工夫必要。（未処置）
https://gyazo.com/01ef1c5c86afa70e82aa99fae53a2610
画面上の枠線などを消す
https://gyazo.com/34dc38f5a2e3d0fd76b3464cf0f3447b
数式バーとリボンメニューも消します。
https://gyazo.com/d1b9a0e6ade8535763cafb371d430b5c
https://gyazo.com/ffea81588931d3e223764a6ed24e5e46
完成したファイルはマクロ有効の形式で保存する
https://gyazo.com/082d472f5461c2442f45d958fa45c482
マクロを利用した場合は通常の形式では保存できない。
左側の！ビックリマークがアイコンにつく
https://gyazo.com/996a203d76fbb968be338f8fbf608047