توابع شرطی if تو در تو

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • perspolis52

    • 2015/03/01
    • 27

    توابع شرطی if تو در تو

    سلام
    این کد رو چطور قرار بدم که درست اجرا بشه؟؟؟
    ActiveCell.Offset(1, 0).Select

    If Add_Color.Enabled = True Then
    Selection = code.Text
    ActiveCell.Offset(0, 1) = title.Text
    End If
    If Add_Patern.Enabled = True Then
    Selection = code.Text
    ActiveCell.Offset(0, 1) = title.Text
    End If
    If Add_Size.Enabled = True Then
    Selection = code.Text
    ActiveCell.Offset(0, 1) = width1.Text
    ActiveCell.Offset(0, 2) = length.Text
    End If

    code.Text = code.Text + 1
    title.Text = ""
    length.Text = ""
    width1.Text = ""

    هر حالتی رو امتحان می کنم یکی از فیلد ها رو جایگزین نمیکنه. مثلا یه بار فیلد عنوان رو نمیاره یه بار فیلد طول و عرض .
    فایل های پیوست شده
چند لحظه..