用VBA对比年龄段的学历

zhangbuliang · 发表于 2024-9-23 19:52

本帖最后由 zhangbuliang 于 2024-9-23 19:54 编辑

各位大神，请教一下，用VBA如何设计。

０－５岁　　　　学龄前
６－１５岁　　　义务教育在读
１６－１８岁　　高中
１９　　　　　　大专
对A列对比年龄段，如果B列的学历出现错误，用黄色标出。错误时，只要用黄色标出B列，A列不用。
不要只设计在A，B列才能对比，我把数据移动那里都可以对比，谢谢，

shiruiqiang · 发表于 2024-9-23 19:59

四个if就可以判断。或者数组写入1-19，循环判断

zhangbuliang · 发表于 2024-9-23 20:36

shiruiqiang 发表于 2024-9-23 19:59
四个if就可以判断。或者数组写入1-19，循环判断

关键要用黄色标出来哈，如何设计呢？帮忙设计一下，辛苦了。

quqiyuan · 发表于 2024-9-23 21:11

参与一下，仅供参考。。。
先点击你需要设置的区域（其中一个单元格即可），由于你说能搬运到别的地方也可以使用，就使用了selection

quqiyuan · 发表于 2024-9-23 21:11

代码如下。。。
Sub test()
arr = [{0,"学龄前";6,"义务教育在读";16,"高中";19,"大专"}]
With Selection.CurrentRegion
      .Interior.Color = xlNone
      brr = .Value
      For i = 2 To .Rows.Count
         x = Application.VLookup(brr(i, 1), arr, 2)
         If InStr(x, brr(i, 2)) = 0 Then .Cells(i, 2).Interior.Color = vbYellow
      Next
End With
Beep
End Sub

ykcbf1100 · 发表于 2024-9-23 21:28

本帖最后由 ykcbf1100 于 2024-9-23 21:30 编辑

附件供参考。。。

代码只对数据在AB列时才有效。
多说一句，你把数据移动到哪里都有效，这不太现实。

ykcbf1100 · 发表于 2024-9-23 21:30

参与一下。。。

		自动登录	找回密码
密码			免费注册

[求助] 用VBA对比年龄段的学历

评分

评分

评分