VBA實現爲Excel中自定義名稱的單元格添加批註

時間 2019-11-11

標籤 vba 實現 excel 自定義名稱單元格添加批註欄目 Microsoft Office 简体版

原文原文鏈接

一.本地office中經過建立宏實現此需求
1.打開一個Excel文件,在須要插入批註的單元格右擊-定義名稱(myTable1).點擊菜單欄-視圖-宏-查看宏-輸入宏名-建立宏javascript

2.進入VBA編輯界面,將如下代碼拷貝-保存-關閉VBA界面html

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

3.點擊菜單欄-視圖-宏-查看宏-點擊剛纔插入的宏名-執行java

結果以下jquery

可是對於OA系統來講,不少業務都是須要用戶在網頁上直接操做的,若是讓用戶在客戶端本地office操做完成再將文件上傳至服務器，總會顯得咱們的系統作的不夠智能。程序員

那麼需求來了：如何才能實現讓用戶傻瓜式操做在線打開office文檔，而且讓程序在打開文檔以前作一些事（好比在某一區域設置值，爲某一個單元格賦值，設置字體段落格式，添加批註）呢。當你毫無思路時那就證實這個需求用到了你沒有涉及過的技術點，這個時候就須要找一些插件來實現了。web

我當時發現了一款插件叫作pageoffice很輕鬆的解決了此需求。當時將他集成到個人系統中跑起來只用了半天的時間。而且後來測試發現他對服務器要求並不苛刻，支持Windows、Linux等主流服務器系統。而且在客戶端支持火狐、谷歌、IE、360等主流瀏覽器。在他們官網http://www.zhuozhengsoft.com/index.html下載程序包後會提供免費的註冊碼（據說永久正式版也不過兩三千，可是我沒購買正式版他們官方的技術支持也一直對我提供支持而且沒有不耐煩哈哈哈哈）。接下來我爲你們展現一下我實現的新建批註的效果。瀏覽器

2、集成pageoffice在線打開文檔實現爲Excel中自定義名稱的單元格添加批註服務器

1.下載官網程序包，根據部署指引將pageoffice集成到本身項目中（具體流程再也不贅述，官方指引很詳細，實在不行能夠去官網聯繫他們技術支持）less

   下載地址
      http://www.zhuozhengsoft.com/dowm/
   部署步驟
      http://www.zhuozhengsoft.com/PageOffice/guide/jsp

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提供支持,相關程序員同窗能夠自行去官網瞭解,再此再也不贅述.

http://www.zhuozhengsoft.com/dowm/

這是官網的下載試用程序包的地址