20171104xlVBA各人各科进退

【20171104xlVBA各人各科进退】的更多相关文章

20171104xlVBA各人各科进退

Sub 各班个人各科进步幅度() Dim dRank As Object Set dRank = CreateObject("Scripting.Dictionary") Dim dStd As Object Set dStd = CreateObject("Scripting.Dictionary") Dim dSbj As Object Set dSbj = CreateObject("Scripting.Dictionary") em =…

20171104xlVBA进退比较

Sub 比对两次成绩() CreateAdvance "进退比较", "月考2", "期中考", "月考2", "月考3" End Sub Sub CreateAdvance(ByVal MainName As String, ByVal ShtName1 As String, ByVal ShtName2 As String _ , ByVal ExamName1 As String, ByVal Exa…

第三十访问财富进退自如 —Spring交易管理

6月16日本,明确. "应该留给追穷寇勇,不可沽名学霸王.天若有情天亦老,人间正道是沧桑." 有始有终.有往有还.进退自如乃Spring事务管理之道,也是万物生生不息.和谐共处之道. 遵道而行.但到半途需努力.会心不远,欲登绝顶莫辞劳. 事务是一个最小的工作单元.不论成功与否都作为一个总体进行工作. 不会有部分完毕的事务.因为事务是由几个任务组成的,因此假设一个事务作为一个总体是成功的,则事务中的每一个任务都必须成功.假设事务中有一部分失败,则整个事务失败.…

写sql语句统计各个学生各科成绩（case when用法）

尊重原创:http://blog.csdn.net/love_java_cc/article/details/78268326 有如下一张表score: 建表语句: CREATE TABLE `score` (`id` int NOT NULL AUTO_INCREMENT ,`name` varchar(20) NOT NULL ,`category` varchar(20) NOT NULL ,`score` int NOT NULL ); 现在要去查询学生的各科成绩和总分,效果如下…

mySQL--找出各科最高成绩

//找出各科最高成绩create table gradeMax(id int primary key auto_increment,name varchar(20),subject varchar(20),grade int); insert into gradeMax(name ,subject ,grade ) values('小点','java',99),('小黑','.net',100),('小军','职业素养',100),('小王','语文',78),('小憋','数学',96),('…

20171104xlVBA制作联合成绩条

Dim dGoal As Object Dim dCls As Object Sub 制作联合成绩条() Dim sht As Worksheet Dim HeadRng As Range Dim Header As Variant Dim Arr As Variant Dim Brr As Variant Set sht = ThisWorkbook.Worksheets("成绩条模板") Set HeadRng = sht.Range("A1:Z1") Head…

查询各科成绩最高和最低的分：以如下形式显示：课程ID，最高分，最低分

SELECT L.C# As 课程ID,L.score AS 最高分,R.score AS 最低分 FROM SC L ,SC AS R WHERE L.C# = R.C# and L.score = (SELECT MAX(IL.score) FROM SC AS IL,Student AS IM WHERE L.C# = IL.C# and IM.S#=IL.S# GROUP BY IL.C#) AND R.Score = (SELECT MIN(IR.score) FROM SC AS I…