標題: [發問] 資料庫查詢圖片 [打印本頁]

---

作者: 霸氣走全身    時間: 2012-12-14 22:08     標題: 資料庫查詢圖片

請問大大
如附件
依照編號對照資料庫將C4~H4，C8~H8填入，也可查詢如下C12圖片，
使用巨集查詢
謝謝了

^^
[attach]13536[/attach]

---

作者: GBKEE    時間: 2012-12-15 08:14

回復 1# 霸氣走全身
這裡有工作表上的作法可參考...

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim M As Integer
   
4.     With Sheets("尋找")
   
5.     M = Application.Match(.[a2], Sheets("資料庫").[a:a], 0)     '如工作表上使用Match函數
   
6.         .Pictures("Picture 1").Formula = "資料庫!N" & M         '圖片名稱  : "Picture 1"
   
7.         '.Pictures(1).Formula = "資料庫!N" & M                  '圖片索引值: 1
   
8.         .[C5:H5] = Sheets("資料庫").Range("B" & M & ":G" & M).Value
   
9.         .[C9:H9] = Sheets("資料庫").Range("H" & M & ":M" & M).Value
   
10.     End With
    
11. End Sub

複製代碼

---

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