- 博客(5)
- 收藏
- 关注
原创 调用EXCEL 实现阿拉伯数字转中文
方法一:Private Sub Command1_Click()Dim xlapp As Object, n As Currency, temp As StringSet xlapp = CreateObject("Excel.Application")Randomizen = Int(Rnd * 10 ^ 15)temp = ntemp = temp & vbCrLf & xlapp.Eva
2007-06-30 16:40:00 1465
原创 How to remove all characters between two brackets?
How to remove all characters between two brackets? Such as "12345 (rtetnj) dsfd (fddsgd) dsf "----> "12345 dsfd dsf " Use regexp syntaxes ,its too simple . Function StringWithoutBracke
2007-06-25 02:52:00 766
原创 一亿亿以下的阿拉伯数字转中文的自定义函数
Function trans(number As String) As String Dim x As String, y As String x = Split(number, ".")(0) Const upcase = "○一二三四五六七八九 十百千万十百千万亿十百千万十百千万" 定义汉字 If Val(x) >= 10 ^ 16 Then MsgBox "数目太
2007-06-25 02:45:00 1580
转载 “How to tell Japs from the Chinese” in Life
<!--webbot bot="ImageMap" rectangle="(9,3) (580,71) ../../../index.htm"src="../../../images/blacktitle.jpg" alt="blacktitle.jpg (12329 bytes)" border="0" startspan -->Background for "Life Magazi
2007-06-04 13:52:00 1572
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人