البحث في الموقع
Showing results for tags 'م بعمل ترتيب و'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله الكود التالى من اعداد المبدع الخالدى فيه مشكلة وهى انه لا يقوم بعمل مسلسل وانما يقوم بعمل ترتيب فى المفردات فلو مثلا الكلمة فى العمود B تكررت يعطيها الرقم هو هو كلما تكررت هل من تعديل ليقوم بالتسلسل بغض النظر عن تكرار الكلمة Private Sub Worksheet_Selectionchange(ByVal Target As Range) Set Rn1 = [A4:A20] Set Rn2 = Rn1.Offset(0, 1) Rn1.ClearContents For i = 1 To Rn1.Rows.Count If Rn1(i) = "" And Rn2(i) <> "" Then N = N + 1 For ii = i To Rn1.Rows.Count If Rn2(ii) = Rn2(i) Then Rn1(ii) = N Next ii End If Next i Set Rn1 = Nothing: Set Rn2 = Nothing End Sub والرجاء التعديل على الكود لان فيه ميزتان انه يعمل مع التصفية انه يضاف فى حدث الصفحة
