主页 / coding / 问题 / 79598707
Accepted
nickC
Asked: 2025-04-29 23:16:16 +0800 CST

复制粘贴到单元格注释

  • 772

有没有办法复制粘贴到单元格注释中？只能从剪贴板复制粘贴，不能从单元格或区域引用复制粘贴。或者有没有办法用 VBA 调用剪贴板中的信息然后粘贴？

Sub fillcomment()
    
    Sheets("Calendar").Select
    Application.Goto Reference:=Range(Range("Calendar!calendarRef").value)
    Application.CutCopyMode = False
    
    Sheets("FORMULAS").Select  'Surname
     Range("C8").Select
    Selection.Copy
    
    Sheets("Calendar").Select  'paste surname
    ActiveCell.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      Application.CutCopyMode = False
   
  
    'select and paste comment
        Sheets("Calendar").Select
        ActiveCell.ClearComments
        ActiveCell.AddComment
        ActiveCell.Comment.Visible = False
        ActiveCell.Comment.Text Text:=Range(Range("FORMULAS!calcom").value)

End Sub

我需要来自名为“calcom”的范围的变量信息，或者如果更容易的话，从 B6 中的连接单元格中获取变量信息并复制粘贴到注释中

excel

1 个回答

  1. Best Answer

    改进宏记录器代码

    Sub PopulateCalendarRef()
    
    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
    
    Dim cws As Worksheet: Set cws = wb.Sheets("Calendar")
    Dim fws As Worksheet: Set fws = wb.Sheets("Formulas")
    
    With cws.Range("calendarRef")
        .Value = fws.Range("C8").Value ' surname
        .ClearComments
        .AddComment
        '.Comment.Visible = False ' is default
        .Comment.Text CStr(fws.Range("calcom").Value)
    End With

End Sub
    • 1

相关问题