【文章內(nèi)容簡介】 添加完成！”。當單擊抒情數(shù)據(jù)按鈕時，會清除字段中填寫的員工信息，并給予“數(shù)據(jù)以清除“的提示。在姓名字段輸入要刪除員工姓名，單擊刪除記錄按鈕，如若存在則提示”員工記錄已刪除“，否則提示”無此記錄，因此無法刪除，請核實“。 圖 48 添加信息殘缺提示相關代碼：If YorN = vbYes Then 39。判斷記錄是否完整If Trim(Cells(5， 3)) = Or Trim(Cells(4， 10)) = Or _Trim(Cells(4， 6)) = Or Trim(Cells(4， 8)) = Or _Trim(Cells(6， 7)) = Or Trim(Cells(7， 2)) = Or _Trim(Cells(5， 11)) = Then11 / 32 MsgBox 信息不完整，請完善信息 Exit Sub圖 49 姓名字段為空時提示相關代碼：39。 判斷是否存在用戶名 If Trim(Cells(4， 2)) = Then MsgBox 請輸入姓名 Exit Sub End If 圖 410 記錄刪除成功提示相關代碼：Dim i As Integer39。定義判斷記錄是否在的布爾變量Dim CunZai As Boolean39。定義用于保存“資料庫”記錄數(shù)的整型變量Dim iCount As Integer39。把記錄行數(shù)賦予 iCountiCount = Sheets(資料庫).[A10]. + 1039。為 CunZai 布爾變量賦初值CunZai = False39。使用 For…Next 循環(huán)語句For i = 11 To iCount39。判斷讀者編號是否與已有記錄的相同12 / 32 If Trim(Cells(4， 2)) = Trim(Cells(i， 1)) Then39。把 CunZai 布爾變量的值設為 TrueCunZai = True39。選擇符合條件的記錄行Rows(i).Select39。刪除符合條件的記錄行39。彈出記錄已經(jīng)刪除的信息Sheets(工資標準).Rows(i 9).DeleteSheets(考勤和應扣項目).Rows(i 9).DeleteSheets(工資條).Rows(i 9).DeleteMsgBox 員工記錄已經(jīng)刪除！， vbOKOnly， 提示 Exit For 39。退出 For…Next 循環(huán)語句 End If 圖 411 刪除不存在員工提示相關代碼：If CunZai = False Then 39。彈出無法刪除記錄的信息 MsgBox 無此記錄，因此無法刪除，請核實！， vbOKOnly， 無法刪除End If 查看統(tǒng)計界面的具體實現(xiàn)1. 界面實現(xiàn)(1). 新建工作表命名為統(tǒng)計表。(2). 選擇【視圖】|【工具欄】|【控制工具箱】命令，彈出工具箱窗口。(3). 選擇 button 按鈕，在表中添加控件。(4). 選擇控件右擊，在彈出的快捷菜單中選擇【屬性】命令，在彈出的屬性對話框中，改變它的 Caption 屬性。(5). 添加相關字段。13 / 32(6). 設計整體界面更，最終效果如下圖圖 412 統(tǒng)計表界面2. 功能介紹查看統(tǒng)計界面連接的是統(tǒng)計表。其包括一個統(tǒng)計按鈕一個主界面按鈕。當單擊統(tǒng)計按鈕則系統(tǒng)會按照性別、年齡、學歷來查詢統(tǒng)計。當單擊主界面按鈕時則會實現(xiàn)界面之間的跳轉(zhuǎn)。統(tǒng)計按鈕相關代碼：Private Sub CommandButton1_Click() While (Not IsEmpty(Sheets(資料庫).Cells(TempY ， 1).Value)) 39。統(tǒng)計男女性別人數(shù) Dim sex sex = Sheets(資料庫).Cells(TempY， 2).Value If (男 = sex) Then men = men + 1 Else women = women + 1 End If 39。統(tǒng)計個階段學歷人數(shù) Dim xueli xueli = Sheets(資料庫).Cells(TempY， 8).Value If (高中 = xueli) Then xueli1 = xueli1 + 1 ElseIf (大專 = xueli) Then xueli2 = xueli2 + 1 ElseIf (本科 = xueli) Then xueli3 = xueli3 + 114 / 32 ElseIf (碩士 = xueli) Then xueli4 = xueli4 + 1 Else xueli5 = xueli5 + 1 End If 39。統(tǒng)計各年齡段人數(shù) Dim nowyear As Integer Dim thatyear As Integer nowyear = Year(Cells(6， 1)) thatyear = Year(Sheets(資料庫).Cells(TempY， 3)) If (nowyear thatyear 49) Then class1 = class1 + 1 ElseIf ((nowyear thatyear) 39) Then class2 = class2 + 1 ElseIf ((nowyear thatyear) 29) Then class3 = class3 + 1 ElseIf ((nowyear thatyear) 19) Then class4 = class4 + 1 Else class5 = class5 + 1 End If 39。進入下一行 TempY = TempY + 1 查看信息界面的具體實現(xiàn)1. 界面實現(xiàn)(1). 新建工作表命名為打印簡歷。(2). 選擇【視圖】|【工具欄】|【控制工具箱】命令，彈出工具箱窗口。(3). 選擇 button 按鈕，在表中添加控件。(4). 選擇控件右擊，在彈出的快捷菜單中選擇【屬性】命令，在彈出的屬性對話框中，改變它的 Caption 屬性。(5). 添加相關字段。(6). 設計整體界面更，最終效果如下圖15 / 32圖 413 打印簡歷界面2. 功能介紹該界面連接的時打印簡歷表。其包括一個搜索員工按鈕一個主界面按鈕。當在姓名字段輸入要查找員工的姓名時，單擊搜索按鈕，若存在此人則會顯示該員工的所有信息。否則則會提示“沒有搜到符合條件的記錄，請核實“。圖 414 搜索不存在員工提示相關代碼：39。判斷是否搜索到讀者 If CunZai = False Then 39。彈出提示沒有搜索到符合條件讀者的信息 MsgBox 沒有搜索到符合條件的記錄，請核實！， vbOKOnly， 提示 End If 管理工資界面的具體實現(xiàn)1. 界面實現(xiàn)(1). 將新建的工作表命名為工資管理。(2). 選擇【視圖】|【工具欄】|【控制工具箱】命令，彈出工具箱窗口。(3). 選擇 button 按鈕，在表中添加控件。(4). 選擇控件右擊，在彈出的快捷菜單中選擇【屬性】命令，在彈出的屬性對話框中，改變它的 Caption 屬性。(5). 設計整體界面更，最終效果如下圖16 / 32圖 415 工資管理界面2. 功能介紹 該界面包括 4 個功能按鈕。工資條按鈕、主界面按鈕、考勤和應扣項目按鈕、工資標準按鈕。這些按鈕主要是用來實現(xiàn)個界面之間的跳轉(zhuǎn)。 工資條界面的具體實現(xiàn)1. 界面實現(xiàn)(1). 新建工作表命名為工資條。(2). 選擇【視圖】|【工具欄】|【控制工具箱】命令，彈出工具箱窗口。(3). 選擇 button 按鈕，在表中添加控件。(4). 選擇控件右擊，在彈出的快捷菜單中選擇【屬性】命令，在彈出的屬性對話框中，改變它的 Caption 屬性。(5). 添加相關字段。(6). 設計整體界面更，最終效果如下圖 圖 416 工資條界面2. 功能介紹 該界面里主要記錄的是企業(yè)員工的一些工資所得情況。該界面里還包含一個工資管理按鈕，一個主界面按鈕。用來實現(xiàn)界面之間的跳轉(zhuǎn)。17 / 322022 年 6 月第十一屆全國人大常委會第二十一次會議 30 日表決通過關于修改個人所得稅法的決定，征稅點從 3500 元起。個人所得稅計算公式：應納個人所得稅稅額=應納稅所得額*適用稅率速算扣除數(shù)員工工資個人所得稅相關代碼：Function tax(應稅所得額) If 應稅所得額 = 1500 Then tax = * 應稅所得額 Else If 應稅所得額 = 4500 Then tax = * 應稅所得額 105 Else If 應稅所得額 = 9000 Then tax = * 應稅所得額 555 Else If 應稅所得額 = 35000 Then tax = * 應稅所得額 1005 Else If 應稅所得額 55000 Then tax = * 應稅所得額 2755 Else If 應稅所得額 80000 Then tax = * 應稅所得額 5505 Else