分電盤單線圖結線三線圖繪製與照明接地計算：Excel VBA在電氣工程設計之應用(附光碟)

13A.單線圖繪製

內容概要
使用前注意事項

13B.利用錄製巨集來繪製各種圖形

線形(CONNECTORSTRAIGHT)
橢圓形(OVAL)
矩形(RECTANGLE)
弧形(ARC)
直角三角形(RIGHTTRIANGLE)
等腰三角形(ISOSCELESTRIANGLE)
文字方塊(TEXTBOX)

13C.圖形的加入、屬性與放置位置

圖形加入
AddShape方法
屬性
Type屬性
Name屬性
Width與Height屬性
Top與Left屬性
TopLeftCell.Address與BottomRightCell.Address屬性
TextFrame屬性
放置位置
直接以距離表示
以儲存格位址為基準
讓圖形物件充滿整個儲存格區域
設定圖形物件大小位置是否隨儲存格而改變

13D.電氣工程常用的元件符號圖形(SHAPE)建立繪製

馬達MOTOR繪製
變壓器TR繪製
電熱器HEATER繪製
分電盤_TYPE1繪製
分電盤_TYPE2繪製

13E.低壓單線圖繪製基本資料工作表(DATABASE)建立

繪圖列位高度調整設定
繪圖欄位寬度調整設定
字體大小設定調整
盤面資料建立輸入
主迴路資料
分路迴路資料

13F.單線圖繪製與位置選取

表單1之規畫製作
USERFORM1_CALLOUT表單1之開啟
表單1初始化
UserForm_Initialize表單1初始化主程序
WS_temp_Added新增臨時工作表temp1與temp2
PNL_RowSource取得盤號與顯示
WS_RowSource取得繪圖工作表名稱與顯示
DrawWS_Existing_Check繪圖工作表名稱存在檢核
ComboBox1_Click盤面名稱編號選取
myRangeName_SetUp設定分電盤資料區域範圍
ComboBox2_Click繪圖工作表名稱選取
新增一個繪圖工作表
CommandButton1_Click新增一個繪圖工作表
在空白工作表內繪製
CommandButton2_Click執行單線圖繪製按鈕(當工作表空白時)
SLD_Draw_Main_forBlankWS單線圖繪製主程序(當工作表空白時)
單線圖繪製程序
StartRow起始列號與StartColumn起始欄號的定義
Row_Min最小列位與Row_Max最大列位的定義
Column_Min最小欄位與Column_Max最大欄位的定義
圖形左上角位址Row_Min與Column_Min
圖形左下角位址Row_Max與Column_Min
圖形右上角位址Row_Min與Column_Max
圖形右下角位址Row_Max與Column_Max
HeightWidth_Adjust列位高度與欄位寬度調整
SLD_Branch分路迴路繪製
SLD_Main主迴路繪製
DrawRecord_Added放入繪圖紀錄
TextFontSize_Adjust字體大小調整
主程序執行結果畫面
在既有單線圖工作表內繪製
ListBox1_Click選取既有盤面
OptionButton1_Click繪製在選取盤面下方
OptionButton2_Click繪製在選取盤面右側
CommandButton3_Click執行單線圖繪製按鈕(當工作表內有既有單線圖時)
SLD_Draw_Main_forExistingSLD單線圖繪製主程序(當工作表內有既有單線圖時)
主程序思考邏輯
ShapeAligment_TopBottom上下圖形起始基準值對齊調整
ShapeAligment_TopBottom_AfterDraw上下圖形起始基準值對齊調整
FutureShapeAligment_TopBottom將來新增右側上下圖形對齊
圖形位置放置基準原則
主程序執行結果畫面
4個單線圖多種加入順序執行結果畫面
圖框線繪製
ComboBox3_Click選取執行圖框線工作表
CommandButton4_Click執行加入圖框線按鈕8
ShapeRange_PickUp_All所有圖形範圍檢出
FrameDraw_All加入圖框線
執行結果畫面
刪除圖形與紀錄
Delete_AllShapes刪除工作表內所有的圖形
DrawStart_Record_Deleted刪除繪圖基準紀錄
將巨集指定給命令按鈕

