返回列表 上一主題 發帖

一個連結問題

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-10-14 21:52 | 只看該作者

一個連結問題

各前輩大大好:
想請教如果在cexel檔中, 假設c欄為編號, 我把鼠標移至c欄儲存格, 該儲存便連結資料"圖檔"中圖片有相同編號之圖片顥示出來,
我原本是用註解, 插入圖片, 但因圖片越來越來, 資料開啟便緩慢, 故想請教是否可以用連結方式取代, 敬請大大們協助,
謝謝謝!
收藏 分享

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-15 
4#
發表於 2015-10-15 21:31 | 只看該作者
回復 3# 317


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set DBRng = Target
If DBRng.Column = 3 Then
　Cancel = True
　If DBRng.Row = 1 Then [C:C].ClearComments: Exit Sub '雙按Ｃ１，刪除全部註解
　If DBRng.Value = "" Then Exit Sub
　Call 插入註解圖片
ElseIf DBRng.Address = "$A$1" Then　'對Ａ１雙按
　Cancel = True
　Call CopyData
End If
End Sub

TOP

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
3#
發表於 2015-10-15 20:18 | 只看該作者
回復 2# 准提部林
感謝大大,
因檔案內有程式, 如何把2個程螎合. 煩請指導..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set DBRng = Target
If DBRng.Column <> 3 Then Exit Sub
Cancel = True
If DBRng.Row = 1 Then [C:C].ClearComments: Exit Sub '雙按Ｃ１，刪除全部註解
If DBRng.Value = "" Then Exit Sub
Call 插入註解圖片
End Sub

原檔案內程式
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call CopyData
End Sub

謝謝!!

TOP

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-15 
2#
發表於 2015-10-15 13:01 | 只看該作者
＜以註解顯示圖片＞　
１．在Ｃ２以下〔雙按滑鼠左鍵〕，產生註解圖片；再雙按一次，刪除本格註解
２．在Ｃ１雙按滑鼠左鍵，刪除全部註解
３．ARR = Array(ThisWorkbook.Path)　可修改指定路徑，圖檔搜尋包含其〔子資料夾〕
　
附件下載：多年前為網友製作的樣本檔，稍作修改，請自行去套用
20151015v01(註解圖片).rar (720.62 KB)

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題