فایل رو عزیزان دیگه ای تهیه کردن من فقط قرار دادم . شما میتونید با زدن کلید Alt+F11 و ورود به قسمت کدنویسی و انتخاب userform1 و دابل کلیک بر روی دکمه ایجاد کد های مربوطه رو مشاهده کنید.
کد:
Private Sub CommandButton1_Click()
Dim A As Range
If TextBox1.Text <> "" Then
For Each A In Range("A1:A10000")
If A = "" Then
A = TextBox1.Text
A.Offset(0, 1) = A.Offset(-1, 1).Value + "1"
A.Offset(0, 2) = Label2.Caption
A.Offset(0, 3) = Label1.Caption
TextBox1.Text = ""
Exit Sub
End If
Next
Else
MsgBox ("اطلاعات را وارد کنيد")
End If
End Sub
علاقه مندی ها (Bookmarks)