نجوم المشاركات

بسم الله الرحمن الرحيم وبه نستعين السلام عليكم جميعا ورحمته الله وبركاته وكل عام وانتم جميعا بكل خير وطابت أوقاتكم بكل خيرأينما كنتم يعانى الكثير منا مشكلة الفروق الطفيفة بين عملية الجمع بالاكسل والآله الحاسبة الامر الذى يؤثر سلبا بميزان المراجعه والذى يتمثل هذا الفرق بمقدار 1 واحد قرش سواء بالزياده أوالنقصان والى حضراتكم هذة الاطلالة من أخيكم العبد الفقير الى الله تعالى حيث تطبق المعادلة المستخدمه على اعمدة جملة المستحق وجملة المستقطع وكذا الجملة النهائية الله أسأل أن يوفقنا وإياكم لصالح الآعمال نسألكم الدعاء وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته أخواني الأفاضل شهر مبارك عليكم وعلى الأمة الأسلامية ... موضوعي بشكل مختصر: عندي ملف إكسيل وأقوم بإدخال البيانات باللغة الإنجليزية هل ممكن أن يكون المدخلات بالحروف الكبيرة دون الحاجة لإستخدام زر [Caps Lock] أي يكون الكتابة بالحروف الكبيرة إلزامي وليس إختياري ... مع جزيل الشكر

كود للترحيب Private Sub CommandButton1_Click() MsgBox "قنديل الصياد يرحب بكم فى منتديات أوفيسنا وكل عام وانتم بخير بمناسبة شهر رمضان المبارك أعاده الله علينا وعلى الامة الاسلامية بالخير واليمن والبركات" End Sub كود الانتقال للصفحة التالية Private Sub CommandButton2_Click() ActivePresentation.SlideShowWindow.View.Next End Sub كود الانتقال للصفحة السابقة Private Sub CommandButton1_Click() ActivePresentation.SlideShowWindow.View.Previous End Sub

المجموعة الأولي ( نشرت فى 5-7-2003 ) : 1-0 البداية 1-1 مقدمة الي الأكسس 1-2 مراحل إعداد البرنامج --------------------------------------------- المجموعة الثانية نشرت فى 8-7-2003 : 2-0 تصميم الجداول 2-1 إنشاء الجداول (1) 2-2 إنشاء الجداول (2) 2-3 إنشاء الجداول (3) 2-4 أنواع البيانات فى الأكسس --------------------------------------------- 2-5 المفتاح و الفهارس 12-7-2003 2-6 التعامل مع البيانات فى الجداول 12-7-2003 2-7 خصائص الحقول 1 (17/7/2003) 2-8 خصائص الحقول 2 19-7-2003 2-9 العلاقات بين الجداول 23-7-2003 2-10 أسلوب الرسم التخطيطي لعلاقات الكيانات 29-7-2003 --------------------------------------------- 2-11 مسودة تحليل نظام مشروع الدورة 1/8/2003 -------------------------------------------- 2-12 تصميم جداول المثال 6-8-2003 ------------------------------------------- وصلة دروس الاستعلامات من هنا

