EXCEL中宏的数字小写转换为中文大写

______Stacey 2023-03-18 13:55

• 

  0李家沱0

  2023-03-18 14:08

  1.在A2输入公式=mid("零壹贰叁肆伍陆柒捌玖质谁众,a1+1,1）并复制到H22.在A3:H3中分别输入:拾、万、仟、佰、拾、元、角、分（即每一位代表的值）3.A4式=A2&A3&B2&B3&C2&C3&D2&D3&E2&E3&F2&F3&G2&G3&H2&H3 另一方法（VBA编程法）1.视图-工具栏-控件工具箱，用控件工具箱中按钮，在Excel中建一按钮2.Al来自t+F11,将下列程序粘贴后退出设计模式，点志露击按钮即出结果Private Sub CommandButton1_Click()Dim 见散袁增厂代建原积a(8), b(8) As StringFor i = 1 To 8a(烈积密客器思喜i) = Mid("零360问答壹贰叁肆伍陆柒捌玖", Cells(1, i) + 1, 1)b(i) = Mid("拾万仟佰拾元角分", i, 1)N尔***望医格ext[a2] = a(1) & b(1) & a(2) & b(2) & a(3) & b(3) & a(4) & b(4) & a(5) & b(5) & a(6) & b(6) & a(7) & b(7) & a(8) & b(8)End Sub
  0 讨论(0)
  发布评论:

  提交评论

  ---

  •  加载中...