儲存格裡的註解

fangsc

請教:
用Vlookup找出的儲存格內容, 如何才能將註解也一起帶過來 ?
是否有函數可以用?

jsc0518

回復 11# Hsieh
Dear Hsieh,
感謝您的熱心回覆，有個問題與您請教

.若"來源資料"是在Sheet3的F4欄列開始，下面語法需要修改哪裡呢？
Set Rng = Sheets(Split(fx(1), "!")(0)).Range(Split(fx(1), "!")(1)) '來源資料範圍


謝謝您

Hsieh

回復 10# jsc0518
搭配重算事件

1. Private Sub Worksheet_Calculate() '僅適用VLOOKUP函數
   
2. Dim A As Range, C As Range, Rng As Range, Sht As Worksheet, Mc As Comment
   
3. For Each A In Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas)
   
4. If A.FormulaLocal Like "=VLOOKUP(*,*,*,*)" Then '是否是VLOOKUP函數
   
5. fx = Split(Split(A.Formula, "(")(1), ",") '公式分解
   
6. Set Rng = Sheets(Split(fx(1), "!")(0)).Range(Split(fx(1), "!")(1)) '來源資料範圍
   
7.     x = Range(fx(0)) '第一欄的搜尋值
   
8.     r = Rng.Find(x).Row '找到來源資料的列號
   
9.     k = Val(fx(2)) + Rng.Column - 1 '來源資料位於整個工作表的欄號
   
10.     If Not A.Comment Is Nothing Then A.Comment.Delete '刪除公式儲存格內的註解
    
11.     Set Mc = Rng.Parent.Cells(r, k).Comment '來源資料的註解
    
12.     If Not Mc Is Nothing Then A.AddComment Rng.Parent.Cells(r, k).Comment.Text '加入來源註解
    
13. End If
    
14. Next
    
15. End Sub

複製代碼

jsc0518

回復 8# Hsieh

Dear Hsieh,
早安！請教一下，若來源資料是另一個工作表，那語法要改變哪裡呢？
註解文字V2.zip (13.89 KB)

下載次數: 7

2023-6-29 08:21

謝謝您！！

fangsc

感謝版主,目前可以用了.
不過,看起來有點難,我得再融會貫通一下,
才能運用得好一些.

Hsieh

回復 7# fangsc

下載 (14.29 KB)

2012-8-23 09:55

1. Sub ex()
   
2. Dim Rng As Range, A As Range
   
3. For Each A In Range("J4").CurrentRegion.SpecialCells(xlCellTypeFormulas)
   
4. If A.FormulaLocal Like "=VLOOKUP(*,*,*,*)" Then
   
5.   ar = Split(Replace(Replace(A.FormulaLocal, "VLOOKUP(", ""), ")", ""), ",")
   
6.   Set Rng = Range(ar(1))
   
7.   k = Application.Match(Range(ar(0)), Rng.Columns(1), 0)
   
8.   If Not A.Comment Is Nothing Then A.Comment.Delete
   
9.   If Not Rng(k, Val(ar(2))).Comment Is Nothing Then
   
10.     A.AddComment Rng(k, Val(ar(2))).Comment.Text
    
11.   End If
    
12. End If
    
13. Next
    
14. End Sub

複製代碼

註解文字.zip (12.29 KB)

下載次數: 16

2012-8-23 09:53

fangsc

回復 6# Hsieh

對不起,我還是沒表達清楚.
    在用vlookup之後, 想再run程式將來源資料裡的註解加進目地資料  "儲存格的註解" 裡.
     (就是把來源資料的註解,帶進目地資料儲存格的註解裡)
抱歉 & 感謝...

Hsieh

回復 5# fangsc

下載 (22.63 KB)

2012-8-22 22:00

fangsc

回復 4# Hsieh

實在抱歉,我沒有說清楚,浪費了你的時間.
在用vlookup之後, 想再run程式將來源資料裡的註解加進目地資料的儲存格裡.
感謝你.

Hsieh

回復 3# fangsc

不懂你的意思，要用VBA加入儲存格註解當然可行

1. Sub nn()
   
2. If Range("C3").Comment Is Nothing Then 'C3儲存格沒有註解
   
3.   Range("C3").AddComment "TEST"  ''C3儲存格加入註解
   
4.   Else  '否則
   
5.    Range("C3").Comment.Text Range("C3").Comment.Text & Chr(10) & "addtext"  '加入註解文字
   
6. End If
   
7. End Sub

複製代碼