سلام!
البته این روش یک مقدار غیر استاندارد هم هست! شما اگر بخواهید می توانید به راحتی از Property های خود سلول استفاده نمایید. یعنی Border و forecolor یا Interior یا هر Property دیگر که جهت تمیز دادن بشه به آن اتکا کرد. اما هیچ راهی برای ایجاد Oval یا بیضی و دایره با استفاده از Property سلول وجود ندارد. که برای این کار مجبور هستیم از Shape استفاده نماییم.
در صورتی که شکل اهمیت خاصی ندارد و فقط تمیز دادن برای شما مهم است بهتر است از روش Property سلول استفاده نمایید.
اما در مورد دایره و در مورد سوال خانم خاکزاد:
منتظر این سوالتون بودم. این هم راحل داره! این کد رو جایگزین کد قبل کنید:
[align=left]
کد:
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target.Text) Then
If Target.Value > 10 Then
Sheet1.Shapes.AddShape msoShapeOval, Target.Left - 5, Target.Top - 5, Target.Width + 10, Target.Height + 10
Sheet1.Shapes(Sheet1.Shapes.Count).Fill.Transparency = 1
Sheet1.Shapes(Sheet1.Shapes.Count).Line.ForeColor.RGB = 255
Else
For Each Shape In Sheet1.Shapes
If Shape.Left = Target.Left - 5 And Shape.Top = Target.Top - 5 Then
Shape.Delete
Exit For
End If
Next
End If
Else
For Each Shape In Sheet1.Shapes
If Shape.Left = Target.Left - 5 And Shape.Top = Target.Top - 5 Then
Shape.Delete
Exit For
End If
Next
End If
End Sub
[/align]
درست همون چیزی که انتظار دارید اتفاق می افته!
علاقه مندی ها (Bookmarks)