Excel VBA
Download as PPT, PDF1 like1,032 views
本文件概述了 Excel/VBA 的结构和基本编程概念，包括变量、对象、程序逻辑与循环，提供了数据库连接和应用程序的基本示例。重点介绍了如何使用调试工具和处理条件判断，适合希望提高 Excel/VBA 使用效率的读者。文档还包含针对生产材料计划的实用技巧与建议。
![Debug/ 除錯
• [F8] to step forward each command in the
code, or;](https://image.slidesharecdn.com/excelvba-120826015829-phpapp02/85/Excel-VBA-11-320.jpg)
Excel VBA
- 1. Excel / VBA Dick Lam Sep 2012
- 2. 提纲 I. Excel / VBA 结构 II. 变量 / Variable III. 物件 / Object IV. 程式邏輯 / Loop V. 簡單應用 VI. 資料庫 VII. 通用程式應用 VIII. 在 Excel/VBA 讀取資料庫
- 3. 首先
- 4. Excel / VBA 结构 • Alt + F11 打開設計模式 • 主要作用 : – 自定義函数 (function), 作單元格计算 ; 如 sum() – 指令 (command), 一連串動作或判断以決定何 種效果或计算結果 • 亦可透過外部連結 , 抽出資料庫數據 • 更可儲存資料至資料庫 • 最重要是 logic, 活用 if …. Then … Else 格式思維
- 5. Excel / VBA 结构 • Function XYZ( ) as Type – Private vs. Public • Sub XYZ – Private vs. Public
- 6. Function
- 7. Sub
- 8. 变量 / Variable 宣示 : Dim •String / Long / Double •Constant •範圍 : Public / Module / Procedure •Option Explicit
- 9. Object 物件 • Application / Activewindow • Workbook / Worksheet / Range – No object like Cell – Cell = Range, e.g. range(“a1”) • Controls: ComboBox / List / Button / Checkbox
- 10. Characteristics of Object • Event / 事件 – Worksheet • Doubleclick • SelectionChange • Activate • Property / 屬性 – Worksheet: Name – Range: font.color / interior.color • Method / 方法 – Worksheet: calculate / activate
- 11. Debug/ 除錯 • [F8] to step forward each command in the code, or;
- 12. Debug/ 除錯 • Set a breakpoint to a place you want to start debugging
- 13. 程式邏輯 / Loop • If .. Then • If .. then .. else
- 14. • IF…Then…else if • If…Then…Else IF 语句中的 Else IF 条件判断式的数量没有限制，但是在有多个 Else IF 判断式的情况下，可能阅读起来很吃力。 • 当判断的对象是单一条件时，使用 Select Case 语句更容易解决前面的困扰。
- 15. • Select case .. case .. case else
- 16. • For…Next • For Each…Next • For…Next 语句即用于指定次数秋重复执行一组语句。 • For Each…Next 语句针对一个数组或集合中的每个元素重复执行一组语句。
- 17. • Do Until…Loop • Do While…Loop • Do Until…Loop 语句是当条件为 False 时，重复执行语句，当条件为 True 时结束循环 ；
- 18. 簡單應用 • fMax / fMin • NoShortQty • FileListName • fRegion • GetComment • DoubleClick
- 20. 資料庫 • Database – Connection String • SQL: "Provider=sqloledb;Server=192.168.0.10;UID=sa;P WD=ydyester;Initial Catalog=yestertest“ • Microsoft Access: "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:Works2012 TrainingExcelVBAERP.accdb;Persist Security Info = False"
- 21. 資料庫 – Connection • Dim DB as new adodb.connection • DB.open gConnectionString • Table: Recordset • Dim xRecord as new adodb.recordset • xRecord.open “select * from bom”,db,adopenstatic
- 22. 資料庫 • Query
- 23. 通用程式應用 • Dbdownload(xTable, xFieldRange, xRow, xCriteria, xOrder)
- 24. Workshop for Production Materials Plan
- 25. Tips & Tricks • Design the model • Work out the middle layer of the model, i.e. various working worksheet • Conclude with a summary/report • Find the range address • Find the value of a particular cell • Write formula in a particular cell in VBA • Define the interval of the model
- 26. • 有一百樣物料缺 , 究竟有沒有只 追一種物料便即時可以開工單 ? 更多的 • 如果追一種物料 , 是否有資料告 要求 知同時要追另外哪些料才可開工 單? • 突然有一系列急單 , 究竟欠哪些 料? • 某一種物料是哪成品需要 , 多少 及欠多少 ?