13G.元件符號名稱變更與呼叫

元件符號圖例工作表(SYMBOL)之建立
元件符號名稱規則化
主程序
新增臨時工作表temp3
變更元件符號名稱
主程序執行結果畫面
呼叫元件符號
設立或更新下拉式清單
取得下拉式清單選取項目
取得圖形元件符號
執行結果畫面
刪除命令按鈕

13H.實用小技巧

儲存格內加入多個註解
取得儲存格內定義名稱
取得活頁簿內所有的儲存格定義名稱
取得任意工作表內有工作表層級的定義名稱
取得任意工作表內單一儲存格的定義名稱
程式碼執行結果畫面
刪除儲存格內定義名稱
刪除活頁簿層級的儲存格定義名稱
刪除工作表層級的儲存格定義名稱
合併儲存格自動調整列位高度與欄位寬度
單一儲存格的列位高度與欄位寬度調整
合併儲存格的列位高度與欄位寬度調整
程式碼執行結果畫面

13I.作者建議

14A.分電盤結線三線圖繪製

內容概要
使用前注意事項

14B.結線三線圖繪製之表單規劃

表單 2 規劃製作
表單 2 開啟初始化
新增工作表TEMP1
COMBOBOX1_ROWSOURCE
負載表類別選項按鈕OPTIONBUTTON
表單 2 開啟之結果畫面
SUB COMMANDBUTTON1_CLICK
盤面系統類別選項按鈕OPTIONBUTTON
結線三線圖繪製方式
1.BusBar以R-S-T/R-S-T順序來連接
2.BusBar以負載輸入相別來連接
3.負載表在同側
4.負載表分兩側

14C.結線固定_同側

主程序_結線三線圖_結線固定_同側
副程序_SUB BKR_繪製_左側_結線固定
副程序_SUB 極數連動虛線_繪製_左側_結線固定
副程序_SUB BKR_繪製_右側_結線固定
副程序_SUB 極數連動虛線_繪製_右側_結線固定
執行程式碼結果畫面

14D.1PH3W_結線依據負載輸入相別_同側

主程序_SUB 結線三線圖_1P3W_AN_BN_AB_結線依據負載相別輸入
副程序_SUB BKR_左側_1P3W_依據負載輸入相別_同側
副程序_SUB BKR_右側_1P3W_依據負載輸入相別_同側
執行程式碼結果畫面

14E.3PH3W_結線依據負載輸入相別_同側

主程序_結線三線圖_3P3W_RS_ST_TR_RST_同側_結線依據負載相別輸入
副程序_SUB BKR_左側_3P3W_依據負載輸入相別_同側
副程序_SUB BKR_右側_3P3W_依據負載輸入相別_同側
執行程式碼結果畫面

14F.3PH4W_TYPE1_結線依據負載輸入相別_同側

主程序_SUB 結線三線圖_3P4W_RN_SN_TN_RST_TYPE1_同側_結線依據負載相別輸入
副程序_SUB BKR_左側_3P4W_TYPE1_依據負載輸入相別_同側
副程序_SUB BKR_右側_3P4W_TYPE1_依據負載輸入相別_同側
執行程式碼結果畫面

14G.3PH4W_TYPE2_結線依據負載輸入相別_同側

主程序_SUB 結線三線圖_3P4W_RN_SN_TN_RST_TYPE2_同側_結線依據負載相別輸入
副程序_SUB BKR_左側_3P4W_TYPE2_依據負載輸入相別_同側
副程序_SUB BKR_右側_3P4W_TYPE2_依據負載輸入相別_同側
執行程式碼結果畫面

14H.共同程式碼

副程序_SUB MAINBKR_繪製
副程序_SUB 文字方塊輸入
副程序_SUB 盤體框架_繪製
副程序_SUB 圖形群組化與複製貼上

14I.模組匯出與匯入FOR 分電盤負載表第四部書

程式碼模組匯出
程式碼模組匯入

14J.結線三線圖_兩側

