[已解决]怎么改代码，记录文本框中输入的内容（见附件）

lgw9222

求助高手，怎么改代码，记录文本框中输入的内容（见附件）

最佳答案

月排行榜 / 总排行榜

EXCEL-YQ

2011-8-28 14:54

最开始没有测试过。{:101:}现在对了，2楼代码也修改了
还有要把记录表的A列单元格格式设置为特殊--邮政
输入记录 (1).zip (82.32 KB, 下载次数: 6)

2011-8-28 14:52 上传

点击文件名下载附件

跳转到最佳答案楼层

EXCEL-YQ

1. Private Sub CommandButton1_Click()
   
2. Dim myfind As String
   
3. Dim myrng As Long
   
4. Dim i%, EndRow As Long
   
5. myfind = TextBox1
   
6. If Trim(myfind) <> "" Then
   
7.     On Error Resume Next
   
8.     myrng = Sheet1.Range("A:A").Find(What:=myfind, LookAt:=xlWhole).Row
   
9.     If myrng = 0 Then
   
10.         MsgBox "没有找到该序号!"
    
11.     Else
    
12.         Sheet1.Cells(myrng, "B") = Sheet1.Cells(myrng, "B") + TextBox2 * 1
    
13.         '查找值所在行的B列等于原本数据加上TextBox2*1强制转换为数字格式
    
14.         EndRow = Sheet2.Range("A1048576").End(xlUp).Row + 1
    
15.         '求Sheet2工作表中A列向上查找到的最后一个非空单元格所在行 加 1
    
16.         Sheet2.Cells(EndRow, 1) = TextBox1 * 1
    
17.         Sheet2.Cells(EndRow, 2) = TextBox2 * 1
    
18.     End If
    
19. Else
    
20.     MsgBox "序号不得为空"
    
21. End If
    
22. End Sub

复制代码

lgw9222

回复 EXCEL-YQ 的帖子

代码在运行时有错误

EXCEL-YQ

最开始没有测试过。{:101:}现在对了，2楼代码也修改了
还有要把记录表的A列单元格格式设置为特殊--邮政
输入记录 (1).zip (82.32 KB, 下载次数: 6)

2011-8-28 14:52 上传

点击文件名下载附件

lgw9222

回复 EXCEL-YQ 的帖子

嗯，感谢，我已经通过你之前的代码自己改好了。

EXCEL-YQ

不用客气，那么请评个满意答案吧

太得闲

绝对不是路过 来学习学习 谢谢