[已解决]请问这个小写转换成大写后，如何用代码复制大写数字,然后可以在任何单元格粘贴

zxc1152468

请问这个小写转换成大写后，如何用代码复制大写数字,然后可以在任何单元格粘贴 大小写转换.zip (9.81 KB, 下载次数: 9)

2012-9-21 20:31 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2012-9-26 17:05

大小写转换0921b.rar (14.34 KB, 下载次数: 39)

2012-9-26 17:05 上传

点击文件名下载附件

跳转到最佳答案楼层

蓝桥玄霜

1. Dim RMBS As String
   
2. Private Sub CommandButton1_Click()
   
3. Dim CELL As String
   
4. CELL = TextBox1
   
5. If CELL = "" Or Not IsNumeric(CELL) Then Exit Sub
   
6. RMBS = RMBDX(Round(CELL, 2))
   
7. TextBox2 = RMBS
   
8. End Sub
   
9. 
   
10. 
    
11. Private Sub CommandButton2_Click()
    
12. If RMBS <> "" Then
    
13. ActiveCell = RMBS
    
14. Else
    
15.     MsgBox "大写文本框不应为空白。"
    
16. End If
    
17. End Sub
    
18. 
    
19. Private Sub CommandButton3_Click()
    
20. 大小写转换.Hide
    
21. End Sub
    

复制代码

蓝桥玄霜

点击按钮显示窗体，一键转换以后，可选择单元格，再点击复制。
请见附件。

zxc1152468

蓝桥玄霜 发表于 2012-9-21 21:17
点击按钮显示窗体，一键转换以后，可选择单元格，再点击复制。
请见附件。

能先做到拷贝这一步吗，下一步我在工作表的任意位置手工粘贴，因为有的是要插入在单元格中的文本中间的

爱疯

大小写转换0921b.rar (14.34 KB, 下载次数: 39)

2012-9-26 17:05 上传

点击文件名下载附件