[已解决]用VBA实现多条件判断运算

chenlin1106

运算过程有点复杂,因为涉及到一个条件的判断.所以请各位帮忙看看,有什么好的代码`~~谢谢啦`~

最佳答案

月排行榜 / 总排行榜

fffox

2013-12-25 10:28

1. Sub 计算()
   
2.     Dim arr, brr()
   
3.     Dim i%, j%, num As Byte, endRow%
   
4.     arr = Sheets("sheet1").Range("a1").CurrentRegion.Value
   
5.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
6.     For i = 1 To UBound(arr)
   
7.         For j = 1 To UBound(arr, 2)
   
8.             If j = UBound(arr, 2) Then
   
9.                 num = arr(i, j) * 2
   
10.             Else
    
11.                 num = (arr(i, j) + arr(i, j + 1)) * 2
    
12.             End If
    
13.             Select Case num
    
14.                 Case Is < 33
    
15.                     brr(i, j) = 33 - num
    
16.                 Case Is < 66
    
17.                     brr(i, j) = 66 - num
    
18.                 Case Is < 99
    
19.                     brr(i, j) = 99 - num
    
20.                 Case Else
    
21.                     brr(i, j) = Abs(132 - num)
    
22.             End Select
    
23.         Next
    
24.     Next
    
25.     With Sheets("sheet1").Range("i1")
    
26.         endRow = Cells(Rows.Count, "i").End(3).Row
    
27.         .Resize(endRow, UBound(brr, 2)).ClearContents
    
28.         .Resize(UBound(brr), UBound(brr, 2)) = brr
    
29.     End With
    
30. End Sub

复制代码

跳转到最佳答案楼层

CheryBTL

I1的公式这个就可以了：

1. =MOD((-A1-B1)*2,33)

复制代码

fffox

1. Sub 计算()
   
2.     Dim arr, brr()
   
3.     Dim i%, j%, num As Byte, endRow%
   
4.     arr = Sheets("sheet1").Range("a1").CurrentRegion.Value
   
5.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
6.     For i = 1 To UBound(arr)
   
7.         For j = 1 To UBound(arr, 2)
   
8.             If j = UBound(arr, 2) Then
   
9.                 num = arr(i, j) * 2
   
10.             Else
    
11.                 num = (arr(i, j) + arr(i, j + 1)) * 2
    
12.             End If
    
13.             Select Case num
    
14.                 Case Is < 33
    
15.                     brr(i, j) = 33 - num
    
16.                 Case Is < 66
    
17.                     brr(i, j) = 66 - num
    
18.                 Case Is < 99
    
19.                     brr(i, j) = 99 - num
    
20.                 Case Else
    
21.                     brr(i, j) = Abs(132 - num)
    
22.             End Select
    
23.         Next
    
24.     Next
    
25.     With Sheets("sheet1").Range("i1")
    
26.         endRow = Cells(Rows.Count, "i").End(3).Row
    
27.         .Resize(endRow, UBound(brr, 2)).ClearContents
    
28.         .Resize(UBound(brr), UBound(brr, 2)) = brr
    
29.     End With
    
30. End Sub

复制代码

chenlin1106

CheryBTL 发表于 2013-12-24 20:02
I1的公式这个就可以了：

好的,谢谢`~

chenlin1106

fffox 发表于 2013-12-25 10:28

你好,你的代码我搬到我的表格中后,提示你写的第11步是错误的,不知道问题在哪?

fffox

chenlin1106 发表于 2013-12-25 19:44
你好,你的代码我搬到我的表格中后,提示你写的第11步是错误的,不知道问题在哪?

我这里运行没有问题，要么是你的数据作了改变？