السلام عليكم اخواني
عندي طلب صغير ومابظن انه صعب على العمالقة ... بدي كود vba بمجرد ما خلية من خلاية عامود معين تمتلئ يظهر إضافة كومنت تلقائياً
انا لقيت هاد الكود وهو ممتاز بس فيه مشكلتين اولاً انه الكونت مابيختفي بعد الإضافة وثانياً لازم اضغط على الخلية يلي بدي ضيف الكومنت فيها وبعدين اضغط على زر لإستدعاء الكود
يلي عنده طريقة لتعديل الكود بكون ممنونه او كود يكون احسن منه ومو شرط يكون يكون كومنت ممكن يكون فورم كومنت
Sub Jacks_SpecialCommentBox()
' Jack Creates the comment.
ActiveCell.AddComment ("")
' Can have user name in top left by adding name between ""
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select
With Selection
'Jack Chooses the CLOUD AutoShape from Drawing T/Bar.
.ShapeRange.AutoShapeType = _
msoShapeLineCallout3
'Jack decides to have col(u)rs in the cloud.
.ShapeRange.Fill.PresetGradient _
msoGradientHorizontal, 1, _
msoGradientHorizon
' Jack decides to have BOLD and Italics, felt like it!
.Font.Name = "GE SS Two Bold"
.Font.FontStyle = "Bold Italic"
.Font.Size = 18
'Jack moves and resizes the cloud - wanted to!
Selection.ShapeRange.Adjustments.Item(1) = -2
Selection.ShapeRange.ScaleWidth 0.8, msoFalse, msoScaleFromTopright
End With
End Sub
وشكراً