無圖

更新時間:2023-04-19 08:14:33 閱讀：評論：0

我在這里等你回來-掛親

2023年4月19日發(fā)(作者：遠(yuǎn)程桌面設(shè)置)摘要:借助Excel VBA模塊化編程，解決重復(fù)的人工查找替換人事部工作，且能夠經(jīng)簡單地操作
實(shí)現(xiàn)電氣操作票自動生成，避免因刪除文件或修改關(guān)鍵詞導(dǎo)致出錯，影響操作安全性。
關(guān)鍵詞:VBA語言；火電廠；電氣操作票

1 概述
常規(guī)電氣操作票相似度較高，只需要修改關(guān)鍵字段即可變更。但在實(shí)際工作中，工作人員常為了簡便，
會直接搜索相關(guān)電氣操作票，用關(guān)鍵字段替換后保存導(dǎo)致原票實(shí)效。因此，為了規(guī)避此類重復(fù)人工操作，使
用Excel VBA程序設(shè)計開發(fā)自動生成功能，按照統(tǒng)一的模板生成不同設(shè)備的電氣操作票，從而提高了工作
人員的效率，且可減少電氣操作票錯誤率。
2 項目設(shè)計
電氣操作票設(shè)備的開關(guān)轉(zhuǎn)換狀態(tài)共計有10種，但設(shè)備的操作主要區(qū)別可分為測絕緣和不測絕緣兩類。
因此，可針對兩種類型分別設(shè)計通用代碼模塊，但主要功能都是通過創(chuàng)建Word對象來打開對應(yīng)的模板電氣
操作票，查找關(guān)鍵字段，用Excel單元格的內(nèi)容進(jìn)行替換。
在Excel文件中，集成6KV設(shè)備的關(guān)鍵字段數(shù)據(jù)庫，設(shè)備關(guān)鍵字段可根據(jù)需求進(jìn)行刪除或者增加。在
需要生成一張指定的電氣操作票時，可使用命令按鈕(ActiveX控件)，在CommandButton1_Click()事件代碼
中運(yùn)行CreateTickets()程序，在輸入設(shè)備開關(guān)轉(zhuǎn)換狀態(tài)序號(0~9)及6KV設(shè)備關(guān)鍵字段的行號后，即可在指
定路徑下找到所要電氣操作票。
表1 開關(guān)轉(zhuǎn)換狀態(tài)
序號狀態(tài)
1
2
3
4
5
6
7
8
9
10
由冷備用狀態(tài)轉(zhuǎn)為檢修狀態(tài)
由冷備用狀態(tài)轉(zhuǎn)為熱備用狀態(tài)
由熱備用狀態(tài)轉(zhuǎn)為檢修狀態(tài)
由熱備用狀態(tài)轉(zhuǎn)為冷備用狀態(tài)
由檢修狀態(tài)轉(zhuǎn)為熱備用狀態(tài)(不測絕緣)
由檢修狀態(tài)轉(zhuǎn)為冷備用狀態(tài)
由冷備用狀態(tài)轉(zhuǎn)為熱備用狀態(tài)(測絕緣)
冷備用狀態(tài)測絕緣
由檢修狀態(tài)轉(zhuǎn)為冷備用狀態(tài)(測絕緣)
由檢修狀態(tài)轉(zhuǎn)為熱備用狀態(tài)(測絕緣)
VBA
實(shí)現(xiàn)電氣操作票自動生成

2.1 設(shè)備不測絕緣類代碼設(shè)計
由表1可知，在不測絕緣類別中，共計有6種開關(guān)轉(zhuǎn)換狀態(tài)。根據(jù)自定義的模板電氣操作票內(nèi)容，可將
關(guān)鍵字段統(tǒng)一寫成“#X機(jī)某設(shè)備電機(jī)XXXX”。
“#X機(jī)某設(shè)備電機(jī)X正規(guī)居間合同范本 XXX”關(guān)鍵字段各關(guān)鍵詞代表的含義：
#X機(jī)-機(jī)組號；某設(shè)備-6KV設(shè)備名稱；XXXX-設(shè)備開關(guān)編號。
因此，針對這6種開關(guān)轉(zhuǎn)換狀態(tài)的電氣操作票，可將代碼寫成一個不測絕緣類通用程序模塊。
利用該程序模塊，可在打開自定義模板電氣操作票后，自動查找關(guān)鍵字段“#X機(jī)某設(shè)備電機(jī)XXXX”，
并將該關(guān)鍵字段替換成Excel單元格Cells(i, k)內(nèi)容，達(dá)到自動生成設(shè)備電氣操作票的目的。
2.2 設(shè)備測絕緣類代碼設(shè)計
由表1可知，在測絕緣類別中，共計有4種開關(guān)轉(zhuǎn)換狀態(tài)。根據(jù)自定義模板電氣操作票內(nèi)容，可將關(guān)
鍵字段統(tǒng)一寫成“#X機(jī)某設(shè)備電機(jī)XXXX”及“#X機(jī)某設(shè)備電機(jī)”。

