內容簡介 　　國內第一部系列叢書介紹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-照明與接地計算) 目錄 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個單線圖多種加入順序執