1樓：表裡如一
tim = format(now(), "m月d日hh:mm:ss")
for each rng in target(1, 1).resize(target.rows.count, 1)
if not rng.comment is nothing then
rng.comment.text rng.comment.text & chr(10) & tim & "： " & iif(rng = "", "【清空】", rng)
else
rng.addcomment tim & "： " & iif(rng = "", "【清空】", rng)
end if
rng.comment.visible = true
rng.comment.shape.select
selection.autosize = true
rng.comment.visible = false
next
改成：tim = format(now(), "m月d日hh:mm:ss")
computername=environ("computername")
for each rng in target(1, 1).resize(target.rows.count, 1)
if not rng.comment is nothing then
rng.comment.text rng.
清空】", rng)
else
rng.addcomment tim & "： " & char(10) & computername & iif(rng = "", "【清空】", rng)
end if
rng.comment.visible = true
rng.comment.shape.select
selection.autosize = true
rng.comment.visible = false
next
如何在啟用excel時自動執行vba的某個巨集
1 首先將excel文件 預設新建副檔名為xlsx 另存為啟用巨集的工作簿，副檔名為xlsm。2 按下組合鍵alt f11快速切換到vba視窗。3 進入vba視窗後的介面，如圖所示。4 雙擊thisworkbook後，會彈出一個 視窗。6 儲存，關閉，重新開啟excel 副檔名為xlsm 文件，效果...
如何使用VBA進行公式自動填充，excel利用VBA自動填充公式
alt f11開啟vbe 雙擊你的工作表，在右邊貼入 private sub worksheet change byval target as range dim n n target.row if target.column 1 then if vba.isnumeric target.value...
如何在EXCEL得裡自動新增美金符號
方法步驟 1 選定有關單元格區域 2 在選定區域上點滑鼠右鍵 設定單元格格式 3 點 數字 標籤 貨幣 如圖1 或點 會計專用 如圖2 在 貨幣符號 下選擇 美元符號 確定 太簡單了，只要你選中你要設定的行或列 然後選擇 格式 選單中的 單元格 然後再 數字 選項卡中點 會計專用 貨幣單位 中選 美...