在宏里帮忙写两盒语句

刘畅20001216

帮写2个语句，1：自动向下填好序列号，2.：合计的公式重新计算

ww87725244

两盒是好多？怎么觉得好多的样子？所以不敢冒然下坑

刘畅20001216

ww87725244 发表于 2018-3-29 21:35
两盒是好多？怎么觉得好多的样子？所以不敢冒然下坑

2 句，字打错了

ww87725244

1. .Range("a" & rs).Formula = "=row()-2"
   
2.     .Range("a" & rs).Resize(10, 1).FillDown   '序号
   
3.     .Range("h" & rs + 10).Formula = "=sum(h3:h" & .Range("h" & rs + 9).Row & ")"   '合计公式

复制代码

刘畅20001216

ww87725244 发表于 2018-3-29 22:08

你是个乐意帮助的人，还是帮我了，感谢

fhqwgimtd

1. 
   
2. Sub 日期()
   
3. Dim r, p As Integer
   
4. r = Range("b65536").End(xlUp).Row
   
5. p = Range("c65536").End(xlUp).Row
   
6. If r < p Then
   
7. Range("b" & r + 1 & ":b" & p) = [b1].Value
   
8. End If
   
9. End Sub
   
10. 
    
11. Sub 增加行()
    
12. With Sheets("中厨房采购直拨及领料")
    
13. Set Rng = .Columns(1).Find("合 计", , , 1)
    
14. If Not Rng Is Nothing Then
    
15. rs = Rng.Row
    
16. .Rows(rs & ":" & rs + 9).Insert Shift:=xlDown
    
17.   .Range(.Cells(rs - 1, "f"), .Cells(rs - 1, "i")).AutoFill Destination:=.Range(.Cells(rs - 1, "f"), .Cells(rs + 9, "i")), Type:=xlFillDefault
    
18. End If
    
19. k = Sheets("中厨房采购直拨及领料").Range("a65536").End(xlUp).Row - 1
    
20. For i = 3 To k
    
21. Range("a" & i) = i - 2
    
22. Next
    
23. 
    
24. End With
    
25. End Sub
    
26. 
    
27. 
    
28. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
29. l = Range("a65536").End(xlUp).Row
    
30. Range("h" & l) = Application.WorksheetFunction.Sum(Range("h3:h" & l - 1))
    
31. 
    
32. End Sub
    

复制代码

应该是你想要的效果

刘畅20001216

ww87725244 发表于 2018-3-29 22:08

你好，刚测试了一下发现序列有点问题，复制的序列号全是21

fhqwgimtd

Sub 日期()
Dim r, p As Integer
r = Range("b65536").End(xlUp).Row
p = Range("c65536").End(xlUp).Row
If r < p Then
Range("b" & r + 1 & ":b" & p) = [b1].Value
End If
End Sub

Sub 增加行()
With Sheets("中厨房采购直拨及领料")
Set Rng = .Columns(1).Find("合 计", , , 1)
If Not Rng Is Nothing Then
rs = Rng.Row
.Rows(rs & ":" & rs + 9).Insert Shift:=xlDown
  .Range(.Cells(rs - 1, "f"), .Cells(rs - 1, "i")).AutoFill Destination:=.Range(.Cells(rs - 1, "f"), .Cells(rs + 9, "i")), Type:=xlFillDefault
End If
k = Sheets("中厨房采购直拨及领料").Range("a65536").End(xlUp).Row - 1
For i = 3 To k
Range("a" & i) = i - 2
Next

End With
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
l = Range("a65536").End(xlUp).Row
Range("h" & l) = Application.WorksheetFunction.Sum(Range("h3:h" & l - 1))

End Sub

刘畅20001216

fhqwgimtd 发表于 2018-3-29 23:09
Sub 日期()
Dim r, p As Integer
r = Range("b65536").End(xlUp).Row

你好，还有2个问题，问题在表格里，麻烦了

刘畅20001216

ww87725244 发表于 2018-3-29 22:08

还有2个问题，写在表格里，再次麻烦了