返回列表 上一主題 發帖

[發問] 資料庫查詢圖片

霸氣走全身
　暱稱: 加菲貓

中學生Rank: 2

帖子
36 
主題
16 
精華
0 
積分
177 
點名
0  
作業系統
Xp 
軟體版本
offICE2003 
閱讀權限
20 
性別
女 
註冊時間
2010-8-23 
最後登錄
2021-7-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-12-14 22:08 | 只看該作者

[發問] 資料庫查詢圖片

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

^^
1234.rar (381.88 KB)
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼

TOP

        靜思自在 : 為人處世要小心細心，但不要「小心眼」。
返回列表 上一主題