12
返回列表 上一主題 發帖

儲存格裡的註解

fangsc

帖子
81 
主題
27 
精華
0 
積分
151 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
女 
來自
Taiwan 
註冊時間
2012-6-7 
最後登錄
2020-11-27 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-8-22 12:17 | 只看該作者

儲存格裡的註解

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

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
254  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-8-22 14:35 | 只看該作者
回復 1# fangsc
VLOOKUP傳回並非儲存格物件，而是儲存格的值
內建函數無法取得註解內容，寫個自定義函數解決

註解文字.zip (6.2 KB)
學海無涯_不恥下問

TOP

fangsc

帖子
81 
主題
27 
精華
0 
積分
151 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
女 
來自
Taiwan 
註冊時間
2012-6-7 
最後登錄
2020-11-27 

論壇贊助勳章
3#
發表於 2012-8-22 16:19 | 只看該作者
回復 2# Hsieh

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

註解文字.zip (8.89 KB)

fangac

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
254  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2012-8-22 18:54 | 只看該作者
回復 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
複製代碼
學海無涯_不恥下問

TOP

fangsc

帖子
81 
主題
27 
精華
0 
積分
151 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
女 
來自
Taiwan 
註冊時間
2012-6-7 
最後登錄
2020-11-27 

論壇贊助勳章
5#
發表於 2012-8-22 21:35 | 只看該作者
回復 4# Hsieh

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

註解文字.rar (8.09 KB)

fangac

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
254  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2012-8-22 22:00 | 只看該作者
回復 5# fangsc

學海無涯_不恥下問

TOP

fangsc

帖子
81 
主題
27 
精華
0 
積分
151 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
女 
來自
Taiwan 
註冊時間
2012-6-7 
最後登錄
2020-11-27 

論壇贊助勳章
7#
發表於 2012-8-22 22:50 | 只看該作者
回復 6# Hsieh

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

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
254  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
8#
發表於 2012-8-23 09:53 | 只看該作者
本帖最後由 Hsieh 於 2012-8-23 09:55 編輯

回復 7# fangsc
  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)
學海無涯_不恥下問

TOP

fangsc

帖子
81 
主題
27 
精華
0 
積分
151 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
女 
來自
Taiwan 
註冊時間
2012-6-7 
最後登錄
2020-11-27 

論壇贊助勳章
9#
發表於 2012-8-23 22:24 | 只看該作者
感謝版主,目前可以用了.
不過,看起來有點難,我得再融會貫通一下,
才能運用得好一些.
fangac

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
232  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
10#
發表於 2023-6-29 08:21 | 只看該作者
回復 8# Hsieh

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

謝謝您！！
Just do it.

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
12
返回列表 上一主題