أعجبنى هذا البرنامج الجميل وهو تلخيص لعمل دروس تفاعلية ببرنامج الباور بوينت الاكواد المستخدمة فى البرنامج Private Sub CommandButton1_Click() InputBox "رسالة البرنامج", "أدخل الاسم من فضلك" End Sub Private Sub CommandButton2_Click() ActivePresentation.SlideShowWindow.View.Next MsgBox " مع تحياتى / قنديل الصياد .. منتديات أوفيسنا .. برنامج المسابقات" End Sub Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Dim trueq, falseq As Long Dim q, a1, a2, a3, a4 As String Dim a As Integer Dim L1, L2, L3, L4, T1, T2, T3, T4 As Integer Private Sub Comfalse_Click() Comfalse.Enabled = False Comtrue.Enabled = False If jawab = False Then trueq = trueq + 1 Else falseq = falseq + 1 End If natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq End Sub Private Sub Com1_Click() Com1.Enabled = False Com2.Enabled = False Com3.Enabled = False Com4.Enabled = False trueq = trueq + 1 Com1.BackColor = &HFF00& natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq Labeltruefalse.Caption = "الاجابة صحيحة" PlaySound Application.ActivePresentation.Path & "\true.wav", 0, &H1 Labeltruefalse.Visible = True Dim Start As Long Start = Timer Do While Timer < Start + 3 'a 3 second delay (Change To any numer you want) DoEvents ' Yield To other processes. Loop Comsoal_Click Labeltruefalse.Visible = False End Sub Private Sub Com2_Click() Com1.Enabled = False Com2.Enabled = False Com3.Enabled = False Com4.Enabled = False Com1.BackColor = &HFF00& Com2.BackColor = &HFF& falseq = falseq + 1 natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq Labeltruefalse.Caption = "الاجابة خاطئة" PlaySound Application.ActivePresentation.Path & "\no.wav", 0, &H1 Labeltruefalse.Visible = True Dim Start As Long Start = Timer Do While Timer < Start + 3 'a 3 second delay (Change To any numer you want) DoEvents ' Yield To other processes. Loop Comsoal_Click Labeltruefalse.Visible = False End Sub Private Sub Com3_Click() Com1.Enabled = False Com2.Enabled = False Com3.Enabled = False Com4.Enabled = False Com1.BackColor = &HFF00& Com3.BackColor = &HFF& falseq = falseq + 1 natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq Labeltruefalse.Caption = "الاجابة خاطئة" PlaySound Application.ActivePresentation.Path & "\no.wav", 0, &H1 Labeltruefalse.Visible = True Dim Start As Long Start = Timer Do While Timer < Start + 3 'a 3 second delay (Change To any numer you want) DoEvents ' Yield To other processes. Loop Comsoal_Click Labeltruefalse.Visible = False End Sub Private Sub Com4_Click() Com1.Enabled = False Com2.Enabled = False Com3.Enabled = False Com4.Enabled = False Com1.BackColor = &HFF00& Com4.BackColor = &HFF& falseq = falseq + 1 natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq Labeltruefalse.Caption = "الاجابة خاطئة" PlaySound Application.ActivePresentation.Path & "\no.wav", 0, &H1 Labeltruefalse.Visible = True Dim Start As Long Start = Timer Do While Timer < Start + 3 'a 3 second delay (Change To any numer you want) DoEvents ' Yield To other processes. Loop Comsoal_Click Labeltruefalse.Visible = False End Sub Private Sub Comsoal_Click() If trueq + falseq = 10 Then Comsoal.Visible = True MsgBox "انتهت الاسئلة شكرا لاستخدامك البرنامج", vbOKOnly, "رسالة البرنامج" a = 0 falseq = 0 trueq = 0 soal = "السؤال" natija = "النتيجة" Com1.Caption = "الاجابة" Com2.Caption = "الاجابة" Com3.Caption = "الاجابة" Com4.Caption = "الاجابة" Com1.Enabled = False Com2.Enabled = False Com3.Enabled = False Com4.Enabled = False Com1.BackColor = &H8000000F Com2.BackColor = &H8000000F Com3.BackColor = &H8000000F Com4.BackColor = &H8000000F Exit Sub End If Com1.BackColor = &H8000000F Com2.BackColor = &H8000000F Com3.BackColor = &H8000000F Com4.BackColor = &H8000000F Comsoal.Visible = False Com1.Visible = False Com2.Visible = False Com3.Visible = False Com4.Visible = False a = a + 1 If a = 1 Then q = "من أول الخلفاء الراشدين" a1 = "أبو بكر الصديق" a2 = "عمر بن الخطاب" a3 = "عثمان بن عفان" a4 = "علي بن ابي طالب" ElseIf a = 2 Then q = "شخصية حاولت هدم بيت الله الحرام" a1 = "ابرهة الحبشي" a2 = "يزيد بن معاوية" a3 = "ابو لؤلؤة المجوسي" a4 = "الاسكندر المقدوني" ElseIf a = 3 Then q = "نبي ولد من غير أب" a1 = "النبي عيسى" a2 = "النبي موسى" a3 = "النبي محمد" a4 = "النبي زكريا" ElseIf a = 4 Then q = "خاتم الأنبياء" a1 = "النبي محمد" a2 = "النبي موسى" a3 = "النبي عيسى" a4 = "النبي زكريا" ElseIf a = 5 Then q = "يخرج آخر الزمان يملألأرض قسطا و عدلا" a1 = "المهدي" a2 = "النبي موسى" a3 = "النبي محمد" a4 = "النبي زكريا" ElseIf a = 6 Then q = "كان يتعبد فيه الرسول محمد (ص)قبل الاسلام" a1 = "غار حراء" a2 = "غار ثور" a3 = "جوف الكعبة" a4 = "منزله" ElseIf a = 7 Then q = "ثالث المجموعة الشمسية هو كوكب" a1 = "الارض" a2 = "الزهرة" a3 = "المريخ" a4 = "عطارد" ElseIf a = 8 Then q = "ما هو أكثر حيوان معمر؟" a1 = "السلحفاة" a2 = "الفيل" a3 = "الحصان" a4 = "الحوت الأزرق" ElseIf a = 9 Then q = "كم يوم يعيش ذكر الذباب؟" a1 = "16 يوم" a2 = "3 أيام" a3 = "50 يوم" a4 = "7 أيام" ElseIf a = 10 Then q = "ما هي سرعة دوران الأرض حول الشمس؟" a1 = "60 الف ميل بالساعة" a2 = "25 الف ميل بالساعة" a3 = "100 الف ميل بالساعة" a4 = "80 الف ميل بالساعة" End If soal.Caption = q Com1.Caption = a1 Com2.Caption = a2 Com3.Caption = a3 Com4.Caption = a4 L1 = Com1.Left L2 = Com2.Left L3 = Com3.Left L4 = Com4.Left T1 = Com1.Top T2 = Com2.Top T3 = Com3.Top T4 = Com4.Top Randomize Dim v As Integer v = Int(Rnd * 4) If v = 0 Then Com1.Left = L1 Com2.Left = L2 Com3.Left = L3 Com4.Left = L4 Com1.Top = T1 Com2.Top = T2 Com3.Top = T3 Com4.Top = T4 ElseIf v = 1 Then Com2.Left = L1 Com1.Left = L2 Com3.Left = L3 Com4.Left = L4 Com2.Top = T1 Com1.Top = T2 Com3.Top = T3 Com4.Top = T4 ElseIf v = 2 Then Com3.Left = L1 Com2.Left = L2 Com1.Left = L3 Com4.Left = L4 Com3.Top = T1 Com2.Top = T2 Com1.Top = T3 Com4.Top = T4 ElseIf v = 1 Then Com4.Left = L1 Com3.Left = L2 Com2.Left = L3 Com1.Left = L4 Com4.Top = T1 Com3.Top = T2 Com2.Top = T3 Com1.Top = T4 End If Com1.Enabled = True Com2.Enabled = True Com3.Enabled = True Com4.Enabled = True Com1.Visible = True Com2.Visible = True Com3.Visible = True Com4.Visible = True natija.Caption = "السؤال رقم : " & a End Sub Private Sub CommandButton1_Click() ActivePresentation.SlideShowWindow.View.Exit End Sub مرفق ملف به التطبيق المسابقة الثقافية.rar

