主页 / user-30261200

nickC's questions

Martin Hope
nickC
Asked: 2025-04-29 23:16:16 +0800 CST
  • 7

有没有办法复制粘贴到单元格注释中？只能从剪贴板复制粘贴，不能从单元格或区域引用复制粘贴。或者有没有办法用 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
Martin Hope
nickC
Asked: 2025-04-20 06:26:57 +0800 CST
  • 8

这些日期是根据 Trevor Eyre 的美国格式日历生成的，所以我已将其转换为英国格式供用户使用。不过，我猜这就是为什么我找不到日期差值的原因，因为它不再是数字。有什么办法吗？

Private Sub TextBox6_Enter()
'CALENDAR arrival date
    Dim dateVariable As Date
    dateVariable = CalendarForm.GetDate
    Dim sDate As String 'changes format from USA for UK users
    sDate = Format(dateVariable, "dd-mmm-yy")
    TextBox6.value = sDate
End Sub
Private Sub TextBox7_Enter()
'CALENDAR date leave
    Dim dateVariable As Date
    dateVariable = CalendarForm.GetDate
    Dim sDate As String
'changes format from USA to UK
    sDate = Format(dateVariable, "dd-mmm-yy")
    TextBox7.value = sDate
End Sub
  Private Sub TextBox20_change()
'Number of NIGHTS
     TextBox20.value = DateDiff("d", DateValue(TextBox6.value), TextBox7.value)
End Sub

几天后，我意识到 sDate 在 TextBox 6 和 TextBox 7 中重复了。77 的时候我的脑子都糊涂了。现在一切正常了。谢谢 `Private Sub TextBox6_Enter()' CALENDAR 到达日期

Dim dateVariable As Date
dateVariable = CalendarForm.GetDate
TextBox6.value = dateVariable

sDate = Format(dateVariable, "dd/mm/yyyy") '将格式从美国更改为英国 TextBox6.value = sDate '输入文本框 End Sub

Private Sub TextBox7_Enter() '日历日期休假

Dim dateVariable As Date
dateVariable = CalendarForm.GetDate
TextBox7.value = dateVariable

tDate = Format(dateVariable, "dd/mm/yyyy") '将格式从美国更改为英国 TextBox7.value = tDate

TextBox20.Text = DateDiff("d", TextBox6.value, TextBox7.value) End Sub```

vba