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

【11126】练习6 检测安排

[复制链接]
发表于 2015-1-4 23:00:16 | 显示全部楼层 |阅读模式
本帖最后由 笑眼晴天 于 2015-1-18 15:40 编辑

本题改变自14223函数班 Sweetian同学的函数题,由lasharks老师改编。
111.png
654321.gif

答案以附件形式上传,截止日期01/11/2015 晚

检测安排.zip

17.81 KB, 下载次数: 34

回复

使用道具 举报

发表于 2015-1-6 22:35:12 | 显示全部楼层
本帖最后由 younghuman 于 2015-1-8 18:35 编辑

11126-其它-younghuman-练习6.rar (29.04 KB, 下载次数: 14)

评分

参与人数 1登攀 +40 收起 理由
笑眼晴天 + 40 赞一个!

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-1-7 16:31:11 | 显示全部楼层
本帖最后由 毕释理 于 2015-1-7 16:58 编辑

目标:没蛀牙

检测安排.zip

20.25 KB, 下载次数: 5

点评

很不错的哦。可以尝试下用工作表事件做。  发表于 2015-1-17 21:24

评分

参与人数 1登攀 +30 收起 理由
笑眼晴天 + 30 很给力!

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-1-7 23:17:03 | 显示全部楼层
本帖最后由 小丽_83 于 2015-1-7 23:21 编辑

交练习了。。。
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Dim i%
  3.     If Target.Column <> 3 Then
  4.         Exit Sub '如果选中的单元格不在C列则退出执行
  5.     Else
  6.         For i = 1 To 3
  7.             Cells(i + 1, 2).Value = "检"
  8.         Next '前三天强制检测
  9.         If Target.Value = "不合格" Then
  10.             For i = 1 To 3
  11.                 Cells(Target.Row + i, 2).Value = "检"
  12.             Next
  13.         End If '如果检测结果不合格,则接下来三天都要强制检测
  14.         If Target.Row > 3 And Target.Value = "合格" Then
  15.             If Target.Offset(-1, 0).Value = "合格" And Target.Offset(-2, 0).Value = "合格" Or Cells(Target.Row - 1, 3) = "免检" Then
  16.             '在判断选中单元格是合格的情况下,判断是否符合连续3天检测合格或之前已进入免检区,如是,即执行以下
  17.                 For i = 1 To 5
  18.                     Cells(Target.Row + i, 2).Value = "免检"
  19.                     Cells(Target.Row + i, 3).Value = "免检"
  20.                 Next '未来5天都是免检
  21.                 Cells(Target.Row + 6, 2).Value = "检" '第6天要强执检测
  22.             End If
  23.         End If
  24.     End If
  25. End Sub
复制代码


11126 练习6 小丽.zip

18.59 KB, 下载次数: 8

评分

参与人数 1登攀 +40 收起 理由
笑眼晴天 + 40 赞一个!

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-1-10 12:50:08 | 显示全部楼层
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     With Target
  3.         If .Count > 1 Or .Column <> 3 Then Exit Sub
  4.         If .Offset(-1) = "不合格" Then .Offset(0, -1).Resize(3) = "检"
  5.         If .Row > 3 Then
  6.             If .Offset(-1) = "合格" And (.Offset(-2) = "合格" And .Offset(-3) = "合格" Or .Offset(-2) = "免检") Then
  7.              .Offset(0, -1).Resize(5, 2) = "免检": .Offset(5, -1) = "检"
  8.             End If
  9.         End If
  10.     End With
  11. End Sub
复制代码

点评

未达到效果。作业应以附件形式提交的哦。  发表于 2015-1-18 03:17

评分

参与人数 1登攀 +19 收起 理由
笑眼晴天 + 19 加油

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-1-10 17:31:42 | 显示全部楼层
本帖最后由 Nami_excel 于 2015-1-14 11:48 编辑

做不出来了!

检测安排_Nami_excel.zip

20.21 KB, 下载次数: 2

点评

未达到效果。此题答案逻辑没有弄清楚,可以参考班长答案。  发表于 2015-1-18 02:57

评分

参与人数 1登攀 +20 收起 理由
笑眼晴天 + 20 加油!

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-1-12 14:03:12 | 显示全部楼层
终于做完了 ,谢谢批改

检测安排 练习6 erin373.rar

22.45 KB, 下载次数: 5

点评

代码无法正常运行。单元格写错了,而且重复的地方可以用循环来做的。开贴看满分作业。  发表于 2015-1-18 15:06

评分

参与人数 1登攀 +20 收起 理由
笑眼晴天 + 20 加油加油。

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-1-15 20:14:41 | 显示全部楼层
本帖最后由 www.zhp 于 2015-1-18 12:37 编辑

交练习了~~~
笑班,我附件传错了,已更换,麻烦再看看。


检测安排-www.zhp.zip

20.01 KB, 下载次数: 5

点评

预先给B列的都设置为检,再通过代码修改,也是一种好办法。但是运行之后不太美观。可以尝试用工作表时间来做。  发表于 2015-1-18 15:13
附件中没有作业的代码。  发表于 2015-1-18 03:13

评分

参与人数 1登攀 +25 收起 理由
笑眼晴天 + 25 很给力! 及时分-5

查看全部评分

回复 支持 反对

使用道具 举报

 楼主| 发表于 2015-1-18 15:39:51 | 显示全部楼层
此题理清思路加上循环判断就比较容易了。具体可看班长羊羊的答案,有流程图,代码都有注释。
回复 支持 反对

使用道具 举报

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

本版积分规则

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