EXCEL批注修改代码
C#如何在Excel中添加、编辑和删除批注
C# 如何在Excel表格中添加、编辑和删除批注为文档添加必要的批注可以给文档使用者提供重要的提示信息，因此批注广泛用于各类文档中。
在Excel中，我们也可以通过C#编程语言来给表格内容添加注释，或者编辑、删除注释。
在下文中你将看到具体的代码操作，供参考。
提示：在进行代码操作之前，需下载安装Spire.Xls，然后添加引用dll文件using System;using Spire.Xls;using System.Drawing;1.如何添加批注？//创建一个Workbook实例,并加载文档Workbook workbook = new Workbook();workbook.LoadFromFile(@"C:\Users\Administrator\Desktop\设备购置.xlsx");//获取第一个工作表Worksheet sheet = workbook.Worksheets[0];//设置批注文本string comment = "这是一个测试文档";//设置批注字体ExcelFont font = workbook.CreateFont();font.FontName = "Calibri";font.Color = Color.Firebrick;font.IsBold = true;//添加批注至指定单元格CellRange range = sheet.Range["E2"];ment.RichText.Text = comment;ment.Width = 200;ment.Height = 50;//保存文档workbook.SaveToFile("AddComment.xlsx", ExcelVersion.Version2013);2. 如何修改批注？//实例化一个Workbook类实例并加载Excel文档Workbook workbook = new Workbook();workbook.LoadFromFile(@"C:\Users\Administrator\Desktop\AddComment.xlsx");//获取第一个工作表Worksheet sheet = workbook.Worksheets[0];//修改工作表中的第一个批注内容ments[0].Text = "此批注请勿编辑";//保存文档workbook.SaveToFile("ModifyComment.xlsx", ExcelVersion.Version2013);3. 如何删除批注？//实例化Wordbook类实例并加载Excel文档Workbook workbook = new Workbook();workbook.LoadFromFile(@"C:\Users\Administrator\Desktop\AddComment.xlsx");//获取第一个工作表Worksheet sheet = workbook.Worksheets[0];//删除工作表中的第一个批注ments[0].Remove();//保存文档workbook.SaveToFile("DeleteComment.xlsx", ExcelVersion.Version2013);（文本完）。
excel有关批注的宏模板
在Excel中，您可以使用VBA（Visual Basic for Applications）编写宏来自动添加、编辑或删除批注。
以下是一个简单的宏模板，用于在特定单元格上添加批注：
这个宏会在"Sheet1"工作表的"A1:B10"范围内查找非空的单元格，并为每个非空单元格添加一个批注，内容为"这是一个批注"。
您可以根据需要修改工作表名称、单元格范围和批注文本。
请注意，为了运行此宏，您需要启用Excel中的VBA宏功能。
在Excel中，您可以通过选择"开发者"选项卡，然后点击"Visual Basic"按钮来打开VBA编辑器。
在VBA编辑器中，您可以创建、编辑和运行宏。
如何使用VBA控制Excel批注？
如何使用VBA控制Excel批注？HI，大家好，我是星光。
今天给大家聊一下如何使用VBA编程控制Excel批注，这包含了批量创建批注、提取批注内容、调整批注大小和位置、快速删除批注等。
1，批量创建批注以下代码可以将指定单元格区域的值填入批注中。
•••••••••Sub AddComment() Dim rng As Range, Cll As Range Set rng = Application.InputBox('请选择增加批注的单元格范围。
', Type:=8) Set rng = Intersect(edRange, rng) For Each Cll In rng If ment Is Nothing Then Cll.AddComment '如果单元格没有批注……则增加批注 ment.Text Text:=Cll.Value & '' '输入批注内容 NextEnd Sub2，批量提取批注中的内容以下自定义函数可以将指定单元格区域的批注内容取出：•••••••••Function GetComment(Rng As Range) Dim t As String If ment Is Nothing Then '判断rng是否包含批注 t = '' Else t = ment.Text End If GetComment = tEnd Function3，批量调整批注的位置有时候因为某些操作，会将批注的位置拉变形，此时可以使用以下代码调整批注的位置到原单元格处。
•••••••••••Sub t() Dim c As Comment For Each c In ments With c .Shape.Top = .Parent.Top - 8 '右上角位置 .Shape.Left = .Parent.Left + 8 '左下角位置 .Shape.Width= .Parent.Width * 2 '宽度.Visible = False '不可见End With NextEnd Sub4，批量删除批注以下代码删除指定范围内的所有批注：•••••Sub DelComment2() Dim Rng As Range Set Rng = Application.InputBox('请选择删除批注的单元格范围。
Java 添加、修改、读取、复制、删除Excel批注
Java 添加、修改、读取、复制、删除Excel批注本文介绍通过Java程序来操作Excel批注的方法。
操作内容包括批注添加（添加批注文本、背景色、字体、自适应等）、修改、读取（文本、图片）、复制、删除等。
工具：Free Spire.XLS for Java （免费版）注：Jar文件获取可通过官网下载包，并解压将lib文件夹下的jar文件导入java程序；或通过maven下载导入。
导入结果如下：Java代码示例【示例1】添加批注import com.spire.xls.*;import java.awt.*;public class AddComment {public static void main(String[] args) {//加载Excel文档Workbook wb = new Workbook();wb.loadFromFile("test.xlsx");//获取工作表Worksheet sheet = wb.getWorksheets().get(0);//创建字体ExcelFont font = wb.createFont();font.setFontName("Arial");font.setSize(11);font.setKnownColor(ExcelColors.Orange);ExcelFont fontBlue = wb.createFont();fontBlue.setKnownColor(ExcelColors.LightBlue);ExcelFont fontGreen = wb.createFont();fontGreen.setKnownColor(ExcelColors.LightGreen);//给指定的Excel单元格添加普通批注CellRange range = sheet.getCellRange("H2");range.getComment().setText("税前价格");range.getComment().setTextRotation(TextRotationType.TopToBottom);range.autoFitColumns();range.getComment().setVisible(true);//设置批注是否隐藏range.getComment().getFill().customPicture("logo.png");//背景图片填充//range.getComment().getFill().setForeColor(new Color(255,228,225));//颜色填充//给指定的Excel单元格添加富文本批注range = sheet.getCellRange("F2");range.getRichText().setFont(0, 8, font);range.autoFitColumns();range.getComment().getRichText().setText("已入库数量");range.getComment().getRichText().setFont(0, 4, fontGreen);range.getComment().getRichText().setFont(3, 4, fontBlue);//保存结果文档wb.saveToFile("AddComments.xlsx", ExcelVersion.Version2013);wb.dispose();}}批注添加效果：【示例2】修改批注import com.spire.xls.*;public class ModifyComment {public static void main(String[] args) {//加载excel文档Workbook wb = new Workbook();wb.loadFromFile("AddComments.xlsx");//获取工作表Worksheet sheet = wb.getWorksheets().get(0);//获取指定单元格中的批注，设置新的批注文本、填充色sheet.getRange().get("H2").getComment().setText("不含税价"); sheet.getRange().get("F2").getComment().setText("最新数据");//保存文档wb.saveToFile("ModifyComment.xlsx",ExcelVersion.Version2013); wb.dispose();}}批注修改结果：【示例3】读取批注import com.spire.xls.*;import javax.imageio.ImageIO;import java.awt.*;import java.awt.image.BufferedImage;import java.io.File;import java.io.IOException;public class ExtractComment {public static void main(String[] args)throws IOException {//加载excel文档Workbook wb = new Workbook();wb.loadFromFile("AddComments.xlsx");//获取工作表Worksheet sheet = wb.getWorksheets().get(0);//打印指定单元格的文本批注内容System.out.println("H2 的批注文本 = " +sheet.getCellRange("H2").getComment().getText());System.out.println("F2 的批注文本 = " +sheet.getCellRange("F2").getComment().getRichText().getRtfText());//获取指定单元格中批注背景颜色Color color = sheet.getRange().get("H2").getComment().getFill().getForeColor(); System.out.print(color);//获取指定单元格中的批注背景图片/*BufferedImage image =sheet.getRange().get("H2").getComment().getFill().getPicture();ImageIO.write(image,"png",new File("ExtractedImages.png"));*/}}批注读取结果：读取的图片可在程序文件夹下查看。
javapoiexcel给单元格增加批注（包含SXSSF）及设置列类型
javapoiexcel给单元格增加批注（包含SXSSF）及设置列类型package javatest;import java.io.FileOutputStream;import java.io.IOException;import ermodel.XSSFCell;import ermodel.XSSFClientAnchor;import ermodel.XSSFComment;import ermodel.XSSFDrawing;import ermodel.XSSFRichTextString;import ermodel.XSSFSheet;import ermodel.XSSFWorkbook;public class PoiWriter {public static void main(String[] args) throws IOException {// 创建⼯作簿对象XSSFWorkbook wb = new XSSFWorkbook();// 创建⼯作表对象XSSFSheet sheet = wb.createSheet("我的⼯作表");// 创建绘图对象XSSFDrawing p = sheet.createDrawingPatriarch();// 创建单元格对象,批注插⼊到4⾏,1列,B5单元格XSSFCell cell = sheet.createRow(4).createCell(1);// 插⼊单元格内容cell.setCellValue(new XSSFRichTextString("批注"));// 获取批注对象// (int dx1, int dy1, int dx2, int dy2, short col1, int row1, short// col2, int row2)// 前四个参数是坐标点,后四个参数是编辑和显⽰批注时的⼤⼩.XSSFComment comment = p.createCellComment(new XSSFClientAnchor(0, 0, 0,0, (short) 3, 3, (short) 5, 6));// 输⼊批注信息comment.setString(new XSSFRichTextString("这是批注内容!"));// 添加作者,选中B5单元格,看状态栏comment.setAuthor("toad");// 将批注添加到单元格对象中cell.setCellComment(comment);// 创建输出流FileOutputStream out = new FileOutputStream("d:/writerPostil.xlsx");wb.write(out);// 关闭流对象out.close();}}尚未测试2003。
excel代码大全
excel代码大全.txt第一次笑是因为遇见你，第一次哭是因为你不在，第一次笑着流泪是因为不能拥有你。
EXCEL宏代码大全本文件部分文章来源于网络，文章版权归原作者所有，如果本站转载的文章侵犯了您的权益请及时联系我们，我们将尽快妥善处理。
本站除部分特别声明禁止转载的专稿外，其他文章可以自由转载，但请务必注明原出处和作者。
000. A列半角内容变红Sub A列半角内容变红() ? Dim rg As Range, i As Long ? Application.ScreenUpdating = False ? For Each rg In Cells.SpecialCells(xlCellTypeConstants, 3) ??? For i = 1 To Len(rg) ????? If Asc(Mid(rg, i, 1))001. A列等于A列减B列Sub A列等于A列减B列() For i = 1 To 23 Cells(i, 1) = Cells(i, 1) - Cells(i, 2) Next End Sub002. B列录入数据时在A列返回记录时间（工作表代码）Public Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(, -1) = Now End If End Sub003. Excel宏常用代码本大类暂没有内容，以下是关于本类的所有记录集。
004. Sub 以当前日期为名称另存文件()ActiveWorkbook.SaveAs Filename:=Date & ".xls" End Sub005. Sub 启用保存()mandBars("File").Controls(4).Enabled = True mandBars("File").Controls(5).Enabled = True End Sub006. Sub 执行前需要验证密码的宏()If InputBox("请输入您的使用权限:", "系统提示") = 123 Then 重排窗口 '要执行的宏代码或宏名称 Else MsgBox "对不起,您没有使用该宏的权限,按确定键后退出!" End If End Sub007. Sub 选择第5行开始所有数据行B()Rows("5:" & Cells.Find("*", , , , 1, 2).Row).Select End Sub008. VBA返回公式结果Sub VBA返回公式结果() x = Application.WorksheetFunction.Sum(Range("a2:a100")) Range("B1") = x End Sub009. 不连续区域录入对勾Sub 批量录入对勾() Selection.FormulaR1C1 = "√" End Sub010. 不连续区域录入当前单元地址Sub 区域录入当前单元地址() For Each mycell In Selection mycell.FormulaR1C1 = mycell.Address Next End Sub011. 不连续区域录入当前数字日期Sub 区域录入当前数字日期() Selection.FormulaR1C1 = Format(Now(), "yyyymmdd") End Sub012. 不连续区域录入当前文件名Sub 批量录入当前文件名() Selection.FormulaR1C1 = End Sub013. 不连续区域录入当前日期Sub 区域录入当前日期() Selection.FormulaR1C1 = Format(Now(), "yyyy-m-d") End Sub014. 不连续区域录入当前日期和时间Sub 区域录入当前日期和时间() Selection.FormulaR1C1 = Format(Now(), "yyyy-m-d h:mm:ss") End Sub015. 不连续区域插入当前文件名和表名及地址Sub 批量插入当前文件名和表名及地址() For Each mycell In Selection mycell.FormulaR1C1 = "[" + + "]" + + "!" + mycell.Address Next End Sub016. 不连续区域插入文本Sub 批量插入文本() Dim s As Range For Each s In Selection s = "文本内容" & s Next End Sub017. 不连续区域添加文本Sub 批量添加文本() Dim s As Range For Each s In Selection s = s & "文本内容" Next End Sub018. 为当前选定的多单元插入指定名称Sub 为当前选定的多单元插入指定名称() = "临时" s.Add Name:="临时", RefersTo:=Selection '或者换用这行代码也可以 End Sub019. 为指定工作表加指定密码保护表Sub 为指定工作表加指定密码保护表() Sheet10.Protect Password:="123" End Sub020. 为指定工作表设置滚动范围（工作簿代码）Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Sheet1.ScrollArea = "A1:M30" End Sub021. 从指定位置向下同时录入多单元指定内容Sub 从指定位置向下同时录入多单元指定内容() Dim arr arr = Array("1", "2", "13", "25", "46", "12", "0", "20") [B2].Resize(8, 1) = Application.WorksheetFunction.Transpose(arr) End Sub022. 以A1单元内容批量插入批注Sub 以A1单元内容批量插入批注() Dim r As Range If Selection.Cells.Count > 0 Then For Each r In Selection r.AddComment ment.Visible = False ment.Text Text:=[a1].Text Next End If End Sub023. 以A1单元文本作表名插入工作表Sub 以A1单元文本作表名插入工作表() Dim nm As String nm = [a1] Sheets.Add = nm End Sub024. 以当前日期为新文件名另存文件Sub 以当前日期为新文件名另存文件() ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Now(), "yyyymmdd") & ".xls" End Sub025. 以当前日期和时间为新文件名另存文件Sub 以当前日期和时间为新文件名另存文件() ThisWorkbook.SaveAs（资料素材和资料部分来自网络，供参考。
Python修改Excel数据的实例代码
复制代码 代码如下:
#-*-coding:utf-8-*from xlutils.copy import copy # /pypi/xlutils from xlrd import open_workbook # /pypi/xlrd from xlwt import easyxf # /pypi/xlwt
file_path = "C:\\Users\\***\\Desktop\\20130514.xls" #formatting_info=True保存之前数据的格式 rb = open_workbook(file_path,formatting_info=True) r_sheet = rb.sheet_by_index(0) # read only copy to introspect the file wb = copy(rb) # a writable copy (I can't read values out of this, only write to it) w_sheet = wb.get_sheet(0) # the sheet to write to within the writable copy
#r_sheet.nrows为总行数 for row_index in range(START_ROW, r_sheet.nrows):
#xlsvalue = r_sheet.cell(row_index, col_age_november).value w_sheet.write(row_index, ismal_index, u'是') w_sheet.write(row_index, url_index, malurl) w_sheet.write(row_index, domain_index, domain_info) w_sheet.write(row_index, malinfo_index, malinfo) #wb.save(file_path + '.out' + os.path.splitext(file_path)[-1]) wb.save("C:\\Users\\***\\Desktop\\2013.xls")
excel批注转注释
excel批注转注释
在Excel中，批注和单元格注释（Comment）是不同的。
如果想将单元格中的注释（Comments）转换为单元格内容，可以使用VBA（Visual Basic for Applications）来实现。
以下是一个简单的VBA代码示例，可以将活动工作表中所有单元格的注释内容转换为单元格的值：
Sub ConvertCommentsToValues()
Dim cell As Range
For Each cell In edRange
If Not ment Is Nothing Then
cell.Value=ment.Text
ment.Delete
End If
Next cell
End Sub
可以按照以下步骤执行这段VBA代码：
1.打开Excel文件。
2.按下Alt+F11打开VBA编辑器。
3.在VBA编辑器中，选择你的工作簿（Workbook）。
4.在菜单栏中选择Insert->Module，然后将以上代码粘贴到模块中。
5.关闭VBA编辑器，返回到Excel。
6.按下Alt+F8，选择ConvertCommentsToValues，然后点击“运行”。
请注意，在运行这段代码之前，最好先备份文件，因为此操作会删除单元格的注释，并将其内容写入单元格本身。
批量修改excel中的批注
1.删除批注中的用户名：Private Sub CommandButton1_Click()For Each i In ments ‘批注中的每一个With iDim MYSTR1 As Integer ‘声明整型Dim MYSTR2 As Integer ‘声明整型Dim RESULT As Integer ‘声明整型MYSTR1 = Len(.Author) ‘作者的长度MYSTR2 = Len(.Text) ‘整个批注的长度RESULT = MYSTR2 - MYSTR1 – 1 ‘再减1是因为有一个冒号占一位.Text Right(.Text, RESULT) ‘批注的文本为原批注从右边取除了作者名的长度.Visible = True ‘将批注视为可见End WithNextEnd Sub2.将批注中的用户名更名:在上述代码后接以下代码:Private Sub CommandButton1_Click()For Each i In ments ‘批注中的每一个With iDim MYSTR1 As Integer ‘声明整型Dim MYSTR2 As Integer ‘声明整型Dim RESULT As Integer ‘声明整型MYSTR1 = Len(.Author) ‘作者的长度MYSTR2 = Len(.Text) ‘整个批注的长度RESULT = MYSTR2 - MYSTR1 – 1 ‘再减1是因为有一个冒号占一位.Text Right(.Text, RESULT) ‘批注的文本为原批注从右边取除了作者名的长度.Visible = True ‘将批注视为可见End WithFor Each i In ments ‘遍历每一个批注i.Text "PL:" & ONE.Text ‘批注的文本前加PL:NextEnd Sub3.将批注中的用户名更名:在上述代码后接以下代码:Private Sub CommandButton1_Click()Dim mCom As CommentFor Each mCom In mentsWith mCom.Shape.TextFrame.CharactersWith .Font.Bold = msoTrue '改变粗细.Size = 14 '改变大小.ColorIndex = 3 '改变颜色End WithEnd WithNextEnd Sub4.删除所有批注Private Sub CommandButton1_Click()For each i in mentsi.deletenextEnd sub5.导出批注Private Sub CommandButton1_Click()On Error GoTo lineApplication.DisplayAlerts = FalseApplication.ScreenUpdating = FalseDim cur, temp As WorksheetSet cur = ActiveSheetSet temp = Worksheets.Add = "导出批注"Dim row As Integerrow = 1For Each one In mentstemp.Cells(row, 1).V alue = one.Texttemp.Cells(row, 2).V alue = one.Parent.rowtemp.Cells(row, 3).V alue = one.Parent.Column one.Deleterow = row + 1NextMsgBox "批注导出到表中"Application.DisplayAlerts = TrueApplication.ScreenUpdating = TrueExit Subline:MsgBox "批注未导出,可能以前导过."temp.DeleteApplication.DisplayAlerts = TrueApplication.ScreenUpdating = TrueEnd Sub。
python excel 单元格注释
Python Excel 单元格注释随着信息化时代的到来，Excel表格在各行业的应用越来越广泛。
作为一种强大的办公软件，Excel表格不仅可以帮助用户进行数据处理和分析，还可以实现数据的可视化和报表的生成。
在Excel表格中，单元格注释是一种非常重要的功能，它可以让用户在特定的单元格内添加说明性文字，以便于他人更好地理解和使用该表格。
而在Python中，我们也可以通过一些库实现对Excel表格的操作，包括单元格注释的添加和编辑。
本篇文章将详细介绍Python中如何对Excel表格的单元格进行注释的操作。
一、使用openpyxl库对Excel表格进行单元格注释1.安装openpyxl库在Python中，我们可以使用openpyxl库来对Excel表格进行操作。
如果你还没有安装openpyxl库，可以通过以下命令进行安装：```pythonpip install openpyxl```2.导入openpyxl库在使用openpyxl库对Excel表格进行操作之前，我们需要先导入该库：```pythonimport openpyxl```3.打开Excel表格在对Excel表格进行操作之前，我们需要先打开该表格。
可以通过openpyxl库中的load_workbook()函数来实现：```pythonworkbook = openpyxl.load_workbook('example.xlsx')```其中'example.xlsx'是你要操作的Excel表格文件名。
4.选择工作表在打开Excel表格后，我们还需要选择具体的工作表进行操作。
可以通过以下命令选择第一个工作表：```pythonsheet = workbook.active```如果你要选择其他的工作表，可以通过以下命令实现：```pythonsheet = workbook['Sheet1']```5.添加单元格注释在打开Excel表格并选择了具体的工作表之后，我们就可以对单元格添加注释了。
excel 批注 函数
excel 批注函数
在 Excel 中，可以使用函数来添加批注并显示批注。
以下是一些常用的函数和步骤:
1. 打开想要添加批注的单元格。
2. 选择该单元格，然后在 Excel 的公式编辑器中输入以下函数之一：
- `=er(xlYes, 1)` 可以添加自动隐藏的批注。
- `=er(xlNone, -1)` 可以删除批注。
- `=er(xlComment, 1033)` 可以添加批注文本。
- `=er(xlComment, 1034)` 可以添加批注标题。
- `=er(xlComment, 1035)` 可以添加批注指示器。
- `=er(xlComment, 1036)` 可以添加批注日期和时间。
3. 将 `=er` 函数中的参数替换为相应的值，以确定要添加的批注类型。
4. 单击公式编辑器中的 OK 按钮，Excel 将添加批注并将其存储在单元格中。
5. 如果需要始终显示批注，请单击菜单栏上的 "审阅" 选项卡，然后选择 "显示所有批注" 命令。
此外，可以使用 VBA 编写程序来添加、删除和修改批注。
具体方法取决于所需的具体功能。
VBA完全操作EXCEL单元格备注CELL COMMENTS的代码
一、获取单元格的备注Private SubCommandButton1_Click()Dim strGotIt As StringstrGotIt= WorksheetFunction.Clean(Range(A1).Comment.Text)MsgBox strGotItEnd Subment.Text用于得到单元格的备注文本，如果当前单元格没有添加备注，则会引发异常。
注意代码中使用了WorksheetFunction对象，该对象是Excel的系统对象，它提供了很多系统函数，这里用到的Clean函数用于清楚指定文本中的所有关键字(特殊字符)，具体信息可以查阅Excel自带的帮助文档，里面提供的函数非常多。
下面是一个使用Application.WorksheetFunction.Substitute函数的例子，其中第一个Substitute将给定的字符串中的author:替换为空字符串，第二个Substitute将给定的字符串中的空格替换为空字符串。
Private FunctionCleanComment(author As String, cmt As String) As StringDim tmp As Stringtmp = Application.WorksheetFunction.Substitute(cmt, author & :, )tmp = Application.WorksheetFunction.Substitute(tmp, Chr(10), )CleanComment = tmpEnd Function二、修改Excel单元格内容时自动给单元格添加Comments信息Private SubWorksheet_Change(ByVal Target As Excel.Range)Dim newText As StringDim oldText As StringFor Each cell In TargetWith cellOn Error Resume NextoldText = .Comment.TextIf Err <; 0 Then .AddCommentnewText = oldText & Changed by & erName & at & Now & vbLfMsgBoxnewText.Comment.Text newText.Comment.Visible = True.Comment.Shape.SelectSelection.AutoSize = True.Comment.Visible = FalseEnd WithNext cellEnd SubComments内容可以根据需要自己修改，Worksheet_Change方法在Worksheet单元格内容被修改时执行。
VBA中的单元格注释与批注操作指南
VBA中的单元格注释与批注操作指南VBA（Visual Basic for Applications）是Microsoft Office中用于自动化任务的编程语言，它可以帮助用户实现自定义的功能和自动化流程。
在Excel中，VBA可以用来操作单元格数据，其中包括注释和批注的添加、删除和修改。
本文将为您提供VBA中单元格注释与批注操作的指南，帮助您更好地利用VBA进行数据处理和管理。
1. 注释操作注释是对单元格内容的说明或补充信息。
在VBA中，可以使用注释操作来添加、删除和修改单元格的注释。
1.1 添加注释要在指定单元格添加注释，可以使用AddComment方法。
例如，以下代码将在A1单元格添加注释：“这是一个示例注释”。
```Range("A1").AddComment "这是一个示例注释"```1.2 删除注释要删除指定单元格的注释，可以使用ClearComments方法。
例如，以下代码将删除A1单元格的注释。
```Range("A1").ClearComments```1.3 修改注释要修改已存在的注释内容，可以使用Comment.Text方法。
例如，以下代码将修改A1单元格的注释为：“这是修改后的注释”。
```Range("A1").Comment.Text "这是修改后的注释"```2. 批注操作批注是对单元格的详细说明，可以包含多行文本和格式设置。
在VBA中，可以使用批注操作来添加、删除和修改单元格的批注。
2.1 添加批注要在指定单元格添加批注，可以使用AddComment方法，并设置批注的Text属性。
例如，以下代码将在A1单元格添加批注：“这是一个示例批注”。
```Range("A1").AddCommentRange("A1").Comment.Text "这是一个示例批注"```2.2 删除批注要删除指定单元格的批注，可以使用ClearComments方法。
Excel如何批量修改批注文字格式
Excel如何批量修改批注文字格式
如果想要实现将Sheet1工作表中所有的批注文字批量更改为：楷体、14号、颜色为红色的效果，该怎么做呢，具体步骤如下所述：
工具/软件
Excel 2010
步骤/方法
1. 1
打开Excel工作簿文档，按下ALT+F11组合键调用出VBA编辑器
2. 2
单击菜单栏上的“插入”，打开的菜单单击“模块”命令
3. 3
将下面的代码复制到模块框中
Sub 批量修改批注()
Dim cm As Comment
For Each cm In ments 'sheet1是我们要批量修改批注的工作表，可以按需改变。
With cm.Shape.TextFrame.Characters.Font
.Name = "楷体"
.Size = 14
.ColorIndex = 3
End With
Next
End Sub
4. 4
单击工具栏绿色的“运行”按钮或直接按F5键
5. 5
退出VBA编辑器窗口，现在让我们来看一下效果图
Excel批量修改批注框大小，统一尺寸
1. 1
实现这个效果的方法跟上面的步骤是一样的，只需把上面的代码更改成下面的代码即可，当中的“Width = 200”，这个数值可自行更改成想要的批注框宽度
Sub 批量修改批注框大小()
Dim Cmt As Comment
For Each Cmt In ments
ment.Shape.Width = 200
Next Cmt
End Sub
2. 2
单击“运行”按钮，再一次让我们来看一下效果效果图这是宽度为500的效果图。
批量修改表注释
批量修改表注释⼀：业务应⽤场景1.测试环境执⾏重新建表，导致表注释乱码2.数据已导⼊，数据中不存在中⽂字符⼆：批量修改表注释乱码语句select concat("ALTER TABLE ","`",col.TABLE_NAME,"`"," CHANGE ","`",col.COLUMN_NAME,"`"," ","`",col.COLUMN_NAME,"`","",col.COLUMN_TYPE , " ", if(col.CHARACTER_SET_NAME is null," ",concat(" character set ",col.CHARACTER_SET_NAME," ")),if(col.COLLATION_NAME is null," ",concat(" COLLATE ","'",col.COLLATION_NAME,"' ")), if(col.IS_NULLABLE='NO'," NOT NULL "," null "), if(col.COLUMN_DEFAULT is null , if(col.EXTRA='auto_increment' or col.IS_NULLABLE='NO'," "," DEFAULT null ") ,concat(" DEFAULT ",if(col.DATA_TYPE='timestamp' or col.DATA_TYPE='bit' ,col.COLUMN_DEFAULT,concat("'",col.COLUMN_DEFAULT,"'")))),if(col.EXTRA is null ," ",concat(" ",col.EXTRA," " )), " COMMENT "," ","'",col.COLUMN_COMMENT,"'",";") change_column_type from information_schema.COLUMNS col join information_schema.tables tbl on col.TABLE_SCHEMA=tbl.TABLE_SCHEMA andcol.TABLE_NAME=tbl.TABLE_NAME where col.TABLE_SCHEMA='ems' and tbl.TABLE_TYPE='BASE TABLE' and col.table_name='t0'原⽂地址：。
用批注记录Excel单元格数据的变更历史的代码
用批注记录Excel单元格数据的变更历史的代码将下面的代码粘贴进ThisWorkbook的代码窗口中即可实现图中的功能：Dim varOld, Tvalue, arr, brrPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)On Error Resume NextvarOld = ""varOld = /doc/6b15601788.html,ment.Text On Error GoTo 100Tvalue = Target.ValueIf Target.Count > 1 Or IsError(Tvalue) Then Exit SubIf Trim(varOld) = "" And Trim(Target.Value) = "" Then Exit Sub If Trim(Target.Value) = "" Then Tvalue = "空白"arr = Split(varOld, vbCrLf)brr = Split(arr(UBound(arr)), "修改为: ")If Trim(brr(UBound(brr))) = Trim(Tvalue) Then Exit Sub/doc/6b15601788.html,ment.Text Text:=varOld & vbCrLf & "于 " & VBA.Now & " 修改为: " & Tvalue 100:If Err.Number <> 0 Then Target.AddComment: /doc/6b15601788.html,ment.TextText:=Trim("于 " & VBA.Now & " 修改为: " & Tvalue)With Target.Comment.Shape.T extFrame.AutoSize = True.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle.Comment.Shape.Line.ForeColor.SchemeColor = 53.Comment.Shape.Line.Weight = 1.25.Comment.Shape.T extFrame.Characters.Font.ColorIndex = 5 End WithEnd Sub。
ExcelVBA解读（63）：单元格批注
ExcelVBA解读（63）：单元格批注在使用工作表时，许多人都喜欢使用单元格批注功能，或者是标注单元格的用途、或者是记录数据的来源、或者是记录修改的时间，等等。
本文讲解在VBA中实现单元格批注的一系列操作。
下图是“审阅”选项卡中的“批注”组中的命令，我们现在就录制一些创建、显示、删除批注的操作，并对照录制的代码来认识在VBA中是如何操作单元格批注的。
首先，使单元格B3为当前单元格，单击“新建批注”添加批注，在批注框中输入文本，然后再次选择单元格B3，单击“显示/隐藏批注”，最后单击“删除”按钮删除刚才创建的批注。
录制的代码如下：下面我们详细讲解一下代码中相关的属性和方法。
AddComment方法给单元格添加批注。
其语法为：Range对象.AddComment(Text)其中，参数T ext用来指定批注文本。
Comment属性返回Comment对象，代表与单元格区域左上角的单元格相关联的批注。
Comment对象是Comments集合的成员。
Visible属性Comment对象的Visible属性用于返回或者设置一个布尔值（Boolean），确定是否批注可见，或者仅当用户悬浮鼠标在有批注的单元格上时可见。
Text方法用来设置批注文本。
其语法为：Comment对象.Text(Text,Start,Overwrite)其中，参数T ext用于设置批注文本，参数Start用来指定现有批注的起始点，参数Overwrite设置为True则覆盖现有批注文本。
ClearComments方法Range对象.ClearComments用于清除指定单元格区域中的所有单元格批注。
此外，Comment对象还有下列属性和方法：Author属性返回创建批注的用户姓名。
Shape属性返回代表批注框的Shape对象。
Previous属性返回Comments集合中的前一个批注。
Next属性返回Comments集合中的下一个批注。
Delete方法删除单元格批注。
89%的人都在找这套Excel技术方案大全
89%的人都在找这套Excel技术方案大全
很多人都被报表中的批注问题困扰过，四处寻找却找不全解决方案。
今天这篇教程，科普一下Excel中关于批注的各类技术~
一、快速插入批注
Shift+F2快速插入批注
下图是我的操作动态演示（点击gif可见动图）
二、快速修改批注
Shift+F2还可以快速修改批注
下图是我的操作动态演示（点击gif可见动图）
三、快速复制批注
快速复制批注，只要复制后按<Ctrl+Alt+V>选批注就可以了。
下图是我的操作动态演示（点击gif可见动图）
四、快速删除批注
快速删除批注，直接右键菜单就OK！
下图是我的操作动态演示（点击gif可见动图）
五、快速修改批注框形状
想改批注框的默认形状？在快速访问工具栏里加一个“更改形状”按钮就可以了。
下图是我的操作动态演示（点击gif可见动图）
自定义快速访问工具栏，可以点左上角的“文件”-“选项”-“快速访问工具栏”，然后添加按钮就可以了。
六、快速提取批注
想把报表里面的批注提取出来，怎么办？
下图是我的操作动态演示（点击gif可见动图）
文件中用到的宏代码如下：
•
•
•
•
•
•
Public Sub 提取批注()Dim x As RangeFor Each x In Cells.SpecialCells(xlCellTypeComments) x.Offset(, 1) = ment.TextNextEnd Sub。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1、批量修改批注位置属性
Sub 设置批注属性()
Dim TTT$
TTT = InputBox("●本程序将设置本工作表批注属性为：" & Chr(13) _
& " 【大小固定，位置随单元格而变】" & Chr(13) _
& "●选定单一单元格时，对整个工作表" & Chr(13) _
& " 进行处理，选定多个单元格时，只" & Chr(13) _
& " 处理选定区域内的单元格." _
& Chr(13) & "是否确定继续执行？", "注意", "是")
If TTT <> "是" Then Exit Sub
Application.ScreenUpdating = False
On Error GoTo 10
Dim TempRngA As Range
Dim tempRngB As Range
Set TempRngA = Selection
Set tempRngB = ActiveCell
Dim Rng As Range
Application.DisplayCommentIndicator = xlCommentAndIndicator
If Selection.Cells.Count = 1 Then Cells.Select Selection.SpecialCells(xlCellTypeComments).Select For Each Rng In Selection
Rng.Activate
ment.Shape.Select True
Selection.Placement = xlMove
Next Rng
10 TempRngA.Select
tempRngB.Activate
Set TempRngA = Nothing
Set tempRngB = Nothing
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Application.ScreenUpdating = True
End Sub
批量修改批注位置
Sub 恢复批注到默认位置()
Dim Cmt As Comment
For Each Cmt In ments
With Cmt
.Shape.Top = .Parent.Top - 7.5
.Shape.Left = .Parent.Left + .Parent.Width + 11.25 End With
Next
End Sub
2、批量修改批注文字格式
Sub 批量修改批注()
Dim cm As Comment
For Each cm In ments 'sheet1是我们要批量修改批注的工作表，可以按需改变。
With cm.Shape.TextFrame.Characters.Font
.Name = "楷体"
.Size = 14
.ColorIndex = 3
End With
Next
End Sub
3、批量修改批注框大小，统一尺寸
Sub 批量修改批注框大小()
Dim Cmt As Comment
For Each Cmt In ments
ment.Shape.Width = 200
Next Cmt
End Sub
高度
Sub 批量修改批注框高度()
Dim Cmt As Comment
For Each Cmt In ments ment.Shape.Height = 250 Next Cmt
End Sub。