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

موضوع: مانده گیری لیست بدهکاران

  1. #1


    آخرین بازدید
    2022/12/14
    تاریخ عضویت
    March 2011
    محل سکونت
    کرج
    نوشته ها
    649
    امتیاز
    1611
    سپاس
    2,233
    سپاس شده
    1,581 در 464 پست
    سطح اکسل
    80.00 %

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

    مانده گیری لیست بدهکاران

    سلام خدمت دوستان عزیز
    لیست بدهکارانی دارم بشکل فایل پیوست
    من مانده بدهی هر بیمه نامه رو با یک شرط لازم دارم یعنی مثلاً در شیت دیگه یا فایل دیگه من بگم اقساط سررسید کوچکتر از 94/03/31 محاسبات برای هر بیمه نامه بشکلی انجام بشه که تمامی اقساطی که سررسید شده منهای وصولی ها(تاریخ های کوچکتر از 94/03/31 ) بشه و مانده بدهی هر بیمه نامه بتفکیک محاسبه بشه .
    مچکرم
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    تنها راهي که به شکست مي انجامد، تلاش نکردن است


  2. سپاس ها (1)


  3.  

  4. #2


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    August 2014
    محل سکونت
    تهران
    نوشته ها
    480
    امتیاز
    3430
    سپاس
    898
    سپاس شده
    1,516 در 446 پست
    سطح اکسل
    80.00 %

    سلام
    ابتدا با استفاده از فرمولي كه جناب وطن پرست توي قسمت آموزشي سايت براي يونيك كردن ليست قرار داده بودن ليست بدهكاران رو يونيك كردم.
    سپس با استفاده از suomproduct اينكار رو انجام دادم.
    ببينيد همين منظورتونه.
    report2.xlsx

  5. سپاس ها (4)


  6. #3


    آخرین بازدید
    2021/07/10
    تاریخ عضویت
    June 2012
    محل سکونت
    تهران
    نوشته ها
    53
    امتیاز
    339
    سپاس
    82
    سپاس شده
    155 در 43 پست
    سطح اکسل
    79.00 %

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


  7. #4


    آخرین بازدید
    2022/12/14
    تاریخ عضویت
    March 2011
    محل سکونت
    کرج
    نوشته ها
    649
    امتیاز
    1611
    سپاس
    2,233
    سپاس شده
    1,581 در 464 پست
    سطح اکسل
    80.00 %

    Alireza به Yahoo ارسال پیام
    ممنون از پاسخ عزیزان
    اولین نکته اینه که فقط شماره بیمه مد نظر نیست من باید سرفصل ،سال و بیمه رو تفکیک کنم
    نکته دوم اینه که من میخوام توی فایل دیگه این فایل رو خلاصه کنم یعنی با کد Vb برای هر بیمه نامه با هر تعداد گردش یک ردیف ایجاد کنم و بعد با شرطی که دارم مانده هر بیمه نامه رو محاسبه کنم.
    کد PHP:
    Sub Macro1()


        
    Workbooks.Open Filename:="D:\report.XLSX"

    Dim ab  As Range
       
    For Each a In Sheet1.Range("A1:A100")
     For 
    Each b In Workbooks("report.XLSX").Worksheets("report").Range("l1:l100")
          
        If 
    b.Value <> a.Value Then
        
    If a.Value "" Then
                 
                 a
    .Value b.Value
                 
                 
                     End 
    If
                     
    End If
                  
    Next
                  
              Next



    End Sub 
    این کد نیاز داره تکمیل بشه که از ورود اطلاعات تکراری به فایل اصلی جلوگیری بشه
    ممنونم
    تنها راهي که به شکست مي انجامد، تلاش نکردن است


  8. سپاس ها (2)


  9. #5


    آخرین بازدید
    2022/12/14
    تاریخ عضویت
    March 2011
    محل سکونت
    کرج
    نوشته ها
    649
    امتیاز
    1611
    سپاس
    2,233
    سپاس شده
    1,581 در 464 پست
    سطح اکسل
    80.00 %

    Alireza به Yahoo ارسال پیام
    سلام
    جواب سوال خودم (شاید برای دوستان مفید باشه )
    کد PHP:
    Private Sub CommandButton1_Click()
     
    Workbooks.Open Filename:="D:\report.XLSX"

    Windows("report.XLSX").Visible False

    Dim a
    b  As Range
     
       
    For Each b In Workbooks("report.XLSX").Worksheets("report").Range("L1:L10000")
       For 
    Each a In Sheet1.Range("A1:A1000")
              If 
    Application.WorksheetFunction.CountIfs(Sheet1.Range("A1:A1000"), b.Value_
              Sheet1
    .Range("B1:B1000"), b.Offset(0, -6), Sheet1.Range("D1:D1000"), _
              b
    .Offset(0, -3)) = And a.Value "" Then
             
                                 a
    .Value b.Value
                                 a
    .Offset(02).Value b.Offset(0, -4).Value
                                     a
    .Offset(01).Value b.Offset(0, -6).Value
                     a
    .Offset(03).Value b.Offset(0, -3).Value
                    
                    a
    .Offset(04).Value Application.WorksheetFunction.SumIfs(Workbooks("report.XLSX").Worksheets("report").Range("B:B"), _
                    Workbooks
    ("report.XLSX").Worksheets("report").Range("l:l"), a.Value_
                    Workbooks
    ("report.XLSX").Worksheets("report").Range("F:F"), a.Offset(01), _
                    Workbooks
    ("report.XLSX").Worksheets("report").Range("I:I"), a.Offset(03), _
                        Workbooks
    ("report.XLSX").Worksheets("report").Range("C:C"), "<=" Sheet1.Range("i1")) - _
                    Application
    .WorksheetFunction.SumIfs(Workbooks("report.XLSX").Worksheets("report").Range("A:A"), _
                    Workbooks
    ("report.XLSX").Worksheets("report").Range("l:l"), a.Value_
                    Workbooks
    ("report.XLSX").Worksheets("report").Range("F:F"), a.Offset(01), _
                    Workbooks
    ("report.XLSX").Worksheets("report").Range("I:I"), a.Offset(03), _
                     Workbooks
    ("report.XLSX").Worksheets("report").Range("C:C"), "<=" Sheet1.Range("i1"))
                   
    Sheet1.Range("E1") = "ÌãÚ ÈÏåí"
                   
    If a.Offset(04).Value 0 Then Rows(a.Row).Delete Shift:=xlUp
                   
                   
    Exit For
                      
    End If
                 
    Next
                  
             Next
    Windows
    ("report.XLSX").Visible True
    Workbooks
    ("report.XLSX").Close SaveChanges:=False
    End Sub 
    تنها راهي که به شکست مي انجامد، تلاش نکردن است




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

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

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

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

  1. پرسش جستجوی اطلاعات در لیست باکس و نمایش آن در لیست باکس یا...
    توسط kamyar در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 11
    آخرين نوشته: 2019/02/27, 11:11
  2. پیروی یک لیست (data validation ) از داده انتخاب شده لیست قبل
    توسط mahdi-68 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 4
    آخرين نوشته: 2016/11/03, 21:54
  3. جستجوی اسامی یک لیست در لیست مرجع
    توسط reshehri در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2014/01/13, 20:22

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

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

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

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

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

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