求修改一个代码

lagos

这个不怎么好描述，详情请看附件： 求修改代码A.rar (12.11 KB, 下载次数: 12)

2023-6-21 12:34 上传

点击文件名下载附件

全党

Sub shishi()
arr = Range("n2:n30").Value
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then
    If arr(i, 1) < Range("BM1") Then n = n + 1
    If n > 1 Then
    MsgBox "小于BM1的数字多于1个"
    Exit Sub
    Else
    temp = temp + arr(i, 1)
    End If
End If
Next
[BF1] = temp
End Sub

lagos

全党 发表于 2023-6-21 12:56
Sub shishi()
arr = Range("n2:n30").Value
For i = 1 To UBound(arr)

谢谢大神的代码，是这样的

sdytsxd991122

你要改的结果是什么？不大于4 就不加。所有的2都排除，结果就是77

lagos

sdytsxd991122 发表于 2023-6-21 14:04
你要改的结果是什么？不大于4 就不加。所有的2都排除，结果就是77

不是，所有的n2:n30的数都要加，

sdytsxd991122

这个如果条件起什么作用？

512008404

Sub test()
    Dim temp
    Dim count As Integer
   
    temp = 0
    count = 0
    For Each c In Range("n2", "n30") '定义范围从N2到N30
        temp = temp + c.Value
        If c.Value < Range("BM1") And c <> "" Then If c <> "" Then count = count + 1
        If count > 1 Then Exit For  '大于1个时退出循环
    Next
   
    If count <= 1 Then
        [BF1] = temp '将结果写到BF1
    Else
        [BF1] = "小于bm1的数字大于1个,结束运算！"
    End If
End Sub

lagos

sdytsxd991122 发表于 2023-6-21 14:18
这个如果条件起什么作用？

这个条件是如果n2:n30的每一行（除最少一个可以不等于大于bm1的数字外）的数字都>=BM1的数字，就将n2:n30的每一行的数字求和，和值写入bf1

sdytsxd991122

lagos 发表于 2023-6-21 14:22
这个条件是如果n2:n30的每一行（除最少一个可以不等于大于bm1的数字外）的数字都>=BM1的数字，就将n2:n30 ...

如果n列里面还有一个3，那么bf1 处是填多少？

lagos

sdytsxd991122 发表于 2023-6-21 14:31
如果n列里面还有一个3，那么bf1 处是填多少？

n2:n30有一个3，这个3小于BM1,但其他的值都>=4,将所有的值求和，包括3，和值写入bf1