自定义表单提取型材，五金，玻璃，扇尺寸单等等

363001640 · 发表于 2020-11-11 13:36:17

本帖最后由 363001640 于 2020-12-14 21:54 编辑

附件其中一个是插件，一个是自定义表单，名称写的有。其实功能原来我在之前的表单中写过，只不过用的vba写的。
相当于一个分享贴。

Public Function copysheet()
'Public是公共的意思（不用管）
'Function是函数的意思，跟sub对应
'copysheet是函数的名称，随便取，但是要跟天使里面的第一次运行的宏名称对应
Sheet2.Select
'选中sheet2表格，这里的sheet2是工作表名称为（缓存）的这个表也可改为Sheets ("缓存")
Sheet2.Range("A1:AC50").Select
' 这句意思一样，就是选择sheet2工作表中a1到ac50这个矩形内的单元格。select是选择的意思
Selection.Copy
' 这句就更简单了，就是把选择的复制，跟鼠标操作的右键复制一个道理，此时已经复制到鼠标粘贴板
Sheet3.Select
' 这句是把sheet3选中，也就是表名称为（生产单）的工作表等价于（sheets("生产单")）
Sheet3.Rows("1:1").Select
' 选中sheet3的第一行，这个操作等于你用鼠标选择了工作表名为生产单的第一行的所有单元格
Selection.Insert Shift:=xlDown
'简单来说等于你鼠标点了右键选了插入复制单元格，
'等于说把刚刚复制到粘贴板的内容粘贴到此处，并且是插入的形式。
End Function
Public Function yincang()
Sheet3.Name = "生产单" ' 把sheet3工作表的名称改成生产单
Sheet2.Visible = xlSheetVeryHidden ' 把sheet2也就是缓存工作表隐藏起来
End Function

复制代码

上面两段代码是自定义表单中用的，放在模块中，这样出来的生产单是在一个工作表中，例如图片1和图2这样。具体使用方式下面说。

如果你表格也设计好了，至于门窗天使里面的工作表自定义，吴总有视频，只是里面他没有讲怎么用vba控制表格是在同一个sheet还是不同的sheet.
我是觉得在同一个sheet更方便，包括打印的时候，修改列宽行高，都能保证打印出来的生产单一致。图片3和图片4

最后一步保存一下就可以了。就这么简单。操作视频天使论坛发不了，我待会儿放一个连接。
插件用法视频

自定义表单视频

插件的功能还没有完善，虽然vba的实现过，但是改成C#还是很多地方不顺利，所以第一个按钮和最后一个按钮的功能还没有写。
1.第一个隐藏行，其实是根据你当前导出的生产单，里面的型材，五金，和玻璃，这三个里面最多的那个来隐藏多余的空行，并且保证每个生产单都隐藏的行数一样，这样打印的时候才能方便，不会出现分页的情况。剩下的就是导出型材，玻璃，窗扇，五金等等了。五金有合计汇总，欢迎使用。如果有使用excel2007版本的，或者使用的系统是xp系统的，需要安装net4.0的环境，这个是大部分软件都需要的使用环境。没有可以自己搜Microsoft .NET Framework 4