- 帖子
- 228
- 主題
- 62
- 精華
- 0
- 積分
- 364
- 點名
- 20
- 作業系統
- Win 10
- 軟體版本
- Office 2007 & 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-5
- 最後登錄
- 2024-9-16
|
2#
發表於 2019-5-13 18:17
| 只看該作者
謝謝各位大大我自己試出來了
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Count > 1 Then Exit Sub
'--------------------------------------
If .Address = "$B$1" Then
Cancel = True
Beep
If MsgBox("※確定要載入全部圖片嗎？", 4 + 32 + 1024) = vbNo Then Exit Sub
Call 載入全部圖片: Exit Sub
End If
'-------------------------------------
If .Column <> 2 Or .Row < 2 Or .Value = "" Then Exit Sub
Cancel = True
Set xRng = .Cells(1, 1)
Set ShpRng = .Cells(1, 8) ' 在這裡修改 Cell (1,N) N的數字就可以改放欄的位置
Call 圖片刪除_單張
If DelImgChk = 1 Then Exit Sub
Call 插入圖片
Beep
End With
End Sub |
|
