電纜路徑表單操作連接Link與自動排程:Excel VBA在電氣工程設計之應用(附光碟) | 被動收入的投資秘訣 - 2024年11月
電纜路徑表單操作連接Link與自動排程:Excel VBA在電氣工程設計之應用(附光碟)
國內第一部系列叢書介紹Excel VBA在電氣工程設計之應用,諸如電流、電壓降計算,線徑、管徑選擇與電纜容積率查詢等。利用Excel VBA讓這些計算、篩選、查詢等自動執行既正確又迅速,書本內的程式碼全部公開透明、簡單易懂、可以套用與修改,是從事電氣工程設計必備的工具書。擁有這些書不僅可以提升執行效率、更難得的是可以與作者直接討論諮詢,得到作者的免費服務與教導。
在電氣工程設計中有關負載電流計算、電壓降計算、線徑選擇、管徑選擇、電纜容積率查詢等是個相當重的工作量,若能以Excel VBA來讓這些計算、選擇、查詢等自動的產生,將會節省許多工時又正確,而市面上有關Excel VBA的書籍只針對一般大眾使用者來寫,並沒有專門針對上述的需求來寫,這對於電氣設計人員來說,寫這些程式相當困難,而這本書正可以解決這個問題,更可貴的是,若您對書中有任何不懂的地方,作者歡迎您與他共同研討,讓程式更便利更友善,進而協助更多的人。
■ 適用對象
☆ 電機工程師 ☆ 從事電氣工程設計者 ☆ 工程顧問公司 ☆ 電機技師事務所 ☆ 個人電氣設計工作室
作者簡介
王鴻浩
經歷:
1. 協和工商 專任教師 (1年)
2. 台電約聘電機工程師 核能三廠建廠工作 (4年10個月)
3. 和睦建築師事務所 電機工程師 中正紀念堂國家劇院/音樂廳 電氣工程監工 (1年半)
4. 益鼎工程顧問公司 電機工程師 核能三廠現場查證工作 (1年半)
5. 泰興工程顧問公司 電機組長 (25年) 嘉義焚化爐/基隆焚化爐/宜蘭焚化爐/岡山焚化爐電氣工程設計、華新麗華不銹鋼廠電氣工程設計、國光發電廠電氣文件圖面審查工作、高雄捷運紅線電氣工程施工設計、美國煤炭氣化發電廠電氣工程設計、中國鋼鐵公司/中龍鋼鐵公司專案電氣工程設計
目前退休從事寫書工作
著作:
1. 第一部書:Excel VBA 在電氣工程設計之應用-電流電壓降計算與線徑管徑選擇
(整合原先 Book 1-工作表函數、Book 2-Function 副程序、Book 3-Sub 副程序)
2. 第二部書:Excel VBA 在電氣工程設計之應用-以Sub 執行 Function 與電纜容積率查詢
(整合原先 Book 4-以 Sub 執行 Function 與表單操作、Book 5-電纜容積率查詢與進階應用、Book6-電纜方塊圖與電纜容積率進階)
3. 第三部書:Excel VBA 在電氣工程設計之應用-電纜路徑表單操作連接 Link 與自動排程
(整合原先 Book 7-電纜路徑表單操作、Book 8-電纜路徑連接 Link、Book 9-電纜路徑自動排程)
4. 第四部書:Excel VBA 在電氣工程設計之應用-分電盤負載表與馬達變壓器保護協調曲線繪製
(整合原先 Book 10-電纜線徑計算與路徑排程整合進階、Book 11-分電盤負載表、Book 12-馬達變壓器與保護協調曲線繪製)
5. 第五部書:Excel VBA 在電氣工程設計之應用-分電盤單線圖結線三線圖繪製與照明接地計算
(整合原先 Book 13-單線圖繪製、Book 14-分電盤結線三線圖繪製、Book 15-照明與接地計算)
7A.電纜路徑表單操作
內容概要
使用前注意事項
7B.群組路徑組合與群組路徑名稱之建立
群組路徑工作表之建立
群組路徑之組合連接
群組路徑名稱之排序
7C.電纜路徑之更換取代(ROUTING / RACEWAY REPLACEMENT)
表單1之規劃與製作
表單開啟前之程式碼
表單之開啟與RowSource之設定
表單開啟後之程式碼
ComboBox之程式碼
執行更換取代命令按鈕之程式碼
執行更換前之檢查
7D.電纜路徑之加入與刪除
方式1-以列號為基準(BY ROWS)
表單2之規畫製作
表單開啟前之程式碼
表單開啟後之程式碼
執行加入前之檢查
執行刪除前之檢查
方式2-以電纜編號為基準(BY CABLE NO.)
表單3之規畫製作
表單開啟前之程式碼
表單開啟後之程式碼
執行加入前之檢查
執行刪除前之檢查
表單2與表單3優缺點與使用時機之比較
UNDO之動作
7E.電纜路徑之重號、缺號與服務類別檢查
表單4之規畫製作
執行檢查之主程序程式碼
重號檢查之程式碼
缺號檢查之程式碼
服務類別之程式碼
工作表temp8之排序整合
ComboBox1之RowSource設定
ComboBox1_Change之程式碼
執行電纜路徑修正與回放之主程序之程式碼
路徑重新檢查之程式碼
開啟RACEWAY資料表單之程式碼
7F.RACEWAY基本資料新增刪除與修改
表單5之規畫製作
表單5開啟前之程式碼
UserForm_Initialize 132
Raceway No.之RowSource
Raceway Size之RowSource
Raceway SL之RowSource
Raceway Area No.之RowSource
Raceway DwgNo.之RowSource
表單5開啟後之程式碼
CheckBox之程式碼
ComboBox之程式碼
Raceway No.篩選
Raceway區域號碼進階篩選
Raceway圖號進階篩選
Raceway之修改
Raceway之刪除
Raceway之新增
執行前之檢查
修改前之檢查
刪除前之檢查
新增前之檢查
表單4與表單5之執行畫面
執行前之Raceway原始資料
電纜路徑重號缺號與服務類別檢查
執行電纜路徑修改
執行Raceway屬性修改
執行Raceway新增
執行Raceway刪除
7G.RACEWAY之自我檢查
主程序之程式碼
重號檢查之程式碼
缺少長度檢查之程式碼
缺少尺寸檢查之程式碼
缺少服務類別檢查之程式碼
整個執行後結果
7H.總結
作者建議
8A.電纜路徑連接LINK
內容概要
使用前注意事項
8B.實用小技巧
自動新增工作表
新增一個工作表
新增多個工作表
列出活頁簿中所有工作表名稱
在EXCEL要如何做RACEWAY LINK
8C.不受欄位變更限制之輸入方法
表單8之規劃與製作
表單開啟前之程式碼
表單之開啟與RowSource之設定
RacewayTable_ColumnsAdjust之程式碼
NewWS_Added之程式碼
WS_RowSource之程式碼
表單開啟後之程式碼
ComboBox1之程式碼
CommandButton1之程式碼
CommandButton2之程式碼
設定選取工作表之代號
8D.電纜路徑之連接LINK
表單6之規劃製作
表單開啟前之程式碼
呼叫表單之程式碼Raceway_Link
新增工作表temp45~47
新增工作表temp55~57
新增工作表temp60~61
新增工作表temp65~67
新增工作表temp71~72
Raceway篩選準則範圍標題之建立RacewayWS_Copy之程式碼
設備相關資料檢出EquipmentData_Built之程式碼
Equipment篩選準則範圍標題之建立EquipmentTitle_Copy之程式碼
設備清單之建立Equipment_List之程式碼
表單開啟後之程式碼
UserForm_Initialize
AdvancedFilter_Raceway_A
RacewayNo_RowSource_Raceway_A
RacewaySL_RowSource_Raceway_A_and_B
RacewayAreaNo_RowSource_Raceway_A
RacewayDwgNo_RowSource_Raceway_A
Raceway_LinkType_RowSource
GRouting_RowSource
CheckBox1之程式碼
CheckBox2之程式碼
CheckBox3之程式碼
ComboBox1~3之程式碼
ComboBox6之程式碼
AdvancedFilter_Raceway_B
RacewayNo_RowSource_Raceway_B
RacewayAreaNo_RowSource_Raceway_B
RacewayDwgNo_RowSource_Raceway_B
CheckBox11之程式碼
CheckBox12之程式碼
CheckBox13之程式碼
ComboBox11~13之程式碼
AdvancedFilter_Equipment
EquipmentNo_RowSource
EquipmentAreaNo_RowSource
EquipmentDwgNo_RowSource
CheckBox21/22之程式碼
CheckBox31/32之程式碼
ComboBox9之程式碼
主路徑單線圖繪製
執行命令按鈕A and B Link之程式碼
執行命令按鈕A and B DeLink之程式碼
SameNumber_Check_BeforeLink_Raceway_A_and_B
LinkRepeat_Check_BeforeLink_SingleRacewayOrEquipment
LinkRepeat_Check_BeforeLink_GRouting
ToShow_Linked_Raceway
8E.群組路徑之連接LINK
群組路徑連接LINK之主程序GROUTING_AND_LINK
群組路徑之組合連接GROUTING_STRINGJOIN
GROUTING_LINK_REPEAT_CHECK
GROUTING_LINK
群組路徑名稱之排序GROUTING_SORT
例題說明
8F.快速路徑連接LINK方式
以儲存格位置表示路徑連接關係
X型與T型分歧連接處無編號
X型與T型分歧連接處有編號
使用時注意事項
8G.總結
作者建議
9A.電纜路徑自動排程
內容概要
使用前注意事項
9B.電纜路徑排程前之準備工作
電纜托架與導線管平面配置圖(CABLE TRAY AND CONDUIT PLAN)
主路徑單線圖(MAIN ROUTING SINGLE LINE DIAGRAMS)
RACEWAY基本資料工作表之建立(RACEWAY TABLE)
RACEWAY連接LINK
9C.表單之規劃與開啟
表單7之規畫製作
開啟表單CABLEROUTING_USERFORM7
9D.表單開啟時之初始狀態USERFORM_INITIALIZE
新增工作表TEMP73
新增工作表TEMP74
新增工作表TEMP75
新增工作表TEMP81
新增工作表TEMP85~87
新增工作表ROUTING-TEMP1~3
新增工作表ROUTING-LIST
建立CABLE LIST_CABLE_COPY
電纜編號篩選範圍準則建立_ADVANCEDFILTER_CABLE
CABLESL_ROWSOURCE
CABLESYSTEMNO_ROWSOURCE
CABLEAREANO_ROWSOURCE
CABLEDWGNO_ROWSOURCE
CABLENO_ROWSOURCE
GROUTING_ROWSOURCE
COPY_COMPLETD_ROUTING_ROWSOURCE
CABLEDATA_INPUTTO_ROUTINGLIST
9E.依據篩選條件選取電纜編號
依據電纜服務類別BY CABLE CATEGORY(SERVICE LEVEL)
依據電纜系統編號BY CABLE SYSTEM NO.
依據電纜區域編號BY CABLE AREA NO.
依據電纜圖號BY CABLE DWG NO.
依據多項條件準則來篩選
9F.當電纜編號被選取時
當選取電纜編號COMBOBOX5_CHANGE
TOSHOW_LINKED_RACEWAY
路徑排程連通與完成狀態顯示ROUTINGBROKEN_AND_COMPLETED_CHECK
9G.手動路徑排程
加入前之選項操作
ListBox1_Click
CheckBox16/CheckBox26/CheckBox36
ComboBox26_Change
ComboBox36_Change
CheckBox41/CheckBox51/CheckBox61
放入路徑之命令按鈕COMMANDBUTTON1_CLICK
加入單一路徑RoutingAdd_Single
加入群組路徑RoutingAdd_Group
加入已完成路徑排程RoutingAdd_Copy_Completed_Routing
取消路徑COMMANDBUTTON2_CLICK
ROUTING_TEMP2_INPUTTO_ROUTING_TEMP1
路徑長度加總ROUTINGLENGTH_TOTAL_MANUAL
9H.手動路徑排程操作過程與畫面
加入單一路徑之操作過程與畫面
加入群組路徑之操作過程與畫面
加入已完成路徑排程之操作過程與畫面
單次放入連續操作之過程與畫面
取消路徑之操作過程與畫面
重複加入之訊息顯示
9I.自動路徑排程
自動排程之命令按鈕COMMANDBUTTON3_CLICK
主程序Auto_and_SemiAuto_Routing
複製基準資料列Copy_BaseRoute_for_Auto_and_SemiAuto_Routing
AutoRouting_Running_Results
AutoRouting_UnCompleted_Report
ToShow_UnCompleted_Routing_Auto_and_SemiAuto
StringJoin_UnCompleted_Routing_Auto_and_SemiAuto
路徑長度加總RoutingLength_Total_UnCompleted_Routing_Auto_and_SemiAuto
9J.半自動路徑排程
半自動排程之命令按鈕COMMANDBUTTON4_CLICK
9K.自動與半自動路徑排程結果之顯示與選取
表單9之規畫製作
表單開啟時之初始狀態USERFORM_INITIALIZE
執行加入之命令按鈕COMMANDBUTTON1_CLICK
調整LISTBOX1之水平捲軸
9L.自動與半自動排程之操作過程與畫面
自動排程之操作過程與畫面
半自動排程之操作過程與畫面
自動或半自動排程未完成時之處理過程與畫面
9M.路徑排程結果之儲存
COMBOBOX5_DROPBUTTONCLICK
取消與關閉COMMANDBUTTON5_CLICK
路徑排程輸入至ROUTING_LIST (INPUTTO_ROUTINGLIST)
讓表單7-X取消的按鈕無效
9N.路徑排程之回放
完成路徑輸入至工作表LV-SAMPLE(4) COMMANDBUTTON7_CLICK
9O.GOTO LINK之命令按鈕COMMANDBUTTON6_CLICK
9P.總結
作者建議
序
凡從事過電氣工程設計者,大概都會接觸到負載電流計算、電纜線徑之選擇、電壓降計算與電氣導線管管徑之選擇,這一連串之計算與選擇,若只有幾條電纜則可以用人工方式來做,但若是電纜有上百條甚至上千條,那麼以人工就會相當耗時而且容易出錯,此時若懂得以 Excel 這個應用軟體來做,不但省時又很正確,這就是這本書撰寫之目的,所以這是一本工具書,是針對電氣工程設計人員而寫的。
一般而言,從事電氣工程設計的人,大部分對於 Excel 程式不會很熟悉,要以 ExcelVBA 來寫出適合專案的計算,實在有些困難,因為不懂得程式語言;而學程式設計的人要來寫這些東西也不容易,因為他們對於電氣計算公式與前後對應關係不熟悉,除非兩者要配合來完成,才能符合真正所需與符合人機介面之操作。
Excel 是一種計算功能很強之應用軟體,其應用於電氣計算可包含於下列:
1. 自動搜尋功能
2. 自動數學計算功能
3. 繁瑣動作之簡化
一般在電氣工程設計可應用於下列計算:
1. 照度計算
2. 接地計算
3. 電流計算
4. 電壓降計算
5. 線徑選擇
6. 管徑選擇
7. 繁瑣複製、刪除等動作之簡化
8. Raceway 內電纜數量與容積率查詢
9. 各種電纜長度加總
10. 短路故障電流計算
11. 保護協調曲線繪製
因為內容繁多,所以將分成五部書來介紹解說如下
1. 第一部書:Excel VBA 在電氣工程設計之應用-電流電壓降計算與線徑管徑選擇
(整合原先 Book 1-工作表函數、Book 2-Function 副程序、Book 3-Sub 副程序)
2. 第二部書:Excel VBA 在電氣工程設計之應用-以Sub 執行 Function 與電纜容積率查詢
(整合原先 Book 4-以 Sub 執行 Function 與表單操作、Book 5-電纜容積率查詢與進階應用、Book6-電纜方塊圖與電纜容積率進階)
3. 第三部書:Excel VBA 在電氣工程設計之應用-電纜路徑表單操作連接 Link 與自動排程
(整合原先 Book 7-電纜路徑表單操作、Book 8-電纜路徑連接 Link、Book 9-電纜路徑自動排程)
4. 第四部書:Excel VBA 在電氣工程設計之應用-分電盤負載表與馬達變壓器保護協調曲線繪製
(整合原先 Book 10-電纜線徑計算與路徑排程整合進階、Book 11-分電盤負載表、Book 12-馬達變壓器與保護協調曲線繪製)
5. 第五部書:Excel VBA 在電氣工程設計之應用-分電盤單線圖結線三線圖繪製與照明接地計算
(整合原先 Book 13-單線圖繪製、Book 14-分電盤結線三線圖繪製、Book 15-照明與接地計算)