morteza2006
2011/05/29, 16:09
[/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
[
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