题目
Exce中 A1到A9与B1到B9单元格对应,C1到C9与D1到D9单元格对应,B列与D列循环相加结果为11时,求A C的数值是多少?有多少组?用VBA代码如何编写?
提问时间:2020-11-25
答案
Sub test()
Dim arr,x&,y&,i&,Str1$
arr = Range("A1:D9").Value
For x = 1 To UBound(arr)
For y = 1 To UBound(arr)
If arr(x,2) + arr(y,4) = 11 Then
i = i + 1
Str1 = Str1 & "," & arr(x,1) & "和" & arr(y,3)
End If
Next y
Next x
MsgBox "共" & i & "组,对应A和C的值为:" & Mid(Str1,2,Len(Str1))
End Sub
Dim arr,x&,y&,i&,Str1$
arr = Range("A1:D9").Value
For x = 1 To UBound(arr)
For y = 1 To UBound(arr)
If arr(x,2) + arr(y,4) = 11 Then
i = i + 1
Str1 = Str1 & "," & arr(x,1) & "和" & arr(y,3)
End If
Next y
Next x
MsgBox "共" & i & "组,对应A和C的值为:" & Mid(Str1,2,Len(Str1))
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1travelling by piane is very ()(safe).At last the plane landed ()(safe).
- 2生面别开 即物起兴 引经据典 告诉哦我 嘻嘻
- 3今晚7:好的可以追加分
- 4gym的意思
- 5口字旁一个不是什么字啊
- 6to let go us the library连词成句
- 7there is going to be a math test.改为一般疑问句,并作否定句回答
- 8it is monday
- 9已知有理数a、b满足5+3a=2b+3-a,求a、b的值.
- 10如图,在RT三角形ABC中,角ABC=90度,AB=3,BC=根号3,AD=DC=根号6,AB交DC与E,求角DAB
热门考点
- 1化简x的负2次方减去x的负一次方减去2等于
- 2一道关于物理的单摆的问题
- 3已知x2-x-1=0,则-x3+2x2+2008的值为?
- 4托福写作打字速度要求是多少个字母每分钟
- 5甲厂生产的产品合格率为百分之九十九.某地一批产品检验有6个不合格,这一产品总共有多少个?
- 61856149万元等于多少亿?5245673万元等于多少亿?
- 7有甲乙两个长方形容器,它们的底面周长比是2:3,如果将甲容器里面的水全部倒入乙容器,则乙容里面的水会...
- 8The movie is based on an article 还是 The movis bases on an article 为什么呢?
- 9据说塑料的杯子装开水会有有毒的物质 那么乐扣的杯子会么
- 10烷烃中的每个碳原子都与四个原子相连,