无图

更新时间:2023-04-19 08:14:33 阅读：评论：0

我在这里等你回来-挂亲

2023年4月19日发(作者：远程桌面设置)摘要:借助Excel VBA模块化编程，解决重复的人工查找替换人事部工作，且能够经简单地操作
实现电气操作票自动生成，避免因删除文件或修改关键词导致出错，影响操作安全性。
关键词:VBA语言；火电厂；电气操作票

1 概述
常规电气操作票相似度较高，只需要修改关键字段即可变更。但在实际工作中，工作人员常为了简便，
会直接搜索相关电气操作票，用关键字段替换后保存导致原票实效。因此，为了规避此类重复人工操作，使
用Excel VBA程序设计开发自动生成功能，按照统一的模板生成不同设备的电气操作票，从而提高了工作
人员的效率，且可减少电气操作票错误率。
2 项目设计
电气操作票设备的开关转换状态共计有10种，但设备的操作主要区别可分为测绝缘和不测绝缘两类。
因此，可针对两种类型分别设计通用代码模块，但主要功能都是通过创建Word对象来打开对应的模板电气
操作票，查找关键字段，用Excel单元格的内容进行替换。
在Excel文件中，集成6KV设备的关键字段数据库，设备关键字段可根据需求进行删除或者增加。在
需要生成一张指定的电气操作票时，可使用命令按钮(ActiveX控件)，在CommandButton1_Click()事件代码
中运行CreateTickets()程序，在输入设备开关转换状态序号(0~9)及6KV设备关键字段的行号后，即可在指
定路径下找到所要电气操作票。
表1 开关转换状态
序号状态
1
2
3
4
5
6
7
8
9
10
由冷备用状态转为检修状态
由冷备用状态转为热备用状态
由热备用状态转为检修状态
由热备用状态转为冷备用状态
由检修状态转为热备用状态(不测绝缘)
由检修状态转为冷备用状态
由冷备用状态转为热备用状态(测绝缘)
冷备用状态测绝缘
由检修状态转为冷备用状态(测绝缘)
由检修状态转为热备用状态(测绝缘)
VBA
实现电气操作票自动生成

2.1 设备不测绝缘类代码设计
由表1可知，在不测绝缘类别中，共计有6种开关转换状态。根据自定义的模板电气操作票内容，可将
关键字段统一写成“#X机某设备电机XXXX”。
“#X机某设备电机X正规居间合同范本 XXX”关键字段各关键词代表的含义：
#X机-机组号；某设备-6KV设备名称；XXXX-设备开关编号。
因此，针对这6种开关转换状态的电气操作票，可将代码写成一个不测绝缘类通用程序模块。
利用该程序模块，可在打开自定义模板电气操作票后，自动查找关键字段“#X机某设备电机XXXX”，
并将该关键字段替换成Excel单元格Cells(i, k)内容，达到自动生成设备电气操作票的目的。
2.2 设备测绝缘类代码设计
由表1可知，在测绝缘类别中，共计有4种开关转换状态。根据自定义模板电气操作票内容，可将关
键字段统一写成“#X机某设备电机XXXX”及“#X机某设备电机”。

测绝缘类通用程序模块可实现关键字段“#X机某设备电机XXXX”及“#X机某设备电机”分别被替
换成Excel单元格Cells(i, k)及Cells(i, k + 1)的内容。
3 程序实现
程序由主程序及子程序两部分组成。
3.1 主程序点击事件
点击事件CommandButton1_Click()代码如下：
Private Sub Comma活动流程怎么写 ndButton1_Click()
Call CreateTickets '引用子程序代码
End Sub
3.2 子程序执行程序
CreateTickets()子过程代码如下：
Sub CreateTickets()
'功能：对多个设备进行自动电气操作票生成
le '实时更新
Dim WordDoc, WordApp
Dim i, j As Integer '定义整数值,设备对应的行数i、开关转换状态序号j
Dim k As Integer '定义列数值k
Dim number(0 To 9) As String '定义字符串一维数组，存储电气操作票文件地址，例如：D:电气操作票
系统模板电气操作票模板0-#X机某设备电机XXXX开关由冷备用状态转为检修状态.docx
'将自定义模板电气操作票文件地址赋值给数组
number(0) = "D:电气操作票系统模板电气操作票模板0-#X机某设备电机XXXX开关由冷备用状态转
为检修状态.docx"
number(1) = "D:电气操作票系统模板电气操作票模板1-#X机某设备电机XXXX开关由冷备用状态转
为热备用状态.docx"
number(2) = "D:电气操作票系统模板电气操作票模板2-#X机某设备电机XXXX开关由热备用状态转
为检修状态.docx"
number(3) = "D:电气操作票系统模板电气操作票模板3-#X机某设备电机XXXX开关由热备用状态转
为冷备用状态.docx"
number(4) = "D:电气操作票系统模板电气操作票模板4-#X机某设备电机XXXX开关由检修状态转为
热备用状态（不测绝缘）.docx"
number(5) = "D:电气操作票系统模板电气操作票模板5-#X机某设备电机XXXX开关由检修状态转为
冷备用状态.do笔记本电池校正 cx"
number(6) = "D:电气操作票系统模板电气操作票模板6-#X机某设备电机XXXX开关由冷备用状态转
为热备用状态（测绝缘）.docx"
number(7) = "D:电气操作票系统模板电气操作票模板7-#X机某设备电机XXXX开关冷备用状态测绝
缘.docx"
number(8) = "D:电气操作票数学九年级上册系统模板电气操作票模板8-#X机某设备电机XXXX开关由检修状态转为
冷备用状态（测绝缘）.docx"
number(9) = "D:电气操作票系统模板电气操作票模板9-#X机某设备电机XXXX开关由检修状态转为
热备用状态（测绝缘）.docx"
Dim content(0 To 9) As String '定义开关转换状态一维数组，例如：由冷备用状态转为检修状态.docx；在
生成文件名时会用到
content(0) = "由冷备用状态转为检修状态.docx"
content(1) = "由冷备用状态转为热备用状态.docx"

