如何於輸入貨號後自動顯示商品圖片？(已解決) - Excel程式區

帖子: 49
主題: 6
精華: 0
積分: 97
點名: 0
作業系統: xp
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-8-24
最後登錄: 2023-12-24

11^# 跳轉到 »

發表於 2011-11-27 23:14 | 只看該作者

回復 9# GBKEE

感謝G大的回覆
我有自己嘗試寫
我寫的是這樣
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$L$3" Then
Exit Sub
ElseIf IsError(Cells(11, 6)) = True Then
MsgBox "尚未建此料號"
Exit Sub
Else
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\JPG\" & [F11])
End If
End Sub
不過G大的好像比較專業
繼續研究G大的寫法

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2011-11-28 07:37 | 只看該作者

本帖最後由 GBKEE 於 2011-11-28 07:38 編輯

回復 11# dafa
你的也不錯的

回復 10# jesscc
∅ 這特殊字元我沒辦法

TOP

yangtest

中學生 Rank: 2

帖子: 36
主題: 6
精華: 0
積分: 69
點名: 0
作業系統: windows 7
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 台中市
註冊時間: 2011-4-22
最後登錄: 2015-8-25

13^#

發表於 2011-11-28 09:04 | 只看該作者

本帖最後由 yangtest 於 2011-11-28 11:03 編輯

回復 9# GBKEE
按照 GBKEE 的語法，已經成功的解決『輸入不存在貨號會出現錯誤』的問題，
我做了一張『貨號錯誤！請重新輸入』的訊息圖片，
指定檔名為　00.JPG ，並放在 \JPG\ 目錄下
我把 If Err <> 0 Then Image1.Picture = LoadPicture 改為
If Err <> 0 Then Image1.Picture = LoadPicture(ThisWorkbook.Path & "\JPG\00.JPG" )
於輸入不存在貨號時會出現『貨號錯誤！請重新輸入』的訊息圖片，如下圖：
用來提醒操作者！！

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

14^#

發表於 2011-11-28 10:42 | 只看該作者

回復 13# yangtest
因 Image1.Picture = LoadPicture( 網頁照片 )程式碼, 會有錯誤. 快取圖案 : 色彩線條指定圖片可抓取網路上的圖片
固 3# 用 If Err.Number <> 0 Then Shapes("Rectangle 4").Fill.UserPicture 網頁照片 , 來處裡錯誤.

TOP

yangtest