البحث في الموقع
Showing results for tags 'فرز الفصول'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله هذا ملف وبه كود بسيط للفرز بمعيار الفصل ولكنه لايعمل ... ارجو تضبيطه جزاكم الله خيرا Sub KH_Sort() Dim MyShap As Shape Dim T As Integer Set MyShap = Sheet4.Shapes("Kh_Num") If MyShap.ControlFormat.Value = 1 Then T = 2 Else T = 1 Range("data").Sort Range("AU12"), T End Sub كود لفرز الفصول 1.rar
