Új hozzászólás Aktív témák

• #11118 Delila_1 veterán zhari #11108

  Új Válasz 2011-08-19 14:20:48 #11118

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz zhari #11108 üzenetére

  Ha erre gondoltál,

  

  ez a makró állítja elő:

  Sub megj()
  For Each CV In Range("A2:A11")
  név = CV
  If Weekday(név, 2) = 1 Then m = Date - 3 Else m = Date - 1
  
  név = Year(m) & "." & Right("0" & Month(m), 2) & "." & Right("0" & Day(m), 2)
  
  On Error Resume Next
  CV.AddComment
  CV.Comment.Text Text:=név
  CV.Select
  ActiveCell.Comment.Visible = True
  CV.Comment.Shape.Select True
  
  With Selection.ShapeRange
  .ScaleWidth 0.48, msoFalse, msoScaleFromTopLeft
  .ScaleHeight 0.23, msoFalse, msoScaleFromTopLeft
  End With
  Next
  End Sub

Új hozzászólás Aktív témák