Excel VBA中 - 使用組合框值，以多個單元的數據複製到另一片

工作表Sheet =包含在數據填充Sheet 2中=包含的所有信息Excel VBA中 - 使用組合框值，以多個單元的數據複製到另一片

我使用表2欄第A2：A81爲Combobox1物品，我需要選擇一個項目時，同一行中的下列單元格將被複制到sheet1，例如;

表2：

Shop1 Germany 11111111 

Shop2 Italy 2222222 

Shop3 UK 33333333 

Shop4 Russia 44444444

組合框項目中選擇：[Shop4]

從表2的數據被複制到Sheet

表1：

Shop4 Russia 44444444

任何人都知道我該如何執行此操作？

來源

2016-08-22 Ryan Sant

您好，歡迎到論壇。首先發布你有的任何代碼。並請閱讀：http://stackoverflow.com/help/how-to-ask – Miqi180

瑞安，關鍵字可能會幫助您搜索如何做到這一點包括「工作表單元變化事件」和「複製單元格與VBA 」。 –

這包括觸發的combo box代碼，你可以做這樣的事情，

Private Sub ComboBox1_Change() 
    Sheets("Sheet1").Cells(2, 5).Resize(, 5).Value = _ 
    Sheets("Sheet2").Cells(ComboBox1.ListIndex + 2, 1).Resize(, 5).Value 
End Sub

不過，我不知道在哪裏上Sheet1你想要的數據，所以你必須修改那個以滿足您的需求。

來源

2016-08-22 12:26:18 KyloRen

當前代碼： Me.ComboBox1.List =工作表（「Sheet2」）。範圍（「A2：A81」）。值 '顯示80家店鋪名單 ------------- ------------------ Sheet2擁有店鋪的所有數據 A2：A81，B2：B81，C2：C81，D2：D81，E2：E81 - -------------------------------------------------- 我需要從combobox1 EG中選擇特定的商店; A63：和 A63，B63，C63，D63，E63將複製到另一張Sheet1 –

@RyanSant，我更新了代碼以包含該事件。但是，您仍然必須調整想要將數據複製到'sheet1'的位置。 – KyloRen

您的Sheet1聽起來像一種形式，即可重複使用的模板。在這種情況下，在'選擇'單元格上使用Data Validation，在'複製數據'單元格上使用VLOOKUP()就足夠了，從而不需要任何控件或VBA。

來源

2016-08-22 14:21:08 Jon

好吧，設法解決它：

Me.ComboBox1.List = Worksheets("Sheet2").Range("A2:A81").Value 

     Worksheets("Sheet2").Cells(ComboBox1.ListIndex + 2, 1).Copy Worksheets("Sheet1").Cells(lastrow, 1) 
     Worksheets("Sheet2").Cells(ComboBox1.ListIndex + 2, 2).Copy Worksheets("Sheet1").Cells(lastrow, 2) 
     Worksheets("Sheet2").Cells(ComboBox1.ListIndex + 2, 3).Copy Worksheets("Sheet1").Cells(lastrow, 3) 
     Worksheets("Sheet2").Cells(ComboBox1.ListIndex + 2, 4).Copy Worksheets("Sheet1").Cells(lastrow, 4) 
     Worksheets("Sheet2").Cells(ComboBox1.ListIndex + 2, 5).Copy Worksheets("Sheet1").Cells(lastrow, 5)

謝謝:)

來源

2016-08-22 14:52:12

因此，您是自己完成了這項工作還是答案在此幫助您？看起來非常像我的回答幫助你？ – KyloRen

我完全不理解你的答案，但它給了我一些想法，謝謝:) –

Excel VBA中 - 使用組合框值，以多個單元的數據複製到另一片

回答

相關問題