標題: [發問] 輸入序號自動轉存資料 [打印本頁]

---

作者: owen9399    時間: 2012-2-6 10:32     標題: 輸入序號自動轉存資料

請問 各位高手:

輸入序號自動轉存資料

1.選擇    序號的下拉式選單時
2.例如 選  序號101001     自動帶出公司名稱     蘋果
                          101004                                         聯想
3.當 資料輸入後  儲存 sheet2 中  ,  且 自動清除輸入的資料
4.如何 使 輸入的 資料  相同的     序號 公司    放在一起    (各公司 間格20列)


謝謝大大

[attach]9462[/attach]

---

作者: register313    時間: 2012-2-6 20:57

回復 1# owen9399
初學者VBA

SHEET1 工作表模組

1. Private Sub worksheet_change(ByVal target As Range)
   
2. If target.Address = "$A$2" Then
   
3.    [B2] = Application.VLookup([A2], [G2:H5], 2, 0)
   
4. End If
   
5. End Sub

複製代碼

一般模組

1. Sub AA()
   
2. C = 2
   
3. Do Until Sheet1.[B2] = Sheet1.Cells(C, "H")
   
4.    C = C + 1
   
5. Loop
   
6. CT = Sheet2.Cells((C - 1) * 20, 1).End(xlUp).Row + 1
   
7. Sheet1.[A2:C2].Copy Sheet2.Cells(CT, 1)
   
8. Sheet1.[A2:C2] = ""
   
9. End Sub

複製代碼

[attach]9470[/attach]

---

作者: owen9399    時間: 2012-2-7 00:00

感謝大大  
無私的分享
讚啦

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)