1
انجمن برنامه نویسی Excel / پاسخ : نمایش مشخصات فاکتور
« آخرين ارسال توسط majid_mx4 امروز ساعت 20:39:06 »با سلام
دستورات زیر را به فایل خود اضافه کنید.
دستورات زیر را به فایل خود اضافه کنید.
کد: [انتخاب]
Private Sub Name_AM1_Change()
If Name_AM1 = "" Then
Factor = ""
End If
On Error Resume Next
Factor = Application.WorksheetFunction.CountIf(Sheet1.Range("B:B"), Name_AM1)
Jame_Kol = Application.WorksheetFunction.SumIf(Sheet1.Range("B:B"), Name_AM1, Sheet1.Range("C:C"))
End Sub
موفق باشید میر