- 帖子
- 128
- 主題
- 13
- 精華
- 1
- 積分
- 118
- 點名
- 0
- 作業系統
- WinXP
- 軟體版本
- Office2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 四川成都邛崃
- 註冊時間
- 2010-9-13
- 最後登錄
- 2017-5-12
|
3#
發表於 2010-9-16 22:24
| 只看該作者
'假设 ID.Text是"员工编号",先对 ID.Text进行判断,是否在d列存在.
Private Sub add_Click()
With Sheets("人事資料")
If Application.WorksheetFunction.CountIf(.Range("d:d"), ID.Text) > 0 Then
MsgBox "员工编号已存在!", vbCritical, "错误"
Exit Sub
End If
With .Range("A65536").End(xlUp)
.Range("A2") = no.Text
.Range("B2") = FullName.Text
.Range("c2") = birthday.Text
.Range("d2") = ID.Text
End With
End With
End Sub
'没有附件,没有验证过哈.提问最好要有附件 |
|