|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
نمایش تصویر با انتخاب یک سلول
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Address <> Range("a" & Target.Row).Address Then
ActiveSheet.Shapes.Range(Array("Rectangle1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.BackColor.ObjectThemeColor = msoThemeColorBackground1
.BackColor.TintAndShade = 0
.BackColor.Brightness = 0
.Patterned msoPattern5Percent
End With
Target.Select
Exit Sub
End If
If Target.Address = Range("a" & Target.Row).Address And Range("a" & Target.Row) <> "" Then
ActiveSheet.Shapes.Range(Array("Rectangle1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.UserPicture "E:\pictures\" & Target.Value & ".jpg"
.TextureTile = msoFalse
End With
Range("a" & Target.Row).Select
Else
ActiveSheet.Shapes.Range(Array("Rectangle1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.BackColor.ObjectThemeColor = msoThemeColorBackground1
.BackColor.TintAndShade = 0
.BackColor.Brightness = 0
.Patterned msoPattern5Percent
End With
Range("a" & Target.Row).Select
End If
End Sub
کامنت