帖子: 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)

樓主熱帖

egg0308

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 8
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 10
性別: 男
註冊時間: 2012-7-5
最後登錄: 2014-10-13

19^#

發表於 2012-8-21 15:10 | 只看該作者

公司剛好需要這個,這個程式不錯,可以防止做錯或拿錯東西.謝謝分享.

TOP

michigan

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: win8
軟體版本: win8
閱讀權限: 10
註冊時間: 2012-5-17
最後登錄: 2012-5-18

18^#

發表於 2012-5-17 18:38 | 只看該作者

回復 1# yangtest

不錯的帖子:lol

TOP

lucasliu

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: win7
軟體版本: sp1
閱讀權限: 10
註冊時間: 2012-4-30
最後登錄: 2012-4-30

17^#

發表於 2012-4-30 11:12 | 只看該作者

回復 1# yangtest

正要找此功能謝謝

TOP

jami520

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 10
性別: 男
註冊時間: 2011-12-13
最後登錄: 2011-12-13

16^#

發表於 2011-12-13 13:59 | 只看該作者

謝謝分享，很實用的範例

TOP

yangtest

中學生 Rank: 2

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

15^#

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

回復 14# GBKEE
學習了，謝謝指導！

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

中學生 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兔年全勤獎章

12^#

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

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

回復 11# dafa
你的也不錯的

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

TOP

dafa

中學生 Rank: 2

帖子: 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