|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Private Sub UserForm_Initialize()
Dim CELL, rng As Range
Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
K1 = Application.WorksheetFunction.CountA(Sheet1.Range("1:1"))
Set rng = Sheet1.Range("c2:c" & Z1)
ListBox1.Clear
ListBox1.ColumnCount = K1 + 2
ListBox1.ColumnWidths = "0;160;80;80;100;80;40;20"
For Each CELL In rng
ListBox1.AddItem CELL.Address
For i = 1 To K1
ListBox1.List(ListBox1.ListCount - 1, i) = Cells(CELL.Row, K1 - i + 1)
Next i
Next CELL
For i = 1 To 6
Me.Controls("Label" & i).Caption = Sheet1.Cells(1, i)
Next
TextBox2.SetFocus
End Sub
کامنت