EXCEL vba 自动填写表格中的内容。
答案:1 悬赏:60 手机版
解决时间 2021-12-02 15:50
- 提问者网友:记得曾经
- 2021-12-02 06:48
EXCEL vba 自动填写表格中的内容。
最佳答案
- 五星知识达人网友:空山清雨
- 2021-12-02 07:30
右键工作表标签,贴入下面VBA代码。
这段代码是依据你图上的位置来写的,实际情况,可修改部分单元格区域。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TableRng As Range
Dim DestRng As Range
If Target.Address = "$N$10" Then ''判断是不是姓名单元格,可更改
''传入查找区域,可更改
Set TableRng = Range("N13:S22")
Set DestRng = TableRng.Find(what:=Target.Value, lookat:=xlWhole)
With Target
''返回各科成绩,数量可更改
.Offset(0, 1) = DestRng.Offset(0, 1)
.Offset(0, 2) = DestRng.Offset(0, 2)
.Offset(0, 3) = DestRng.Offset(0, 3)
.Offset(0, 4) = DestRng.Offset(0, 4)
End With
End If
End Sub
这段代码是依据你图上的位置来写的,实际情况,可修改部分单元格区域。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TableRng As Range
Dim DestRng As Range
If Target.Address = "$N$10" Then ''判断是不是姓名单元格,可更改
''传入查找区域,可更改
Set TableRng = Range("N13:S22")
Set DestRng = TableRng.Find(what:=Target.Value, lookat:=xlWhole)
With Target
''返回各科成绩,数量可更改
.Offset(0, 1) = DestRng.Offset(0, 1)
.Offset(0, 2) = DestRng.Offset(0, 2)
.Offset(0, 3) = DestRng.Offset(0, 3)
.Offset(0, 4) = DestRng.Offset(0, 4)
End With
End If
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯
正方形一边上任一点到这个正方形两条对角线的 |
阴历怎么看 ? |