应用Excel VBA软件管理砂石骨料销售数据探讨.pdfVIP

第 14期 曾志刚：应用 ExcelVBA软件管理砂石骨料销售数据探讨 91 PrivateSubCombo3 一 Click() 选择月份 2 数据管理程序功能的实现 Dim iAsInteger 砂石生产系统骨料销售数据是由受料单位形成工 month = CInt(Combo3．Text) 作表名称 ，每个工作表 由骨料分类名称形成字段 Combo4．Clear (列)，由日期形成记录索引(行)的小型数据库。在砂 If(((yearMod4 = 0)And (yearMod100 石骨料销售数据管理中，受料单位数量较少 ，数据处理 0))Or(yearMod400=0))And(month=2)Then 后宜根据不同受料单位生成各个单页 的工作表 ，有多 Fori= lTo29 少个受料单位就生成多少张工作表。销售 日期数量较 Combo4．Addhem i 多 ，一般作为记录数来处理 ，一个 日期就是一条记录。 Next 砂 、小石 、中石 、大石等骨料分类 ，则宜作为字段来处 Else 理 ，为 了编程的方便 ，它们在表单中的位置固定不变。 SelectCasemonth 为了操作便利 ，将受料单位的选择、日期的选择或 Case 1，3，5，7，8，10，12 输入 、某单位销售骨料 的多少等操作及管理功能集成 Fori： 1T03l 到一个用户界面上 ，再通过 ExcelVBA程序实现各项 Combo4．AddItem i 功能，这便是该程序 的目的，下面分别介绍几个主要功 Next 能控件 。 Case4，6，9，11 Fori= lTo30 2．1 选择销售单位 Comb04．Addltem i 用组合框控件完成销售单位的选择功能。选择销 Next 售单位后 ，界面 中的项 目主题便更新为某某单位骨料 Case2 销售、日期等控件 ，并可有选择地显示出来。当输入某 Fori= 1T028 个 日期后 ，便可以录入或统计砂石骨料 的数据 。该控 Combo4．Addltem i 件的源代码如下： Next PrivateSubCombo1 一 Click() EndSelect Label1．Caption=Combo1．Text+ ”骨料销售” EndIf sht=Combo1．Text选择表单 Combo4．ListIndex = 0