پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

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

  1. #1


    آخرین بازدید
    23 _ 02 _ 2013
    تاریخ عضویت
    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


    آخرین بازدید
    08 _ 03 _ 2017
    تاریخ عضویت
    November_2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    261
    سپاس
    193
    سپاس شده
    562 در 140 پست

    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


    آخرین بازدید
    23 _ 02 _ 2013
    تاریخ عضویت
    January_2011
    نوشته ها
    36
    امتیاز
    3
    سپاس
    0
    سپاس شده
    6 در 4 پست

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

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


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

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

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

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

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

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

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