求助！复杂的数字转中文大写金额问题

老鬼

楼上的文件照样出错，不知怎么回事。

Dim t As TextBox
Set t = textbox1应该可行的，关键看你的TEXTBOX1是面向什么对象的，有可能面向窗体，也可能面向工作表。

情比金坚

打不开？我下了几就次都可以，我的方案如下：

万：=TEXT(TRUNC(MOD($J$14/10000,10)),"[dbnum2]")

千：=TEXT(TRUNC(MOD($J$14/1000,10)),"[dbnum2]")

百：=TEXT(TRUNC(MOD($J$14/100,10)),"[dbnum2]")

十：=TEXT(TRUNC(MOD($J$14/10,10)),"[dbnum2]")

元：=TEXT(TRUNC(MOD($J$14,10)),"[dbnum2]")

角：=TEXT(TRUNC(MOD($J$14/0.1,10)),"[dbnum2]")

分：=TEXT(TRUNC(MOD($J$14/0.01,10)),"[dbnum2]")

最后绘图---文本框引用一下。

老鬼

奇怪了，难道又是论坛的BUG？情小妹的方法不错~~~~~

sgch1982

怎么打不开，我打开了啊？？奇怪了？？

sgch1982

我贴代码吧：



Private Sub CommandButton1_Click()

Dim str(1 To 7) As String



Dim sum As Double
Dim sum1 As Long
Dim a As Long

Dim d As Integer
Dim i As Integer
a = 10
sum = Sheet1.Cells(14, 10)
sum1 = sum * 100
i = 7
Do While sum1 <> 0
   d = sum1 Mod a
   sum1 = sum1 \ a
   
   str(i) = GetDX(d)
   i = i - 1
   
   

Loop
Dim k As Integer
For k = i To 1 Step -1

  str(i) = GetDX(0)
  

Next

TextBox1.Text = str(1)
TextBox2.Text = str(2)
TextBox3.Text = str(3)
TextBox4.Text = str(4)
TextBox5.Text = str(5)
TextBox6.Text = str(6)
TextBox7.Text = str(7)



End Sub

Public Function GetDX(d As Integer) As String
Dim str As String
Select Case d
'壹、贰、叁、肆、伍、陆、柒、捌、玖、拾
Case 0
   str = "零"
Case 1
  str = "壹"
Case 2
  str = "贰"
Case 3
  str = "叁"
Case 4
  str = "肆"
Case 5
  str = "伍"
Case 6
  str = "陆"
Case 7
  str = "柒"
Case 8
  str = "捌"
Case 9
  str = "玖"
End Select

GetDX = str

  
   
End Function

Private Sub CommandButton2_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

老鬼

VBA自然方便一点的，楼上的思路和情小妹的是一样的~~~~~

xhjczx

实际如何才能实现您们所说的结果呢？烦请大哥一步步教小弟吧！

sgch1982