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

PopulateUserForm lngRow
End Select
Me.lblRecordNofTotal = “在 ” & Str(lngLastRow) &” 行中的第 ” & Trim(Str(lngRow)) & ” 行”
Sleep MOUSE_DOWN_SLEEP
DoEvents
Loop
End Sub
Private Sub MouseDownPrevious()
blnMouseDown = True
Do While blnMouseDown = True
Select Case lngRow
Case 2
‘数据行的首行
lngRow = 2
Case Else
lngRow = lngRow – 1
‘到达首行
If lngRow <= 2 Then lngRow = 2
PopulateUserForm lngRow
End Select
Me.lblRecordNofTotal = “在 ” & Str(lngLastRow) &” 行中的第 ” & Trim(Str(lngRow)) & ” 行”
Sleep MOUSE_DOWN_SLEEP
DoEvents
Loop
End Sub
Sub MouseMove(strControl AsString)
‘鼠标经过控件时高亮显示该控件
Select Case strControl
‘标签名导航
Case “lblFirst”
Me.lblFirst.BackColor = vbYellow
Case “lblLast”
Me.lblLast.BackColor = vbYellow
Case “lblNext”
Me.lblNext.BackColor = vbYellow
Case “lblPrev”
Me.lblPrev.BackColor = vbYellow
End Select
End Sub
‘添加模式
Private Sub optAddMode_Click()
‘将按钮文本修改为”添加记录”
Me.cmdAddEdit.Caption = “添加记录”
Me.cmdAddEdit.ControlTipText = “添加记录”
‘使查找项目编号按钮不可见
Me.cmdProjectNumberFind.Visible = False
‘使导航栏不可见
Me.fraNavigate.Visible = False
‘使显示记录条数信息的标签不可见
Me.lblRecordNofTotal.Visible = False
‘清除用户窗体中的数据
ClearUserForm
End Sub
‘查找和编辑模式
Private SuboptSearchAndEditMode_Click()
‘将按钮文本修改为”编辑记录”
Me.cmdAddEdit.Caption = “编辑记录”
Me.cmdAddEdit.ControlTipText = “编辑记录”
‘使查找项目编号按钮可见
Me.cmdProjectNumberFind.Visible = True
‘使导航栏可见
Me.fraNavigate.Visible = True
‘使显示记录条数信息的标签可见
Me.lblRecordNofTotal.Visible = True
‘显示工作表中第2行的数据
lngRow = 2
lngLastRow = LastRow(wsProjectData, 1)
PopulateUserForm 2
Me.lblRecordNofTotal = “在 ” & Str(lngLastRow) &” 行中的第 ” & Trim(Str(lngRow)) & ” 行”
End Sub
‘重置按钮标签颜色
Private Sub RestoreBackColors()
Me.lblFirst.BackColor = vbWhite
Me.lblNext.BackColor = vbWhite
Me.lblPrev.BackColor = vbWhite
Me.lblLast.BackColor = vbWhite
End Sub
‘激活用户窗体时
Private Sub UserForm_Activate()
‘填充组合框
With Me.cboAnalyst
.AddItem “Analyst 1”
.AddItem “Analyst 2”
.AddItem “Analyst 3”
.AddItem “Analyst 4”
End With
With Me.cboClient
.AddItem “Client 1”
.AddItem “Client 2”
.AddItem “Client 3”
.AddItem “Client 4”
End With
With Me.cboNumberSamples
.AddItem “Number Samples 1”
.AddItem “Number Samples 2”
.AddItem “Number Samples 3”
.AddItem “Number Samples 4”
End With
End Sub
‘填充用户窗体中的控件
Public Sub PopulateUserForm(lngPopulateRow As Long)
Me.txtProjectNumber =wsProjectData.Cells(lngPopulateRow, “A”)
Me.txtProjectName =wsProjectData.Cells(lngPopulateRow, “B”)
Me.cboAnalyst =wsProjectData.Cells(lngPopulateRow, “C”)

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

猜你喜欢