保存记录VBA
Sub 伙食费保存()
With Sheets("费用记录")
Set rng = .Cells(Rows.Count, 1).End(xlUp)
Set frng = .Columns(1).Find(.Value, , , xlWhole)
If frng Is Nothing Then
rng.Offset(1, 0) = '单号
rng.Offset(1, 1) = '班别
rng.Offset(1, 2) = '姓名
rng.Offset(1, 5) = '伙食费
rng.Offset(1, 6) = '退费
rng.Offset(1, 10) = '合计金额
rng.Offset(1, 11) = Date '交费时间
MsgBox "保存成功!"
Else
MsgBox "您已经保存过了!"
End If
End With
End Sub
页:
[1]