Tag: 评论

Excelmacros，显示在保护模式下的某些单元格的评论: 我需要帮助创build一个将显示位于某些合并的单元格中的注释的macros。该macros将链接到一个button，当用户单击该button时，将显示位于特定合并单元格中的注释。我目前有一个我在网上find的代码，显示了工作簿中的所有注释。但是，这个代码将不起作用，因为我的工作簿需要保护，这意味着macros将查看locking的单元格并提前结束。我已经粘贴下面的代码： Sub Show_Comment() On Error Resume Next For Each ws In ActiveWorkbook.Sheets Set allCommentRng = ws.Cells.SpecialCells(xlCellTypeComments) For Each Rng In allCommentRng Rng.Comment.Visible = True Next Next On Error GoTo 0 End Sub 有了这个说，我需要知道如何指定一个具有评论的某个合并范围。第一个合并范围是C7:C8-E7:E8 。如果我知道如何做一个范围，我会想办法去做别人。总结一下，我需要帮助创build一个macros，该macros将显示位于某些合并单元格中的注释，并且必须在工作簿受到保护且大多数单元格将被locking时工作。我需要知道如何指定一个特定的合并范围，并有一个macros的外观，只影响指定，解锁单元格。这是一个个人项目，不适用于学校或工作。任何帮助将是有益的。我提前谢谢你。如果您需要更多信息，请告诉我。单元格的样子以及button的图片：

使用python win32添加评论到excel: 我正在尝试添加新的评论，以使用Win32的python擅长。 import win32com.client as win32 excel = win32.gencache.EnsureDispatch('Excel.Application') wb = excel.Workbooks.Open(r'C:\…\.xlsx') ws = wb.Worksheets('sheet1') ws.Cells(1,1).AddComment = "comment" – >对象没有属性'AddComment' 你知道如何添加新的评论，以使用Win32的Excel吗？谢谢！

简单的VBA显示/隐藏Excel注释问题: 这给了我更多的麻烦。我有一个Excel电子表格的意见。我有一个button。当用户点击button时，应该显示注释。当他们再次点击时，评论应该消失。这是我试图使用的代码 – 他们都独立工作，但是当我把一个If Then Else的声明，我得到错误，无论我尝试： Sub showcomments() If Comments <> "Visible" Then Application.DisplayCommentIndicator = xlCommentAndIndicator Else: Application.DisplayCommentIndicator = xlCommentIndicatorOnly End If End Sub 我已经尝试所有的间距，缩进等变化我已经尝试其他如果注释=可见; 似乎没有什么工作，这应该是一个这么简单的任务。我通常会得到错误“其他没有，如果”，尽pipe它在那里。谢谢：）

Excel：使用vba添加评论作者: 当我手动添加注释到单元格（使用插入注释命令）时，文本前面加上我的粗体字的用户名。是否有可能使用Range.AddComment() （无论哪个用户正在运行macros）复制在vba中创build的注释这个特性？

如何用图片插入评论到Excel中使用C＃: 正如我在标题中所描述的，如何使用C＃将图片作为注释插入到Excel中？请提供一个示例代码或一些参考文件。以下是我的代码： using Excel=MicroSoft.Office.Interop.Excel; publice void ExcelEdit(string Path) { Excel.Application xlApp; Excel.WorkBook xlWorkBook; Excel.WorkSheet xlWorkSheet; Excel.Range myRange; xlApp=new Excel.ApplicationClass(); xlWorkBook=xlApp.WorkBooks.Open(Path, misValue, misValue,misValue, misValue,misValue, misValue,misValue, misValue,misValue, misValue,misValue, misValue,misValue, misValue) xlApp.Visable=True; xlWorkSheet=(Excel.WorkSheet)xlWorkBook.Sheets.get_Item(1); myRange=WorkSheet.Range[WorkSheet.Cells[1,1],WorkSheet.Cells[1,1]); xlWorkSheet.Cells[1,1]=InstertPictureComment(myRange,Path); myRange=WorkSheet.Range[WorkSheet.Cells[1,2],WorkSheet.Cells[1,2]); xlWorkSheet.Cells[1,1]=InstertPictureComment(myRange, Path); } public void InstertPictureComment(Excel.Range myrange, string picturepath) { myrange.ClearComment(); myrange.AddComment(); myrange.Comment.Shape.Fill.UserPicture(picturepath); myrange.Comment.Shape.Width=400; myrange.Comment.Shapes.Height=300; } 我可以成功地将图片注释插入到Excel中。问题是：当我复制并粘贴刚插入注释的单元格时，保存excel并closures它。下次当我打开excel时，messagebox显示“找不到xxx中的不可读内容”。如何处理我的代码！

