Matchfunction我在VBA用戶窗體來更新我的數據庫

Question

對不起IM在VBA很新，但辛勤工作進入它:)

我已經創造了VBA用戶窗體，其中從用戶窗體輸入被轉移到不同的列在另一張紙上的數據庫中。 的identitynumber我心目中是獨一無二的，可以被稱爲NR爲了簡單

現在我需要一個額外的功能，當採集完成我們收到我將使用與特定投入一個新的輸入框一起另一個號碼身份號碼。

因此，新的用戶表單im想法將有3個輸入框，一個用於日期，一個用於識別號碼，另一個用於新號碼。 當把上述所有我需要以某種方式，它需要通過工作表「數據」中的F列，並找到相關identynr並在工作表「數據」中的列H中添加新號碼，並在同一列中的日期行作爲實際標識nr。

Answer 1

這是我想出來的......

• 名稱的三個文本框txtDate，txtNR，txtNew
• 創建一個命令按鈕，我沒有理會重命名（CommandButton1的）

• 裏面按鈕的單擊事件中添加以下代碼

  Dim rng1 As Range Dim strSearch As String strSearch = txtNR.Text Set rng1 = Range("F:F").Find(strSearch, , xlValues, xlWhole) If Not rng1 Is Nothing Then rng1.Activate rng1.Offset(0, 2).Value = txtNew.Text rng1.Offset(0, 3).Value = txtDate.Text Else MsgBox strSearch & " not found" End If

一旦你點擊該按鈕，程序會搜索F列在txtNR值，並添加txtNew在H列和值txtDate在列一

希望這會有所幫助，讓我知道，如果你需要任何額外的信息或有任何此方法的麻煩。