白话Excel函数公式 Office易学宝微视频教程合集(Excel+Word+PPT)
笨办法学VBA(从入门到精通) 高效办公必会的Office实战技巧
财务总监的Excel私房课 网易云课堂-Excel数据透视表应用大全
Excel图表神技
查看: 406|回复: 5

练习3

[复制链接]
发表于 2015-8-13 11:20:26 | 显示全部楼层 |阅读模式
本帖最后由 临时户口 于 2015-9-7 21:09 编辑

要求       
1、根据每天的系统任务与实际比较,如果实际小于系统任务,那么实际涂上颜色(颜色任意)
2、用代码完成本题,并且要求写注释,无注释需扣分。 
3、另外要求作答清楚颜色的代码,但不能破坏格式。 
4、本题答对30dp      
本题截至2015-8-20

年度完成率统计.rar

8.54 KB, 下载次数: 21

回复

使用道具 举报

发表于 2015-8-13 13:41:25 | 显示全部楼层
  1. Option Explicit

  2. Sub 练习3()
  3.     Dim arr, i&, j&    '定义数组变量arr,i,j
  4.     Application.ScreenUpdating = False
  5.     With Sheets("进口完成情况")
  6.         arr = .Range("a1").CurrentRegion    'arr数组赋值
  7.         .Range("a1", .Cells(UBound(arr), UBound(arr, 2))).Interior.Color = xlNone    '清除数据源区域的颜色
  8.         For i = 2 To UBound(arr) Step 2    '行从2到数据源最后一行,步长为2进行循环
  9.             For j = 3 To UBound(arr, 2)    '列从3到数据源最后一列,步长为1进行循环
  10.                 If .Cells(i, j) > .Cells(i + 1, j) Then    '当计划数大于实际数时
  11.                     .Cells(i + 1, j).Interior.ColorIndex = 3    '实际数所处单元格颜色设置为红色。
  12.                 End If
  13.             Next j
  14.         Next i
  15.     End With
  16.     Application.ScreenUpdating = True
  17. End Sub
复制代码

评分

参与人数 1登攀 +30 收起 理由
临时户口 + 30

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-8-14 21:53:20 | 显示全部楼层
本帖最后由 夏寂雨透 于 2015-8-14 21:55 编辑
  1. Sub 比较()
  2.     Dim m%r, n%  '定义程序所需的变量
  3.     For m = 3 To 27 Step 2    '设置循环变量的初值、终值及步长
  4.         For n = 3 To 13       '设置循环变量的初值、终值及步长
  5.             If Cells(m, n) < Cells(m - 1, n) Then Cells(m, n).Font.Color = RGB(255, 0, 0)  '每天的系统任务与实际比较,如果实际小于系统任务,那么实 际涂上红色
  6.         Next    '循环变量=循环变量+步长
  7.     Next        '循环变量=循环变量+步长
  8. End Sub
复制代码

评分

参与人数 1登攀 +30 收起 理由
临时户口 + 30

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-8-18 16:49:34 | 显示全部楼层
Sub test3()
Dim i%, j%                      '设置行、列的变量
For i = 3 To 28 Step 2   '行变从3开始,步长为2循环
For j = 3 To 14            '列变量从3开始,步长为1循环
If Cells(i, j) - Cells((i - 1), j) < 0 Then Cells(i, j).Interior.ColorIndex = 5 '实际小于系统任务,那么实际涂上蓝色
Next
Next
End Sub

评分

参与人数 1登攀 +30 收起 理由
临时户口 + 30

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-8-18 18:03:35 | 显示全部楼层
  1. Sub 完成情况()
  2.     Dim i As Integer, j As Integer, rowc As Integer, colc As Integer, rng As Range   '声明变量类型
  3.     Set rng = Sheets("进口完成情况").Range("A1").CurrentRegion                       '获取连续的数据区域
  4.     rowc = rng.Rows.Count                                                            '获取数据区域的行数
  5.     colc = rng.Columns.Count                                                         '获取数据区域的列数
  6.     For i = 2 To rowc Step 2                                                         '行步长2循环
  7.         For j = 3 To colc                                                            '列步长1循环
  8.             If Cells(i, j) > Cells(i + 1, j) Then                                    '系统任务>实际
  9.             Cells(i + 1, j).Interior.Color = RGB(255, 255, 0)                        '满足条件,实际单元格填黄色
  10.             End If
  11.         Next
  12.     Next
  13. End Sub
复制代码
  1. Sub 清除颜色()
  2.     Cells.Interior.Color = xlNone                                                    '清除颜色
  3. End Sub
复制代码


评分

参与人数 1登攀 +30 收起 理由
临时户口 + 30

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-8-19 20:09:46 | 显示全部楼层
  1. Sub 标注未完成()                           '开始sub 程序,给并给程序命名。
  2.     Dim i As Integer, n As Integer        '定义循环变量行号和列号为整数型
  3.     For i = 3 To 27 Step 2                 '设置行号i的起始值和终止值,步长为2。开始最外层的 for 循环。
  4.         For n = 3 To 13                    '设置列号n的起始值和终止值,默认步长为1,开始变量 n 的嵌套for 循环。
  5.             If Cells(i, n) < Cells(i - 1, n) Then   '如果每天的实际小于系统任务,那么把实际单元格填充为红色
  6.                 Cells(i, n).Interior.ColorIndex = 3
  7.              End If                               '结束if语句
  8.         Next                               '对循环计数,每循环一次,则变量n+1
  9.     Next                                   '对循环计数,每循环一次,则变量i+2
  10. End Sub                                      'sub 程序结束


  11. Sub 清除所有颜色()
  12.     Range("C2", "M27").Interior.ColorIndex = 0      '把单元格区域C2:M27的单元格底纹颜色索引号设置为0,即是无色,清除所有颜色。
  13. End Sub
复制代码

评分

参与人数 1登攀 +30 收起 理由
临时户口 + 30

查看全部评分

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 入学

本版积分规则

快速回复 返回顶部 返回列表