با سلام و عرض ادب
لطفا به این فرمول دقت كنید
Dim B As Range
Dim find As Boolean
find = False
For Each B In Sheets("MATN").Range("AL10:AL500000")
If B = ListBox10.Value And B <> "" Then
IF WorksheetFunction.CountIf(B.Offset(0, 1:20),Sheets("MATN").Range("S2"))<>0 THEN
END IF
Exit Sub
End If
Next
توی شرطی كه داخل این فرمول نوشتم مشكل دارم
با استفاده ازاین فرمول، یك ركورد مشخص رو در یك جدول پیدا كردم و حالا میخوام ببینم آیا در ستونهای این ركورد (آفستها)، آیا عدد خاصی كه به دنبالش هستم، وجود داره یا نه. این كار رو دارم با یك شرط و شمارش اون عدد در آفستها انجام میدم. اگر میخواستم توی اكسل یك محدوده رو بدم به این صورت میدادم كه: «Sheets("MATN").Range("AL10:AL500000")» ـ اما توی آفستها نمیدونم به چه صورتی باید بهش بگم از آفست 1 تا آفست 50 رو مثلا بشمار
ممنون میشم اگر یكی از دوستان راهنمایی كنه
لطفا به این فرمول دقت كنید
Dim B As Range
Dim find As Boolean
find = False
For Each B In Sheets("MATN").Range("AL10:AL500000")
If B = ListBox10.Value And B <> "" Then
IF WorksheetFunction.CountIf(B.Offset(0, 1:20),Sheets("MATN").Range("S2"))<>0 THEN
END IF
Exit Sub
End If
Next
توی شرطی كه داخل این فرمول نوشتم مشكل دارم
با استفاده ازاین فرمول، یك ركورد مشخص رو در یك جدول پیدا كردم و حالا میخوام ببینم آیا در ستونهای این ركورد (آفستها)، آیا عدد خاصی كه به دنبالش هستم، وجود داره یا نه. این كار رو دارم با یك شرط و شمارش اون عدد در آفستها انجام میدم. اگر میخواستم توی اكسل یك محدوده رو بدم به این صورت میدادم كه: «Sheets("MATN").Range("AL10:AL500000")» ـ اما توی آفستها نمیدونم به چه صورتی باید بهش بگم از آفست 1 تا آفست 50 رو مثلا بشمار
ممنون میشم اگر یكی از دوستان راهنمایی كنه
کامنت