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

موضوع: جمع فروش ماهیانه با ماکرو

  1. #1


    آخرین بازدید
    2023/08/09
    تاریخ عضویت
    December 2013
    نوشته ها
    176
    امتیاز
    88
    سپاس
    84
    سپاس شده
    46 در 32 پست
    سطح اکسل
    35.00 %

    جمع فروش ماهیانه با ماکرو

    با سلام
    دوستان عزیز سوالی داشتم در خصوص جمع مقدار فروش هر ماه با استفاده از ماکرو . با توجه به فایل ضمیمه بنده را راهنمایی کنید ممنون میشم .
    با تشکر
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsx Book1.xlsx اطلاعات (16.6 کیلو بایت, 15 نمایش)
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

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

    کد PHP:
    Sub mehr()

        
    Sheets("Sheet1").Select
        ActiveSheet
    .ListObjects("Table1").Range.AutoFilter Field:=3Criteria1:= _
            
    "07"
        
    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده

  4. سپاس ها (2)


  5. #3


    آخرین بازدید
    تاریخ عضویت
    June 2014
    محل سکونت
    خوزستان-بهبهان
    نوشته ها
    1,496
    امتیاز
    6803
    سپاس
    4,206
    سپاس شده
    3,844 در 1,281 پست
    تعیین سطح نشده است

    با سلام
    علاوه بر پاسخ دوست عزیز جناب iranweld از این کد نیز میتونید استفاده کنید بدون استفاده از ستون کمکی
    کد PHP:
    Sub mehr()

        
    Sheets("Sheet1").Select
        ActiveSheet
    .ListObjects("Table1").Range.AutoFilter Field:=2Criteria1:= _
            
    "1394/07/*"
    End Sub

    Sub aban
    ()

        
    Sheets("Sheet1").Select
        ActiveSheet
    .ListObjects("Table1").Range.AutoFilter Field:=2Criteria1:= _
            
    "1394/08/*"
    End Sub

    Sub azar
    ()

        
    Sheets("Sheet1").Select
        ActiveSheet
    .ListObjects("Table1").Range.AutoFilter Field:=2Criteria1:= _
            
    "1394/09/*"
    End Sub

    Sub dey
    ()

        
    Sheets("Sheet1").Select
        ActiveSheet
    .ListObjects("Table1").Range.AutoFilter Field:=2Criteria1:= _
            
    "1394/10/*"
    End Sub

    Sub bahman
    ()

        
    Sheets("Sheet1").Select
        ActiveSheet
    .ListObjects("Table1").Range.AutoFilter Field:=2Criteria1:= _
            
    "1394/11/*"
    End Sub

    Sub esfand
    ()

        
    Sheets("Sheet1").Select
        ActiveSheet
    .ListObjects("Table1").Range.AutoFilter Field:=2Criteria1:= _
            
    "1394/12/*"
    End Sub 



  6. سپاس ها (3)



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

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

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

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

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

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

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

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

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