عبدالله باقشير

السلام عليكم شاهد الرابط التالي http://www.officena.net/ib/index.php?showtopic=51410

اخي الحبيب دغيدي

السلام عليكم ورحمة الله وبركاته يجب ان يكون التباعد بين بيانات الشركات متساوي شاهد المرفق 2003 مثال3.rar

اخي الحبيب ايمن ريا

اخي الحبيب ابو حنين

اخي الحبيب الخالدي

الحمد لله بالنسبة لاي طلبات اخرى اعمل موضوع جديد بعنوان مناسب لطلبك واشرح طلباتك بالتفصيل مع ارفاق ملف وان شاء الله تلقى المساعدة من الموجودين ملحوظة اذا كان ملفك كبير ممكن تحميلة في اي موقع لتحميل الملفات مثلا http://www.gulfup.com/ تحياتي

الله يبارك فيك..........تقبلوا تحياتي وشكري

اخي الحبيب خالد القدس

اخي الحبيب ابو حنين

السلام عليكم ورحمة الله وبركاته اختي الفاضلة أم عبدالله ............حفظكم الله واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري

السلام عليكم ورحمة الله وبركاته اخي الحبيب أبو محمد عباس ............حفظكم الله واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري

السلام عليكم ورحمة الله وبركاته اخي الحبيب الشهابي ............حفظكم الله ممتاز جدا...توضيب رائع للتعامل مع الفورم وفكر راقي تقبلوا تحياتي وشكري

لايوجد عندي حل قد تحتاج الى تغيير نسخة الاوفيس الى عربي والله اغلم

اخي الحبيب الخالدي

السلام عليكم الاخ الفاضل سمير جيد...........حفظكم الله فعلا العنوان مخالف لقواعد المشاركة مثل ما اخبرك اخي الفاضل محمد أبو البراء وتم تعديلة لانها المشاركة الاولى لك فيجب الانتباه مستقبلا لكتابة عناوين تدل على الطلب ويساعد في البحث للآخرين اما بخصوص مشكلتك اتبع الخطوات التالية وان شاء الله تحل المشكلة اكسل 2003 ادوات خيارات عرض شيك على قيم الصفر اكسل 2007 وما فوق ملف خيارات خيارات متقدمة خيارات عرض ورقة العمل هذه شيك على اظهار صفر في الخلايا التي تحتوي على قيم صفرية تحياتي

اولا جرب استخدام هذا الكود Private Sub UserForm_Initialize() Me.RightToLeft = True End Sub واشعرني بالنتيجة

السلام عليكم هذه طريقة بسيطة بالكود لإخفاء واظهار اعمدة فصلته هنا لتعم الفائدة اولا تعمل كود رئيسي مثل هذا Sub kh_ColumnHidden(ColumnAddres As String) Columns("C:W").EntireColumn.Hidden = True Columns(ColumnAddres).EntireColumn.Hidden = False End Sub حيث انه يقوم باخفاء جميع اعمدة المواد ويظهر النطاق الخاص بالمادة المشار اليه بالمتغير ColumnAddres ثم تعمل اكواد لربطها بالازرة تعين فيها اعمدة المادة التي تريد اظهارها مثل هذا Sub M() kh_ColumnHidden "C:E" End Sub المرفق 2003 اظهار واخفاء اعمدة.rar

اخي حمادة باشا

السلام عليكم ورحمة الله وبركاته اثناء التصميم من خصائص الفورم الخاصية RightToLeft اجعلها True الافضل تنقل نتائج اللست بوكس الى ورقة معدة للطباعة مسبقا تحياتي

السلام عليكم قبل ما تفتح هذا الملف افتح ملف جديد وغير امان الماكرو الى مرتفع ثم اغلق الملف ثم افتح ملفك الوصول الى تغيير امان الماكرو اكسل 2003 ادوات خيارات ماكرو الامان اكسل 2007 وما فوق ملف خيارات مركز التوثيق اضغط زر اعدادات مركز التوثيق اعدادات الماكرو اختر اول خيار وهو تعطيل كافة وحدات الماكرو تحياتي

اخي الحبيب ضاحي الغريب

السلامعليكم جزاكم الله خيرا بالنسبة لطلبك جرب الكود التالي وبامكانك تغير اماكن الاعمدة من الكود Const wName As String = "Book1" Const ContColumn As Integer = 5 Const Txt As String = "الأول الابتدائي-الثاني الابتدائي-الثالث الابتدائي-الرابع الابتدائي-الخامس الابتدائي-السادس الابتدائي" Sub kh_Trheel() Dim xl As New Excel.Application Dim wo As Workbook Dim sh As Worksheet Dim Ary() Dim Lr As Long, r As Long, i As Long On Error Resume Next Range("A1").Resize(Cells(Rows.Count, "A").End(xlUp).Row, ContColumn).ClearContents Set wo = xl.Workbooks.Open(ThisWorkbook.Path & "\" & wName & ".xls") For Each sh In wo.Worksheets With sh Lr = .Cells(Rows.Count, "Q").End(xlUp).Row For r = 23 To Lr i = i + 1 ReDim Preserve Ary(1 To ContColumn, 1 To i) Ary(1, i) = i Ary(2, i) = .Cells(r, "Q").Value Ary(3, i) = .Range("C6").Value Ary(4, i) = .Range("C14").Value Ary(5, i) = WorksheetFunction.Match(CStr(.Range("C6")), Split(Txt, "-"), 0) Next End With Next If i Then Range("A1").Resize(i, ContColumn).Value = WorksheetFunction.Transpose(Ary) End If 1: If Not wo Is Nothing Then wo.Close False Set wo = Nothing Erase Ary On Error GoTo 0 End Sub تحياتي

اخي محمد ابو البراء

السلام عليكم جزاكم الله خيرا هذا تعديل بسيط على الكود السابق ليناسب طلبك Const wName As String = "Book1" Sub kh_Trheel() Dim xl As New Excel.Application Dim wo As Workbook Dim sh As Worksheet Dim Ary() Dim Lr As Long, r As Long, i As Long On Error GoTo 1 Range("A1").Resize(Cells(Rows.Count, "A").End(xlUp).Row, 4).ClearContents Set wo = xl.Workbooks.Open(ThisWorkbook.Path & "\" & wName & ".xls") For Each sh In wo.Worksheets With sh Lr = .Cells(Rows.Count, "Q").End(xlUp).Row For r = 23 To Lr i = i + 1 ReDim Preserve Ary(1 To 4, 1 To i) Ary(1, i) = i Ary(2, i) = .Cells(r, "Q").Value Ary(3, i) = .Range("C6").Value Ary(4, i) = .Range("C14").Value Next End With Next If i Then Range("A1").Resize(i, 4).Value = WorksheetFunction.Transpose(Ary) End If 1: If Not wo Is Nothing Then wo.Close False Set wo = Nothing Erase Ary End Sub تحياتي