میشه بگید این کدها چی هستند ؟

[morteza2006]

[/align]ببخشین دوستان کسی میتونه خط به خط بگه این فرمولها چیکار میکنن ممنون
[
Private Sub CommandButton1_Click()
Dim c As Range
If TextBox1.Text <> "" Or TextBox2.Text <> "" Or TextBox3.Text <> "" Then

For Each c In Range("A1:A10000")
If c = "" Then
c = TextBox1.Text
c.Offset(0, 1) = TextBox2.Text
c.Offset(0, 2) = TextBox3.Text
c.Offset(0, 3) = TextBox4.Text
c.Offset(0, 4) = TextBox5.Text
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
Exit Sub
End If
Next
Else
MsgBox ("ÇØáÇÚÇÊ ÑÇ æÇÑÏ ˜äíÏ")
End If

End Sub

[MEYTI]

RE: میشه بگید این کدها چی هستند ؟

با اجازه اساتید من به زبانی ساده در حد سواد ناچیز خودم براتون توضیح میدم


Private Sub CommandButton1_Click()
دستوری برای دکمه 1
Dim c As Range
lمشخص کردن نوع c
If TextBox1.Text <> "" Or TextBox2.Text <> "" Or TextBox3.Text <> "" Then
اگر textbox 1 -2-3 خالی بود دستور زیر اجرا بشه
For Each c In Range("A1:A10000")
c مساوی با هر سلولی از a1 تا a10000
If c = "" Then
اگر c خالی بود دستورات زیر اجرا بشه
c = TextBox1.Text
c.Offset(0, 1) = TextBox2.Text
c.Offset(0, 2) = TextBox3.Text
c.Offset(0, 3) = TextBox4.Text
c.Offset(0, 4) = TextBox5.Text
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
سلول پیدا شده و چهار سلول همجوارش مساوی بشه با مقدارتکس باکس 1تا 5 و بعد از آن تکس باکس ها خالی شوند
Exit Sub
End If
پایان شرط دوم
Next
خروج از حلقه
Else
در صورت برقرار نبودن شرط پیغام زیر نمایش داده شود.
MsgBox ("ÇØáÇÚÇÊ ÑÇ æÇÑÏ ˜äíÏ")
End If

ببخشید اگه ناقص بود امیدوارم دوستان دیگه کاملتر و بهتر توضیح بدن

[morteza2006]

RE: میشه بگید این کدها چی هستند ؟

خیلی هم عالی بود ممنونم