Início / user-30261200

nickC's questions

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

Existe uma maneira de copiar e colar em um comentário de célula? Só é possível fazer isso a partir da área de transferência, não de uma referência de célula ou intervalo. Ou existe uma maneira de usar o VBA para acessar as informações na área de transferência e depois colar?

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

Preciso das informações da variável do intervalo chamado "calcom" ou, se for mais fácil, das células concatenadas no B6 e copiar e colar no comentário

excel
Martin Hope
nickC
Asked: 2025-04-20 06:26:57 +0800 CST
  • 8

Essas datas são produzidas pelo calendário de Trevor Eyre no formato dos EUA, então converti para o Reino Unido para meus usuários. No entanto, acho que é por isso que não consigo encontrar a diferença de data, já que não é mais um número. Existe uma maneira?

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

Depois de vários dias, percebi que sDate estava repetido nas caixas de texto 6 e 7. Com 77, meu cérebro está confuso. Agora funciona perfeitamente. Obrigado `Private Sub TextBox6_Enter() ' CALENDAR data de chegada

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

sDate = Format(dateVariable, "dd/mm/aaaa") 'muda o formato dos EUA para o Reino Unido TextBox6.value = sDate 'entrada na caixa de texto End Sub

Private Sub TextBox7_Enter() 'Data de saída do CALENDÁRIO

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

tDate = Format(dateVariable, "dd/mm/aaaa") 'altera o formato dos EUA para o Reino Unido TextBox7.value = tDate

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

vba