儲存格裡的註解

fangsc

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

Hsieh

回復 1# fangsc
VLOOKUP傳回並非儲存格物件，而是儲存格的值
內建函數無法取得註解內容，寫個自定義函數解決

註解文字.zip (6.2 KB)

下載次數: 28

2012-8-22 14:34

fangsc

回復 2# Hsieh

感謝版主的指導.
如果用VBA可以將註解直接加在目地儲存格的註解裡嗎?

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

複製代碼

fangsc

回復 4# Hsieh

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

Hsieh

回復 5# fangsc

下載 (22.63 KB)

2012-8-22 22:00

fangsc

回復 6# Hsieh

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

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

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

jsc0518

回復 8# Hsieh

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

下載次數: 7

2023-6-29 08:21

謝謝您！！