搜尋出資料後要怎麼修改

Jared

想請問大大
當我將資料從欄位搜尋出來後
要怎麼才能夠在把指定欄未做好修改並覆蓋呢?
我目前程式撰寫如下，但不曉得是哪裡出現錯誤>"<

下載 (13.23 KB)

2013-3-12 09:33

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub CommandButton2_Click()
test2.Hide
End Sub

Private Sub CommandButton3_Click()
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Sheet10
Set A = .Columns("A").Find(TextBox1.Text, lookat:=xlWhole) 'A指的是變數
TextBox2.Text = A.Offset(, 1)
TextBox3.Text = A.Offset(, 2)
End With
End Sub

Private Sub CommandButton1_Click()
Dim A As Range

a1 = test2.TextBox2.Value
a2 = test2.TextBox3.Value

If a1 & a2 > 1 Then a1 = A.Offset(, 1) & a2 = A.Offset(, 2): Exit Sub

End Sub

GBKEE

回復 1# Jared
試試看

1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
2.     With Sheet10
   
3.     Set A = .Columns("A").Find(TextBox1.Text, lookat:=xlWhole) 'A指的是變數
   
4.    ' If Not A Is Nothing Then
   
5.         '如找不到 A(物件) = Nothing-> A.Offset(, 1) 就有錯誤        '
   
6.         TextBox2.Text = A.Offset(, 1)
   
7.         TextBox3.Text = A.Offset(, 2)
   
8.     'End If
   
9. End With
   
10. End Sub
    
11. 
    
12. Private Sub CommandButton1_Click()
    
13.    Dim A As Range  ' 這裡設為 CommandButton1_Click 的私用變數(模組中的其他程序不可使用)
    
14.   '須是在此程式模組最頂端   Dim A As Range 設為此程式模組私用變數(僅供此程式模組中的程序使用)
    
15.     a1 = test2.TextBox2.Value
    
16.     a2 = test2.TextBox3.Value
    
17.     '這程序中沒 SET = ????  ->  A.Offset(, 2)    就有錯誤        '
    
18.     If a1 & a2 > 1 Then a1 = A.Offset(, 1) & a2 = A.Offset(, 2): Exit Sub
    
19. End Sub

複製代碼