[已解决]如何使用VBA find方法查找数据并修改查找到的数据

hyfire2008

各位老师，请问如何使用VBA find方法查找数据并修改查找到的数据。之前有发过一样的帖子，有位老是指点我使用find方法来完成，之后我多次尝试，由于我个人学业不精无法完成均已失败告终，现求助各位老师，感谢！

测试.zip (13.62 KB, 下载次数: 171)

2013-4-21 10:26 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-21 10:42

1. Private Sub CommandButton1_Click()
   
2.     Dim search As Range
   
3.     Set search = Columns(1).Find(what:=Me.TextBox1.Value, lookat:=xlWhole)
   
4.     If Not search Is Nothing Then
   
5.         Me.TextBox2 = search.Offset(, 1)
   
6.         Me.TextBox3 = search.Offset(, 2)
   
7.     Else
   
8.         MsgBox "品编不存在"
   
9.     End If
   
10. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Dim search As Range
   
3.     Set search = Columns(1).Find(what:=Me.TextBox1.Value, lookat:=xlWhole)
   
4.     If Not search Is Nothing Then
   
5.         Me.TextBox2 = search.Offset(, 1)
   
6.         Me.TextBox3 = search.Offset(, 2)
   
7.     Else
   
8.         MsgBox "品编不存在"
   
9.     End If
   
10. End Sub

复制代码

hyfire2008

hwc2ycy 发表于 2013-4-21 10:42

请问版主，那如何修改呢？

hwc2ycy

1. Private Sub CommandButton3_Click()
   
2.     Dim search As Range
   
3.     Set search = Columns(1).Find(what:=Me.TextBox1.Value, lookat:=xlWhole)
   
4.     If search Is Nothing Then Set search = Cells(Rows.Count, 1).End(xlUp).Offset(1)
   
5.     search = Val(Me.TextBox1)
   
6.     search.Offset(, 1) = Val(Me.TextBox2)
   
7.     search.Offset(, 2) = Me.TextBox3
   
8. End Sub

复制代码

hwc2ycy

修改给你写成了，有记录的修改，没记录的直接添加。
如果不行，再改就成。

hyfire2008

hwc2ycy 发表于 2013-4-21 10:46

非常感谢，您解决了困扰我好久的问题，真心的感谢！

sixhero

hwc2ycy 发表于 2013-4-21 10:48
修改给你写成了，有记录的修改，没记录的直接添加。
如果不行，再改就成。

厉害。如果重名的能一一列举出来，用listbox然后再个性岂不是更好？，不过这样仍然也很厉害