门窗天使软件Windoors_Angel

标题: 自定义表单提取型材，五金，玻璃，扇尺寸单等等 [打印本页]
作者: 363001640    时间: 2020-11-11 13:36
标题: 自定义表单提取型材，五金，玻璃，扇尺寸单等等
本帖最后由 363001640 于 2020-12-14 21:54 编辑

附件其中一个是插件，一个是自定义表单，名称写的有。其实功能原来我在之前的表单中写过，只不过用的vba写的。
相当于一个分享贴。
  1. Public Function copysheet()
  2. 'Public是公共的意思（不用管）
  3. 'Function是函数的意思，跟sub对应
  4. 'copysheet是函数的名称，随便取，但是要跟天使里面的第一次运行的宏名称对应
  5.     Sheet2.Select
  6.     '选中sheet2表格，这里的sheet2是工作表名称为（缓存）的这个表也可改为Sheets ("缓存")
  7.     Sheet2.Range("A1:AC50").Select
  8. '    这句意思一样，就是选择sheet2工作表中a1到ac50这个矩形内的单元格。select是选择的意思
  9.     Selection.Copy
  10. '    这句就更简单了，就是把选择的复制，跟鼠标操作的右键复制一个道理，此时已经复制到鼠标粘贴板
  11.     Sheet3.Select
  12. '    这句是把sheet3选中，也就是表名称为（生产单）的工作表等价于（sheets("生产单")）
  13.     Sheet3.Rows("1:1").Select
  14. '    选中sheet3的第一行，这个操作等于你用鼠标选择了工作表名为生产单的第一行的所有单元格
  15.     Selection.Insert Shift:=xlDown
  16. '简单来说等于你鼠标点了右键选了插入复制单元格，
  17. '等于说把刚刚复制到粘贴板的内容粘贴到此处，并且是插入的形式。
  18. End Function

  20. Public Function yincang()
  21. Sheet3.Name = "生产单" '  把sheet3工作表的名称改成生产单
  22. Sheet2.Visible = xlSheetVeryHidden '  把sheet2也就是缓存工作表隐藏起来
  23. End Function
复制代码

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

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


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


自定义表单视频


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
















图2.png (257.53 KB, 下载次数: 670)

图2.png

图片1.png (145.29 KB, 下载次数: 690)

图片1.png

图4.png (369.8 KB, 下载次数: 700)

图4.png

图3.png (319.89 KB, 下载次数: 698)

图3.png

自定义表单-1.zip

15.88 KB, 下载次数: 1649
作者: 363001640    时间: 2020-11-21 14:14
1111111111111

1111111.png (42.91 KB, 下载次数: 665)

1111111.png
作者: yours2008    时间: 2020-11-22 11:00
1111111111111，大佬牛逼~！
作者: 363001640    时间: 2020-12-14 20:09
本帖最后由 363001640 于 2020-12-15 09:41 编辑

新excel插件，免费的。欢迎使用。

具体使用操作可以在版本里面看演示视频

office.png (73.18 KB, 下载次数: 652)

office.png

wps.png (89.28 KB, 下载次数: 648)

wps.png

正攵.zip

919.09 KB, 下载次数: 1679
作者: apple1506744    时间: 2020-12-25 11:34
谢谢分享！！！！！
作者: 时来运转    时间: 2021-3-5 20:32
牛，把门窗天使吃透了。
作者: bfblove    时间: 2021-3-12 11:27
里面封面和提取单没有？



欢迎光临 门窗天使软件Windoors_Angel (http://www.mc112.com/) Powered by Discuz! X3.2