صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 12

موضوع: دستوری برای جمع زدن

Hybrid View

پست قبلی پست قبلی   پست بعدی پست بعدی
  1. #1
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

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

    دستوری برای جمع زدن

    با سلام
    یه متغیر تعریف کردم از آ ۱ تا زد ۱ و تو هر خونه یه کد نوشته شده
    و زیر هر کد چند تا عدد هست.
    چطوری میتونم دستوری بنویسم که اگه تو تکست باکس ۱ یه کدوم از متغییر ها
    را زدم بیاد اعداد زیر اون متغیر را جمع بزنه
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. #2


    آخرین بازدید
    2014/08/24
    تاریخ عضویت
    June 2011
    نوشته ها
    277
    امتیاز
    87
    سپاس
    37
    سپاس شده
    92 در 36 پست
    تعیین سطح نشده است

    RE: دستوری برای جمع زدن

    درخواستتون خیلی مبهمه. ولی تصور کنم با HLOOKUP جواب میده.

  3. #3
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

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

    RE: دستوری برای جمع زدن

    نقل قول نوشته اصلی توسط Amirsayyafi
    درخواستتون خیلی مبهمه. ولی تصور کنم با HLOOKUP جواب میده.

    طبق عکس بالا میخوام اگه هر کدوم از کدها را که زدم ، مجموع اعداد زیر اون کد تو تکس باکس بعدی نشون داده بشه



  4. #4


    آخرین بازدید
    2014/08/24
    تاریخ عضویت
    June 2011
    نوشته ها
    277
    امتیاز
    87
    سپاس
    37
    سپاس شده
    92 در 36 پست
    تعیین سطح نشده است

    RE: دستوری برای جمع زدن

    من وی بی بلد نیستم ولی فایل زیر میتونه پاسخ شما باشه.


    http://persiandrive.com/346837

  5. #5


    آخرین بازدید
    2012/08/22
    تاریخ عضویت
    June 2011
    نوشته ها
    33
    امتیاز
    8
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: دستوری برای جمع زدن

    با سلام

    دوست عزیز در فایلی که براتون تسویه حساب انجام میداد من این کارو براتون انجام داده بودم ولی با این حال فایل زیر رو ببینید

    http://upin.ir/images/xe9yziqyt9iyipuzxtwa.xls

  6. #6
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

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

    RE: دستوری برای جمع زدن

    نقل قول نوشته اصلی توسط EBRAHIMSASANI
    با سلام

    دوست عزیز در فایلی که براتون تسویه حساب انجام میداد من این کارو براتون انجام داده بودم ولی با این حال فایل زیر رو ببینید

    http://upin.ir/images/xe9yziqyt9iyipuzxtwa.xls
    ممنون دوست عزیز
    میشه در باره این کد:
    کد PHP:
    txt = Array("a2:a65536""b2:b65536""c2:c65536""d2:d65536""e2:e65536""f2:f65536""g2:g65536""h2:h65536"
    و این کد :
    کد PHP:
    TextBox2.Text Application.WorksheetFunction.Sum(Sheet1.Range(txt(c.Column 1))) 
    یه توضیحی بدید که چی میگه

  7. #7


    آخرین بازدید
    2012/08/22
    تاریخ عضویت
    June 2011
    نوشته ها
    33
    امتیاز
    8
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: دستوری برای جمع زدن

    با سلام
    Dim txt
    با این کد متغیر txt را تعریف نمودیم


    txt = Array("a2:a65536", "b2:b65536", "c2:c65536", "d265536", "e2:e65536", "f2:f65536", "g2:g65536", "h2:h65536")1
    در کد بالا با استفاده از آرایه یک بعدی به متغیر txt مقداردادیم
    توضیح اینکه آرایه ها جهت ذخیره مجموعه ای از داده ها بکار می روند ( دقت کنید که مجموعه ای از داده ها ) . آرایه ها متغیرهایی محسوب می شوند که به جای یک مقدار چندین مقدار را ذخیره می کنند که vba از آرایه های یک بعدی و چند بعدی پشتیبانی می کند . در این کد متغیر txt آرایه ای یک بعدی می باشد که برای ذخیره مقادیر ستونهای A تا H بکار رفته به غیر از ردیف یک این ستونها .
    یک آرایه تک بعدی یک ستون از داده های مربوطه می باشد ( و یا یک سطر ) و دارای نام و مؤلفه جهت دسترسی به مقادیر موجود در آرایه .


    می توانیم کد را به صورت زیر نیز تعریف کنیم
    Dim txt(7) As Range ( آرایه شامل 8 مؤلفه می باشد از 0 تا 7) که txt(0)1 در کد فوق معادل "a2:a65536" می باشد و txt(1) 1معادل "b2:b65536" و الخ


    For Each c In Sheet1.Range("a1:h1") 1
    شروع حلقه for/each که متغیر c را در مجموعه A1:H1 تعریف کرده ایم یعنی این حلقه در بین خانه های A1 تا H1 گردش می کند و شرطها و دستورات قرارگرفته در درون حلقه را برای این خانه ها بررسی و اجرا می کند


    If c = TextBox1.Text Then
    اگر متغیر c مقدارش با مقدار textbox1 برابر باشد مثلاً 101 باشد


    TextBox2.Text = Application.WorksheetFunction.Sum(Sheet1.Range(txt (c.Column-1)))1
    Application.WorksheetFunction.sum
    این کد مشخص می کند که می خواهیم از فرمولهای موجود در اکسل استفاده کنیم که در این جا sum می باشد
    Sheet1.Range(txt(c.Column – 1))1 معادل شیت یک ، مجموعه txt(1)1 می باشد c.columnیا شماره ستون برای متغیر c به عنوان مثال c=101 برابر 2 می باشد که اگر یک را از آن کم کنیم برابر یک می شود و در آرایه txt(1)1 معادل "b2:b65536" می باشد که مجموعه ی زیر ستون با سرستونی 101 می باشد ممکن است سؤالی پیش بیاید و آن اینکه چرا از شماره ستون یک را کم کنیم جواب این است که در تعریف آرایه کران پایین آرایه به طور پیش فرض صفر می باشد یعنی شماره ستون خانه های زیر ستون b که در کد ما شامل b2:b65536 می شوند و در آرایه به عنوان دومین مجموعه هستند دو می باشد حال ما برای اشاره به مجموعه b2:b65536 در آرایه باید شماره مؤلفه یک را انتخاب کنیم یعنیtxt(1)1

    End If
    پایان شرط

    Next c
    پایان حلقه c

    اعداد یکی که بعد پرانتزها گذاشته شده به خاطر مشکل نوشتن کد در صفحه فرومه که پرانتزها و بعضی کاراکترها را در سر جای خودش نمی ذاره و در کدهای شما نباید نوشته بشه

    امیدوارم تونسته باشم منظور رو رسونده باشم

  8. #8
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

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

    RE: دستوری برای جمع زدن

    خیلی زیبا و با بلاغت گفته
    ممنون

  9. #9


    آخرین بازدید
    2022/08/30
    تاریخ عضویت
    September 2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    159
    امتیاز
    38
    سپاس
    55
    سپاس شده
    33 در 24 پست
    سطح اکسل
    45.00 %

    RE: دستوری برای جمع زدن

    با اجازه اساتيد محترم

    اين فايل را هم ببين
    http://uplod.ir/w1h92grwk4wk/total.xlsm.htm

  10. #10


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    RE: دستوری برای جمع زدن

    نمیدونم چه اصراری بر استفاده از فرم بوده گرچه در vba هم میشه این کارو کرد با یک خط کد و ترکیب سه فرمول sum,offset, count


صفحه 1 از 2 12 آخرینآخرین

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

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

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

موضوعات مشابه

  1. دستور حلقه جهت پاک کردن سلول
    توسط khorasan66 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 9
    آخرين نوشته: 2013/12/18, 20:52
  2. ساختار صحیح دستورات شرطی در vb
    توسط امیر رضا دهقان در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2013/01/05, 09:40
  3. حذف ردیف با دستور
    توسط khorasan66 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2013/01/03, 16:39
  4. دستور پرينت
    توسط sohrabahmadi در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/11/30, 08:57
  5. دستوری برای فیلتر کردن
    توسط farzin24622 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 5
    آخرين نوشته: 2011/12/28, 00:55

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

كد دستوری اكسل برای جمع زدن

کدهای دستوری اکسل

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

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

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