測絕緣類通用程序模塊可實(shí)現(xiàn)關(guān)鍵字段“#X機(jī)某設(shè)備電機(jī)XXXX”及“#X機(jī)某設(shè)備電機(jī)”分別被替
換成Excel單元格Cells(i, k)及Cells(i, k + 1)的內(nèi)容。
3 程序?qū)崿F(xiàn)
程序由主程序及子程序兩部分組成。
3.1 主程序點(diǎn)擊事件
點(diǎn)擊事件CommandButton1_Click()代碼如下：
Private Sub Comma活動流程怎么寫 ndButton1_Click()
Call CreateTickets '引用子程序代碼
End Sub
3.2 子程序執(zhí)行程序
CreateTickets()子過程代碼如下：
Sub CreateTickets()
'功能：對多個設(shè)備進(jìn)行自動電氣操作票生成
le '實(shí)時更新
Dim WordDoc, WordApp
Dim i, j As Integer '定義整數(shù)值,設(shè)備對應(yīng)的行數(shù)i、開關(guān)轉(zhuǎn)換狀態(tài)序號j
Dim k As Integer '定義列數(shù)值k
Dim number(0 To 9) As String '定義字符串一維數(shù)組，存儲電氣操作票文件地址，例如：D:電氣操作票
系統(tǒng)模板電氣操作票模板0-#X機(jī)某設(shè)備電機(jī)XXXX開關(guān)由冷備用狀態(tài)轉(zhuǎn)為檢修狀態(tài).docx
'將自定義模板電氣操作票文件地址賦值給數(shù)組
number(0) = "D:電氣操作票系統(tǒng)模板電氣操作票模板0-#X機(jī)某設(shè)備電機(jī)XXXX開關(guān)由冷備用狀態(tài)轉(zhuǎn)
為檢修狀態(tài).docx"
number(1) = "D:電氣操作票系統(tǒng)模板電氣操作票模板1-#X機(jī)某設(shè)備電機(jī)XXXX開關(guān)由冷備用狀態(tài)轉(zhuǎn)
為熱備用狀態(tài).docx"
number(2) = "D:電氣操作票系統(tǒng)模板電氣操作票模板2-#X機(jī)某設(shè)備電機(jī)XXXX開關(guān)由熱備用狀態(tài)轉(zhuǎn)
為檢修狀態(tài).docx"
number(3) = "D:電氣操作票系統(tǒng)模板電氣操作票模板3-#X機(jī)某設(shè)備電機(jī)XXXX開關(guān)由熱備用狀態(tài)轉(zhuǎn)
為冷備用狀態(tài).docx"
number(4) = "D:電氣操作票系統(tǒng)模板電氣操作票模板4-#X機(jī)某設(shè)備電機(jī)XXXX開關(guān)由檢修狀態(tài)轉(zhuǎn)為
熱備用狀態(tài)（不測絕緣）.docx"
number(5) = "D:電氣操作票系統(tǒng)模板電氣操作票模板5-#X機(jī)某設(shè)備電機(jī)XXXX開關(guān)由檢修狀態(tài)轉(zhuǎn)為
冷備用狀態(tài).do筆記本電池校正 cx"
number(6) = "D:電氣操作票系統(tǒng)模板電氣操作票模板6-#X機(jī)某設(shè)備電機(jī)XXXX開關(guān)由冷備用狀態(tài)轉(zhuǎn)
為熱備用狀態(tài)（測絕緣）.docx"
number(7) = "D:電氣操作票系統(tǒng)模板電氣操作票模板7-#X機(jī)某設(shè)備電機(jī)XXXX開關(guān)冷備用狀態(tài)測絕
緣.docx"
number(8) = "D:電氣操作票數(shù)學(xué)九年級上冊系統(tǒng)模板電氣操作票模板8-#X機(jī)某設(shè)備電機(jī)XXXX開關(guān)由檢修狀態(tài)轉(zhuǎn)為
冷備用狀態(tài)（測絕緣）.docx"
number(9) = "D:電氣操作票系統(tǒng)模板電氣操作票模板9-#X機(jī)某設(shè)備電機(jī)XXXX開關(guān)由檢修狀態(tài)轉(zhuǎn)為
熱備用狀態(tài)（測絕緣）.docx"
Dim content(0 To 9) As String '定義開關(guān)轉(zhuǎn)換狀態(tài)一維數(shù)組，例如：由冷備用狀態(tài)轉(zhuǎn)為檢修狀態(tài).docx；在
生成文件名時會用到
content(0) = "由冷備用狀態(tài)轉(zhuǎn)為檢修狀態(tài).docx"
content(1) = "由冷備用狀態(tài)轉(zhuǎn)為熱備用狀態(tài).docx"

