原创力文档- 1、本文档共42页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
第11章 vba代码
第11章 综 合 实 例
范例153 员工花名册
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Integer
r = Sheet1.Cells(Sheet1.Rows.Count, 2).End(xlUp).Row
With Target
If .Count = 1 And .Row 5 And .Row = r Then
Sheet1.Unprotect
Select Case .Column
Case 7
With .Validation
.Delete
.Add 3, 1, 1, 高级会计师,会计师,助理会计师,会计员, _
高级工程师,工程师,助理工程师,技术员, _
高级经济师,经济师,助理经济师,无
End With
Case 8
With .Validation
.Delete
.Add 3, 1, 1, 经理室,办公室,行政科,生技科, _
财务科,营业部,其他,退休
End With
Case 9
With .Validation
.Delete
.Add 3, 1, 1, 经理,副经理,中层正职,中层副职, _
总账会计,辅助会计,出纳会计,驾驶员, _
办事员,收费员,发货员,采购员,化验员, _
班组长,电工,中控值班,制水工,外借,内退
End With
Case 10
With .Validation
.Delete
.Add 3, 1, 1, 在职,内退,退休
End With
Case Else
End Select
Sheet1.Protect
End If
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Sheet1.Unprotect
With Target
If .Count = 1 And .Row 5 Then
If .Column = 2 And Len(.Text) 0 Then
Range(Cells(.Row, 1), Cells(.Row, 10)).Borders.LineStyle = xlContinuous
.Offset(0, -1).FormulaR1C1 = =ROW()-5
End If
If .Column = 6 Then
Application.EnableEvents = False
Select Case Len(.Text)
Case 18
.Offset(0, -5).FormulaR1C1 = =ROW()-5
文档评论（0）