با تشکر از شما
آیا امکان گذاشتن یک نمونه برای شما هست؟
من هر کار کردم نتونستم درست بن.یسمش
ممنون میشم راهنمایی بکنید
با تشکر
|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|

Private Sub CommandButton1_Click()
For Each c In Range("a1:a20")
If c.Value = TextBox1.Text Then
ListBox1.AddItem c
ListBox1.List(ListBox1.ListCount - 1, 1) = c.Offset(0, 1).Text
ListBox1.List(ListBox1.ListCount - 1, 2) = c.Offset(0, 2).Text
ListBox1.List(ListBox1.ListCount - 1, 3) = c.Offset(0, 3).Text
ListBox1.List(ListBox1.ListCount - 1, 4) = c.Offset(0, 4).Text
ListBox1.List(ListBox1.ListCount - 1, 5) = c.Offset(0, 5).Text
End If
Next
End Sub
کامنت