[已解决]求助，代碼問題。謝謝！

高群堂

如題及附件，剛在論壇看到前輩有解答問題用的代碼，利用窗體查找對應編號的對應數量并可做更改。剛好我也同樣有用就抄了過來。結果就出錯了，引用出數量沒問題，但是在點修改以後編碼也跟著變了。還有：編碼查找能不能做成模糊查找，因為編碼比較長，全部輸完比較累。     求解····謝謝！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-6 21:29

1. Private Sub CommandButton3_Click()
   
2.     Dim search As Range
   
3.     If Len(Me.TextBox1.Text) = 0 Then
   
4.         MsgBox "请输入要修改的内容"
   
5.         Me.TextBox1.SetFocus
   
6.         Exit Sub
   
7.     End If
   
8.     Set search = Columns(1).Find(what:=Me.TextBox1.Value, lookat:=xlWhole)
   
9.     If search Is Nothing Then Set search = Cells(Rows.Count, 1).End(xlUp).Offset(1)
   
10.     search.Value = Me.TextBox1.Text
    
11.     search.Offset(, 3) = Val(Me.TextBox2)
    
12.     search.Offset(, 5) = Me.TextBox3
    
13.     MsgBox "修改成功"
    
14.     Me.TextBox1.Text = ""
    
15.     Me.TextBox2.Text = ""
    
16.     Me.TextBox3.Text = ""
    
17. End Sub
    

复制代码

跳转到最佳答案楼层

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 = Me.TextBox1
   
6.     search.Offset(, 3) = Val(Me.TextBox2)
   
7.     search.Offset(, 5) = Me.TextBox3
   
8. End Sub

复制代码

hwc2ycy

这个代码好像是我以前写过的，人家查的是数字编号，所以用了VAL转化了，你的因为是文本，所以成了0了。

hwc2ycy

1. Private Sub CommandButton3_Click()
   
2.     Dim search As Range
   
3.     If Len(Me.TextBox1.Text) = 0 Then
   
4.         MsgBox "请输入要修改的内容"
   
5.         Me.TextBox1.SetFocus
   
6.         Exit Sub
   
7.     End If
   
8.     Set search = Columns(1).Find(what:=Me.TextBox1.Value, lookat:=xlWhole)
   
9.     If search Is Nothing Then Set search = Cells(Rows.Count, 1).End(xlUp).Offset(1)
   
10.     search.Value = Me.TextBox1.Text
    
11.     search.Offset(, 3) = Val(Me.TextBox2)
    
12.     search.Offset(, 5) = Me.TextBox3
    
13.     MsgBox "修改成功"
    
14.     Me.TextBox1.Text = ""
    
15.     Me.TextBox2.Text = ""
    
16.     Me.TextBox3.Text = ""
    
17. End Sub
    

复制代码

高群堂

hwc2ycy 发表于 2013-5-6 21:29

謝謝班長····另外問下，可以做模糊查找么？不對再找下一個······

hwc2ycy

这个也是可以的。