- 应收账款多次回款表格应该如何设计？
阅读 1548 - 你好老师的这个表格合计金额是93个，为啥我下拉求和是100?
阅读 1548 - 老师我用IF嵌套AND函数，显示错误，是哪里输错呢？
阅读 1548 - 老师，从F列中找到E列的数据，对应的显示在H列中，用什么函数？
阅读 1548 - 老师好！银行流水收入部自动求和不到，怎么设置才能求和？
阅读 1548 - 在EXCEL中如何快速在已查找到的空格中复制表中的内容,就是下面空格数据要和上面原有数据一样
阅读 1548 - 老师，怎么把这个格式改成文本，我选了设置格式，文本，没什么用，还是这样
阅读 1548 - 老师，我需要360浏览器打开之后，它显示的是360浏览器，而不是百度浏览器这个网址的话我应该怎么去修改？
阅读 1548 - 你好，老师，我复制电子表格里面的内容到我的表格里，为啥复制不了，对方是不是设置什么了
阅读 1548 - 公司一个月4天休息，请问日工资该怎么算？
阅读 1548 - 以上if函数怎么解读呢？
阅读 1548 - 老师，你好，我在这里下载了个房屋租凭合同，有水印，怎么去除呀
阅读 1548 - 老师，表格中插入行，如何才能让他自动在空白行里按顺序填入数字
阅读 1548 - 老师 请问数据透视表我不要合计这一行 是怎么操作？
阅读 1547 - 算已贷款多少个月？用什么公式？
阅读 1547 - 请问怎么把表格大小调成一样。现在只要把它调大它下面那一行就会变小
阅读 1547 - 为什么会出现这样？怎么样解决？
阅读 1547 - 我要把图片放在C5位置，出现这个或加号，点击出现图片
阅读 1547 - 老师你好，怎样把excel表格里面的数字转换成英文字母？
你好 1.创建一个模块： 在SHEET上，右键－》查看代码。选中“模块”－》插入模块。2.写代码：Option Explicit Dim StrNO(19) As String Dim Unit(8) As String Dim StrTens(9) As StringPublic Function NumberToString(Number As Double) As String Dim Str As String, BeforePoint As String, AfterPoint As String, tmpStr As String Dim Point As Integer Dim nBit As Integer Dim CurString As String Dim nNumLen As Integer Dim T As String Call Init Str = CStr(Round(Number, 2)) Str = Number If InStr(1, Str, .) = 0 Then BeforePoint = Str AfterPoint = Else BeforePoint = Left(Str, InStr(1, Str, .) - 1) T = Right(Str, Len(Str) - InStr(1, Str, .)) If Len(T) < 2 Then AfterPoint = Val(T) * 10 If Len(T) = 2 Then AfterPoint = Val(T) If Len(T) > 2 Then AfterPoint = Val(Left(T, 2)) End If If Len(BeforePoint) > 12 Then NumberToString = Too Big. Exit Function End If Str = Do While Len(BeforePoint) > 0 nNumLen = Len(BeforePoint) If nNumLen Mod 3 = 0 Then CurString = Left(BeforePoint, 3) BeforePoint = Right(BeforePoint, nNumLen - 3) Else CurString = Left(BeforePoint, (nNumLen Mod 3)) BeforePoint = Right(BeforePoint, nNumLen - (nNumLen Mod 3)) End If nBit = Len(BeforePoint) / 3 tmpStr = DecodeHundred(CurString) If (BeforePoint = String(Len(BeforePoint), 0) Or nBit = 0) And Len(CurString) = 3 Then If CInt(Left(CurString, 1)) <> 0 And CInt(Right(CurString, 2)) <> 0 Then tmpStr = Left(tmpStr, InStr(1, tmpStr, Unit(4)) + Len(Unit(4))) %26 Unit(8) %26 %26 Right(tmpStr, Len(tmpStr) - (InStr(1, tmpStr, Unit(4)) + Len(Unit(4)))) Else If CInt(Left(CurString, 1)) <> 0 And CInt(Right(CurString, 2)) = 0 Then tmpStr = Unit(8) %26 %26 tmpStr End If End If If nBit = 0 Then Str = Trim(Str %26 %26 tmpStr) Else Str = Trim(Str %26 %26 tmpStr %26 %26 Unit(nBit)) End If If Left(Str, 3) = Unit(8) Then Str = Trim(Right(Str, Len(Str) - 3)) If BeforePoint = String(Len(BeforePoint), 0) Then Exit Do ***.print Str Loop BeforePoint = Str If Len(AfterPoint) > 0 Then AfterPoint = Unit(8) %26 %26 Unit(7) %26 %26 DecodeHundred(AfterPoint) %26 %26 Unit(5) Else AfterPoint = Unit(5) End If NumberToString = BeforePoint %26 %26 AfterPoint End Function Private Function DecodeHundred(HundredString As String) As String Dim tmp As Integer If Len(HundredString) > 0 And Len(HundredString) <= 3 Then Select Case Len(HundredString) Case 1 tmp = CInt(HundredString) If tmp <> 0 Then DecodeHundred = StrNO(tmp) Case 2 tmp = CInt(HundredString) If tmp <> 0 Then If (tmp < 20) Then DecodeHundred = StrNO(tmp) Else If CInt(Right(HundredString, 1)) = 0 Then DecodeHundred = StrTens(Int(tmp / 10)) Else DecodeHundred = StrTens(Int(tmp / 10)) %26 - %26 StrNO(CInt(Right(HundredString, 1))) End If End If End If Case 3 If CInt(Left(HundredString, 1)) <> 0 Then DecodeHundred = StrNO(CInt(Left(HundredString, 1))) %26 %26 Unit(4) %26 %26 DecodeHundred(Right(HundredString, 2)) Else DecodeHundred = DecodeHundred(Right(HundredString, 2)) End If Case Else End Select End IfEnd Function Private Sub Init() If StrNO(1) <> One Then StrNO(1) = One StrNO(2) = Two StrNO(3) = Three StrNO(4) = Four StrNO(5) = Five StrNO(6) = Six StrNO(7) = Seven StrNO(8) = Eight StrNO(9) = Nine StrNO(10) = Ten StrNO(11) = Eleven StrNO(12) = Twelve StrNO(13) = Thirteen StrNO(14) = Fourteen StrNO(15) = Fifteen StrNO(16) = Sixteen StrNO(17) = Seventeen StrNO(18) = Eighteen StrNO(19) = Nineteen StrTens(1) = Ten StrTens(2) = Twenty StrTens(3) = Thirty StrTens(4) = Forty StrTens(5) = Fifty StrTens(6) = Sixty StrTens(7) = Seventy StrTens(8) = Eighty StrTens(9) = Ninety Unit(1) = Thousand 材?熌?? Unit(2) = Million 材?熌?? Unit(3) = Billion 材?熌?? Unit(4) = Hundred Unit(5) = Only Unit(6) = Point Unit(7) = Cents Unit(8) = And End If End Sub保存此代码到本地3.模块中已经定义了函数名称：NumberToString直接当作EXCEL本地函数使用，例如在A1=7,在B1中输入＝NumberToString（A1）就可以拉！ 阅读 1547 - 有没有共享文件方面有经验的老师，公司文件夹 是共享使用的，7号那天突然出现很多个副本，怎么查出来是哪台电脑操作的？
阅读 1547 - 老师，为啥表格数据更改透视图的数据不更新呢
阅读 1546 - 老师，[（1+6%）×（1+5%）]^1/2-1，1/2次幂在科学计算器的点按的顺序是什么？还有ln(2*0.31-3*0.12),
阅读 1546 - 老师，我想把/拆开，就前面一个，后面一个，要怎么操作呢
阅读 1546 - 在表格中怎么制作这个倒三角，点一下能出来这一列的数值，不点就隐藏
阅读 1546 - 老师，你好！有没有现成的表格，就是能快速的统计一个月社保费，工资，费用，车费，礼品，支付供应商货款，退款，及杂七杂八的呢？老板说看看一个月的收款，都支在哪里了。因为我们好多账户，然后整天相互转的，如果从系统里，一下子好难统计这些费用的。
阅读 1545 - WPS文档合同，第一页和第二页不要页眉，剩下页数全部要页眉，如何操作
阅读 1545 - 老师，修改前220401000061240,237NC54P2X5712N，修改后220401,237NC54P2X5712N，怎么操作。
阅读 1545 - 怎么快速建立1-30日按顺序的30个sheet表，用透视表建立的不按照顺序排列怎么解决？
阅读 1545 - 老师，我有两列排序不同的数据，其中一行比另一行多一个数据，怎样找出多的那个是哪个？
阅读 1545 - 个人所得税和社保的计算公式
阅读 1545
