中文部分
中國文化大學推廣教育部 (2008)。CMP 行銷企畫證照，培養跨領域行銷人 才 。 2010 年 1 月 4 日 ， 取 自 http://www.digitalwall.com/scripts/
displaypr.asp?UID=9806
弗達軟體工程有限公司 (2006)。真正的網路服務商,提供系統化的網路行銷策 劃 服 務 。 2010 年 1 月 4 日 ， 取 自 http://www.digitalwall.com/
scripts/displaypr.asp?UID=4138
行政院衛生署國民健康局 (2010)。線上 BMI 測試。2010 年 1 月 20 日，取自 http://health99.doh.gov.tw/OnlinkHealth/Onlink_BMI.aspx
呂志文 (2007)。ICNP 於住院護理系統之應用。元智大學資訊管理學系碩士論 文。
沈中偉 (2004)。科技與學習─理論與實務。台北：心理。
沈鈺翔 (2004)。多模式使用者介面無線護理資訊系統可用性評估：以急診檢傷 為例。國立陽明大學衛生資訊與決策研究所碩士論文。
林耀珍 (2004)。運用系統化設計流程確保應用程式安全。2010 年 1 月 4 日，
取自http://msdn.microsoft.com/zh-tw/library/dd229187.aspx
侯宜菁、張博論、劉碩琦 (2006)。EXCEL 進階技術應用於護理人員開發護理 資訊系統之研究。醫療資訊雜誌，15(3)，73-84。
徐欣瑩 (2003)。兒童生命教育網路學習素材之研發與評鑑研究。國立交通大學 傳播研究所碩士論文。
徐新逸 (2003)。數位學習課程發展模式初探。教育研究月刊，116，15-30。
財團法人醫院評鑑暨醫療品質策進會 (2006)。95 年度醫院執行病人安全工作 目標之建議參考手冊。台北：作者。
財團法人醫院評鑑暨醫療品質策進會 (2007)。病人安全在台灣。2010 年 1 月 4 日 ， 取 自 http://www.patientsafety.doh.gov.tw/big5/Content/
Content.asp?cid=109
財團法人醫院評鑑暨醫療品質策進會 (2008)。97-98 年度醫院推動醫療品質及 病 人 安 全 工 作 年 度 目 標 及 策 略 。2010 年 1 月 4 日 ， 取 自
http://www.patientsafety.doh.gov.tw/big5/Content/Content.asp?cid=118
財團法人醫院評鑑暨醫療品質策進會 (2010)。99-100 年度醫院推動醫療品質 及 病 人 安 全 工 作 年 度 目 標 及 策 略 。2010 年 1 月 4 日 ， 取 自 http://www.patientsafety.doh.gov.tw/big5/Content/Content.asp?cid=124
郝德慧、陳淑美、郭惠敏、顏玉雯、林璟淑、王貞儀、葉雨婷(譯) (2006)。M.
J. Ball, K. J. Hannah, S. K. Newbold, & J. V. Douglas 著。護理資訊(Nursing informatics: Where caring and technology meet)。台北：華杏。
張承明、于樹偉 (2009)。系統化事故原因調查技術研究。台北：行政院勞工委 員會勞工安全衛生研究所。
張敏、林璟淑、張元玫、李亭亭 (2008)。護理資訊應用簡介──某醫院護理資 訊系統推行之經驗分享。護理雜誌，55(3)，75-80。
張黎慧 (2004)。探討臨床護理人員資訊素養之研究。國立中正大學資訊管理學 系碩士論文。
曹承礎 (2008)。以系統化服務創新，打造更多魔法團隊。2010 年 1 月 4 日，
取自http://www.ithome.com.tw/itadm/article.php?c=50689
陳明義 (2006)。急診室醫療品質指標資訊系統建置與應用。中華大學資訊工程 學系碩士班碩士論文。
黃詩雅 (2005)。具有語音回饋機制的護理備藥資訊系統之建置與評估。臺北醫 學大學醫學資訊研究所碩士論文。
楊惠琄 (2008)。發展手術全期護理資訊系統及評估其使用成效。臺北醫學大學 醫學研究所碩士論文。
葉宗桓 (2005)。工作分析導向之護理資訊能力評值支援系統之開發。國立陽明 大學衛生資訊與決策研究所碩士論文。
趙福義 (2004)。以資訊技術提升護理品質及改進對病人的照顧。國立成功大學 工程科學系專班碩士論文。
劉維義、陳俊勳、陳隆展 (2007)。系統化工業火災原因調查之應用。工業安全 科技，63，39-45。
盧小玨、王曼蒂、陳碧蓮、楊美倫、林文綾、宋佳穎、王玉倫 (2006)。護理資 訊系統之建置。榮總護理，23(3)，300-309。
賴湘芬 (2006)。建構有用性導向之護理行政表單自動產生系統。國立陽明大學 衛生資訊與決策研究所碩士論文。
戴辛翎、林秀雯、張瓊洙、林淑愛、柯素惠、張博論 (2009)。護理人員自建資 訊系統之歷程研究─以血液透析室為例。榮總護理，26(3)，244-253。
西文部分
American Nurses Association. (1994). Scope of practice for nursing informatics.
Washington, DC: American Nurses Publishing.
Ball, M. J., & Hannah, K. J. (1984). Using computers in nursing. Reston, VA: Reston Publishers.
Carty, B., & Rosenfeld, P. (1998). From computer technology to information technology: Findings from a national study of nursing education. Computers in
Nursing, 16(5), 259-265.
Davis, F. D. (1989). Perceived usefulness, perceived ease of use, and user acceptance of information technology. Management Information Systems Quarterly, 13(3), 319-340.
Graves, J. R., & Corcoran, S. (1989). The study of nursing informatics. Journal of
Nursing Scholarship, 21(4), 227-231.
Grobe, S. J. (1988). Nursing informatics competencies for nurse educators and researchers. In: H. E. Peterson & U. Gerdin-Jelger (Eds.), Preparing nurses for
using information systems: Recommended information competencies (pp. 25-33).
New York: National League for Nursing.
Hannah, K. J. (1985). Current trends in nursing informatics: Implications for curriculum planning. In: K. J. Hannah, E. J. Guillemin & D. N. Conklin(Eds.),
Nursing uses of computer and information science (pp. 181-187). Amsterdam:
Elsevier Science.
Nielsen, J. (1993). Usability engineering. San Diego, CA: Academic Press.
附錄
R1 = Application.WorksheetFunction.CountA(Worksheets("參數").Range("B:B")) CB 單位.Clear
'進入 BMI 判斷表單
UF 主選單.Hide
'計算分數
R = Application.WorksheetFunction.CountA(Worksheets("data").Range("B:B")) '將所填寫的資料填入"基本資料"工作表 Worksheets("data").Cells(R + 2, 6) = Calendar1.Value Worksheets("data").Cells(R + 2, 7) = Now
Worksheets("data").Cells(R + 2, 10) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 10) = Worksheets("參數").Cells(3, 1) End If
If CB3.Value = True Then
Worksheets("data").Cells(R + 2, 11) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 11) = Worksheets("參數").Cells(3, 1) End If
If CB4.Value = True Then
Worksheets("data").Cells(R + 2, 12) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 12) = Worksheets("參數").Cells(3, 1) End If
If CB5.Value = True Then
Worksheets("data").Cells(R + 2, 13) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 13) = Worksheets("參數").Cells(3, 1) End If
UF 病人辨識.Hide UF 主選單.Show End Sub
Private Sub UserForm_Activate()
R1 = Application.WorksheetFunction.CountA(Worksheets("data").Range("A:A")) numY = Application.WorksheetFunction.CountA(Worksheets("參數").Range("D:D")) numM = Application.WorksheetFunction.CountA(Worksheets("參數").Range("E:E")) CB 年度.Clear
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("F:F")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("G:G")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("H:H")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("I:I")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("J:J"))
For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("K:K")) For i = 2 To R
CB1.Caption = Worksheets("病人辨識表單").Cells(4, 1) CB2.Caption = Worksheets("病人辨識表單").Cells(5, 1) CB3.Caption = Worksheets("病人辨識表單").Cells(6, 1) CB4.Caption = Worksheets("病人辨識表單").Cells(7, 1) CB5.Caption = Worksheets("病人辨識表單").Cells(8, 1) '顯示各題目的分數
L1.Caption = Worksheets("病人辨識表單").Cells(4, 2) L2.Caption = Worksheets("病人辨識表單").Cells(5, 2) L3.Caption = Worksheets("病人辨識表單").Cells(6, 2) L4.Caption = Worksheets("病人辨識表單").Cells(7, 2) L5.Caption = Worksheets("病人辨識表單").Cells(8, 2) End Sub
End If
R = Application.WorksheetFunction.CountA(Worksheets("data").Range("B:B")) '將所填寫的資料填入"基本資料"工作表 Worksheets("data").Cells(R + 2, 6) = Calendar1.Value Worksheets("data").Cells(R + 2, 7) = Now
Worksheets("data").Cells(R + 2, 10) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 10) = Worksheets("參數").Cells(3, 1) End If
If CB3.Value = True Then
Worksheets("data").Cells(R + 2, 11) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 11) = Worksheets("參數").Cells(3, 1) End If
If CB4.Value = True Then
Worksheets("data").Cells(R + 2, 12) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 12) = Worksheets("參數").Cells(3, 1) End If
If CB5.Value = True Then
Worksheets("data").Cells(R + 2, 13) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 13) = Worksheets("參數").Cells(3, 1)
End If
If CB6.Value = True Then
Worksheets("data").Cells(R + 2, 14) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 14) = Worksheets("參數").Cells(3, 1) End If
If CB7.Value = True Then
Worksheets("data").Cells(R + 2, 15) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 15) = Worksheets("參數").Cells(3, 1) End If
R1 = Application.WorksheetFunction.CountA(Worksheets("data").Range("A:A")) numY = Application.WorksheetFunction.CountA(Worksheets("參數").Range("D:D")) numM = Application.WorksheetFunction.CountA(Worksheets("參數").Range("E:E")) CB 年度.Clear
L 單位.Caption = "ICU"
CB 姓名.Clear
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("F:F")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("G:G")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("H:H")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("I:I")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("J:J")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("K:K")) For i = 2 To R
CB1.Caption = Worksheets("預防病患跌倒表單").Cells(4, 1) CB2.Caption = Worksheets("預防病患跌倒表單").Cells(5, 1) CB3.Caption = Worksheets("預防病患跌倒表單").Cells(6, 1) CB4.Caption = Worksheets("預防病患跌倒表單").Cells(7, 1) CB5.Caption = Worksheets("預防病患跌倒表單").Cells(8, 1) CB6.Caption = Worksheets("預防病患跌倒表單").Cells(9, 1) CB7.Caption = Worksheets("預防病患跌倒表單").Cells(10, 1)
'顯示各題目的分數
L1.Caption = Worksheets("預防病患跌倒表單").Cells(4, 2) L2.Caption = Worksheets("預防病患跌倒表單").Cells(5, 2) L3.Caption = Worksheets("預防病患跌倒表單").Cells(6, 2) L4.Caption = Worksheets("預防病患跌倒表單").Cells(7, 2) L5.Caption = Worksheets("預防病患跌倒表單").Cells(8, 2) L6.Caption = Worksheets("預防病患跌倒表單").Cells(9, 2) L7.Caption = Worksheets("預防病患跌倒表單").Cells(10, 2) End Sub
R = Application.WorksheetFunction.CountA(Worksheets("data").Range("B:B"))
Worksheets("data").Cells(R + 2, 1) = L 單位.Caption Worksheets("data").Cells(R + 2, 2) = "異常事件通報處理"
Worksheets("data").Cells(R + 2, 3) = 年度 Worksheets("data").Cells(R + 2, 4) = 月份
Worksheets("data").Cells(R + 2, 5) = CB 姓名.Text Worksheets("data").Cells(R + 2, 6) = Calendar1.Value Worksheets("data").Cells(R + 2, 7) = Now
Worksheets("data").Cells(R + 2, 10) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 10) = Worksheets("參數").Cells(3, 1) End If
If CB3.Value = True Then
Worksheets("data").Cells(R + 2, 11) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 11) = Worksheets("參數").Cells(3, 1) End If
If CB4.Value = True Then
Worksheets("data").Cells(R + 2, 12) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 12) = Worksheets("參數").Cells(3, 1) End If
If CB5.Value = True Then
Worksheets("data").Cells(R + 2, 13) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 13) = Worksheets("參數").Cells(3, 1) End If
End Sub
Private Sub UserForm_Activate()
R1 = Application.WorksheetFunction.CountA(Worksheets("data").Range("A:A")) numY = Application.WorksheetFunction.CountA(Worksheets("參數").Range("D:D")) numM = Application.WorksheetFunction.CountA(Worksheets("參數").Range("E:E")) CB 年度.Clear
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("F:F")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("G:G")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("H:H")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("I:I")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("J:J")) For i = 2 To R
CB 姓名.AddItem Worksheets("參數").Cells(i, 10) Next i
Case 5 '護理之家
L 單位.Caption = "護理之家"
CB 姓名.Clear
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("K:K")) For i = 2 To R
CB1.Caption = Worksheets("異常事件通報處理表單").Cells(4, 1) CB2.Caption = Worksheets("異常事件通報處理表單").Cells(5, 1) CB3.Caption = Worksheets("異常事件通報處理表單").Cells(6, 1) CB4.Caption = Worksheets("異常事件通報處理表單").Cells(7, 1) CB5.Caption = Worksheets("異常事件通報處理表單").Cells(8, 1) '顯示各題目的分數
L1.Caption = Worksheets("異常事件通報處理表單").Cells(4, 2) L2.Caption = Worksheets("異常事件通報處理表單").Cells(5, 2) L3.Caption = Worksheets("異常事件通報處理表單").Cells(6, 2) L4.Caption = Worksheets("異常事件通報處理表單").Cells(7, 2) L5.Caption = Worksheets("異常事件通報處理表單").Cells(8, 2) End Sub
CB 年度.SetFocus
R = Application.WorksheetFunction.CountA(Worksheets("data").Range("B:B")) '將所填寫的資料填入"基本資料"工作表 Worksheets("data").Cells(R + 2, 6) = Calendar1.Value Worksheets("data").Cells(R + 2, 7) = Now
Worksheets("data").Cells(R + 2, 10) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 10) = Worksheets("參數").Cells(3, 1) End If
If CB3.Value = True Then
Worksheets("data").Cells(R + 2, 11) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 11) = Worksheets("參數").Cells(3, 1) End If
If CB4.Value = True Then
Else
Worksheets("data").Cells(R + 2, 12) = Worksheets("參數").Cells(3, 1) End If
If CB5.Value = True Then
Worksheets("data").Cells(R + 2, 13) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 13) = Worksheets("參數").Cells(3, 1) End If
If CB6.Value = True Then
Worksheets("data").Cells(R + 2, 14) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 14) = Worksheets("參數").Cells(3, 1) End If
If CB7.Value = True Then
Worksheets("data").Cells(R + 2, 15) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 15) = Worksheets("參數").Cells(3, 1) End If
If CB8.Value = True Then
Worksheets("data").Cells(R + 2, 16) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 16) = Worksheets("參數").Cells(3, 1) End If
If CB9.Value = True Then
Worksheets("data").Cells(R + 2, 17) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 17) = Worksheets("參數").Cells(3, 1) End If
If CB10.Value = True Then
Worksheets("data").Cells(R + 2, 18) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 18) = Worksheets("參數").Cells(3, 1) End If
If CB11.Value = True Then
Worksheets("data").Cells(R + 2, 19) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 19) = Worksheets("參數").Cells(3, 1) End If
If CB12.Value = True Then
Worksheets("data").Cells(R + 2, 20) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 20) = Worksheets("參數").Cells(3, 1) End If
CB 姓名.SetFocus
R1 = Application.WorksheetFunction.CountA(Worksheets("data").Range("A:A")) numY = Application.WorksheetFunction.CountA(Worksheets("參數").Range("D:D")) numM = Application.WorksheetFunction.CountA(Worksheets("參數").Range("E:E")) CB 年度.Clear
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("F:F")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("G:G")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("H:H")) For i = 2 To R
Next i Case 3 '開刀房
L 單位.Caption = "開刀房"
CB 姓名.Clear
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("I:I")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("J:J")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("K:K")) For i = 2 To R
CB1.Caption = Worksheets("輸血技術表單").Cells(4, 1) CB2.Caption = Worksheets("輸血技術表單").Cells(5, 1) CB3.Caption = Worksheets("輸血技術表單").Cells(6, 1) CB4.Caption = Worksheets("輸血技術表單").Cells(7, 1) CB5.Caption = Worksheets("輸血技術表單").Cells(8, 1) CB6.Caption = Worksheets("輸血技術表單").Cells(9, 1) CB7.Caption = Worksheets("輸血技術表單").Cells(10, 1) CB8.Caption = Worksheets("輸血技術表單").Cells(11, 1) CB9.Caption = Worksheets("輸血技術表單").Cells(12, 1) CB10.Caption = Worksheets("輸血技術表單").Cells(13, 1) CB11.Caption = Worksheets("輸血技術表單").Cells(14, 1) CB12.Caption = Worksheets("輸血技術表單").Cells(15, 1) '顯示各題目的分數
L1.Caption = Worksheets("輸血技術表單").Cells(4, 2) L2.Caption = Worksheets("輸血技術表單").Cells(5, 2) L3.Caption = Worksheets("輸血技術表單").Cells(6, 2) L4.Caption = Worksheets("輸血技術表單").Cells(7, 2) L5.Caption = Worksheets("輸血技術表單").Cells(8, 2) L6.Caption = Worksheets("輸血技術表單").Cells(9, 2) L7.Caption = Worksheets("輸血技術表單").Cells(10, 2) L8.Caption = Worksheets("輸血技術表單").Cells(11, 2) L9.Caption = Worksheets("輸血技術表單").Cells(12, 2) L10.Caption = Worksheets("輸血技術表單").Cells(13, 2) L11.Caption = Worksheets("輸血技術表單").Cells(14, 2) L12.Caption = Worksheets("輸血技術表單").Cells(15, 2)
End Sub
R = Application.WorksheetFunction.CountA(Worksheets("data").Range("B:B")) '將所填寫的資料填入"基本資料"工作表 Worksheets("data").Cells(R + 2, 6) = Calendar1.Value
Worksheets("data").Cells(R + 2, 7) = Now
Worksheets("data").Cells(R + 2, 10) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 10) = Worksheets("參數").Cells(3, 1) End If
If CB3.Value = True Then
Worksheets("data").Cells(R + 2, 11) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 11) = Worksheets("參數").Cells(3, 1) End If
If CB4.Value = True Then
Worksheets("data").Cells(R + 2, 12) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 12) = Worksheets("參數").Cells(3, 1) End If
If CB5.Value = True Then
Worksheets("data").Cells(R + 2, 13) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 13) = Worksheets("參數").Cells(3, 1) End If
If CB6.Value = True Then
Worksheets("data").Cells(R + 2, 14) = Worksheets("參數").Cells(2, 1) Else
Worksheets("data").Cells(R + 2, 14) = Worksheets("參數").Cells(3, 1) End If
Private Sub UserForm_Activate()
R1 = Application.WorksheetFunction.CountA(Worksheets("data").Range("A:A")) numY = Application.WorksheetFunction.CountA(Worksheets("參數").Range("D:D")) numM = Application.WorksheetFunction.CountA(Worksheets("參數").Range("E:E")) CB 年度.Clear
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("F:F")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("G:G")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("H:H")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("I:I")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("J:J")) For i = 2 To R
CB 姓名.AddItem Worksheets("參數").Cells(i, 10) Next i
Case 5 '護理之家
L 單位.Caption = "護理之家"
CB 姓名.Clear
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("K:K")) For i = 2 To R
CB1.Caption = Worksheets("護理給藥表單").Cells(4, 1) CB2.Caption = Worksheets("護理給藥表單").Cells(5, 1) CB3.Caption = Worksheets("護理給藥表單").Cells(6, 1) CB4.Caption = Worksheets("護理給藥表單").Cells(7, 1) CB5.Caption = Worksheets("護理給藥表單").Cells(8, 1) CB6.Caption = Worksheets("護理給藥表單").Cells(9, 1) '顯示各題目的分數
L1.Caption = Worksheets("護理給藥表單").Cells(4, 2) L2.Caption = Worksheets("護理給藥表單").Cells(5, 2) L3.Caption = Worksheets("護理給藥表單").Cells(6, 2) L4.Caption = Worksheets("護理給藥表單").Cells(7, 2) L5.Caption = Worksheets("護理給藥表單").Cells(8, 2) L6.Caption = Worksheets("護理給藥表單").Cells(9, 2) End Sub
R = Application.WorksheetFunction.CountA(Worksheets("data").Range("A:A")) '將所填寫的資料填入"基本資料"工作表
R = Application.WorksheetFunction.CountA(Worksheets("data").Range("A:A"))
R1 = Application.WorksheetFunction.CountA(Worksheets("data").Range("A:A")) 單位 = CB 單位.Text
Next i
Worksheets("護理給藥表單-1").Cells(1, 5) = "" '年度
Worksheets(" 輸 血 技 術 表 單 ").Cells(20, 1) = Worksheets("data").Cells(i, 10) '改善
Worksheets(" 輸 血 技 術 表 單 ").Cells(20, 7) = Worksheets("data").Cells(i, 11) '追蹤
Else
Worksheets(" 輸 血 技 術 表 單 ").Cells(2, 3 + j) = Worksheets("data").Cells(i, 5) '姓名
Worksheets(" 輸 血 技 術 表 單 ").Cells(3, 3 + j) = Worksheets("data").Cells(i, 6) '日期
Worksheets(" 輸 血 技 術 表 單 ").Cells(4, 3 + j) = Worksheets("data").Cells(i, 9) '選項 1
Worksheets(" 輸 血 技 術 表 單 ").Cells(5, 3 + j) = Worksheets("data").Cells(i, 10) '選項 2
Worksheets(" 輸 血 技 術 表 單 ").Cells(6, 3 + j) = Worksheets("data").Cells(i, 11) '選項 3
Worksheets(" 輸 血 技 術 表 單 ").Cells(7, 3 + j) = Worksheets("data").Cells(i, 12) '選項 4
Worksheets(" 輸 血 技 術 表 單 ").Cells(8, 3 + j) = Worksheets("data").Cells(i, 13) '選項 5
Worksheets(" 輸 血 技 術 表 單 ").Cells(9, 3 + j) = Worksheets("data").Cells(i, 14) '選項 6
Worksheets(" 輸 血 技 術 表 單 ").Cells(10, 3 + j) = Worksheets("data").Cells(i, 15) '選項 7
Worksheets(" 輸 血 技 術 表 單 ").Cells(11, 3 + j) = Worksheets("data").Cells(i, 16) '選項 8
Worksheets(" 輸 血 技 術 表 單 ").Cells(12, 3 + j) = Worksheets("data").Cells(i, 17) '選項 9
Worksheets(" 輸 血 技 術 表 單 ").Cells(13, 3 + j) = Worksheets("data").Cells(i, 18) '選項 10
Worksheets(" 輸 血 技 術 表 單 ").Cells(14, 3 + j) = Worksheets("data").Cells(i, 19) '選項 11
Worksheets(" 輸 血 技 術 表 單 ").Cells(15, 3 + j) = Worksheets("data").Cells(i, 20) '選項 12
Worksheets(" 輸 血 技 術 表 單 ").Cells(16, 3 + j) = Worksheets("data").Cells(i, 8) '分數
j = j + 1 End If Else
Worksheets(" 輸 血 技 術 表 單 -1").Cells(1, 2) = Worksheets("data").Cells(i, 1) '單位
Worksheets(" 輸 血 技 術 表 單 -1").Cells(1, 5) = Worksheets("data").Cells(i, 3) '年度
Worksheets(" 輸 血 技 術 表 單 -1").Cells(1, 7) = Worksheets("data").Cells(i, 4) '月份
If Worksheets("data").Cells(i, 5) = "" Then
Worksheets(" 輸 血 技 術 表 單 ").Cells(18, 1) = Worksheets("data").Cells(i, 9) '分析
Worksheets(" 輸 血 技 術 表 單 ").Cells(20, 1) = Worksheets("data").Cells(i, 10) '改善
Worksheets(" 輸 血 技 術 表 單 ").Cells(20, 7) = Worksheets("data").Cells(i, 11) '追蹤
Else
Worksheets(" 輸 血 技 術 表 單 -1").Cells(2, 3 + j - 16) =
Worksheets("data").Cells(i, 5) '姓名 Worksheets("data").Cells(i, 1) '單位
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(1, 5) = Worksheets("data").Cells(i, 3) '年度
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(1, 7) = Worksheets("data").Cells(i, 4) '月份
If Worksheets("data").Cells(i, 5) = "" Then
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(13, 1) =
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(15, 1) = Worksheets("data").Cells(i, 10) '改善
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(15, 7) = Worksheets("data").Cells(i, 11) '追蹤
Else
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(2, 3 + j) = Worksheets("data").Cells(i, 5) '姓名
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(3, 3 + j) = Worksheets("data").Cells(i, 6) '日期
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(4, 3 + j) = Worksheets("data").Cells(i, 9) '選項 1
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(5, 3 + j) = Worksheets("data").Cells(i, 10) '選項 2
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(6, 3 + j) = Worksheets("data").Cells(i, 11) '選項 3
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(7, 3 + j) = Worksheets("data").Cells(i, 12) '選項 4
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(8, 3 + j) = Worksheets("data").Cells(i, 13) '選項 5
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(9, 3 + j) = Worksheets("data").Cells(i, 14) '選項 6
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(10, 3 + j) = Worksheets("data").Cells(i, 15) '選項 7
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(11, 3 + j) = Worksheets("data").Cells(i, 8) '分數
j = j + 1 End If Else
Worksheets(" 預 防 病 患 跌 倒 表 單 -1").Cells(1, 2) = Worksheets("data").Cells(i, 1) '單位
Worksheets(" 預 防 病 患 跌 倒 表 單 -1").Cells(1, 5) = Worksheets("data").Cells(i, 3) '年度
Worksheets(" 預 防 病 患 跌 倒 表 單 -1").Cells(1, 7) = Worksheets("data").Cells(i, 4) '月份
If Worksheets("data").Cells(i, 5) = "" Then
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(13, 1) = Worksheets("data").Cells(i, 9) '分析
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(15, 1) = Worksheets("data").Cells(i, 10) '改善
Worksheets(" 預 防 病 患 跌 倒 表 單 ").Cells(15, 7) = Worksheets("data").Cells(i, 11) '追蹤
Else
Worksheets("data").Cells(i, 12) '選項 4 Worksheets("data").Cells(i, 9) '分析
Worksheets(" 病 人 辨 識 表 單 ").Cells(13, 1) = Worksheets("data").Cells(i, 10) '改善
Worksheets(" 病 人 辨 識 表 單 ").Cells(13, 7) = Worksheets("data").Cells(i, 11) '追蹤
Else
Worksheets(" 病 人 辨 識 表 單 ").Cells(2, 3 + j) = Worksheets("data").Cells(i, 5) '姓名
Worksheets(" 病 人 辨 識 表 單 ").Cells(3, 3 + j) = Worksheets("data").Cells(i, 6) '日期
Worksheets(" 病 人 辨 識 表 單 ").Cells(4, 3 + j) = Worksheets("data").Cells(i, 9) '選項 1
Worksheets(" 病 人 辨 識 表 單 ").Cells(5, 3 + j) = Worksheets("data").Cells(i, 10) '選項 2
Worksheets(" 病 人 辨 識 表 單 ").Cells(6, 3 + j) = Worksheets("data").Cells(i, 11) '選項 3
Worksheets(" 病 人 辨 識 表 單 ").Cells(7, 3 + j) = Worksheets("data").Cells(i, 12) '選項 4
Worksheets(" 病 人 辨 識 表 單 ").Cells(8, 3 + j) = Worksheets("data").Cells(i, 13) '選項 5
Worksheets("data").Cells(i, 8) '分數 Worksheets("data").Cells(i, 3) '年度
Worksheets(" 病 人 辨 識 表 單 -1").Cells(1, 7) = Worksheets("data").Cells(i, 4) '月份
If Worksheets("data").Cells(i, 5) = "" Then
Worksheets(" 病 人 辨 識 表 單 ").Cells(11, 1) = Worksheets("data").Cells(i, 9) '分析
Worksheets(" 病 人 辨 識 表 單 ").Cells(13, 1) = Worksheets("data").Cells(i, 10) '改善
Worksheets(" 病 人 辨 識 表 單 ").Cells(13, 7) = Worksheets("data").Cells(i, 11) '追蹤
Else
Worksheets("護理給藥表單").Cells(1, 7) = Worksheets("data").Cells(i, 4) '月份
If Worksheets("data").Cells(i, 5) = "" Then
Worksheets(" 護 理 給 藥 表 單 ").Cells(12, 1) = Worksheets("data").Cells(i, 9) '分析
Worksheets(" 護 理 給 藥 表 單 ").Cells(14, 1) = Worksheets("data").Cells(i, 10) '改善
Worksheets(" 護 理 給 藥 表 單 ").Cells(14, 7) = Worksheets("data").Cells(i, 11) '追蹤
Else
Worksheets(" 護 理 給 藥 表 單 ").Cells(2, 3 + j) = Worksheets("data").Cells(i, 5) '姓名
Worksheets(" 護 理 給 藥 表 單 ").Cells(3, 3 + j) = Worksheets("data").Cells(i, 6) '日期
Worksheets(" 護 理 給 藥 表 單 ").Cells(4, 3 + j) = Worksheets("data").Cells(i, 9) '選項 1
Worksheets(" 護 理 給 藥 表 單 ").Cells(5, 3 + j) = Worksheets("data").Cells(i, 10) '選項 2
Worksheets(" 護 理 給 藥 表 單 ").Cells(6, 3 + j) = Worksheets("data").Cells(i, 11) '選項 3
Worksheets(" 護 理 給 藥 表 單 ").Cells(7, 3 + j) = Worksheets("data").Cells(i, 12) '選項 4
Worksheets(" 護 理 給 藥 表 單 ").Cells(8, 3 + j) = Worksheets("data").Cells(i, 13) '選項 5
Worksheets(" 護 理 給 藥 表 單 ").Cells(9, 3 + j) = Worksheets("data").Cells(i, 14) '選項 6
Worksheets(" 護 理 給 藥 表 單 ").Cells(10, 3 + j) = Worksheets("data").Cells(i, 8) '分數
j = j + 1 End If Else
Worksheets(" 護 理 給 藥 表 單 -1").Cells(1, 2) = Worksheets("data").Cells(i, 1) '單位
Worksheets(" 護 理 給 藥 表 單 -1").Cells(1, 5) = Worksheets("data").Cells(i, 3) '年度
Worksheets(" 護 理 給 藥 表 單 -1").Cells(1, 7) = Worksheets("data").Cells(i, 4) '月份
If Worksheets("data").Cells(i, 5) = "" Then
Worksheets(" 護 理 給 藥 表 單 ").Cells(12, 1) = Worksheets("data").Cells(i, 9) '分析
Worksheets(" 護 理 給 藥 表 單 ").Cells(14, 1) = Worksheets("data").Cells(i, 10) '改善
Worksheets(" 護 理 給 藥 表 單 ").Cells(14, 7) = Worksheets("data").Cells(i, 11) '追蹤
Else
Worksheets("data").Cells(i, 11) '選項 3 Worksheets("data").Cells(i, 1) '單位
Worksheets(" 異 常 事 件 通 報 處 理 表 單 ").Cells(1, 5) = Worksheets("data").Cells(i, 3) '年度
Worksheets(" 異 常 事 件 通 報 處 理 表 單 ").Cells(1, 7) = Worksheets("data").Cells(i, 4) '月份
If Worksheets("data").Cells(i, 5) = "" Then
Worksheets(" 異 常 事 件 通 報 處 理 表 單 ").Cells(11, 1) = Worksheets("data").Cells(i, 9) '分析
Worksheets(" 異 常 事 件 通 報 處 理 表 單 ").Cells(13, 1) = Worksheets("data").Cells(i, 10) '改善
Worksheets(" 異 常 事 件 通 報 處 理 表 單 ").Cells(13, 7) = Worksheets("data").Cells(i, 11) '追蹤
Else
Worksheets(" 異 常 事 件 通 報 處 理 表 單 ").Cells(2, 3 + j) = Worksheets("data").Cells(i, 5) '姓名
Worksheets(" 異 常 事 件 通 報 處 理 表 單 ").Cells(3, 3 + j) = Worksheets("data").Cells(i, 6) '日期
Worksheets(" 異 常 事 件 通 報 處 理 表 單 ").Cells(4, 3 + j) = Worksheets("data").Cells(i, 9) '選項 1
Worksheets(" 異 常 事 件 通 報 處 理 表 單 ").Cells(5, 3 + j) = Worksheets("data").Cells(i, 10) '選項 2
Worksheets(" 異 常 事 件 通 報 處 理 表 單 ").Cells(6, 3 + j) = Worksheets("data").Cells(i, 11) '選項 3
Worksheets(" 異 常 事 件 通 報 處 理 表 單 ").Cells(7, 3 + j) = Worksheets("data").Cells(i, 12) '選項 4
Worksheets(" 異 常 事 件 通 報 處 理 表 單 ").Cells(8, 3 + j) = Worksheets("data").Cells(i, 13) '選項 5
Worksheets(" 異 常 事 件 通 報 處 理 表 單 ").Cells(9, 3 + j) =
Worksheets("data").Cells(i, 8) '分數 j = j + 1 End If Else
Worksheets(" 異 常 事 件 通 報 處 理 表 單 -1").Cells(1, 2) = Worksheets("data").Cells(i, 1) '單位
Worksheets(" 異 常 事 件 通 報 處 理 表 單 -1").Cells(1, 5) = Worksheets("data").Cells(i, 3) '年度
Worksheets(" 異 常 事 件 通 報 處 理 表 單 -1").Cells(1, 7) = Worksheets("data").Cells(i, 4) '月份
If Worksheets("data").Cells(i, 5) = "" Then
Worksheets(" 異 常 事 件 通 報 處 理 表 單 ").Cells(11, 1) = Worksheets("data").Cells(i, 9) '分析
Worksheets(" 異 常 事 件 通 報 處 理 表 單 ").Cells(13, 1) = Worksheets("data").Cells(i, 10) '改善
Worksheets(" 異 常 事 件 通 報 處 理 表 單 ").Cells(13, 7) = Worksheets("data").Cells(i, 11) '追蹤
Else
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("B:B")) For i = 2 To R
CB 單位.AddItem Worksheets("參數").Cells(i, 2) Next i
CB 單位.ListIndex = Worksheets("data").Cells(1, 1)
CB 年度.Clear
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("D:D")) For i = 2 To R
CB 年度.AddItem Worksheets("參數").Cells(i, 4) Next i
CB 月份.Clear
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("E:E")) For i = 2 To R
CB 月份.AddItem Worksheets("參數").Cells(i, 5) Next i
CB 表單種類.Clear
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("L:L")) For i = 2 To R
R1 = Application.WorksheetFunction.CountA(Worksheets("data").Range("A:A")) 單位 = CB 單位.Text
月份(6) = "六"
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("B:B")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("D:D")) For i = 2 To R
CB 年度.AddItem Worksheets("參數").Cells(i, 4) Next i
CB 表單種類.Clear
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("L:L")) For i = 2 To R
R1 = Application.WorksheetFunction.CountA(Worksheets("data").Range("A:A")) 單位 = CB 單位.Text
End If '年度
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("B:B")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("D:D")) For i = 2 To R
CB 年度.AddItem Worksheets("參數").Cells(i, 4) Next i
CB 月份.Clear
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("E:E")) For i = 2 To R
R1 = Application.WorksheetFunction.CountA(Worksheets("data").Range("A:A")) 單位 = CB 單位.Text
LB 預防跌倒分數.Clear
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("B:B")) For i = 2 To R
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("D:D")) For i = 2 To R
CB 年度.AddItem Worksheets("參數").Cells(i, 4) Next i
CB 月份.Clear
R = Application.WorksheetFunction.CountA(Worksheets("參數").Range("E:E")) For i = 2 To R
Dim PH1, PH2, PH3, PH4, PCO1, PCO2, HCO1, HCO2 As String
Dim ANS, ANS0, ANS11, ANS12, ANS21, ANS22, ANS31, ANS32, ANS33 As String Private Sub CB 輸入_Click()
B = 1
End Select
Private Sub UserForm_Activate()
附件二 系統評估問卷
說明：
您好！我是台東大學教學科技碩士班的研究生，目前正進行有關病人安全 的護理資訊系統開發研究，特設計此問卷。期盼藉此研究能對護理工作有所助 益，提升照護工作品質，希望您能提供寶貴的意見，做為改善參考之用，以期 此系統能真正符合您的需要。對於您所填寫的資料，均以編號、不記名方式處
您好！我是台東大學教學科技碩士班的研究生，目前正進行有關病人安全 的護理資訊系統開發研究，特設計此問卷。期盼藉此研究能對護理工作有所助 益，提升照護工作品質，希望您能提供寶貴的意見，做為改善參考之用，以期 此系統能真正符合您的需要。對於您所填寫的資料，均以編號、不記名方式處