قنديل الصياد

عرض باور بوينت بمناسبة الشهر الكريم اتمنى ان ينال اعجابكم كل عام وانتم بخير.rar كل عام وحضراتكم بخير

بارك الله فيك اخى الكريم كل عام وحضرتك بخير

اخى العزيز برجاء ارفاق ملف للعمل عليه كل عام وحضرتك بخير الدالة max لاظهار اعلى قيمة الدالة min لاظهار اقل قيمة

شكرا لك اخى واستاذى العزيز الاستاذ / حمادة عمر

كود لكتابة اى اسم او رقم فى مربع نص Private Sub CommandButton1_Click() TextBox1.Text = "قنديل الصياد" End Sub كود لكتابة اى اسم او رقم فى مربع نص بمجرد مرور الماوس عليه Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox2.Text = "لوجينا وائل" End Sub مرفق ملف به التطبيق لوجى.rar

اخى العزيز اليك رابط لبرنامج فلاش من على جهازى ومرفق ارقام التسجيل للبرنامج ارقام التسجيل.rar

تحديد موضع نص محدد داخل محتويات الخلية الدالة FIND حساب ضريبة المرتبات - قانون 11 لعام 2013 طريقة اضافة الرموز الى المستند فى برنامج اكسل دوال الإكسيل (1) الدوال الاساسية فى برنامج اكسل

اخى العزيز كل عام وانتم بخير راجع هذا الموضوع لاستاذنا العزيز / ابو ردينة وستجد فيه ماتريد http://www.officena.net/ib/index.php?showtopic=44614

كود لاغلاق برنامج الباور بوينت Private Sub CommandButton1_Click() ActivePresentation.SlideShowWindow.View.Exit End Sub مرفق ملف به التطبيق خروج.rar

أعجبنى هذا البرنامج الجميل وهو تلخيص لعمل دروس تفاعلية ببرنامج الباور بوينت الاكواد المستخدمة فى البرنامج 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

ان شاء الله اخى واستاذى العزيز

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

اقدم لكم اخوانى واساتذتى الاعزاء بالمنتدى برنامج الالة الحاسبة والبرنامج هدية منى لاستاذى / مجدى يونس وان كانت هدية لا تليق بمستوى استاذى العزيز الذى اكن له كل حب وتقدير واعزاز واحترام الاكواد المستخدمة فى البرنامج كالتالى 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

تحديد الحد الأقصى ونوع البيانات بالخلية اكسل شرح دالة المعدل (AVERAGE) في برنامج (EXCEL)

شكرا استاذنا الكبير الاستاذ / مجدى يونس وشرف كبير ان اعمل بجانبك

بارك الله فيك وعليك اخى العزيز وكل عام وحضرتك بخير

مرفق ملف به تطبيقات الاكواد قنديل الصياد.rar

كود للترحيب 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

بارك الله فيك اخى العزيز كل عام وانتم بخير

انت رائع ومبدع دائما استاذنا الجميل

تعليم اكسيل 2010 - شرح واجهة البرنامج Learn Excel 2010 نسخ معادلة للكود و تخصيص زر أمر

إظهار ناتج المعادلة فى الشكل التلقائي

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

كود لجمع عمود فى خلية اقوم بتحديدها Sub Macro1() Range("A11").Select ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)" Range("A12").Select End Sub مرفق ملف به التطبيق الصياد.rar