需求說明:
請問....
要如何在Sheet2的任何一個儲存格可以引用Sheet1的任何一個儲存格裡的內容與註解,並且在目的地(Sheet2)的儲存格裡產生內容與註解 .(並非用複製的喔)

因為Sheet1的儲存格內容與註解裡的數據(文字)會經常異動 , 所以我希望Sheet2的儲存格內容與註解能自動引用Sheet1的儲存格.如此即可達成我要的,而不必同時要修正二份資料.

煩請知道的大哥指點指點......
萬分謝謝

贊助商連結

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells(1, 1).Comment.Delete
Cells(1, 1).AddComment.Text Sheet1.Cells(1, 1).Comment.Text

End Sub

變化一下即可達到您的要求。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells(1, 1).Comment.Delete
Cells(1, 1).AddComment.Text Sheet1.Cells(1, 1).Comment.Text

End Sub

變化一下即可達到您的要求。
請問..
這是設自訂函數嗎?
那在Sheet2儲存格裡面要下甚麼指令以引用到Sheet1嗎?
謝謝

另外
我有找到一個類似的如下..
Function pz(rng)
pz = rng.Comment.Text
End Function
在Sheet2儲存格下"=PZ()"此自訂函數即可引用Sheet1儲存格的註解,
但問題是引用過來的註解會變成內容(而非變成註解).

我來雞婆一下

ICLA兄提供的是SelectionChange事件，是工作表事件的一種。
請把該程式放到Sheet2模組（右擊Sheet2標籤 > 檢視程式碼），
則當Sheet2有任何儲存格選取的動作時（顧名思義，SelectionChange），
Cells(1, 1) 儲存格，也就是 A1 的註解會自動 = Sheet1.A1 的註解。

這樣明白嗎?? :)