content(2) = "由热备用状态转为检修状态.docx"
content(3) = "由热备用状态转为冷备用状态.docx"
content(4) = "由检修状态转为热备用状态（不测绝缘）.docx"
content(5) = "由检修状态转为冷备用状态.docx"
content(6) = "由冷备用状态转为热备用状态（测绝缘）.docx"
content(7) = "冷备用状态测绝缘.docx"
content(8) = "由检修状态转为冷备用状态（测绝缘）.docx"
content(9) = "由检修状态转为热备用状态（测绝缘）.docx"
j = InputBox("请输入开关转换状态序号(0~9)")
i = InputBox("请输入设备对应的行数(≥3)")
k = 3 '将列数值赋值为3
yAlerts = Fal '返回或设置运行宏海豚英语怎么说时的一些警告或消息处理
Updating = Fal '关闭屏幕更新；如果开启，则布尔值为true
Set WordApp = CreateObject("ation") '在excel中创建word对象，方便在excel中控制word
文档
If j <= 5 Then
'不测绝缘类通用模块
Set WordDoc = (number(j))
e = Fal
ormatting
ormatting
With
.Text = "#X机某设备电机XXXX"
. = Sheets("数据").Cells(i, k)
.Forward = True
.Wrap = wdFindContinue
End With
e Replace:=wdReplaceAll
ElIf 5 < j <= 9 Then
'测绝缘类通用模块
Set WordDoc = (number(j))
e = Fal
ormatting
ormatting
With
.Text = "#X机某设备电机XXXX"
. = Sheets("数据").Cells(i, k)
.Forward = True
.Wrap = wdFindContinue
End With
e Replace:=wdReplaceAll
ormatting
ormatting
With

.Text = "#X机某设备电机"
. = Sheets("数据").Cells(i, k + 1)
.Forward = True
.Wrap = wdFindContinue
End With
e Replace:=wdReplaceAll
End If
'电气操作票生成存储位置
"D:电气操作票系统电气操作票生成" & Sheets("数据").Cells(i, k - 1) & content(j)
'Word文件关闭
'Word程序退出
Set WordDoc = Nothing '取消对象变量与实际对象的关联
Set WordApp = Nothing
yAlerts = Fal
Updating = True
MsgBox "电气操作票已生成，请在电气票生成文件夹中查找！", vbOKOnly, "" '消息提示
End Sub
4 结束语
Excel VBA的通用模块化编程方法，很好地解决了电气操作票大量重复的人工查找替换操作。通过简单
的点击事件，加上输入开关转换状态序号及设备的行号，能够快速准确地生成所要的电气操作票。该电气操
作票自动生成系统已经在实际工作中试运过一段时间，从各方面测试情况来看，系统运行稳定，各岗位人员
均反馈操作简单，交互界面友好，能够很快掌握程序化操作流程。
参考文献

[1] 陈倩怡. VBA实现账务统一管理.电脑编程技巧与维护, 2021, (5)：111-130+125
[2] 时坤. Excel VBA经典代码应用大全. 北京大学出版社, 2019.
[3] 国能黄金埠发电有限公司. Q/GN-HJB 101.001-2020, 国能黄金埠发电有限公司企业标准,2020

描写柳树的句子-题库

本文发布于:2023-04-19 08:14:33，感谢您对本站的认可！

本文链接：https://www.wtabcd.cn/zhishi/a/168186327345729.html

本文word下载地址：无图.doc

本文 PDF 下载地址：无图.pdf

上一篇：玩具手工制作

下一篇：返回列表

标签：无图

留言与评论（共有 0 条评论）