笔试题用VBS实现Excel中功能统计

SQL界的妹纸岗岗滴

于 2018-04-09 14:25:24 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/hnanxihotmail/article/details/79865936

本文介绍了一道笔试题目，通过VBScript（VBS）在Excel中完成特定的数据处理任务。首先创建了一个worksheet，然后展示了脚本运行前后的数据对比，包括原始数据和处理后的结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

有下图这样一道题（第一次做记录脚本）

1. 首先用Excel创建如图worksheet

Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks.Open("C:\Users\Administrator\Desktop\学生成绩.xls")
Set ExcelSheet = ExcelBook.Worksheets(1)

ExcelSheet.Range("E1").Value = "总分"
ExcelSheet.Range("F1").Value = "NofTotal>180"
ExcelSheet.Range("G1").Value = "MS>CS"
MsgBox ExcelSheet.Range("E1").Value
'--------计算总分--
Dim c,r,s,mc '定义row数量(r)column数量c/计算人数总和的(s)/数学大于语文人数(mc)
For r = 2 To 7
	ExcelSheet.cells(r,5).value = ExcelSheet.cells(r,2).value+ExcelSheet.cells(r,3).value+ExcelSheet.cells(r,4).value
	'-总分大于180的人数-
	If ExcelSheet.cells(r,5).value > 180 Then
	'ExcelSheet.cells(r,6).value = "0"
	s=s+1	
	End If 
	'--数学成绩大于语文成绩人数--
	If ExcelSheet.cells(r,3).value > ExcelSheet.cells(r,2).value Then 
	mc=mc+1
	End If
	'---各科成绩<60的数据标记底色为红字体加粗
	for c = 2 To 4