[已解决]你好，求VBA高手帮忙编辑下

upczxf

我想实现如下功能。1、自动复制表格中Sheet1. 保证表格大小不变，
                             2、表格中分部工程名称管号单根管长标段连续里程焊口编号  自动调用数据中数据
                        3、数据中有很多数据，为了使上传附件不太大。删除了一部分数据，当数据超出表格内容时，自动生成下一张表格，本人编辑了一小部分，但是不够完整，求大神帮忙

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2012-4-7 21:18

upczxf 发表于 2012-4-7 18:01
我想通过宏命令实现如下功能：
1、复制表格SHEET1，
2、在复制的SHEET1中，填充数据，具体规则是这样的。 ...

试试这个代码
直接运行 XieRu 过程即可!

1. 
   
2. Dim TorF As Boolean, Hx As Long, Sh As Worksheet
   
3. Sub CopyBiao()
   
4.   If Not TorF Then MsgBox "请运行 XirRu 程序!", , "错误": Exit Sub
   
5.   Sheets("Sheet1").Copy Sheets(Sheets.Count)
   
6.   Set Sh = Sheets(Sheets.Count - 1)
   
7.   Sh.Name = "施工记录" & Sheets.Count - 2
   
8.   Hx = 8
   
9. End Sub
   
10. Sub XieRu()
    
11. Dim X As Long, Arr As Variant
    
12.   TorF = True
    
13.   With Sheets("数据")
    
14.     Hx = .Range("A65536").End(xlUp).Row
    
15.     Arr = .Range("A2:E" & Hx)
    
16.   End With
    
17.   Call CopyBiao
    
18.   For X = 1 To UBound(Arr)
    
19.     With Sh
    
20.       .Cells(Hx, "A") = Arr(X, 5)
    
21.       .Cells(Hx - 1, "C") = Arr(X, 2)
    
22.       .Cells(Hx - 1, "D") = Arr(X, 3)
    
23.       .Cells(Hx, "E") = Arr(X, 4)
    
24.       Hx = Hx + 2
    
25.       If X = UBound(Arr) Then .Range("C5") = Arr(X, 1): Exit For
    
26.       If Arr(X, 1) <> Arr(X + 1, 1) Then .Range("C5") = Arr(X, 1): Call CopyBiao
    
27.     End With
    
28.   Next
    
29. End Sub
    
30. 
    

复制代码

跳转到最佳答案楼层

无聊的疯子

有附件没示例说明,具体效果和操作方式都还得猜!!不好办啊

upczxf

无聊的疯子 发表于 2012-4-7 16:43
有附件没示例说明,具体效果和操作方式都还得猜!!不好办啊

附件里面我编辑了个宏，但是实现不了功能。我想实现的是保持表单大小尺寸不变，然后编辑个宏命令，里面的焊口、管号、长度、里程引用数据表中的相应内容，当表格填充满后，自动生成下一个表格（与样表一模一样），然后继续导入焊口、管号、长度、里程等内容

upczxf

无聊的疯子 发表于 2012-4-7 16:43
有附件没示例说明,具体效果和操作方式都还得猜!!不好办啊

您电话多少，方便接听的话我给你打个电话说明下

upczxf

分部工程名称引用数据中的分部工程名称，当焊口号对应的分部名称不一致时，则自动生成下一个表单，从不一致的数据继续重复引用的工作。

jxncfxsf

附件里最好有做好的效果图，详细说明数据对应关系。

无聊的疯子

upczxf 发表于 2012-4-7 16:58
分部工程名称引用数据中的分部工程名称，当焊口号对应的分部名称不一致时，则自动生成下一个表单，从不一致 ...

当表格填充满后，自动生成下一个表格（与样表一模一样），

这个问题很好理解,也很好解决

下面两个问题呢?

里面的焊口、管号、长度、里程引用数据表中的相应内容

这个是怎么个引用法?

"输入工程名称",就把该工程名称的所有内容都输入到下面?

你的表为啥要那样交叉设计?这样的设计对于处理数据来说是个麻烦事!就不能放在一行里面啊?

分部工程名称引用数据中的分部工程名称，当焊口号对应的分部名称不一致时，则自动生成下一个表单，从不一致的数据继续重复引用的工作。

当 <焊口号对应的分部名称不一致时>

你的 焊口号是不重复的,而工程名称却是重复的!!所以这点是不是描述反了呢??

upczxf

无聊的疯子 发表于 2012-4-7 17:12
当表格填充满后，自动生成下一个表格（与样表一模一样）， 这个问题很好理解,也很好解决 下面两个问题呢? ...

工程名称那个不用管，主要管分部工程名称、焊口、管号、长度、里程这几个数据。当一张表格中出现焊口所对应的分部工程名称不同时，则生成下一个表格，同时继续引用分部工程名称、焊口、管号、长度、里程这几个数据

无聊的疯子

upczxf 发表于 2012-4-7 17:17
工程名称那个不用管，主要管分部工程名称、焊口、管号、长度、里程这几个数据。当一张表格中出现焊口所对 ...

你还是没有说你是怎么操作的,具体操作那个单元格,然后想要什么样的效果??

只是说"当一张表格中出现焊口所对应的分部工程名称不同时，则生成下一个表格，同时继续引用分部工程名称、焊口、管号、长度、里程这几个数据"

好比你老总叫你去领金奖,而他又没给发金奖的人讲这个事,你觉得你去了就能领到么??

如果问题描述得不清楚,是没有办法写代码的!!所以你还是好好想想怎么描述才能让人一眼就看得明白吧

upczxf

我想通过一个宏命令，使之先复制表格SHEET1,并保持该表格大小不变，第二步是在复制过的SHEET1中采取调用函数，如SHEET1中的焊口、管号、长度、里程链接数据中相应数据。第三部是如果焊口编号对应的分部工程名称不一致时，则终止此循环，同时进行再次复制表格，然后继续调用焊口、管号、长度、连续里程等信息。这样表述您明白了吗