主程序_結線三線圖_兩側
副程序_SUB BKR_繪製_左側_依據負載輸入相別_兩側
副程序_SUB BKR_繪製_右側_依據負載輸入相別_兩側
執行程式碼結果畫面

14K.零相比流器繪製說明

14L.總結

作者建議

15A.照明與接地計算

內容概要
使用前注意事項

15B.照明基本資料建立

使用前注意事項
照度標準(ILLUMATION LEVEL)
照度計算公式
照明燈具基本資料建立
各種燈具照明率資料表格建立
Type1 (T-BAR T5燈管14Wx2)照明率
Type2 (T-BAR T5燈管28Wx2)照明率
Type3 (T-BAR T5燈管28Wx3)照明率
Type4 (T-BAR T5燈管28Wx4)照明率
Type5 (吸頂式 T5燈管14Wx2)照明率
Type6 (吸頂式 T5燈管14Wx3)照明率
Type7 (吸頂式 T5燈管28Wx2)照明率
Type8 (吸頂式 T5燈管28Wx3)照明率
Type9 (懸吊式T5燈管28Wx2)照明率
Type10 (懸吊式T5燈管28Wx3)照明率
Type11 (T-BAR LED燈管10Wx2)照明率
Type12 (T-BAR LED燈管10Wx4)照明率
Type13 (T-BAR LED燈管20Wx2)照明率
Type14 (T-BAR LED燈管20Wx3)照明率
Type15 (吸頂式LED燈管10Wx2)照明率
Type16 (吸頂式LED燈管10Wx4)照明率
Type17 (吸頂式 LED燈管20Wx1)照明率
Type18 (吸頂式LED燈管20Wx2)照明率
Type19 (懸吊式LED燈管10Wx2)照明率
Type20 (懸吊式LED燈管20Wx2)照明率
Type21 (高空照明 鈉氣燈管250Wx1)照明率
Type22 (高空照明 鈉氣燈管400Wx1)照明率
Type23 (高空照明 複金屬燈管250Wx1)照明率
Type24 (高空照明 複金屬燈管400Wx1)照明率

15C.照度計算表格建立

15D.照度計算

基本資料手動輸入
自動搜尋與計算
欄位 K 燈具安裝方式
欄位 L 燈具燈泡型式
欄位 M 燈具燈管瓦特數
欄位 N 燈具燈管數量
欄位 O 燈管流明數
欄位 Z 廠家燈具型號
欄位 R 房間面積
欄位 S 房間室指數
照明率自動搜尋與計算
欄位 AD 照明率最大值U_Max_台日
欄位 AD 照明率最大值U_Max_IES
欄位 AE 室指數最大值RmIndex_Max_台日
欄位 AE 室指數最大值RmIndex_Max_IES
欄位 AF 照明率最小值U_Min_台日
欄位 AF 照明率最小值U_Min_IES
欄位 AG 室指數最小值RmIndex_Min_台日
欄位 AG 室指數最小值RmIndex_Min_IES
欄位 AI 等差比
欄位 AJ 差數
欄位 AK 實際照明率U Actual
欄位 Q 照明率
程式碼修改與簡化
加入強制離開Function語法
加入自動定義名稱範圍語法
簡化設定Set myArea範圍語法
燈具數量自動計算
欄位 T 燈具數量計算
欄位 U 照度計算
欄位 V 燈具實際安裝數量
欄位 W 實際照度計算

15E.燈具數量統計-樞紐分析

15F.照明負載初步估算

單位面積負載消耗功率
單位VA數之照度
每個分電盤負擔之VA數
分電盤數量估算
分電盤總電流估算表

15G.接地基本資料建立

接地銅棒
接地線
各種導體導線特性

15H.接地計算

工作表接地計算1
工作表接地計算2
工作表IEEE-80-2000_無表面層
工作表IEEE-80-2000_有表面層

15I.實用小技巧

多列單欄換行字元拆開
多列多欄換行字元拆開
EXCEL寫入到記事本-文字檔案TXT
寫入文字檔_方式1
寫入文字檔_方式2
寫入文字檔_方式3

15J.作者建議