content(2) = "由熱備用狀態(tài)轉(zhuǎn)為檢修狀態(tài).docx"
content(3) = "由熱備用狀態(tài)轉(zhuǎn)為冷備用狀態(tài).docx"
content(4) = "由檢修狀態(tài)轉(zhuǎn)為熱備用狀態(tài)（不測絕緣）.docx"
content(5) = "由檢修狀態(tài)轉(zhuǎn)為冷備用狀態(tài).docx"
content(6) = "由冷備用狀態(tài)轉(zhuǎn)為熱備用狀態(tài)（測絕緣）.docx"
content(7) = "冷備用狀態(tài)測絕緣.docx"
content(8) = "由檢修狀態(tài)轉(zhuǎn)為冷備用狀態(tài)（測絕緣）.docx"
content(9) = "由檢修狀態(tài)轉(zhuǎn)為熱備用狀態(tài)（測絕緣）.docx"
j = InputBox("請輸入開關(guān)轉(zhuǎn)換狀態(tài)序號(0~9)")
i = InputBox("請輸入設(shè)備對應(yīng)的行數(shù)(≥3)")
k = 3 '將列數(shù)值賦值為3
yAlerts = Fal '返回或設(shè)置運(yùn)行宏海豚英語怎么說時的一些警告或消息處理
Updating = Fal '關(guān)閉屏幕更新；如果開啟，則布爾值為true
Set WordApp = CreateObject("ation") '在excel中創(chuàng)建word對象，方便在excel中控制word
文檔
If j <= 5 Then
'不測絕緣類通用模塊
Set WordDoc = (number(j))
e = Fal
ormatting
ormatting
With
.Text = "#X機(jī)某設(shè)備電機(jī)XXXX"
. = Sheets("數(shù)據(jù)").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機(jī)某設(shè)備電機(jī)XXXX"
. = Sheets("數(shù)據(jù)").Cells(i, k)
.Forward = True
.Wrap = wdFindContinue
End With
e Replace:=wdReplaceAll
ormatting
ormatting
With

.Text = "#X機(jī)某設(shè)備電機(jī)"
. = Sheets("數(shù)據(jù)").Cells(i, k + 1)
.Forward = True
.Wrap = wdFindContinue
End With
e Replace:=wdReplaceAll
End If
'電氣操作票生成存儲位置
"D:電氣操作票系統(tǒng)電氣操作票生成" & Sheets("數(shù)據(jù)").Cells(i, k - 1) & content(j)
'Word文件關(guān)閉
'Word程序退出
Set WordDoc = Nothing '取消對象變量與實(shí)際對象的關(guān)聯(lián)
Set WordApp = Nothing
yAlerts = Fal
Updating = True
MsgBox "電氣操作票已生成，請在電氣票生成文件夾中查找！", vbOKOnly, "" '消息提示
End Sub
4 結(jié)束語
Excel VBA的通用模塊化編程方法，很好地解決了電氣操作票大量重復(fù)的人工查找替換操作。通過簡單
的點(diǎn)擊事件，加上輸入開關(guān)轉(zhuǎn)換狀態(tài)序號及設(shè)備的行號，能夠快速準(zhǔn)確地生成所要的電氣操作票。該電氣操
作票自動生成系統(tǒng)已經(jīng)在實(shí)際工作中試運(yùn)過一段時間，從各方面測試情況來看，系統(tǒng)運(yùn)行穩(wěn)定，各崗位人員
均反饋操作簡單，交互界面友好，能夠很快掌握程序化操作流程。
參考文獻(xiàn)

[1] 陳倩怡. VBA實(shí)現(xiàn)賬務(wù)統(tǒng)一管理.電腦編程技巧與維護(hù), 2021, (5)：111-130+125
[2] 時坤. Excel VBA經(jīng)典代碼應(yīng)用大全. 北京大學(xué)出版社, 2019.
[3] 國能黃金埠發(fā)電有限公司. Q/GN-HJB 101.001-2020, 國能黃金埠發(fā)電有限公司企業(yè)標(biāo)準(zhǔn),2020

描寫柳樹的句子-題庫

本文發(fā)布于:2023-04-19 08:14:33，感謝您對本站的認(rèn)可！

本文鏈接：http://www.newhan.cn/zhishi/a/168186327345729.html

版權(quán)聲明：本站內(nèi)容均來自互聯(lián)網(wǎng)，僅供演示用，請勿用于商業(yè)和其他非法用途。如果侵犯了您的權(quán)益請與我們聯(lián)系，我們將在24小時內(nèi)刪除。

本文word下載地址：無圖.doc

本文 PDF 下載地址：無圖.pdf

上一篇：玩具手工制作

下一篇：返回列表

標(biāo)簽：無圖

相關(guān)文章

留言與評論（共有 0 條評論）