[已解决]請教用數組方式要怎樣處理

idnoidno · 发表于 2017-4-22 18:18

本帖最后由 idnoidno 于 2017-4-24 22:39 编辑

附件是工作表數據

條件
第六列後，每一列的每一個儲存格(D:M)都和同一欄的相對應儲存格(D3:M3)做下列比較，EX：D6介於D3的60%~80@之間，D6的費率就是打八折，
所以，D6*D2(費率)*0.8，每一列的儲存格都依循這樣判斷，然後統計每一列小計{(D2:M2*D6:M6))到最右一欄，再將所有小計再總計到最下一列

D6*D2+E6*E2+F6*F2+G6*G2+H6*H2+I6*I2+J6*J2+K6*K2+L6*L2+M6*M2=N6

D6….M6依據表格的級距各乘上對應的百分比

類推

N6+N7+…………………………………………………………………………………………………..=N225

希望文字表達，路過的高手可以明白

10%≦儲存格≦30%	原始費額×15%
30%＜儲存格≦40%	原始費額×40%
40%＜儲存格≦60%	原始費額×60%
60%＜儲存格≦80%	原始費額×80%
儲存格＞80%	原始費額×100%

小弟自己的語法，但是好像不太對，望請指點

Sub CalSum()
Dim irow, jcol, i, j As Integer
Dim ts1, ts2, ts3, ts4, ts5, ts6 As Long

Worksheets("統計表").Range("a1").Select
irow = ActiveCell(Rows.Count, 1).End(xlUp).Row
jcol = ActiveCell(1, Columns.Count).End(xlToLeft).Column
Worksheets("統計表").Cells(1, jcol + 1) = "合計"
For i = 6 To irow
Cells(i, jcol + 1) = 0
ts1 = 0
ts2 = 0
ts3 = 0
ts4 = 0
ts5 = 0
ts6 = 0

For j = 4 To jcol
         If Cells(i, j) >= Cells(3, j) * 0.8 Then
         ts1 = ts1 + Cells(i, j) * Cells(2, j)
      ElseIf Cells(i, j) >= Cells(3, j) * 0.6 Then
         ts2 = ts2 + Cells(i, j) * Cells(2, j) * 0.8
      ElseIf Cells(i, j) >= Cells(3, j) * 0.4 Then
         ts3 = ts3 + Cells(i, j) * Cells(2, j) * 0.6
      ElseIf Cells(i, j) >= Cells(3, j) * 0.3 Then
         ts4 = ts4 + Cells(i, j) * Cells(2, j) * 0.4
      ElseIf Cells(i, j) >= Cells(3, j) * 0.1 Then
         ts5 = ts5 + Cells(i, j) * Cells(2, j) * 0.15
      Else
         ts6 = ts6 + Cells(i, j) * 0
End If
  Next j
Cells(i, jcol + 1) = ts1 + ts2 + ts3 + ts4 + ts5 + ts6 Cells(irow + 1, jcol + 1) = Cells(irow + 1, jcol + 1) + Cells(i, jcol + 1)
Next i
End Sub

最佳答案

月排行榜 / 总排行榜

塔奇克马

2017-4-23 09:38

Sub CalSum()
Dim i, j As Integer, arr, brr, crr(), drr()
With Sheets("統計表")
.Activate
.Range("n1:n" & Rows.Count).ClearContents
.Cells(1, 14) = "合計"
arr = .Range("D6:M" & Cells(Rows.Count, 3).End(xlUp).Row)
brr = .Range("D2:M3")
End With
ReDim crr(1 To UBound(arr), 1 To 10)
ReDim drr(1 To UBound(arr))
For i = 1 To UBound(arr)
For j = 1 To 10
If arr(i, j) > brr(2, j) * 0.8 Then
crr(i, j) = arr(i, 1) * brr(1, j)
ElseIf arr(i, j) > brr(2, j) * 0.6 And arr(i, j) <= brr(2, j) * 0.8 Then
crr(i, j) = arr(i, 1) * brr(1, j) * 0.8
ElseIf arr(i, j) > brr(2, 1) * 0.4 And arr(i, j) <= brr(2, j) * 0.6 Then
crr(i, j) = arr(i, 1) * brr(1, j) * 0.6
ElseIf arr(i, j) > brr(2, 1) * 0.3 And arr(i, j) <= brr(2, j) * 0.4 Then
crr(i, j) = arr(i, 1) * brr(1, j) * 0.4
ElseIf arr(i, j) <= brr(2, 1) * 0.3 Then
crr(i, j) = arr(i, j) * brr(1, j) * 0.15
End If
drr(i) = drr(i) + crr(i, j)
Next j
Next i
With Sheets("統計表")
.[n6].Resize(UBound(drr)) = Application.Transpose(drr)
End With
End Sub

复制代码

注释没写
由于没指定小于10%时应该如何处理，把条件“10%≦儲存格≦30%”改成“儲存格≦30%”了，请自行修正
清测试

跳转到最佳答案楼层

池盛龙 · 发表于 2017-4-22 19:29

不理解

idnoidno · 发表于 2017-4-22 20:18

那我再思考一下，如何說明清楚

zjdh · 发表于 2017-4-22 21:53

看不懂

大灰狼1976 · 发表于 2017-4-22 22:04

本帖最后由大灰狼1976 于 2017-4-22 22:38 编辑

刚才的说明错误，不是if用法造成的，我有时间再看看

idnoidno · 发表于 2017-4-22 22:37

謝謝，剛剛把自己的代碼執行後，真如你說的，IF從頭到尾跑，我的小筆電，一執行就卡住，要一分鐘後才會還我控制，謝謝您的指導，我試試用SELECT CASE(學習)

大灰狼1976 · 发表于 2017-4-22 22:43

idnoidno 发表于 2017-4-22 22:37
謝謝，剛剛把自己的代碼執行後，真如你說的，IF從頭到尾跑，我的小筆電，一執行就卡住，要一分鐘後才會還我 ...

不对，是我误导了，仔细看了IF和SELECT CASE的说明，并打开电脑作了测试，确定用法是没有问题的，刚才的错误说明非常抱歉！
选择用IF还是SELECT CASE基本只是方式不同而已。
你的问题可能是逻辑造成的，我下载附件后看一下吧。

大灰狼1976 · 发表于 2017-4-22 22:57

根据你的说明，D6原来不是10，而是一个介于D3值的60%~80%之间的值，但现在D6是10，那么这个10是D2*0.8计算得到的。也就是说，你要把D6到M最后一行的数字全部改写一遍，再求和？
那么你的代码确实有问题，因为自始至终你只是取得了ts1~ts6几个变量的值，而没有对单元格数据进行任何修改。

大灰狼1976 · 发表于 2017-4-22 23:00

另外，大家看不懂你说明的原因基本上是由于术语的错用：
1、你所说的列其实是行；
2、你所说的栏其实是列。

idnoidno · 发表于 2017-4-22 23:13

很慚愧，基本功沒做好，不過您懂我的意思嗎，基本上每一筆數據(共有10個水質項目)代表一個公司的水質資訊，每一個項目數值都要分別比對是不是有折扣的存在，然後再去算每一家公司的費用後，再總加，我的這樣說明會比較容ˋ易懂嗎

		自动登录	找回密码
密码			注册