標題: [發問] 參照資料庫內的不同欄位，帶出資料 [打印本頁]

---

作者: pesi2884    時間: 2011-8-30 13:33     標題: 參照資料庫內的不同欄位，帶出資料

請問參照"資料庫"內位於不同欄位，
帶出想要的資料，VBA程式該如何寫，
詳細說明在附件內，
請前輩指導一下，
感激不盡!

---

作者: Hsieh    時間: 2011-8-30 22:53

1. Sub nn()
   
2. With Sheets("結果")
   
3. .[E2:H1048576] = ""
   
4. For Each a In .Range(.[A2], .[A1048576].End(xlUp))
   
5. With Sheets("資料庫")
   
6. m = Replace(a, "~", "~~") & a.Offset(, 1)
   
7. Set b = .Columns("G:K").Find(m)
   
8. Set c = .Range(.Cells(b.Row, 3), .Cells(b.Row, 6)).Find(1)
   
9. k = c.Column + 2
   
10. End With
    
11. .Cells(a.Row, k) = IIf(b.Column < 9, 1, "-")
    
12. Next
    
13. End With
    
14. End Sub

複製代碼

回復 1# pesi2884

---

作者: pesi2884    時間: 2011-8-30 23:18

回復 2# Hsieh


   謝謝 Hsieh前輩，
   試過後可以了，您寫的程式真的還蠻精簡的，
  承蒙你多次幫助，真的非常感激不盡!

---

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