پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 7 , از مجموع 7

موضوع: خلاصه کردن فرمول

  1. #1


    آخرین بازدید
    2014/06/23
    تاریخ عضویت
    December 2013
    نوشته ها
    130
    امتیاز
    42
    سپاس
    0
    سپاس شده
    32 در 31 پست
    تعیین سطح نشده است

    خلاصه کردن فرمول

    سلام 5 محصول دارم باشرایط خاص مثلا با تخفیف، با برگشت کالا، اقساطی و ..... در فرمی اطلاعات وارد میشود که بعد ازورود اطلاعات وصدور فاکتور (sheet3) ، اطلاعات در شیت 11 ذخیره میشود
    برای اینکه امکان جستجو بعدا محدود شود.اطلاعات هرکدام از محصولات در ستونهای مختلف ذخیره میشود مثلا محصول شماره 1 در ردیفهایa:k و محصول2 در ردیفهای m:y و... اما فرمول نوشته شده طولانی شده وپیام خطا میدهد ایا راه ساده تر و کوتاه تری هست؟ قسمتی از فرمول در زیر امده (برای محصول1) واین روند برای سایر محصولها ادامه دارد.ممنون
    Sheets("sheet11").Activate

    num = Application.WorksheetFunction.CountA(Range("A:A")) + 1
    If Sheet3.Range("c6") = "محصول1" Then
    Sheet11.Range("a3:k3").Cells(num, 1) = Sheet3.Range("A4").Text

    Sheet11.Range("a3:k3").Cells(num, 2) = Sheet3.Range("b14").Text

    Sheet11.Range("a3:k3").Cells(num, 3) = Sheet3.Range("b13").Text
    Sheet11.Range("a3:k3").Cells(num, 4) = Sheet3.Range("C5").Text
    Sheet11.Range("a3:k3").Cells(num, 5) = Sheet3.Range("C4").Text
    Sheet11.Range("a3:k3").Cells(num, 6) = Sheet3.Range("C6").Text



    num = Application.WorksheetFunction.CountA(Range("A:A")) + 1

    If Sheet3.Range("C15").Text <> "" And Sheet2.Range("i1") = True Then
    Sheet11.Range("a3:k3").Cells(num, 1) = Sheet3.Range("a4")
    Sheet11.Range("a3:k3").Cells(num, 2) = Sheet3.Range("d15")
    Sheet11.Range("a3:k3").Cells(num, 3) = Sheet3.Range("c15")
    Sheet11.Range("a3:k3").Cells(num, 5) = Sheet2.Range("b12")
    Sheet11.Range("a3:k3").Cells(num, 6) = Sheet3.Range("c6")
    Sheet11.Range("a3:k3").Cells(num, 4) = Sheet3.Range("c5")
    End If
    num = Application.WorksheetFunction.CountA(Range("A:A")) + 1

    If Sheet3.Range("C15").Text <> 0 And Sheet2.Range("i1") = True And Sheet2.Range("c12") <> 0 Then
    Sheet11.Range("a3:k3").Cells(num, 1) = Sheet3.Range("a4")
    Sheet11.Range("a3:k3").Cells(num, 2) = Sheet3.Range("d15")
    Sheet11.Range("a3:k3").Cells(num, 3) = Sheet3.Range("c15")
    Sheet11.Range("a3:k3").Cells(num, 5) = Sheet2.Range("c12")
    Sheet11.Range("a3:k3").Cells(num, 6) = Sheet3.Range("c6")
    Sheet11.Range("a3:k3").Cells(num, 4) = Sheet3.Range("c5")
    End If
    num = Application.WorksheetFunction.CountA(Range("A:A")) + 1

    If Sheet3.Range("C15").Text <> "" And Sheet2.Range("i1") = True And Sheet2.Range("d12") <> 0 Then
    Sheet11.Range("a3:k3").Cells(num, 1) = Sheet3.Range("a4")
    Sheet11.Range("a3:k3").Cells(num, 2) = Sheet3.Range("d15")
    Sheet11.Range("a3:k3").Cells(num, 3) = Sheet3.Range("c15")
    Sheet11.Range("a3:k3").Cells(num, 5) = Sheet2.Range("d12")
    Sheet11.Range("a3:k3").Cells(num, 6) = Sheet3.Range("c6")
    Sheet11.Range("a3:k3").Cells(num, 4) = Sheet3.Range("c5")
    End If
    num = Application.WorksheetFunction.CountA(Range("A:A")) + 1

    If Sheet3.Range("C15").Text <> "" And Sheet2.Range("e12") <> 0 And Sheet2.Range("i1") = True Then
    Sheet11.Range("a3:k3").Cells(num, 1) = Sheet3.Range("a4")
    Sheet11.Range("a3:k3").Cells(num, 2) = Sheet3.Range("d15")
    Sheet11.Range("a3:k3").Cells(num, 3) = Sheet3.Range("c15")
    Sheet11.Range("a3:k3").Cells(num, 5) = Sheet2.Range("e12")
    Sheet11.Range("a3:k3").Cells(num, 6) = Sheet3.Range("c6")
    Sheet11.Range("a3:k3").Cells(num, 4) = Sheet3.Range("c5")
    End If
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,399
    امتیاز
    12759
    سپاس
    4,642
    سپاس شده
    12,135 در 3,224 پست
    سطح اکسل
    70.00 %

    بهتره کاری که میخواید انجام بدید توضیح بدید و از این کدها صرف نظر کنید تا با روش های بهتری راهنمایی بشید




  4. #3


    آخرین بازدید
    2023/07/20
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    141
    امتیاز
    322
    سپاس
    222
    سپاس شده
    254 در 82 پست
    سطح اکسل
    55.00 %

    نقل قول نوشته اصلی توسط ~M*E*H*D*I~ نمایش پست ها
    بهتره کاری که میخواید انجام بدید توضیح بدید و از این کدها صرف نظر کنید تا با روش های بهتری راهنمایی بشید
    بنده با آقا مهدي موافقم چون احتمالا براي انجام كار مورد نظر شما از فرمول هاي داخلي اكسل راحت تر ميشه استفاده كرد و نيازي به اين حجم استفاده از كد نيست


  5. #4


    آخرین بازدید
    2014/06/23
    تاریخ عضویت
    December 2013
    نوشته ها
    130
    امتیاز
    42
    سپاس
    0
    سپاس شده
    32 در 31 پست
    تعیین سطح نشده است

    سلام توضیح دادم یه سری اطلاعات در شیت ۳ محاسبه میشه که با توجه به نوع محصول شماره ۱الی ۶ در شیت ۱۱ در خانه های مربوط به خودشان باید ذخیره بشن

  6. #5


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,039
    امتیاز
    4524
    سپاس
    2,507
    سپاس شده
    4,112 در 1,244 پست
    سطح اکسل
    85.00 %

    khakzad به Yahoo ارسال پیام
    دوست عزیز. فایلتون رو بذارید.یا اگر امکانش نیست، نمونه (مشابه) فایل رو بذارید.
    اینطور که بنده برداشت کردم شما ساختار دیتابیس رو در ثبت اطلاعات ر شیت 11 رعایت نکردید و این باید اصلاح بشه. چون برای گرفتن گرارش های مختلف از یک دیتابیس اول از همه باید یک ساختار درست داشته باشه.
    اصل موضوعی که می خواید فکر می کنم کار شده قبلا.اینکه محصولات مختلف با مشخصات مختلف از یک فرم وارد شیت بشن.پس مشکلی در این مورد نیست. ساختارتون درست بشه بقیش حل میشه


  7. #6


    آخرین بازدید
    2014/06/23
    تاریخ عضویت
    December 2013
    نوشته ها
    130
    امتیاز
    42
    سپاس
    0
    سپاس شده
    32 در 31 پست
    تعیین سطح نشده است

    سلام ممنونم.فایل ازمایشی را پیوست کردمazmayesh.xlsm

  8. #7


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,039
    امتیاز
    4524
    سپاس
    2,507
    سپاس شده
    4,112 در 1,244 پست
    سطح اکسل
    85.00 %

    khakzad به Yahoo ارسال پیام
    بله
    همونطور که گفتم ساختار دیتابیس اشتباس
    شما در شیت 11 فقط باید یکی از اون جدول ها رو داشته باشید و یک ستون محصول اضافه کنید بهش و بقیه رو پاک کنید
    در این صورت یک جدول خواهید داشت.
    کدنویسی و فرمول نویسی راحت تر و منطقی تری خواهید داشت
    بعد که این کا ررو کردید. کدهای زیادی در مورد ثبت داده ها و . . .موجود هست توی سایت.سرچ کنید پیدا می کنید. کدهای مربوط به ثبت اطلاعات در اخرین ردیف مجموعه

    شروع کنید.سوالی بود در خدمتم



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

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

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

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

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

کلمات کلیدی این موضوع

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

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

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