.Range(“O2”).Value = https://www.i8ku.com/2021/wksBaseInfo.Range(“F7”).Value
.Range(“P2”).Value = https://www.i8ku.com/2021/wksBaseInfo.Range(“B8”).Value
.Range(“Q2”).Value =https://www.i8ku.com/2021/wksBaseInfo.Range(“D8”).Value
.Range(“R2”).Value = https://www.i8ku.com/2021/wksBaseInfo.Range(“F8”).Value
.Range(“S2”).Value = https://www.i8ku.com/2021/wksBaseInfo.Range(“B9”).Value
.Range(“T2”).Value = https://www.i8ku.com/2021/wksBaseInfo.Range(“D9”).Value
.Range(“U2”).Value = https://www.i8ku.com/2021/wksBaseInfo.Range(“F9”).Value
.Range(“V2”).Value = https://www.i8ku.com/2021/wksBaseInfo.Range(“B10”).Value
.Range(“W2”).Value = https://www.i8ku.com/2021/wksBaseInfo.Range(“B11”).Value
.Range(“X2”).Value = https://www.i8ku.com/2021/wksBaseInfo.Range(“B12”).Value
End With
End Sub
代码很简单 , 用到的都是前面我们学到的知识 。在”员工基本信息表”中填写相应的数据 , 运行上面的代码 , 可以看到数据会自动填充到”员工信息数据库”的第二行中 。
这里的代码只是机械地将一个表中的数据复制到另一个表中相应的单元格 , 并且只能实现填充固定一行的数据 。
【Excel VBA员工管理系统开发】接下来 , 我们边进一步学习 , 边完善我们的系统 , 使系统逐渐灵活方便起来 。
推荐阅读
- Excel VBA MsgBox函数
- Excel VBA Select Case结构
- Excel VBA解读有限次的循环
- Excel VBA对象模型
- excel函数获取重复次数最多的值
- excel函数获取重复数据出现的最大次数
- excel函数求单元格区域中指定词语出现的次数
- excel函数获取与查找值相对应的多个值
- excel常用函数判断回文
- excel函数获取与满足多个查找条件的所有值