OFFICE 修改记录保存在单元格批注中vba

Dim ydtext As String ‘原单元格值
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
Dim mycom As Comment
Dim ybzstr As String ‘原标注值
‘------------------判断是否添加了批注
Set mycom = Target.Comment
If mycom Is Nothing Then Target.AddComment
‘------------------编辑批注内容
ybzstr = Target.Comment.Text
Target.Comment.Text Text:=ybzstr & Chr(10) & Format(Now(),
"yyyy-mm-dd hh:mm") & " 原内容: " & ydtext & "修改为: " &
Target.Formula
Target.Comment.Shape.TextFrame.AutoSize = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then
If Target = "" Then
ydtext = "空"
Else
ydtext = Target.Text
End If
End If
End Sub

OFFICE 修改记录保存在单元格批注中vba,布布扣,bubuko.com

时间: 2024-10-08 09:46:10

OFFICE 修改记录保存在单元格批注中vba的相关文章

EasyUI中修改DataGrid的单元格显示内容

自定义的单元格数据显示,以实现如下效果为例 使用列属性的formatter属性即可修改,示例如下 $("#roleList").datagrid({     url : "${pageContext.request.contextPath}/role/list",     columns : [[{         field : "id",         checkbox : true     }, {         field : &qu

JS实现填报时对修改过的单元格进行标识

1. 描述 在填报预览时,对单元格编辑后,其左上角有个红色标记,但非常不明显,用户很难注意到.有没有什么好的办法,对单元格操作后,将其做较明显的特殊标记处理,方便用户识别呢? 如图所示:对单元格进行操作后,将其单元格进行背景色着色.文本加粗等标记. 2. 实现方法 打开模板 %FR_HOME%\WebReport\WEB-INF\reportlets\doc\Form\LineForm\LineForm.cpt 2.1 方法1:编辑结束后修改单元格样式 控件编辑后事件中修改单元格样式,选中需要设

C#修改 Excel指定单元格的值

/// <summary> /// 将指定字符串写入指定单元格中 /// </summary> /// <param name="data">要写入的数据源</param> /// <param name="sheetName">工作表名称(全路径+EXCEL表名称)</param> /// <param name="row">第几行</param>

通过excel模板文件根据数据库数据修改其中的单元格数据

1 /// <summary> 2 /// 根据文件模板生成excel 3 /// </summary> 5 /// <param name="dttew">利润表_月报</param> 11 /// <param name="opetes">文件名</param> 12 /// <param name="queryKey">资产负债表{税款所属期起-税款所属期止

easyui datagrid 通过双击单元格或者行修改内容,分页传参问题

这个是通过双击单元格或者行修改内容,以下是具体写法,在这里遇到一个问题,之前一直用post,分页参数始终带不过去,改为get就可以了 function init(){ var name = document.getElementById("name").value; $('#dataGrid').datagrid({ url:"${basepath}/sys/group/grouplist", method: 'get', pagination:true, //是否

集算报表通过API修改单元格属性

有时需要在程序中动态修改已做好报表的单元格属性,包括边框.字号.颜色.对齐方式等.润乾集算报表提供了丰富的API,开发人员可以通过提供的接口快速修改报表单元格属性. 修改单元格属性主要修改报表定义ReportDefine,比如下面已经做好的订单信息表如下: 预览效果: 我们通过代码修改该报表单元格属性: //设定边框        for (int i = 2; i <=3; i++) {            for (int j = 1; j <=6; j++) {            

在Asp.Net MVC中使用NPOI插件实现对Excel的操作(导入,导出,合并单元格,设置样式,输入公式)

前言 NPOI 是 POI 项目的.NET版本,它不使用 Office COM 组件,不需要安装 Microsoft Office,目前支持 Office 2003 和 2007 版本. 1.整个Excel表格叫做工作表:WorkBook(工作薄),包含的叫页(工作表):Sheet:行:Row:单元格Cell. 2.NPOI是POI的C#版本,NPOI的行和列的index都是从0开始 3.POI读取Excel有两种格式一个是HSSF,另一个是XSSF. HSSF和XSSF的区别如下: HSSF

Excel 2010单元格中设置表头

大家在做报表的时候,似乎都遇到过这样的问题,就是在一个单元格中如何设置表头: 其中包括一条斜杠的,两条斜杠的,N 条斜杠的,很多斜杠似乎没什么用.如图: 不知道C1能不能用到,这里只是举个例子. 首先单条斜杠的表头如何制作,其实非常简单,就是设置单元格属性中的边框,然后添加斜向斜杠即可.如图: 很简单,然后就可以输入数据,输入数据的时候大家要注意,首先单元格数据位置要设置为靠上,然后用空格和手动换行来控制(alt+enter).效果如图: 非常简单.下面介绍三条斜线的表头如何实现,三条斜线用边框

Swing-JTable检测单元格数据变更事件

在JTable的初级教程中往往会提到,使用TableModel的 addTableModelListener方法可以监听单元格数据的变更,在其事件处理函,数tableChanged中,可以通过e.getColumn(),e.getFirstRow(),e.getLastRow(),e.getType()来获取变更发生的位置和变更的类型(插入.更新或删除).然而该方法存在2个致命的问题: 1.双击单元格使其处于可编辑状态后,即使没有做出任何修改,当单元格失去焦点时,该事件将被激活. 2.通过该事件