使用用戶窗體更新excel工作表數據

Question

我想輸入數據庫中的信息，我使用用戶窗體在Excel中輸入。這裏的關鍵是我需要能夠使用文本框將數據輸入到特定的單元格中。例如，我打開用戶窗體並在textbox1中輸入textbox2中的123我輸入321。當我點擊用戶窗體中的提交按鈕時，代碼應在特定列中查找文本「123」。如果在代碼中指定的列中存在文本「123」，那麼它應該將輸入到textbox2（321）中的數據放到與包含文本123的單元格相鄰的單元格中。我已經梳理了互聯網，對於這個解決方案，只發現只有一種工作。

這是鏈接到該解決方案： https://youtu.be/cKKgYPfq3_I

的代碼將不會持續，雖然工作。我不知道這是否是因爲我對該視頻中的代碼所做的一些編輯導致了錯誤，或者代碼本身出現了任何錯誤。

這將是一個數據庫，它將有大量的信息。擁有這樣的功能可以讓某人更新數據庫信息。例如，您可以列出電話號碼和姓名。使用此功能，您可以在一個文本框中輸入名稱，在第二個文本框中輸入新的電話號碼。然後，您可以在推送提交按鈕時更新個人電話號碼。

任何建議將是一個巨大的幫助。

在此先感謝！

以下是迄今爲止我從另一個論壇中發現並從我從這裏獲得的一些幫助進行編輯的內容。它似乎沒有工作。再次，這可能是因爲代碼根本不是爲了我想要的。 （我的VBA的知識僅限於拼圖拼湊代碼放在一起，我可以找到，似乎工作。）

Option Explicit 

Private Sub CommandButton1_Click() 

Dim WS As Worksheet 
Dim lastrow As Long 
Dim r As Long 
Dim datee As Integer 
Dim m As Integer 

Application.ScreenUpdating = False 



m = 1 


If IsNumeric(TextBox2.Text) Then 



On Error GoTo ErrorHandler 

datee = TextBox2.Text 


Set WS = ActiveWorkbook.Worksheets("Scrap") 
lastrow = WS.Cells(Rows.Count, "A").End(xlUp).Row 


For r = 1 To lastrow 


If WS.Cells(r, 2) = TextBox1.Text Then 

    WS.Cells(r, 5).Value = TextBox2.Text 
    WS.Cells(r, 8).Value = TextBox3.Text 
    WS.Cells(r, 9).Value = TextBox4.Text 
    WS.Cells(r, 10).Value = TextBox5.Text 
    WS.Cells(r, 11).Value = TextBox6.Text 
    WS.Cells(r, 12).Value = TextBox7.Text 
    WS.Cells(r, 13).Value = TextBox8.Text 
    WS.Cells(r, 14).Value = TextBox9.Text 
    WS.Cells(r, 15).Value = TextBox10.Text 
    WS.Cells(r, 16).Value = TextBox11.Text 
    WS.Cells(r, 17).Value = TextBox12.Text 
    WS.Cells(r, 18).Value = TextBox13.Text 
    WS.Cells(r, 19).Value = TextBox14.Text 


    Else 

    WS.Cells(r, 2).Font.Color = vbRed 

    m = 0 


End If 

Next 
If m = 0 Then 

MsgBox "Sales Order number not found,make sure the Sales Order Number you entered is correct", vbCritical 

Else 

MsgBox "Success", vbInformation 

End If 

TextBox1.Text = "" 

TextBox2.Text = "" 

TextBox3.Text = "" 

TextBox4.Text = "" 

TextBox5.Text = "" 

TextBox6.Text = "" 

TextBox7.Text = "" 

TextBox8.Text = "" 

TextBox9.Text = "" 

TextBox10.Text = "" 

TextBox11.Text = "" 

TextBox12.Text = "" 

TextBox13.Text = "" 

TextBox14.Text = "" 

Unload Me 


Application.ScreenUpdating = True 

Exit Sub 

ErrorHandler: MsgBox "Sorry an Error occured. " & vbCrLf & Err.Description 

End If 

MsgBox "Please Insert Data", vbCritical 

End Sub 

Answer 1

請試試這個（我們假設我們的表是Sheet2中）：

Option Explicit 

Private Sub CommandButton1_Click() 

Dim WS As Worksheet 
Dim lastrow As Long 
Dim r As Long 
Dim datee As Date 


Application.ScreenUpdating = False 





If IsDate(TextBox2.Text) Then 



On Error GoTo ErrorHandler 

datee = TextBox2.Text 


Set WS = ActiveWorkbook.Worksheets("sheet2") 
lastrow = WS.Cells(Rows.Count, "A").End(xlUp).Row 


For r = 2 To lastrow 


If WS.Cells(r, 3) = TextBox1.Text And WS.Cells(r, 2) = datee Then 

    WS.Cells(r, 4).Value = TextBox2.Text 
    WS.Cells(r, 5).Value = TextBox3.Text 
    WS.Cells(r, 2).Font.Color = vbRed 
    WS.Cells(r, 3).Font.Color = vbRed 
    WS.Cells(r, 4).Font.Color = vbRed 
    WS.Cells(r, 5).Font.Color = vbRed 

    MsgBox "Success", vbInformation 


TextBox1.Text = "" 

TextBox2.Text = "" 

TextBox3.Text = "" 

Unload Me 


Application.ScreenUpdating = True 

Exit Sub 

End If 

Next 



MsgBox "Data not Found!!", vbCritical 




TextBox1.Text = "" 

TextBox2.Text = "" 

TextBox3.Text = "" 

Unload Me 


Application.ScreenUpdating = True 

Exit Sub 

ErrorHandler: MsgBox "Sorry an Error occured. " & vbCrLf & Err.Description 

Exit Sub 

End If 

MsgBox "Please Insert Date in the Date Box", vbCritical 

Application.ScreenUpdating = True 

End Sub