Allen_tang的博客

VBA主代码和excel数据分开放置，类似与客户端只有数据和服务器端放置详细的代码。

前面已经使用VBA对所有生产线的排产进行了汇总，以及从Oracle中分解BOM直至采购层。接下来，我们实现将成品的Planning，转换为物料的Planning：步骤：1，BOM的格式：2，汇总后，生产计划的格式：3，...

BG：在之前的程序当中，使用了很多的数组，然后二维数组行和列常常需要倒置，简单的使用：arr=application.transpose(brr)结果有时报错：下标越界，有时又不报错。其中arr是数组：dim arr()brr也是数组，存放了数据（第一列的没有存入数组的信息）：月份未存入数组 AA1 AA2 AA3 AA4 AA5 AA6 AA7 AA8 Jan 2 4 2 0 3 3 0

又到了，小朋友们期末考试的时间了（快乐的暑假马上就要开始了！！）说真，儿子还是非常聪明的，但是就是太贪玩了，英语单词读几遍以为自己就记住了，结果考试单词默写一塌糊涂，英语老师找我好几次了，真是头大。为了看他到底是不是真的掌握了，我决定设计一个试卷给他。数据源：三年级下册（人教版）总共85个单词。我把6个单元的的但是存入一个数组，然后随机每次抽20个给他，每个单词总共测试2次。代码部分，主要作用写在备注中了：Sub Hanyi()Dim sht As WorksheetDi

Background：公司的经营是不断变化的，通常我们在月初会收到一份FC，但是在这之后，FC会不停的变化：增加，取消（概率小），减少数量（概率小）Logic：1，

Background：公司有多条的生产线，生产计划员将不同的客户或者不同类别的产品的每日排产放在不同的Line中，我们需要把不同产线的产品汇总起来，方便我们后续转换为物料的每日需求（需要和BOM相乘...

我们在使用Excel的时候，经常需要使用格式设置，尤其是文本设置，时间设置，就像是“城市牛皮癣”一样，换不过来！！真是让人火大。即使，在VBA中使用C开头的函数，只是转换了Variant的类型，等填入到单元格并不是我们想要的类型。比如有时明明用cells(1,1)=Cstr(000001)，但是到了单元格还是1，而不是文本000001！！CBool(expression) 转换为Boolean型 CByte(expression) 转换为Byte型 CCur(expressi

我们有的时候需要引用单元格的颜色和字体的颜色。Vlookup显然是无法满足要求的。那么我们就自己写一个吧，这个比较简单，但是却比较实用，尤其是公司的数据很多时候是需要使用颜色管理的。如：最紧急的红色Highlighted，紧急的黄色Highlighted，已经Ok的用Green。两个表格同一列的相同单元格值（这里假设都是第一列做作类似Vlookup的引用），那么以下模块适用：Sub aa()Dim i, j, k As IntegerDim aRange, Irange As

在物料管理中，我们需要使用一些reports来做出一些判断，如Consign，VMI，Safety Stock，Milk Run等：1，对于未来6个月每个物料的Demand，Amount2，对于未来6个月每个供应商的Demand，Amount我们先看看，当我们点击一个供应商时，自动列出这个供应商涉及的物料如何实现？实际应用，我还延伸了很多的物料管理工具，感觉还是挺有用的。一，基础数据（Excel表格）二，在Supplier List中点击一个供应商后：2.1，然后将供应商的物

Background：在Oracle EBS中可以导出很多的Reports。其中我用的比较多的是Inventory>Reports>On-Hand的数据。这个数据比Discoverer导出库存数据要准确。但是报表导出后是几十页很长的，难以使用的分页报表，不是我们熟悉的二维关系数据表。Objective：我们需要一张这样的报表：可以清晰看到所有Org下每个库位的库存情况，现时的库存数量，位置等信息。Procedure：1，使用Excel打开Oracle EBS下

Tips：：这段代码是用于Material management的。Objective：基于一张物料的清单，和BOM清单（单层BOM），在excel中横向列出物料使用在哪些设备上。得到一张下图的表格：在物料计划管理实际应用中，这个表格可以用于：1，筛选出专用物料，如上图的Yellow Highlighted部分可以视为F91-539的专用物料。尤其是，当一个Model即将Phrase out时，这几个物料就需要开始监控库存和在途，以及供应商的安全库存。2，报废物料时，判断

Discoverer导出的单层BOM如何拼装为能够直接体现采购层的多层BOM？这个标题可能有点拗口！我们发现Discoverer导出的FG零件清单，只有第一层。第一层的每个Phantom件又有其它Purchased Item，Reference Item，Phantom....第二层，第三层也是如此。但是工作中我们需要一份Excel的物料Forecast，制作这份Forecast可以从Discrete Job中建立，马上取消方式得到采购层的BOM。一个一个的操作显然有点浪费时间，最后，我决.

VBA中同一模块Sub过程能否按顺序调用？有时候，我们希望我们的过程能否按顺序执行，这样可以使工作变得清晰。应该怎么实现？我们可以建一个Sub_Total的过程，然后把子过程依次放在Sub_Total过程中：个人觉得，这样的结构比在一个Sub过程中写很长一段代码更清晰！Sub total_1()sub_1sub_2sub_3End Sub'--------------------------------------------------Sub sub_1()Cell

Excel二维表格如何转换为日志格式的单条记录EXCEL横轴=时间，数轴=设备型号如何转换为类似Access格式：设备，数量，时间单条记录？为什么要转换？因为Oracle用Dataload导入时，只能时一条条Log格式的记录！首先我们看一张截图：最终，我们希望可以得到下文的表格，Dataload只有这样的格式才可以导入。可能我们通过复制+粘贴也可以实现，但是显然很耗时间。我们需要一个VBA让它自动处理。步骤：1，在Personal.xlsb中新建一个模块，FC_Log