نوشته اصلی توسط
sohrabahmadi
با سلام به دوستان و اساتید گرامی.دو شیت داریم که اطلاعات پرداخت در یکی از آنها بصورت کلی و در دیگری به صورت جزئیات وارد میشود .مثلا در یکی مشخصات فیشها و مبلغ کل آن در یک ردیف و در شیت دیگر اطلاعات مبالغ تقسیم شده فیش مورد نظر در یک یا چند ردیف مجزا ثبت میشه.بعضی مواقع تقسیم یک فیش به درستی انجام نمیشه ودر نتیجه مغایرت پیش میآد.من میخوام اگه مبلغ تقسیم شده فیش با مبلغ اصل فیش برابر نبود اطلاعات اون قبض رو تو لیست باکس نمایش بده .البته فرمول زیر رو نوشتم ولی بسیار کنده واطمینان ندارم درست جواب بده یا نه.اگه دوستان بزرگوار لطف کنن یه نگاه بندازن ممنون میشم.
If WorksheetFunction.SumIf(Sheet2.Range("G2:G" & endrow3), T1, Sheet2.Range("D2:D" & endrow2)) - WorksheetFunction.SumIf(Sheet3.Range("F2:F" & endrow6), T1, Sheet3.Range("G2:G" & endrow7)) <> 0 Then
ListBox1.Clear
For Each c In Sheet2.Range("B1:B" & endrow)
If c <> "" And c.Offset(0, 5) = T1 And WorksheetFunction.SumIfs(Sheet2.Range("D2:D100000" ), Sheet2.Range("B2:B100000"), c, Sheet2.Range("C2:C100000"), c.Offset(0, 1), Sheet2.Range("G2:G100000"), T1) <> WorksheetFunction.SumIfs(Sheet3.Range("G2:G100000" ), Sheet3.Range("B2:B100000"), c, Sheet3.Range("C2:C100000"), c.Offset(0, 1), Sheet3.Range("F2:F100000"), T1) Then
ListBox1.AddItem c.Value
For i = 2 To 5
ListBox1.List(ListBox1.ListCount - 1, i - 1) = c.Offset(0, i - 1).Text
Next i
End If
Next
End If
پاسخ با نقل قول
علاقه مندی ها (Bookmarks)