Excel-VBA-质量问题可视化管理-08-问题状态变更

最新推荐文章于 2022-01-19 14:47:42 发布

Coding的巴扎黑

最新推荐文章于 2022-01-19 14:47:42 发布

阅读量336

点赞数

分类专栏： VBA-Excel

本文链接：https://blog.youkuaiyun.com/zishendianxia/article/details/114451760

版权

VBA-Excel 专栏收录该内容

39 篇文章

订阅专栏

系统：Windows 10
软件：Excel 2016

本系列是假设一种应用场景，键盘质量检查中，发现问题，如何在键盘图片上进行标记和后续的跟踪管理
其实也同样适用在其它应用场景，尤其与位置相关的质量特性管理上
核心知识点：在背景图片特定位置插入一个圆圈（表示问题点），并对圆圈进行进行颜色等特性的改变

Part 1：项目功能介绍（更新）

在写的过程中，发现需要修正一下上次的功能，功能模块如下
录入问题（OK）
- 录入尺寸问题，标记圆形
- 录入颜色问题，标记矩形
- 清空显示问题
- 保存当前状态：新增的问题点位置和颜色都是动态变化的，需要保存最新状态
删除问题（OK）
- 基于问题唯一ID号删除某问题
查询问题，基于以下三个条件逻辑与进行查询，若无选择条件，默认显示所有问题
- 基于问题状态：已解决，未解决
- 问题种类：尺寸，颜色
- 时间节点：超期，未超期
- 问题ID号，只显示特定ID号问题
- 选中图片上问题获取其对应的问题描述
问题修改（OK）
- 修改问题状态，更新其颜色表示，未解决-红色；已解决-绿色
考虑到操作的便利性，对于录入问题部分，设置快捷键

操作界面（仅做示意，并不表示真有质量问题；如有侵权请联系我）
在这里插入图片描述

Part 2：拟实现功能描述

本次拟实现改变问题状态，实现标记颜色的变更
基本逻辑
- 手动改变问题状态
- Excel文件关闭前触发事件
- 更新数据库填充色和轮廓色
在这里需要补充一下，问题首次创建的时候，将问题状态定义为未解决。sht.Cells(inputRow, "L").Value = "未解决"

颜色更新 在这里插入图片描述

Part 3：代码


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    
    Call changeTheColor
End Sub
Sub changeTheColor()
    Set sht = ThisWorkbook.Worksheets("问题管理")
    ' 获取行数
    maxRow = sht.Cells(Rows.Count, "Q").End(xlUp).Row
    
    For i = 3 To maxRow Step 1
        problemStatus = sht.Cells(i, "L").Value
        If problemStatus = "已解决" Then
            fillColor = 5287936
            lineColor = 5287936
        Else
            fillColor = 255
            lineColor = 255
            
        End If
        
        sht.Cells(i, "V").Value = fillColor
        sht.Cells(i, "W").Value = lineColor
               
    Next i
    
    Call showAllProblem
End Sub