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

yangtest

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

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

下載次數: 25

2011-11-20 09:16

oobird

輸入貨號取相片
大賣場.rar (203.14 KB)

下載次數: 59

2011-11-20 09:54

GBKEE

回復 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

複製代碼

yangtest

回復 3# GBKEE

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

yangtest

回復 2# oobird


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

oobird

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

複製代碼

yangtest

回復 6# oobird


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

dafa

回復 6# oobird


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

GBKEE

回復 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

複製代碼

jesscc

回復 9# GBKEE
   
G大您好，看到這個範例，我覺得蠻好用的，因此下載來測試了一下，我發現如果所搜尋的圖片名稱中含有特殊符號，如

下載 (3.1 KB)

2011-11-27 23:17

(表示直徑的符號)，這樣就會搜尋不到，並且出現錯誤，該如何解決這種問題呢?