vba中中文数字和阿拉伯数字转换，也说下sub求面积的问题

vba中，如何将数字1转换成中文的一？又比如，如何将数字2转换成中文的二？
答案：
如果只是简单地转换一位数字，下面的公式可以很快搞定(假设数据存放在A1)，如果是多位数字转换，这个公式就不适用；二转2的思路是一样的：
=LOOKUP(A1,{0,"零";1,"一";2,"二";3,"三";4,"四";5,"五";6,"六";7,"七";8,"八";9,"九";10,"十"})


另外，一个问题：计算圆环的面积，要求：采用自定义Sub过程计算圆面积？
回答：
强制用Sub的意义不大：

Public Sub area(a1 As Single, r As Single)    Pi = 3.14159265    a1 = Pi * r * rEnd SubPrivate Sub Command1_Click()    Dim a1 As Single    Dim a2 As Single        Call area(a1, Text1.Text)    Call area(a2, Text2.Text)    Text3.Text = a1 - a2End Sub