如果只有两位数,可用公式 =LEFT(A1)+RIGHT(A1) 位数不定,公式为 =SUMPRODUCT(--MID(
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/01 19:13:21
如果只有两位数,可用公式 =LEFT(A1)+RIGHT(A1) 位数不定,公式为 =SUMPRODUCT(--MID($A1,ROW(INDIREC
("1:"&LEN($A1))),1))能作成VBA吗?谢谢!
("1:"&LEN($A1))),1))能作成VBA吗?谢谢!
Sub aaa()
Dim t,a
a = Len(Range("A1"))
For i = 1 To a
t = t + Val(Mid(Range("A1"),i,1))
Next
Range("B1") = t
End Sub
再问: A1可以是参数吗?Sub aaa() Dim t, a a = Len(Range("A1")) For i = 1 To a t = t + Val(Mid(Range("A1"), i, 1)) Next Range("B1") = t End Sub 这个VBA不需要参数。A1可以是参数吗?
再答: Function aaa(aa As Range) Dim t, a a = Len(aa) For i = 1 To a t = t + Val(Mid(aa, i, 1)) Next aaa = t End Function
Dim t,a
a = Len(Range("A1"))
For i = 1 To a
t = t + Val(Mid(Range("A1"),i,1))
Next
Range("B1") = t
End Sub
再问: A1可以是参数吗?Sub aaa() Dim t, a a = Len(Range("A1")) For i = 1 To a t = t + Val(Mid(Range("A1"), i, 1)) Next Range("B1") = t End Sub 这个VBA不需要参数。A1可以是参数吗?
再答: Function aaa(aa As Range) Dim t, a a = Len(aa) For i = 1 To a t = t + Val(Mid(aa, i, 1)) Next aaa = t End Function
如果只有两位数,可用公式 =LEFT(A1)+RIGHT(A1) 位数不定,公式为 =SUMPRODUCT(--MID(
函数公式为:=SUMPRODUCT(--MID(A1,1,FIND("*",A1)-1),--MID(A1,FIND("
=RIGHT(A1,2)&"-"&MID(A1,4,2)&"-"&LEFT(A1,2) 请解释下这个公式帮助理解,
excel中的公式"=TEXT(DATE(LEFT(A1,4),MID(A1,6,2),RIGHT(A1,3)),"yy
=SUMPRODUCT(--LEFT(A1:B1,FIND("+",A1:B1)-1))&"+"&SUMPRODUCT(
=SIN(PI()*(LEFT(A1,LEN(A1)-4)+MID(A1,LEN(A1)-3,2)/60+RIGHT(A
设20110505在A1单元格,=date(left(A1,4),mid(A1,5,2),right(A1,2))
关于公式=LEFT(A1,MATCH(1,1/(MID(A1,ROW($1:$100),1)>="啊"),)-1)
单元格2*3*5/1000 公式=PRODUCT(MID(A1,1,1)*1,MID(A1,3,1)*1,MID(A1,
EXCEL中:=SUMPRODUCT(1/(1+A1*ROW(INDIRECT("1:"&A3))))公式成立,如果进行
求教数组公式=SUMPRODUCT(--(0&MID(A1,ROW(1:99),1))) 刚才看了你上述公式,很实用,还
=20&LEFT(A1,2)&"-"&MID(A1,3,2)&"-"&RIGHT(A1,2) 您可以解释下这个是如何使用