ناصر سعيد

جزاك الله خيرا وبارك فيك استاذ سليم مفيدة جدا ولكن يوجد قوائم منسدله في خلية الديانه وحالة القيد والجنسيه وانا لااكتب انا اختار.. فكيف يكون الحل بارك الله لك

الاستاذ الكبير سليم جزاك الله خيرا الملف لايعمل معي اذا غيرت النوع لايظهر اي تاثير

للرفع رفع الله قدركم

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

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

جزاك الله خيرا ... الروابط سيئه رجاء تغييرها مثل http://up.top4top.net/

جزاك الله خيرا وبارك فيكم هل يمكن تغيير موقع الرفع الى الميديافير مثلا

جزاك الله خيرا وبارك فيكم ربنا ..هل يمكن وضع روابط مباشره لهذه المواقع

اخي الفاضل ياسر خليل عشان انا عضو قديم عندي اوفيس قديم ... 2003 اولا اشكرك على ردك .. ثانيا هل يمكن شرحها على 2003 كرما منك

أخي الحبيب خالد الرشيدي كم أستمتع بشرحك وملفاتك الرائعة .. جزيت خير الجزاء على كل ما تقدمه لإخوانك وجعله الله في ميزان حسناتك يوم القيامة تقبل وافر تقديري واحترامي

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

استاذ رجب السلام عليكم ورحمة الله .. انت رجل محترم واعمالك بالمنتدى قيمه جزاك الله خيرا .. نرجو ان لا تنسى برنامج التعليم الابتدائي

عندي اوفيس 2003 ولا يفتح ملفك عندي ... لماذا ؟

سلمت يمينك وادام الله عليك الصحة والعافية وزادك الله من العلم الكثير والكثير تقبل تحياتى وتقديرى الملف المرفق امتداده xlsm كيف يفتح ملفات بامتداد xls

من فضلكم ضعوا الملف باوفيس 2003

شكرا لكم

جزاكم الله خيرا

جزاكم الله خيرا

وهذه صوره من اسطوانه شركه الوسيله

اسطوانة شركة رؤية ل 5 قراء صوت و صورة العجمي الغامدي السديس الشريم الحذيفي مع امكانية تكرار أي آيه رابط الاسطوانة الصاروخي اولا http://archive.org/download/roaya___...cd-roaya-5.zip وداعا لبرامج الاسطوانات الترا ايزو وغيرها لن تحتاج اي برامج فالاسطوانة ملف مضغوط صيغة زيب فك الضغط عنه باي برنامج فك ضغط مثل الوين رار ثم سطبها تسطيب عادي وسهل جدااااااااااااااااااااااااااااا المصحف كامل 114 سورة صوت وصورة بصوت 5 قراء مع امكانية التنقل بين القراء الخمسة في الاية الواحدة كنا من قبل قدمنا اسطوانة شركة رؤية اصدار 2013 الناتج من دمج الاصدارين الاول والثاني ل مصحف العجمي والمنشاوي معلم مع ترديد الاطفال في هذا الرابط http://archive.org/download/roaya___...lminshawy-.zip وهذا رابط لشرح اسطوانة المنشاوي معلم وايضا تجد فيه العديد من الاسطوانات الهامة مع ملاحظة عندما تحمل اي اسطوانة تجد معها ملف تكست للشرح بالتفصيل عن كيفية عملها ومميزات كل اسطوانة http://archive.org/details/roaya___a...s-high-quality وهذا رابط اسطوانة شركة الوسيلة جزاهم الله خيرا http://www.archive.org/download/Quraan_420/Quran.iso بعد عناء وجدت الروابط واردت ان اشاركم الاجر والثواب جزى الله كل من ساهم في ايجاد هذه الاسطوانات الرائعه

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

ملف بحث في عدة اوراق للعلامة عبد الله باقشير أعزه الله بحث و استيراد بيانات من ملف.rar 134.35كيلو 0 عدد مرات التحميل

ملف اخر للعلامه اعزه الله اكثر روعه Dim V As Integer Private Sub Check_Text_Click() Kh_TextFind_Change End Sub Private Sub Comb_Find_Change() Kh_TextFind_Change End Sub Private Sub CommandButton1_Click() Unload Me End Sub Private Sub Kh_ListFind_Click() Dim S_1 As String, S_2 As String Dim MySh As Worksheet S_1 = Kh_ListFind.List(Kh_ListFind.ListIndex, 1) S_2 = Kh_ListFind.List(Kh_ListFind.ListIndex, 2) Set MySh = Sheets(S_1) With MySh .Select .Range(S_2).Select End With End Sub Private Sub Kh_TextFind_Change() On Error Resume Next Dim MySh As Worksheet Dim M As String V = 0 Kh_ListFind.Clear If Kh_TextFind.Text = "" Then GoTo 1 If Check_Text.Value = True Then M = Kh_TextFind.Text & "*" _ Else M = "*" & Kh_TextFind.Text & "*" '============================================================== Application.ScreenUpdating = False If Comb_Find.ListIndex = 0 Then For Each MySh In ActiveWorkbook.Sheets Kh_Find MySh, M Next Else Kh_Find Sheets(Comb_Find.ListIndex), M End If Application.ScreenUpdating = True On Error GoTo 0 1 End Sub Private Sub Kh_Find(MySheet As Worksheet, MyTextFind As String) On Error Resume Next Dim A Dim R As Integer, C As Integer With MySheet R = .UsedRange.Rows.Count C = .UsedRange.Columns.Count For Each A In Range(.Cells(1, 1), .Cells(R, C)) If A.Value Like MyTextFind Then Kh_ListFind.AddItem A.Value Kh_ListFind.List(V, 1) = .Name Kh_ListFind.List(V, 2) = A.Address V = V + 1 End If Next End With On Error GoTo 0 1 End Sub Private Sub UserForm_Activate() Dim C As Integer Comb_Find.AddItem "بحث في جميع اوراق العمل" For C = 1 To ActiveWorkbook.Sheets.Count Comb_Find.AddItem ActiveWorkbook.Sheets(C).Name Next Comb_Find.Text = Comb_Find.List(0) End Sub بحث و استيراد بيانات من ملف.rar

ملف بحث في عدة اوراق للعلامة عبد الله باقشير أعزه الله بحث في الصفوف.rar

الاستاذ سليم جزاك الله كل خير