通過搜索唯一ID來提取數據

我是VBA的新手。我只是設法創建我的表單並填充excel。我想知道是否有一種方法來創建一個新的按鈕，如果它找到唯一的ID會拉動信息。通過搜索唯一ID來提取數據

例如：

Unique ID Name  Place 
1   John Doe X 
2   Jane Doe Y 
3   Tim Doe Z

因此，例如，在表格中，點擊「添加」（在工作表中獲取數據），我想有「搜索：」在這裏我可以鍵入唯一ID，並且所有其他單元格都填充了信息。

對不起，如果我應該提供更多信息。我是VBA新手。如果需要，我可以複製+粘貼代碼。

如果我添加信息並點擊「添加此零件」，它會自動在行中完成（A1：唯一ID; B1：名稱; C1：位置）。

我想添加另一個按鈕，如「搜索」與此操作：單擊>要求唯一的ID>它搜索數據類型>如果它發現東西填充文本框與信息（SR是在A行：A ）

enter image description here

來源

2013-02-23 Adrian Martin

顯示您的代碼總是一個好主意，理想情況下是一個簡明的示例，顯示您正在嘗試做什麼。 – 2013-02-23 15:46:28

你不應該把標籤放在標題中（如果它們不是問題的一部分） – 2013-02-23 16:01:55

@DanieleArmanasco更正，謝謝！ – 2013-02-23 16:24:41

我假設你有足夠的熟練，可以創建一個按鈕，並寫入初始子？我也是假設你有與唯一ID只有1列，說A列

Sub Find_Id() 
    Dim rng1 As Range 
    Dim strSearch As String 
    strSearch = inputbox("Enter a Unique Id", "User Input") 
    If strSearch = vbNullString then exit sub 

    Set rng1 = Range("A:A").Find(strSearch, , xlValues, xlWhole) 
    If Not rng1 Is Nothing Then 
     'set text box values using rng1.offset(0, column offset).value 
     TbxAddStep.value = rng1.offset(0, 1).value 
    Else 
     'clear texboxes 
    End if 

End Sub

如果您需要更多的信息，我可以提供，但這會發現細胞，給你空間，改變你的文本框值。

來源

2013-02-25 09:41:41 glh

通過搜索唯一ID來提取數據

回答

相關問題