6、人民币大写公式：123.25 转换为 壹佰贰拾叁元贰角伍分。=concatenate("大写金额：",if(not(isnumber(find(".",text(b14,"[dbnum2]g/通用格式"),1))),concatenate(text(b14,"[dbnum2]g/通用格式"),"元整"),concatenate(left(text(b14,"[dbnum2]g/通用格式"),find(".",text(b14,"[dbnum2]g/通用格式"),1)-1),"元",if(mid(text(b14,"[dbnum2]g/通用格式"),find(".",text(b14,"[dbnum2]g/通用格式"),1)+1,1)="零","零",concatenate(mid(text(b14,"[dbnum2]g/通用格式"),find(".",text(b14,"[dbnum2]g/通用格式"),1)+1,1),"角")),if(mid(text(b14,"[dbnum2]g/通用格式"),find(".",text(b14,"[dbnum2]g/通用格式"),1)+2,1)="","整",concatenate(mid(text(b14,"[dbnum2]g/通用格式"),find(".",text(b14,"[dbnum2]g/通用格式"),1)+2,1),"分")))))
上述公式中假设 b14 单元格为阿拉伯数字
7、请帮我修改以下公式(急)
下面是统计区间数字中指定个位数数量的公式,请帮我修改成如没有要统计的数字就保持空格.不等于零,谢谢! =SUM((RIGHT(B18:H18)="2")*1)
Q、=if(SUM((RIGHT(B18:H18)="2")*1)=0,"",SUM((RIGHT(B18:H18)="2")*1))
8、用变量如何简写以下代码?
下列代码是以30为单位递增的.我想把公式写入b列相应的单元格内.如果只写B列的话不知用定义变量的方法如何写。我还有C、D、F列也是写入一样的公式如果把B、C、D、F写在一起用变量的方法又怎样写。谢谢!
Sheet1.Range("b89") = "=COUNTA(b60:b88)"
Sheet1.Range("b119") = "=COUNTA(b90:b118)"
Sheet1.Range("b149") = "=COUNTA(b120:b148)"
. .
. .
Sheet1.Range("b6869") = "=COUNTA(b6840:b6868)"
Q、可以实现
建立以下的宏，运行没有问题。
Sub 宏1()
Dim S1, S2 As String
Dim Temp, Left, Right As Integer
For m = 89 To 6869
Temp = m
Left = m - 29
Right = m - 1
S1 = "b" & m
S2 = "=COUNTA(b" & Left & ":b" & Right & ")"
Sheet1.Range(S1) = S2
m = m + 30
Next m
End Sub
有其他列，可以将b设置为string变量，每次自动获取或手工编写。
(注：这是一个典型的动态改变单元格公式的例子，在vba中经常用到)
9、这个条件求和的函数如何编写？
sumif函数的计算格式为: =sumif($a$1:$a$20,">1000")。即返回$a$1:$a$20中大于1000的数值的和,但如果想计算900~1000之间的数值之和,应该如何编写。
Q、请参考：{=SUM(IF((A1:A20>900)*(A1:A20<1000),A1:A20))}或{=SUM((900<A1:A20)*(A1:A20<1000)*A1:A20)}
Q2、=SUMIF(A1:A20,">900")-SUMIF(A1:A20,">1000")
