[已解决]求助VB高手，这个程序该如何完善

panda001

有一批文件，要实现以下功能，请高手指点，谢谢！

要实现功能：

1、如G列有数据，则H=G，I=G-H，L=H*J

2、如G列无数据，则跳过。

3、如C列为设备合计，则L=上面设备合计，

4、如C列为材料合计，则L=上面材料合计，

最佳答案

月排行榜 / 总排行榜

wanao2008

2016-12-26 20:34

改了一下你的代码，请测试：

1. Sub JGC()
   
2.     i = 1
   
3.     Do Until ThisWorkbook.ActiveSheet.Cells(i, 2) = ""
   
4.         Set dx_workbook = Workbooks.Open(ThisWorkbook.Path & "" & ThisWorkbook.ActiveSheet.Cells(i, 1))
   
5.         dx_workbook.Sheets("甲供材明细表").Columns("H:H").Hidden = False
   
6.         Sheets("甲供材明细表").Activate
   
7.         xrow = Sheets("甲供材明细表").Cells(Rows.Count, 2).End(xlUp).Row
   
8.         yrow = 5
   
9.         For h = 5 To xrow
   
10.             If InStr(Range("C" & h).Value, "合计") Then
    
11.                 Range("L" & h).Value = "=SUM(L" & yrow & ":L" & h - 1 & ")"
    
12.                 yrow = h + 1
    
13.             ElseIf Range("G" & h).Value <> "" Then
    
14.                 Range("H" & h).Value = "=G" & h
    
15.                 Range("I" & h).Value = "=G" & h & "-H" & h
    
16.                 Range("L" & h).Value = "=H" & h & "*J" & h
    
17.             End If
    
18.         Next h
    
19.         i = i + 1
    
20.         dx_workbook.Close SaveChanges:=True
    
21.         Set dx_workbook = Nothing
    
22.     Loop
    
23. End Sub

复制代码

跳转到最佳答案楼层

wanao2008

改了一下你的代码，请测试：

1. Sub JGC()
   
2.     i = 1
   
3.     Do Until ThisWorkbook.ActiveSheet.Cells(i, 2) = ""
   
4.         Set dx_workbook = Workbooks.Open(ThisWorkbook.Path & "" & ThisWorkbook.ActiveSheet.Cells(i, 1))
   
5.         dx_workbook.Sheets("甲供材明细表").Columns("H:H").Hidden = False
   
6.         Sheets("甲供材明细表").Activate
   
7.         xrow = Sheets("甲供材明细表").Cells(Rows.Count, 2).End(xlUp).Row
   
8.         yrow = 5
   
9.         For h = 5 To xrow
   
10.             If InStr(Range("C" & h).Value, "合计") Then
    
11.                 Range("L" & h).Value = "=SUM(L" & yrow & ":L" & h - 1 & ")"
    
12.                 yrow = h + 1
    
13.             ElseIf Range("G" & h).Value <> "" Then
    
14.                 Range("H" & h).Value = "=G" & h
    
15.                 Range("I" & h).Value = "=G" & h & "-H" & h
    
16.                 Range("L" & h).Value = "=H" & h & "*J" & h
    
17.             End If
    
18.         Next h
    
19.         i = i + 1
    
20.         dx_workbook.Close SaveChanges:=True
    
21.         Set dx_workbook = Nothing
    
22.     Loop
    
23. End Sub

复制代码

panda001

谢谢