excel vba shape.copy在一个实例中工作，但不在另一个实例中: 如果（在Excel 2010中）我创build一个形状对象如下所示： Set ws = ActiveSheet Set sh = ws.Shapes.AddPicture(inpicfile, msoFalse, msoTrue, 0, 0, widpts1, htpts1) 然后我可以用一条语句将该图片复制到剪贴板： sh.Copy 但是如果我在一个单元格的评论中有一张图片，那么我的形状如下： Set sh = Activecell.Comment.Shape 那么一个sh.copy语句会给我一个Run Tim错误'1004'; 应用程序定义或对象定义的错误。任何人知道为什么我发现以下方法来复制评论图片，但我想了解两个“形状”之间的区别。 Application.ScreenUpdating = False c.Comment.Visible = True sh.Select sh.CopyPicture Appearance:=xlScreen, Format:=xlPicture c.Comment.Visible = False Application.ScreenUpdating = True （c是单元格的范围对象。）

将多个评论调整为固定大小: 我创build了一张Excel表格来复制办公室的桌面计划，使用filled with picture注释显示框在鼠标hover上显示面部filled with picture 。我通过格式对象精心devise尺寸为4.5cm x 4cm 。但是，由于一些小的改动，尺寸改变了。我发现，使用VBA的人已经做了一个大规模的“自动调整”的改变，我认为我可以将它调整到一个固定的大小，以节省时间。这是我的， *4.5cm x 4cm*是有问题的地区，除非它是所有需要改变，帮助？ Sub FitComments() Dim xComment As Comment For Each xComment In Application.ActiveSheet.Comments xComment.Shape.TextFrame.Size = * 4.5cm x 4cm * Next End Sub

在excel中评论这样pandas不读它: 我想在我的Excel文档中实现一些注释，但我不想要pandas能够看到他们，因为我有很多需要评论的标题，但不想更改我的整个脚本，包括从这些标题获取值时的评论.. 我有添加一个“评论标题”，而不是在导入Excel文档时读取这个特定的标题，但是如果在将来可能会发生在标题以外的其他评论时，我想要一个不同的解决scheme。

Excel VBA弹回我的空格键动作: 这是一个奇怪的问题，但我无法在Google中正确地提出问题。当我在Excel-VBA中写评论时，由于某种原因，我的光标在所有的空格栏点击中都会弹回。例： Dim Arr() As String 'This is |<– When I hit the space bar, I expect the cursor to be here. 但是，如果我不够快，就把它重新放回'This is|<– Here 这实在让我感到困扰，因为我必须经常来回地把空格放在我的空白文本行中。一些行为：当input速度非常快时，我认为我能够超调（？）replace，并且不会将其折回，但是如果我慢慢走，速度会比我快。另外，如果我击中空间，它会回缩，我击中空间，它移动光标，现在只有在0.5秒的延迟后，它再次将其alignment。我有Excel 2010。其他人有同样的问题，或知道如何解决它？这不是一件大事，它只是令人讨厌。

VBA Excel复制注释，包括格式: 我正在使用Excel 2007，并尝试编写将复制单元格注释（包括格式）的VBA子例程。单元格注释可以包含基本的文本格式（例如，粗体等样式），我可以成功复制文本，但无法find一种方式来带格式。我希望我可以简单地定义一个评论对象，然后设置它，但没有去： Sub TestCommentCopy() Dim r As Range Dim c As Comment Set r = Selection If (Not r.Areas(1).Comment Is Nothing) Then Set c = r.Areas(1).Comment End If 'Set r(1, 2).Comment = c ' Object error ' r(1, 2).Comment = c 'Object error ' Set r(1,2).Comment = c ' Object error r(1, 2).ClearComments […]