查看: 5041|回复: 6

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

[复制链接]

26

主题

94

帖子

2066

积分

金牌会员

Rank: 6Rank: 6

积分
2066
QQ
发表于 2020-11-11 13:36:17 | 显示全部楼层 |阅读模式
本帖最后由 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

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

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

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


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

插件用法视频


自定义表单视频


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
















图2.png
图片1.png
图4.png
图3.png

自定义表单-1.zip

15.88 KB, 下载次数: 1738

回复

使用道具 举报

26

主题

94

帖子

2066

积分

金牌会员

Rank: 6Rank: 6

积分
2066
QQ
 楼主| 发表于 2020-11-21 14:14:56 | 显示全部楼层
1111111111111
1111111.png
回复 支持 反对

使用道具 举报

4

主题

45

帖子

406

积分

中级会员

Rank: 3Rank: 3

积分
406
QQ
发表于 2020-11-22 11:00:56 | 显示全部楼层
1111111111111,大佬牛逼~!
回复 支持 反对

使用道具 举报

26

主题

94

帖子

2066

积分

金牌会员

Rank: 6Rank: 6

积分
2066
QQ
 楼主| 发表于 2020-12-14 20:09:21 | 显示全部楼层
本帖最后由 363001640 于 2020-12-15 09:41 编辑

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

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

正攵.zip

919.09 KB, 下载次数: 1781

回复 支持 反对

使用道具 举报

0

主题

23

帖子

66

积分

注册会员

Rank: 2

积分
66
发表于 2020-12-25 11:34:03 | 显示全部楼层
谢谢分享!!!!!
回复

使用道具 举报

0

主题

12

帖子

48

积分

新手上路

Rank: 1

积分
48
发表于 2021-3-5 20:32:10 | 显示全部楼层
牛,把门窗天使吃透了。
回复 支持 反对

使用道具 举报

11

主题

35

帖子

133

积分

注册会员

Rank: 2

积分
133
发表于 2021-3-12 11:27:43 | 显示全部楼层
里面封面和提取单没有?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|门窗天使软件 ( 苏ICP备15056570号

GMT+8, 2024-6-23 01:03 , Processed in 0.068318 second(s), 28 queries , Gzip On.

快速回复 返回顶部 返回列表
 
【电话】13812813910
【QQ】 客服2142625786
【旺旺】 淘宝
【邮箱】 mc112@qq.com
【地址】 (江苏·常熟)
【门窗天使】
【www.mc112.com】