【正文】 xlA1)).Offset(, 1) = ((False, False, xlA1)).Offset(, 0) = ((False, False, xlA1)).Offset(, 1) ‘搜索到 name相匹配單元格， 獲取與之相關的內容，并將之輸入相應文本框 Set rr = (rr) Loop While Not rr Is Nothing And firstAddress End If End If If Len() 0 And = True Then 畢業(yè)設計（論文）報告紙 共 26 頁 第 16 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ‘判斷是否滿足醫(yī)?？ㄌ栁谋疽约斑x項不為空，從而通過病人醫(yī)?？ㄌ栠M行精確或模糊搜索 Dim k As Integer ‘定義 k為整數(shù)型 k = ‘將 k If (k) = True Then = ‘當在 Listbox中進行選擇時，將選中的值賦予 End If Dim name2 As String ‘定義 name為字符竄 name2 = ‘將 name (E:E).Activate ‘在 EXCEL中選中 Columns E Set rr = (E:E).Find(What:=name2, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False) ‘在 Excel表中搜索與 name相符的值 If Not rr Is Nothing Then ‘判斷 rr對象變量代表的對象 是否 存在 firstAddress = ‘記錄單元格地址 Do = ((False, False, xlA1)).Offset(, 4) = ((False, False, xlA1)).Offset(, 3) = ((False, False, xlA1)).Offset(, 2) = ((False, False, xlA1)).Offset(, 1) = ((False, False, xlA1)).Offset(, 0) ‘搜索到 name相匹配單元格， 獲取與之相關的內容，并將之輸入相應文本框 Set rr = (rr) Loop While Not rr Is Nothing And firstAddress End If End If End Sub Private Sub Text1_Keydown(Keycode As Integer, Shift As Integer) ’在 Text1回車時觸發(fā)事件 ,對姓名進行模糊搜索 ‘Listbox清空 If Keycode = 13 Then Dim name As String ‘定義 name為字符串 name = ‘將 name (A:A).Activate ‘在 EXCEL中選中 Columns A Set rr = (A:A).Find(What:=name, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False) If Not rr Is Nothing Then firstAddress = Do ((False, False, xlA1)).Offset(, 0) 畢業(yè)設計（論文）報告紙 共 26 頁 第 17 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ‘將模糊搜索所得姓名，輸入 listbox Set rr = (rr) Loop While Not rr Is Nothing And firstAddress Else If rr Is Nothing Then MsgBox Can39。t Find it , vbOKOnly + vbInformation, Notice ‘MsgBox提示“ Can’t Find it” End If End If End If End Sub Private Sub Text4_Keydown(Keycode As Integer, Shift As Integer) ’在 Text4回車時觸發(fā)事件 ，對聯(lián)系電話進行模糊搜索 ‘Listbox清空 If Keycode = 13 Then Dim telno As String telno = (D:D).Activate Set rr = (D:D).Find(What:=telno, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False) If Not rr Is Nothing Then firstAddress = Do ((False, False, xlA1)).Offset(, 0) ‘將模糊搜索所得聯(lián)系電話，輸入 listbox Set rr = (rr) Loop While Not rr Is Nothing And firstAddress Else If rr Is Nothing Then MsgBox Can39。t Find it , vbOKOnly + vbInformation, Notice End If End If End If End Sub Private Sub Text3_Keydown(Keycode As Integer, Shift As Integer) ’在 Text3回車時觸發(fā)事件，對醫(yī)?？ㄌ栠M行模糊搜索 If Keycode = 13 Then Dim id As String id = (E:E).Activate Set rr = (E:E).Find(What:=id, After:=ActiveCell, LookIn:=xlFormulas, 畢業(yè)設計（論文）報告紙 共 26 頁 第 18 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False) If Not rr Is Nothing Then firstAddress = Do ((False, False, xlA1)).Offset(, 0) ‘將模糊搜索所得醫(yī)?？ㄌ枺斎?listbox Set rr = (rr) Loop While Not rr Is Nothing And firstAddress Else If rr Is Nothing Then MsgBox Can39。t Find it , vbOKOnly + vbInformation, Notice End If End If End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ‘窗體關閉按鈕觸發(fā)事件 Unload Form2 Set xlSheet = Nothing ‘關閉 Sheet ‘關閉調用 的 excel文件 Set XlBook = Nothing ‘釋放 xlBook Set xlApp = Nothing ‘釋放 Excel對象 End Sub 門診預約 界面代碼 以及注解 Public xlApp As ‘定義 EXCEL類 Public XlBook As ‘定義工件簿類 Public xlSheet As ‘定義工作表類 Dim rr As ‘把 i定義為 Range類型的對象 Private Sub Command2_Click() ‘退出 門診 預約 窗體按鈕 Unload Form4 ‘退出 門診預約 窗體 ‘用戶功能界面 End Sub Private Sub Command1_Click() ‘保存當前工作表按鈕 ( amp。 \) ‘將工作表保存到設定路徑 End Sub Private Sub Command3_Click() ‘將病人信息寫入 Excel表 If Len() = 0 And Len() = 0 Then ‘判斷姓名，聯(lián)系電話文本框是否為空 MsgBox 數(shù)據(jù)為空，請輸入 , vbOKOnly + vbInformation, 注意 畢業(yè)設計（論文）報告紙 共 26 頁 第 19 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 若文本框為空，則 MsgB