关于VBA代码操作

iwangyi

Sub C()
For Each Rng In Range("A1:A" & [A65536].End(xlUp).Row)
For Each SH In Sheets
If Rng = SH.Name Then
SH.Name = Rng.Offset(, 1)
SH.[B4] = Rng.Offset(, 1)
End If
Next
Next
End Sub

iwangyi

更明清单在SHEET1
附件参考

chzn4

tigertc 发表于 2020-1-2 22:48
那为什么还要替换名字呢,直接依明细创建评价表就可以了吧.

您这个问题，问到了重点，因为评价下面还有信息，替换是为了可以少打一些字，做修改更好、..不易啊，
毕竟有些是不用修改的

chzn4

iwangyi 发表于 2020-1-2 23:07
更明清单在SHEET1
附件参考

iwangyi老师，这个还有一个要求哦，麻烦您有时间帮我看看，谢谢您了。。已经附上数据列表了的

chzn4

tigertc 发表于 2020-1-2 22:48
那为什么还要替换名字呢,直接依明细创建评价表就可以了吧.

因为原本的评价表里面的一些重要的文字评判数据，我不想做出太大修改，还是要保留的，，
所以就只是重置部分数据咯，特别是那几个科目的成绩录入，文件里面有清单的，麻烦您有空的时候帮我看看，谢谢了！

tigertc

按一个样本按明细生成评价表

chzn4

tigertc 发表于 2020-1-3 00:19
按一个样本按明细生成评价表

哦哦……不过原本评价表里面有一个很重要的评价信息，每人都不一样，大概100字。这样的话岂不是捡了芝麻丢了西瓜。……

hzruziniu

chzn4 发表于 2020-1-3 08:39
哦哦……不过原本评价表里面有一个很重要的评价信息，每人都不一样，大概100字。这样的话岂不是捡了芝麻 ...

Sub lqh()
    Dim arr, i&
    arr = Sheets("名称对照").[a1].CurrentRegion
    For i = 2 To UBound(arr)
        For Each sht In Sheets
            If sht.Name = arr(i, 1) Or sht.Name = arr(i, 2) Then
                With sht
                    .Name = arr(i, 2)    '工作表名
                    .[b4] = arr(i, 2)    '姓名
                    .[a26] = "班主任签名:林冰"  '班主任
                    .[d3] = arr(i, 8)   '学号
                    .[d4] = arr(i, 9)   '性别
                    .[c7] = arr(i, 1)   '语文
                    .[c8] = arr(i, 2)   '数学
                    .[c9] = arr(i, 3)   '外语
                    .[c12] = arr(i, 6)  '思品
                    .[e9] = arr(i, 7)   '体育
                    .[e11] = arr(i, 5)  '美术
                    .[e12] = arr(i, 4)  '音乐
                End With
            End If
        Next
    Next
    MsgBox "完成"
End Sub

chzn4

iwangyi 发表于 2020-1-2 23:07
更明清单在SHEET1
附件参考

收到，iwangyi老师谢谢您！

chzn4

tigertc 发表于 2020-1-2 22:48
那为什么还要替换名字呢,直接依明细创建评价表就可以了吧.

谢谢tigertc老师，您分享的文件，我刚才下载了，十分合用，谢谢您啦！今天早上我太忙了，都没有时间下载来看。