使用VBA中的表單查找和編輯數據

已更新 - 我的表單如下所示。表單可以填充組合框中的列表。它還可以找到附加到適當用戶名的註釋。但是，我需要它來更新我正在努力的同一個單元格。我嘗試使用Siddharth Rout's（請參閱評論）.find代碼，但不真正瞭解它或如何使它適用於我的工作表。使用VBA中的表單查找和編輯數據

enter image description here

填充列表我用下面的

Private Sub UserForm_Activate() 
    With Worksheets("Notes") 
     ComboBox1.List = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value 
    End With 
End Sub

由於張貼這我設法找到在VBA中使用VLOOKUP函數連接到一個用戶名的音符。使用下面的代碼。

Sub CallNotes() 

the_value = ComboBox1.Text 

If TextBox2 = "" Then 
TextBox2 = "No Notes Applied." 
Else 
TextBox2 = Application.WorksheetFunction.VLookup(the_value, Worksheets("Notes").Range("A:B"), 2, False) 
End If 
End Sub

我現在面臨的主要問題是更新筆記。一旦點擊評論按鈕，我需要代碼來查找用戶名，然後將文本框的內容粘貼到用戶名旁邊的單元格中。

我用vlookup試過了，但最終失敗了。我自從刪除了代碼，並且不記得我究竟如何嘗試去做，並且無法取回它。基本上我試圖扭轉整個vlookup過程。

所有的意見和建議，非常感謝。

來源

2013-10-07 ASM2701

[這]（http://www.siddharthrout.com/2011/ 07/14/find-and-findnext-in-excel-vba /）會讓你開始 –

Dim The_value 
Dim The_note 
Dim c As Range 
The_value = Me.ComboBox1.Text 
The_note = Me.TextBox2.Text 
Set c = Worksheets("Notes").Range("A:A") _ 
    .Find(What:=The_value, LookAt:=xlWhole) 
c.Offset(ColumnOffset:=1).Value = The_note

此代碼來漢斯Vogelaar MVP的禮貌MSDN上 See here

還是感謝亞洲時報Siddharth潰敗的協助

來源

2013-10-14 11:20:18 ASM2701

使用VBA中的表單查找和編輯數據

回答

相關問題