1樓：
用vba實現起來不難,但問題是sheet2裡放幾千個批註,實在是沒效率,還不如用vlookup函式,從sheet1裡查詢相關的值,然後另插一列寫個公式,如果扣款值不為零就顯示遲到扣款,以後也可擴充套件為多種扣款原因的綜合顯示,不用看時就隱藏就好.
批註要檢視時還得一個個去懸停滑鼠,而且想列印扣款原因項給領導或員工都不太現實.
2樓：匿名使用者
sub test()
dim i$
i = sheets(2).cells(2, 6).valueif sheets(1).cells(1, 2).comment is nothing then
sheets(1).cells(1, 2).addcommentsheets(1).cells(1, 2).comment.text text:=i
else
sheets(1).cells(1, 2).comment.text text:=i
end if
end sub
看不懂在我後面問，我在註釋給你，沒時間了
excel vba如果提取批註內容到單元格
3樓：余余
sub macro1()
on error resume next
for i = 2 to [a65536].end(3).rowcells(i, 1) = cells(i, 1) & " " & cells(i, 1).
comment.text
next
end sub
假設執行物件是a列的話 **如上。
4樓：復仇之牙
提取的範圍是整個**還是某一行某一列？
利用excel vba功能令批註隨單元格內容變化
5樓：匿名使用者
這個很簡單的：
private sub worksheet_change(byval target as range)
if target.count > 1 then exit subtarget.clearcomments '刪除原有批註target.
addcomment target.value '新增批註
end sub
6樓：匿名使用者
1,啟用巨集
2,開啟我這個附件
3, 維護b列c列的規則
4, 在表中任意的單元格,只要你輸入的內容再b列出現,則同時將對應c列的內容作為批註增加到單元格中.你試試看是不是你想要的.
**很簡單,如下:
private sub worksheet_change(byval target as range)
dim rg as range
if target.count > 1 then exit sub
for each rg in thisworkbook.worksheets(1).range("b2:
b" & cstr([b65535].end(xlup).row))
if rg.value = target.value then
target.clearcomments
target.addcomment rg.offset(0, 1).value
exit sub
end if
next rg
end sub
用vba取得excel中一個單元格批註的位置，怎麼實現。我寫的有問題，如果
7樓：匿名使用者
你是指 批註 所屬於 單元格的位置 ，
還是 批註 顯示的位置？ 你寫的好像是 批註 文字框顯示的位置
EXCEL裡如何設定當 A單元格 B單元格 等於C的時候顯示
c2輸入 if a2 b2 c2,文字 a2 b2 在excel中如何設定某單元格滿足條件後顯示設定的文字?1 建立excel，包含兩列資訊，分別為進度 完成情況 2 進度列，插入樣例資料，0.10.15 0.25 0.33 0.15 0.12 0.34 3 在f2單元格輸入公式，if e2 0.2...
如何將EXCEL中單元格內容拆分到單元格中呢
方法1 使用記事本。具體步驟 1.複製單元格內容到一張空白的記事本 2.在記事本中，查詢替換 3.將短橫線 批量替換為製表符 方法 製表符，可以在記事本中按下tab鍵輸入，然後選中這個製表符進行剪下。查詢內容，填寫 替換為，貼上製表符 點選 全部替換 4.將記事本中內容全選複製，並貼上到原來到exc...
EXCEL單元格中如何新增內容，EXCEL表格中如何在已有的單元格中批量插入固定內容
按f2後，可以對單元格內容進行編輯。同樣可以在原來的內容基礎上追加新的內容。舉例說明。如圖有單元格a1.第一步 按f2後，游標停留在文字的最後。如圖 選中單元格右擊 設定單元格格式 自定義 輸入 a 要記得雙引號是半形狀態 當然 a 是可變的 輸入一個資料試試看，祝你成功！假設這些數在a列，在f1輸...