- 帖子
- 49
- 主題
- 6
- 精華
- 0
- 積分
- 97
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-8-24
- 最後登錄
- 2023-12-24
|
回復 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大的寫法 |
|