用VBA代码判断两数区域除10余数相等,或一数加5就两数相等如：SA=0049（3）,SA=0909（8）不相等SA=0049+5（8）,SA=0909（8）相等如：SA=0209（1）,SB=0901（0）不相等SA=0209+5（6）,SB=0901（0）不相等又如:SA

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/04 15:58:17
用VBA代码判断两数区域除10余数相等,或一数加5就两数相等如：SA=0049（3）,SA=0909（8）不相等SA=0049+5（8）,SA=0909（8）相等如：SA=0209（1）,SB=0901（0）不相等SA=0209+5（6）,SB=0901（0）不相等又如:SA

用VBA代码判断两数区域除10余数相等,或一数加5就两数相等如：SA=0049（3）,SA=0909（8）不相等SA=0049+5（8）,SA=0909（8）相等如：SA=0209（1）,SB=0901（0）不相等SA=0209+5（6）,SB=0901（0）不相等又如:SA
用VBA代码判断两数区域除10余数相等,或一数加5就两数相等
如：SA=0049（3）,SA=0909（8）不相等
SA=0049+5（8）,SA=0909（8）相等
如：SA=0209（1）,SB=0901（0）不相等
SA=0209+5（6）,SB=0901（0）不相等
又如:
SA=2345（4）,SB=2340（9）不相等
SA=2345+5（9）,SB=2340（9）相等

用VBA代码判断两数区域除10余数相等,或一数加5就两数相等如：SA=0049（3）,SA=0909（8）不相等SA=0049+5（8）,SA=0909（8）相等如：SA=0209（1）,SB=0901（0）不相等SA=0209+5（6）,SB=0901（0）不相等又如:SA
请查收.

Public Sub aabb()
For i = 1 To Len([A1])
NA = NA + Val(Mid([A1], i, 1))
Next i
For j = 1 To Len([B1])
NB = NB + Val(Mid([B1], j, 1))
Next j
NA = Right(NA, 1)
NB = Right...

全部展开

Public Sub aabb()
For i = 1 To Len([A1])
NA = NA + Val(Mid([A1], i, 1))
Next i
For j = 1 To Len([B1])
NB = NB + Val(Mid([B1], j, 1))
Next j
NA = Right(NA, 1)
NB = Right(NB, 1)
[C1] = NA
[D1] = NB
End Sub
C1等于 A1中各个数字的和
D1等于 B1中各个数字的和
至于以后如何判断的，实在没看明白你的意思，你自己弄一下吧

收起

用VBA代码判断两数区域除10余数相等,或一数加5就两数相等如：SA=0049（3）,SA=0909（8）不相等SA=0049+5（8）,SA=0909（8）相等如：SA=0209（1）,SB=0901（0）不相等SA=0209+5（6）,SB=0901（0）不相等又如:SA VBA代码判断两数各除10余数相等,或一数加5除10余数相等如两数分别是：9和24,各除10余数是9和4不相等,或一数加5除10余数相等,9加5等14,14和24各除10余数是4和4相等如下是函数判断,现要求编写VBA 某一个数除10的余数,用VBA如何表达, 求助一段VBA代码（合并、相减除10取余数）要求：1、把F2和F3合并,（F1为标题）,结果放在F2.如1和2,合并为12,同时删除F3内容.接着把F4和F5合并（同上）直至F列为空.2、把I2减I3除10取余数,（I1为 VBA怎么求余数 VBA怎么求余数,让后我要求被除后得到的整数,怎么写 在大于2011的自然数中,被66除后,商和余数相等的数共有多少个?这些数总和是多少?在大于2011的自然数中,被66除后,商和余数相等的数共有多少个?这些数总和是多少?1.70个数排成一行,除了两头两 两个数相除,商是10,余数是26,被除数与除数的和诗543,求被除数数多少? 两数相除,商是两位小数,余数是0.04,把两数同时缩小10倍,商是（ ）位小数.余数是（两数相除,商是两位小数,余数是0.04,把两数同时缩小10倍,商是（ ）位小数.余数是（ ）. 两数相除,余数是3,如果两个数都同时缩小为原数的十分之一,则余数是0.3 一个数,6除余数是5,用8除余数是7,9除余数是8,求这个数 汇编编程（找水仙花数）:invalid instruction operands是什么错误DATAS SEGMENT;此处输入数据段代码IN1 DB 13,10,'The number is :',13,10,'$'N DW 100A1 DB 0;百位数字除后余数A2 DB 0;十位数字除后余数B1 DW 0;百位立方 某数被10除,余数是4,这个数的4倍再被10除,余数是()4 6 某数被10除,余数是4,这个数的3倍被10除时,余数是几? 某数被4除余3,某数扩大10倍被4除,余数是（ ） 两数相除,两数同时扩大100倍后,商是8,余数是1,原两数相除的商是,余数是多少 在大于2009的自然数中,被56除后,商与余数相等的数共有多少个 在小于2009的自然数中,被56除后,商与余数相等的数共有多少个?