wshcw wshcw
关注数: 366 粉丝数: 228 发帖数: 3,317 关注贴吧数: 842
我想学改一下这个宏文件,请帮帮我. 我想在下列程序中增加差生人数,差生率以及<60的改为两段,即59.9-40,<=39其中一部分模块的宏代码如下:Sub 历史分析()'' 历史分析 Macro' 太阳风 记录的宏 2005-9-3'' Range("A11:H11").Select ActiveCell.FormulaR1C1 = "历史" Range("I11:N11").Select ActiveCell.FormulaR1C1 = "分数段" Range("A12").Select ActiveCell.FormulaR1C1 = "班级" Range("A13").Select ActiveCell.FormulaR1C1 = "1" Range("A14").Select ActiveCell.FormulaR1C1 = "2" Range("A15").Select ActiveCell.FormulaR1C1 = "3" Range("A16").Select ActiveCell.FormulaR1C1 = "4" Range("A17").Select ActiveCell.FormulaR1C1 = "5" Range("A18").Select ActiveCell.FormulaR1C1 = "6" Range("A19").Select ActiveCell.FormulaR1C1 = "总计" Range("B12").Select ActiveCell.FormulaR1C1 = "人数" Range("B13").Select ActiveCell.FormulaR1C1 = "=COUNTIF(成绩输入!R[-11]C[-1]:R[207]C[-1],""=1"")" Range("B14").Select ActiveCell.FormulaR1C1 = "=COUNTIF(成绩输入!R[-12]C[-1]:R[206]C[-1],""=2"")" Range("B15").Select ActiveCell.FormulaR1C1 = "=COUNTIF(成绩输入!R[-13]C[-1]:R[205]C[-1],""=3"")" Range("B16").Select ActiveCell.FormulaR1C1 = "=COUNTIF(成绩输入!R[-14]C[-1]:R[204]C[-1],""=4"")" Range("B17").Select ActiveCell.FormulaR1C1 = "=COUNTIF(成绩输入!R[-15]C[-1]:R[203]C[-1],""=5"")" Range("B18").Select ActiveCell.FormulaR1C1 = "=COUNTIF(成绩输入!R[-16]C[-1]:R[202]C[-1],""=6"")" Range("B19").Select ActiveCell.FormulaR1C1 = "=COUNTIF(成绩输入!R[-17]C[-1]:R[201]C[-1],"">0"")" Range("C12").Select ActiveCell.FormulaR1C1 = "总分" Range("C13").Select ActiveCell.FormulaR1C1 = "=SUM('1'!R[-11]C[6]:R[19]C[6])" Range("C14").Select ActiveCell.FormulaR1C1 = "=SUM('2'!R[-12]C[6]:R[18]C[6])" Range("C15").Select ActiveCell.FormulaR1C1 = "=SUM('3'!R[-13]C[6]:R[17]C[6])" Range("C16").Select ActiveCell.FormulaR1C1 = "=SUM('4'!R[-14]C[6]:R[16]C[6])" Range("C17").Select ActiveCell.FormulaR1C1 = "=SUM('5'!R[-15]C[6]:R[35]C[6])" Range("C18").Select ActiveCell.FormulaR1C1 = "=SUM('6'!R[-16]C[6]:R[34]C[6])" Range("C19").Select ActiveCell.FormulaR1C1 = "=SUM(成绩输入!R[-17]C[6]:R[201]C[6])" Range("D12").Select ActiveCell.FormulaR1C1 = "平均分" Range("D13").Select ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]" Range("D14").Select ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]" Range("D15").Select ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]" Range("D16").Select ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]" Range("D17").Select ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]" Range("D18").Select ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]" Range("D19").Select ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]" Range("E12").Select ActiveCell.FormulaR1C1 = "及格人数" Range("E13").Select ActiveCell.FormulaR1C1 = "=COUNTIF('1'!R[-11]C[4]:R[19]C[4],"">=60"")" Range("E14").Select ActiveCell.FormulaR1C1 = "=COUNTIF('2'!R[-12]C[4]:R[18]C[4],"">=60"")"
首页 1 2 3 下一页