以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Foxtable支持为Excel单元格添加批注  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=35082)

--  作者:qujl
--  发布时间:2013/6/23 21:35:00
--  Foxtable支持为Excel单元格添加批注

Foxtable中没有找到为Excel单元格增加批注的介绍,但有时需要为Excel单元格添加批注。例如,数据从Excel导入时,若原始数据有错,可以利用批注提示单元格错误信息。利用VBA试了一下,Foxtable支持为Excel单元格添加批注。示例代码如下:

 

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\\导入测试.xls")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Ws.Range("1:5").ClearComments \'清除原有批注

Ws.Range("B3").AddComment("添加批注测试")  \'B3单元格添加批注,注意批注内容在园括号内

App.Visible = True

 

补充说明:Excel单元格行号iRow、列号jCol使用变量时,可以改为:

Ws.Cells(iRow,jCol).AddComment("添加批注测试")

 

 

 

 

[此贴子已经被作者于2013-6-24 11:07:49编辑过]

--  作者:有点甜
--  发布时间:2013/6/24 6:49:00
--  
谢分享。