VBA实现为Excel中自定义名称的单元格添加批注

最新推荐文章于 2023-10-17 22:57:53 发布

weixin_37904139

最新推荐文章于 2023-10-17 22:57:53 发布

阅读量631

点赞数

一.本地office中通过创建宏实现此需求

1.打开一个Excel文件,在需要插入批注的单元格右击-定义名称(myTable1).点击菜单栏-视图-宏-查看宏-输入宏名-创建宏

2.进入VBA编辑界面,将以下代码拷贝-保存-关闭VBA界面

Sub addComment()
ActiveSheet.Application.Sheets("Sheet1").Range("myTable1").Select
ActiveCell.AddComment ("Hello")
ActiveCell.Comment.Visible = True
End Sub;

3.点击菜单栏-视图-宏-查看宏-点击刚才插入的宏名-执行

结果如下

但是对于OA系统来说,很多业务都是需要用户在网页上直接操作的,如果让用户在客户端本地office操作完成再将文件上传至服务器，总会显得我们的系统做的不够智能。

那么需求来了：如何才能实现让用户傻瓜式操作在线打开office文档，并且让程序在打开文档之前做一些事（比如在某一区域设置值，为某一个单元格赋值，设置字体段落格式，添加批注）呢。当你毫无思路时那就证明这个需求用到了你没有涉及过的技术点，这个时候就需要找一些插件来实现了。

我当时发现了一款插件叫做pageoffice很轻松的解决了此需求。当时将他集成到我的系统中跑起来只用了半天的时间。并且后来测试发现他对服务器要求并不苛刻，支持Windows、Linux等主流服务器系统。并且在客户端支持火狐、谷歌、IE、360等主流浏览器。在他们官网http://www.zhuozhengsoft.com/index.html下载程序包后会提供免费的注册码（听说永久正式版也不过两三千，但是我没购买正式版他们官方的技术支持也一直对我提供支持并且没有不耐烦哈哈哈哈）。接下来我为大家展示一下我实现的新建批注的效果。

二、集成pageoffice在线打开文档实现为Excel中自定义名称的单元格添加批注

1.下载官网程序包，根据部署指引将pageoffice集成到自己项目中（具体流程不再赘述，官方指引很详细，实在不行可以去官网联系他们技术支持）

下载地址
http://www.zhuozhengsoft.com/dowm/
部署步骤
http://www.zhuozhengsoft.com/PageOffice/guide/

2.在需要打开文档的链接处通过pobrowser打开文档所在页面

<br><a href="javascript:POBrowser.openWindowModeless('excelcomment/excel.jsp','width=1200px;height=800px;')" style=" color:#0108f6; text-decoration:underline;">excelComment</a>

注意：这里的<head></head>中需要引入pageoffice官方提供的两个js文件

<script type="text/javascript" src="jquery.min.js"></script>
<script type="text/javascript" src="pageoffice.js" id="po_js_main"></script>

3.excel.jsp中代码如下

<%@ page import="com.zhuozhengsoft.pageoffice.PageOfficeCtrl" %>
<%@ page import="com.zhuozhengsoft.pageoffice.OpenModeType" %>
<%@ page contentType="text/html;charset=UTF-8" language="java" %>
<%
PageOfficeCtrl poctrl = new PageOfficeCtrl(request);
poctrl.setServerPage(request.getContextPath()+"/poserver.zz");
poctrl.setJsFunction_AfterDocumentOpened("afterOpen()");
poctrl.webOpen("doc/test.xls",OpenModeType.xlsNormalEdit,"zs");
%>
<html>
<head>
<title>Title</title>
<script type="text/javascript">
function afterOpen() {
var sMac = 'Sub addCom() \r\n '
+ 'ActiveSheet.Application.Sheets("Sheet1").Range("myTable1").Select \r\n '
+ 'ActiveCell.AddComment ("Hello")\r\n'
+ 'ActiveCell.Comment.Visible = True\r\n'
+ 'End Sub';
document.getElementById("PageOfficeCtrl1").RunMacro("addCom", sMac);
}
</script>
</head>
<body>
<%=poctrl.getHtmlCode("PageOfficeCtrl1")%>
</body>
</html>

这样就会通过poctrl.webopen方法打开doc/test.xls文档,并且为文档中名为myTable1的单元格插入批注"hello"

4.实现效果

三.除Java之外,pageoffice也对ASP.NET和PHP提供支持,相关程序员同学可以自行去官网了解,再此不再赘述.

weixin_37904139

关注

0
点赞
踩
2

收藏

觉得还不错? 一键收藏
0
评论
VBA实现为Excel中自定义名称的单元格添加批注

一.本地office中通过创建宏实现此需求1.打开一个Excel文件,在需要插入批注的单元格右击-定义名称(myTable1).点击菜单栏-视图-宏-查看宏-输入宏名-创建宏 2.进入VBA编辑界面,将以下代码拷贝-保存-关闭VBA界面 Sub addComment() ActiveSheet.Application.Sheets...
复制链接

扫一扫