طريقة عمل مشروع الماكرو والتعديل عليه بواسطة الـ VBA ولا تنسوني من صالح دعاؤكم يا شباب refaatyousry@yahoo.com الفيديو مرفوع على اليوتيوب (يرجى إعلامي إذا كان لا يوجد صوت في الفيديو). http://www.youtube.com/watch?feature=player_detailpage&v=_smfxY91pRY#t=7s أرجو أن ينال إعجابكم وأسأل الله لنا ولكم التوفيق

السلام عليكم ورحمة الله وبركاته تقبل الله صيامكم وقياكم أساتذتي الأفاضل من منكم يتفضل علينا بالمساعدة ولكم منا جزيل الشكر والعرفان تلميذكم الصغير مذكرة إحتساب غرامة.rar

فيديو لتطبيقات الفيجوال بيسيك على برنامج الباور بوينت

اقدم لكم اخوانى واساتذتى الاعزاء بالمنتدى برنامج الالة الحاسبة والبرنامج هدية منى لاستاذى / مجدى يونس وان كانت هدية لا تليق بمستوى استاذى العزيز الذى اكن له كل حب وتقدير واعزاز واحترام الاكواد المستخدمة فى البرنامج كالتالى Private Sub CommandButton1_Click() ActivePresentation.SlideShowWindow.View.Next MsgBox " مع تحياتى / قنديل الصياد .. منتديات اوفيسنا " End Sub Private Sub CommandButton1_Click() Label1.Caption = Val(TextBox1.Text) + Val(TextBox2.Text) End Sub Private Sub CommandButton2_Click() Label1.Caption = Val(TextBox1.Text) - Val(TextBox2.Text) End Sub Private Sub CommandButton3_Click() Label1.Caption = Val(TextBox1.Text) * Val(TextBox2.Text) End Sub Private Sub CommandButton4_Click() Label1.Caption = Val(TextBox1.Text) / Val(TextBox2.Text) End Sub مرفق ملف به التطبيق برنامج الالة الحاسبة.rar

