excel怎么添加、查找和编辑数据记录( 二 ) _知识经验

blnFormComplete = False
strNotCompleted = strNotCompleted& “优先级 :” & vbCrLf
End If
‘如果有内容没有填写
‘则用信息框给用户显示相关信息
If blnFormComplete = False Then
strMsg = “下列内容还没有填写完成: ” & vbCrLf &strNotCompleted
lngStyle = vbOKOnly + vbInformation
strTitle = “不能添加记录 – 未完成内容填写”
Beep
intResponse = MsgBox(strMsg,lngStyle, strTitle)
Exit Sub
End If
‘查找工作表中最后一行之后的空行
lngLastRow = LastRow(wsProjectData, 1)+ 1
‘将用户窗体数据输入到工作表
wsProjectData.Cells(lngLastRow,”A”) = Me.txtProjectNumber
wsProjectData.Cells(lngLastRow,”B”) = Me.txtProjectName
wsProjectData.Cells(lngLastRow,”C”) = Me.cboAnalyst
wsProjectData.Cells(lngLastRow,”D”) = Me.cboClient
wsProjectData.Cells(lngLastRow,”E”) = Me.txtDueDate
wsProjectData.Cells(lngLastRow,”F”) = Me.txtPriority
wsProjectData.Cells(lngLastRow,”G”) = Me.cboNumberSamples
‘用信息框给用户显示相关信息
strMsg = “已添加记录到” & wsProjectData.Name& ” 行” & Str(lngLastRow)
lngStyle = vbOKOnly + vbInformation
strTitle = “记录已添加”
Beep
intResponse = MsgBox(strMsg, lngStyle,strTitle)
‘编辑记录
Else
strMsg = “编辑项目编号 : ” & Me.txtProjectNumber& ” ?”
lngStyle = vbYesNo + vbQuestion
strTitle = “编号记录 ?”
Beep
intResponse = MsgBox(strMsg, lngStyle,strTitle)
If intResponse = vbNo Then Exit Sub
On Error GoTo ProjectNumberNoMatch
‘查找到要编辑的项目编号所在单元格
lngMatchRow =Application.Match(Me.txtProjectNumber, wsProjectData.Columns(“A”), )
On Error GoTo
【excel怎么添加、查找和编辑数据记录】‘已找到要编辑的项目编号
Me.lblRecordNofTotal = “在 ” & Str(lngLastRow) &” 行中的第” & Str(lngMatchRow) & ” 行”
‘更新记录
wsProjectData.Cells(lngMatchRow,”A”) = Me.txtProjectNumber
wsProjectData.Cells(lngMatchRow,”B”) = Me.txtProjectName
wsProjectData.Cells(lngMatchRow,”C”) = Me.cboAnalyst
wsProjectData.Cells(lngMatchRow,”D”) = Me.cboClient
wsProjectData.Cells(lngMatchRow,”E”) = Me.txtDueDate
wsProjectData.Cells(lngMatchRow,”F”) = Me.txtPriority
wsProjectData.Cells(lngMatchRow,”G”) = Me.cboNumberSamples
‘用找到的项目编号所在行数据填充用户窗体
PopulateUserForm lngMatchRow
‘用信息框显示相应信息
strMsg = “项目编号 : ” & Me.txtProjectNumber & ” 已更新.”
lngStyle = vbOKOnly + vbInformation
strTitle = “记录已更新”
Beep
intResponse = MsgBox(strMsg, lngStyle,strTitle)
End If
Exit Sub
ProjectNumberNoMatch:
strMsg = “项目编号 ” & Me.txtProjectNumber& ” 没有找到.”
lngStyle = vbOKOnly + vbInformation
strTitle = “没有找到项目编号”
Beep
intResponse = MsgBox(strMsg, lngStyle,strTitle)
End Sub
Private SubcmdProjectNumberFind_Click()
lngMatchRow =
If Me.txtProjectNumber = “” Then
strMsg = “没有指要查找的项目编号.”
lngStyle = vbOKOnly + vbInformation
strTitle = “没有指定项目编号”
Beep
intResponse = MsgBox(strMsg, lngStyle,strTitle)
Exit Sub

excel怎么添加、查找和编辑数据记录( 二 )

猜你喜欢