excel提取批注內(nèi)容到單元格，使用excel內(nèi)置命令無法完成。
excel提取批注方法一：
比如下圖所示A2：A9單元格區(qū)域都添加了批注，將這些批注內(nèi)容提取到C2：C9單元格區(qū)域里面。比如A2單元格的批注內(nèi)容是：沒有銷量，對應(yīng)的C2單元格顯示的內(nèi)容就是：沒有銷量。
excel提取批注的操作步驟如下：
按ATL+F11，打開VBE編輯器，單擊插入——模塊，復制粘貼下面的代碼到右邊的編輯窗口。然后回到excel工作表，在C2單元格輸入公式：=pizhu(A2)，下拉復制即可提取批注。
Public Function pizhu(i As Range)
pizhu = i.Cells.Comment.Text
End Function
通過編寫上面的自定義函數(shù)來提取批注，可方便的調(diào)用，就如同使用普通公式一樣使用。
使用上面的這個提取批注的不完美之處在于，如果原有單元格的批注內(nèi)容編輯更新后，上面的方法不會自動更新，只有雙擊重新編輯單元格公式才會更新。如果需要自動更新可以在代碼前面添加一句：Application.Volatile True '自定義函數(shù)自動刷新。
修改后代碼如下：
Public Function pizhu(i As Range)
Application.Volatile True '自定義函數(shù)自動刷新
pizhu = i.Cells.Comment.Text
End Function
excel提取批注方法二：
再提供一段代碼，使用方法同上，代碼如下：
Function GetComment(rCell As Range)
Application.Volatile '將自定義函數(shù)標記為易失性函數(shù)
Dim Cmt As String
On Error Resume Next
Cmt = rCell.Comment.Text
GetComment = Right(Cmt, Len(Cmt) - InStr(1, Cmt, ":", vbTextCompare))
On Error GoTo 0
End Function
返回到Excel工作表，比如要提取A2單元格的批注內(nèi)容，則在C2單元格輸入公式： =GetComment(A12)即可提取批注。
提示：此自定義函數(shù)僅提取批注內(nèi)容，而不包含批注作者。由于將自定義函數(shù)標記為易失性函數(shù)，如果A2單元格中的批注被修改，按F9鍵或當任意單元格進行計算時即可得提取到修改后的批注內(nèi)容。
核心關(guān)注：拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用，蘊涵了豐富的ERP管理思想，集成了ERP軟件業(yè)務(wù)管理理念，功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理，全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域，是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請注明出處：拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標題：excel提取批注的兩個方法
本文網(wǎng)址：http://www.ezxoed.cn/html/support/1113926570.html
相關(guān)文章
