[已解决]求助窗体(管理费)计算代码修改

SHQM

窗体(管理费)代码计算正确为从g6:g16,尔现在是g6:g17了请大师帮忙修改一下。
要修改的表单.rar (54.37 KB, 下载次数: 35)

2013-5-11 19:49 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-11 22:48

USERFORM3的窗体初始化代码完整。

1. Private Sub UserForm_Initialize()
   
2.     Dim i As Long, r As Long, k As Integer, ar As Variant
   
3.     Dim bool As Boolean, gsl As Single
   
4.     For i = 1 To 19
   
5.         ComboBox2.AddItem Format(i * 0.05, "0.00")
   
6.     Next
   
7. 
   
8.     With Sheets("Sheet1")
   
9.         r = .Range("a65536").End(xlUp).Row
   
10.         ar = .Range("a4:h" & r)
    
11.     End With
    
12. 
    
13.     With ListView2
    
14.         .View = lvwReport
    
15.         .Gridlines = True
    
16.         .FullRowSelect = True
    
17.         .CheckBoxes = True
    
18.         .ColumnHeaders.Add , , "   " & ar(1, 2), .Width / 3.5
    
19.         .ColumnHeaders.Add , , ar(1, 3), .Width / 2.8, lvwColumnCenter
    
20.         .ColumnHeaders.Add , , "管理费 ", .Width / 6, lvwColumnRight
    
21.         .ColumnHeaders.Add , , "计费金额", .Width / 6, lvwColumnRight
    
22.         .ColumnHeaders.Add , , "", .Width / 45, lvwColumnRight
    
23.         For i = 2 To UBound(ar)
    
24.             If Not IsNumeric(ar(i, 1)) Then
    
25.                 bool = True
    
26.                 k = k + 1
    
27.                 .ListItems.Add , , ar(i, 2)
    
28.                 .ListItems(k).SubItems(1) = ar(i, 3)
    
29.             ElseIf ar(i, 2) = "管理费" Then
    
30.                 bool = False
    
31.                 .ListItems(k).SubItems(2) = Format(ar(i, 7), "0.00")
    
32.                 .ListItems(k).SubItems(3) = Format(gsl, "0.00")
    
33.                 .ListItems(k).SubItems(4) = "G" & i + 3
    
34.                 gsl = 0
    
35.             End If
    
36.             If bool = True Then
    
37.                 If Not ar(i, 2) = "工税利" Then gsl = gsl + ar(i, 7)
    
38.             End If
    
39.         Next i
    
40.         .SelectedItem.Selected = False
    
41.     End With
    
42. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

既然管理费是G1:G16,单元格里就直接用公式就成了。

你管理费的窗体是计算的配电箱的管理费。

hwc2ycy

问题1：工利税问题

1.             If bool = True Then
   
2.                 If Not ar(i, 2) = "工税利" Then gsl = gsl + ar(i, 7)
   
3.             End If

复制代码

hwc2ycy

USERFORM3的窗体初始化代码完整。

1. Private Sub UserForm_Initialize()
   
2.     Dim i As Long, r As Long, k As Integer, ar As Variant
   
3.     Dim bool As Boolean, gsl As Single
   
4.     For i = 1 To 19
   
5.         ComboBox2.AddItem Format(i * 0.05, "0.00")
   
6.     Next
   
7. 
   
8.     With Sheets("Sheet1")
   
9.         r = .Range("a65536").End(xlUp).Row
   
10.         ar = .Range("a4:h" & r)
    
11.     End With
    
12. 
    
13.     With ListView2
    
14.         .View = lvwReport
    
15.         .Gridlines = True
    
16.         .FullRowSelect = True
    
17.         .CheckBoxes = True
    
18.         .ColumnHeaders.Add , , "   " & ar(1, 2), .Width / 3.5
    
19.         .ColumnHeaders.Add , , ar(1, 3), .Width / 2.8, lvwColumnCenter
    
20.         .ColumnHeaders.Add , , "管理费 ", .Width / 6, lvwColumnRight
    
21.         .ColumnHeaders.Add , , "计费金额", .Width / 6, lvwColumnRight
    
22.         .ColumnHeaders.Add , , "", .Width / 45, lvwColumnRight
    
23.         For i = 2 To UBound(ar)
    
24.             If Not IsNumeric(ar(i, 1)) Then
    
25.                 bool = True
    
26.                 k = k + 1
    
27.                 .ListItems.Add , , ar(i, 2)
    
28.                 .ListItems(k).SubItems(1) = ar(i, 3)
    
29.             ElseIf ar(i, 2) = "管理费" Then
    
30.                 bool = False
    
31.                 .ListItems(k).SubItems(2) = Format(ar(i, 7), "0.00")
    
32.                 .ListItems(k).SubItems(3) = Format(gsl, "0.00")
    
33.                 .ListItems(k).SubItems(4) = "G" & i + 3
    
34.                 gsl = 0
    
35.             End If
    
36.             If bool = True Then
    
37.                 If Not ar(i, 2) = "工税利" Then gsl = gsl + ar(i, 7)
    
38.             End If
    
39.         Next i
    
40.         .SelectedItem.Selected = False
    
41.     End With
    
42. End Sub
    

复制代码

hwc2ycy

改完我终于弄明白你的意思了。

hwc2ycy

If Not ar(i, 2) = "工税利" Then gsl = gsl + ar(i, 7)
改成
If ar(i, 2) <> "工税利" Then gsl = gsl + ar(i, 7)
好理解。

SHQM

hwc2ycy 发表于 2013-5-12 08:49
If Not ar(i, 2) = "工税利" Then gsl = gsl + ar(i, 7)
改成
If ar(i, 2)  "工税利" Then gsl = gsl + a ...

谢谢老师完全达到我的要求,理解万岁！

hwc2ycy

SHQM 发表于 2013-5-12 21:18
谢谢老师完全达到我的要求,理解万岁！

问题解决了就给个最佳答案，免得我去申请了，{:912:}