|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Private Sub CommandButton1_Click()
Dim CELL, RNG As Range
XX = ComboBox1.Value
Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
Set RNG = Sheet1.Range("A3:A" & Z)
For Each CELL In RNG
If XX = CELL Then
ROWC = CELL.Row
For I = 1 To 5
If Me.Controls("CheckBox" & I) = True Then
Sheet1.Cells(ROWC, I + 1) = "OK"
End If
Next
End If
Next
For I = 1 To 5
Me.Controls("CheckBox" & I) = False
Next
End Sub
کامنت