首页 分享 VBA EXCEL 工作簿之间相互操作

VBA EXCEL 工作簿之间相互操作

来源:花匠小妙招 时间:2024-11-22 10:47

最新推荐文章于 2024-05-08 20:21:09 发布

us天道酬勤 于 2015-07-22 14:00:29 发布

版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。

说明:

各个班级花名册excel工作簿,一个余额汇总工作簿,在余额汇总工作簿中有多个表,每个表代表一个班级中每个学生基本信息和余额情况;为了检测班级花名册中的所有学生在余额统计表中是否都有对应的基本信息和余额统计情况,即班级花名册中的所有学生是否在余额统计表中都存在;班级花名册工作簿文件列表:
余额信息统计工作簿:
源代码:

Function CheckAndAddStyle()

Dim sheetToWorkBookName As String

Dim nameIndexInBJ As Integer

For Each sheet In ThisWorkbook.Sheets

sheetToWorkBookName = CStr(2014) + Left(sheet.Name, 2) + ".xls"

Dim myApp As New Application

Dim sh As Worksheet

Dim Temp As String

Temp = ThisWorkbook.Path & "" & sheetToWorkBookName

myApp.Visible = False

Set sh = myApp.Workbooks.Open(Temp).Sheets(1)

nameIndexInBJ = GetNameIndex(sh)

For bjRow = 2 To sh.UsedRange.Rows.Count

Dim yeRow As Integer

For yeRow = 5 To sheet.UsedRange.Rows.Count

If sh.Cells(bjRow, nameIndexInBJ).Value = sheet.Cells(yeRow, 1) Then

sh.Cells(bjRow, nameIndexInBJ).Interior.ColorIndex = 42

Exit For

End If

Next

If yeRow = sheet.UsedRange.Rows.Count + 1 Then

sh.Cells(bjRow, nameIndexInBJ).Interior.ColorIndex = 46

End If

Next

myApp.Quit

Set sh = Nothing

Set myApp = Nothing

Next

End Function

Function GetNameIndex(sheet As Worksheet) As Integer

Dim nameIndex As Integer

For i = 1 To sheet.UsedRange.Columns.Count

If sheet.Cells(1, i).Value = "姓名" Then

nameIndex = i

Exit For

End If

Next

GetNameIndex = nameIndex

End Function

相关知识

Excel下拉菜单自动颜色设置指南(excel下拉菜单自动颜色)
菜鸟谈EXCELVBA最最基础入门.pdf
Excel库存管理系统,Excel仓库出入库记账管理表格
初中信息技术会考Excel复习提纲
通用Excel库存管理系统,最好用的Excel出入库管理表格
Excel VBA 高级编程
用EXCEL来搞艺术之花朵
库管易Excel库存管理系统220618版
excel调用制冷剂物性查询软件NIST REFPROP 10.0下载+安装教程
2021年新版姓名配对,EXCEL 如果通过姓名配对信息?

网址: VBA EXCEL 工作簿之间相互操作 https://www.huajiangbk.com/newsview651845.html

所属分类:花卉
上一篇: [field:descripti
下一篇: 描写花的作文(精选25篇)

推荐分享