جمع الارقام فى شكل تلقائى مرفق ملف به التطبيق الصياد.rar

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

الاخ على جذاك الله خير

اليك أخي لقد تم فك الحماية والباسورد الجديد 123 في الملف المرفق جديد.rar

تم التعديل باظهار اعلى درجة داخل الحقل والطريقة اننا استخدمنا الدالة Dmax لجلب اعلى قيمة من مصدر بيانات التقرير الذي هو الجدول table1 ويمكنك استخدام Dmin لاستخراج ادنى درجة اتمنى ان يكون هذا الحل هو ما تبحث عنه Database2.rar

السلام عليكم سأبدأ باذن الله تعالى فى تجميع وصلات المواقع التى تحوى نماذج لإدارة المشاريع فى هذا الموضوع The International Community of Project Management PMLinks.com CVR/IT Consulting KeyConsulting Project KickStart PM Docs Project Place - Project Management Informed Solutions Cornell University CPMM example of a project management plan هذا موضوع مميز يحوي وصلات للعديد من المواقع المشار اليها اعلاه ووصفها http://www.examiner.com/x-36104-Miami-Project-Management-Examiner~y2010m5d27-How-To-Get-300-Free-Project-Management-Templates

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

2-7 خصائص الحقول (1) تحدثنا سابقا عن بعض هذه الخصائص تبعا لسياق المواضيع ، و الأن سنغطي الخصائص الخاصة بالحقول بصفة أكثر تركيزا باختيار الجدول المطلوب ، ثم اختيار تصميم من أعلي اطار القاعدة ، أو من القائمة المختصرة للماوس ـ يظهر لنا تصميم الجدول و نجد أن الشاشة مقسمة الي جزئين : الأعلي : و فيه أسماء الحقول و نوعها ووصفها و باختيار اي حقل ، تظهر لنا خصائصه فى الجزء الأسفل من الشاشة و هي بيت القصيد فى هذا الموضوع أولي الخصائص : Field Size و هو تتغير قيمه بناء علي نوع البيانات المختار للحقل و قد تم الحديث عنه بالتفصيل هنا ثاني الخصائص : التنسيق Format و هي موضوع هذا الدرس :d و التنسيقات تنقسم الي 4 أجزاء رئيسية أرقام و عملات نص و مذكرة تواريخ و أوقات تنسيقات للبيانات من نوع نعم/لا و للتفصيل الكامل للموضوع إدخل هنا و نكتفي هذه المرة بالتنسيق ، حيث أن الخيارات كثيرة :) ، و أود أن أضيف أن هذا الدرس لن يفيد فى تصميم الجداول فقط ، و لكن فى التعامل مع النماذج و التقارير لاحقا أيضا و أخيرا أنصح من لم يتعامل مع التنسيقات المختلفة بكثافة ، ان يكثر من تجربة ما هو موجود من التنسيقات و تكون التجربة بانشاء جدول ، و ثم حقل من النوع المختار ، ثم ادخال بعض البيانات ثم اختيار التنسيق المراد اختباره ، و اخيرا حفظ التصميم ، و عرض الجدول