12
返回列表 上一主題 發帖

[發問] 如何於輸入貨號後自動顯示商品圖片？(已解決)

yangtest

帖子
36 
主題
6 
精華
0 
積分
69 
點名
0  
作業系統
windows 7 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
台中市 
註冊時間
2011-4-22 
最後登錄
2015-8-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-11-20 09:17 | 只看該作者

[發問] 如何於輸入貨號後自動顯示商品圖片？(已解決)

本帖最後由 yangtest 於 2011-11-21 09:25 編輯

如何於輸入貨號後自動顯示商品圖片？

[於輸入貨號後自動顯示商品資料及圖片，功能說明如附加檔案。
由於小弟對『VBA』不太了解，懇請各位先進幫忙，謝謝！！
大賣場.rar (49.22 KB)
收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-11-20 09:54 | 只看該作者
輸入貨號取相片
大賣場.rar (203.14 KB)

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2011-11-20 10:02 | 只看該作者
本帖最後由 GBKEE 於 2011-11-28 10:19 編輯

回復 1# yangtest
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Address = [K4].Address Then 呼叫相片
  3.     Target.Select
  4. End Sub
  5. Private Sub 呼叫相片()
  6.        Dim 資料夾 As String, 網頁照片 As String
  7.        資料夾 = "d:\大賣場\"   '須修資料夾
  8.        網頁照片 = "http://us.123rf.com/400wm/400/400/janaka/janaka0808/janaka080800490/3398188-3d-question-mark-icon-3d-art.jpg"
  9.        On Error Resume Next
  10.         Shapes("Rectangle 4").Fill.UserPicture 資料夾 & [K4] & ".jpg"
  11.         If Err.Number <> 0 Then Shapes("Rectangle 4").Fill.UserPicture 網頁照片
  12. End Sub
複製代碼

RE 相片.rar (1.29 MB)

TOP

yangtest

帖子
36 
主題
6 
精華
0 
積分
69 
點名
0  
作業系統
windows 7 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
台中市 
註冊時間
2011-4-22 
最後登錄
2015-8-25 
4#
發表於 2011-11-20 11:35 | 只看該作者
回復 3# GBKEE

感謝 GBKEE  前輩提供另一種值得參考的做法

TOP

yangtest

帖子
36 
主題
6 
精華
0 
積分
69 
點名
0  
作業系統
windows 7 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
台中市 
註冊時間
2011-4-22 
最後登錄
2015-8-25 
5#
發表於 2011-11-20 11:52 | 只看該作者
回復 2# oobird


感謝 oobird （超級版主）解決了我的難題，
測試後還有一個小問題，請再幫忙修改，謝謝 ！！
問題說明：
不同貨號會使用到相同名稱的相片，
如貨號 A01003 與 A01004 均使用 A01003.JPG 的相片
當貨號輸入 A01003 時，可正常顯示 A01003.JPG 的相片
但當貨號輸入 A01004 時，因為找不到 A01004.JPG 的相片而出錯！
每一筆貨號所對應的正確相片名稱為【叫相片】工作表的【E12】儲存格，
請以此儲存格的內容做為相片檔名來讀取。

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
6#
發表於 2011-11-20 12:52 | 只看該作者
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Address <> "$K$4" Then Exit Sub
  3. Image1.Picture = LoadPicture(ThisWorkbook.Path & "\JPG\" & [e12])
  4. End Sub
複製代碼

TOP

yangtest

帖子
36 
主題
6 
精華
0 
積分
69 
點名
0  
作業系統
windows 7 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
台中市 
註冊時間
2011-4-22 
最後登錄
2015-8-25 
7#
發表於 2011-11-20 14:41 | 只看該作者
回復 6# oobird


    再次感謝 oobird （超級版主），終於解決了我的難題  ！！！！

TOP

dafa

帖子
49 
主題
6 
精華
0 
積分
97 
點名
0  
作業系統
xp 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
註冊時間
2011-8-24 
最後登錄
2023-12-24 
8#
發表於 2011-11-26 13:58 | 只看該作者
回復 6# oobird


    請問O大
如果此範例輸入不存在的貨號會出現錯誤要如何解決
我試了好久都試不出來

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2011-11-27 10:02 | 只看該作者
回復 8# dafa
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Address <> "$K$4" Then Exit Sub
  3. On Error Resume Next
  4. Image1.Picture = LoadPicture(ThisWorkbook.Path & "\JPG\" & [e12])
  5. If Err <> 0 Then Image1.Picture = LoadPicture
  6. End Sub
複製代碼

TOP

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
10#
發表於 2011-11-27 23:13 | 只看該作者
本帖最後由 jesscc 於 2011-11-27 23:18 編輯

回復 9# GBKEE
   
G大您好，看到這個範例，我覺得蠻好用的，因此下載來測試了一下，我發現如果所搜尋的圖片名稱中含有特殊符號，如 150PX-~1.PNG (表示直徑的符號)，這樣就會搜尋不到，並且出現錯誤，該如何解決這種問題呢?
Jess

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
12
返回列表 上一主題