نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

موضوع: میشه بگید این کدها چی هستند ؟

  1. #1


    آخرین بازدید
    2013/02/23
    تاریخ عضویت
    January 2011
    نوشته ها
    36
    امتیاز
    3
    سپاس
    0
    سپاس شده
    6 در 4 پست
    تعیین سطح نشده است

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

    [/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
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    362
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام

    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

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

  4. #3


    آخرین بازدید
    2013/02/23
    تاریخ عضویت
    January 2011
    نوشته ها
    36
    امتیاز
    3
    سپاس
    0
    سپاس شده
    6 در 4 پست
    تعیین سطح نشده است

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

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


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد