husain alhammadi

للرفع

اخواني ارجوا مساعدتي فى حصول على تلاوة الشيخ مشاري بن راشد العفاسي الصوت فقط خاص بالصلاة في ثلاثة مقاطع 1- الله اكبر 2- التسليم (سمع الله لمن حمده و السلام عليكم و رحمة الله و بركاتة السلام عليكم و رحمة الله و بركاتة) 3-سمع الله لمن حمده 4- سورة الفاتحة (بدون اعوذ بالله من الشيطان الرجيم ) و جزاكم الله خير الجزاء

السلام عليكم و رحمة الله و بركاتة اسال الله رب العرش العظيم ان يزيد في علمك فعلا هذا المطلوب انت مبدع بمعنى كلمة جزاك الله خير الجزاء استاذى هل يمكن اضافة الصوت للعلم سيتم اضافة الصوت للجميع ما عدا Login_screen بدون صوت اسم نمودج المستخدم الوقت بالثواني ملف الصوت Login_screen 10 UserForm1 45 C:\Users\husain\OneDrive\سطح المكتب\تجربة\اقامة الصلاة.mp3 UserForm2 10 UserForm3 51 C:\Users\husain\OneDrive\سطح المكتب\تجربة\سورة الفاتحة.mp3 UserForm4 21 C:\Users\husain\OneDrive\سطح المكتب\تجربة\سورة الاخلاص.mp3 UserForm6 10 UserForm7 10 UserForm8 10 UserForm9 10 UserForm10 10 UserForm11 10 UserForm3 51 C:\Users\husain\OneDrive\سطح المكتب\تجربة\سورة الفاتحة.mp3 UserForm5 33 C:\Users\husain\OneDrive\سطح المكتب\تجربة\سورة الفلق.mp3 UserForm6 10 UserForm7 10 UserForm8 10 UserForm9 10 UserForm10 10 UserForm12 10 UserForm13 10

السلام عليكم و رحمة الله و بركاتة اخواني الخبراء هل يمكن دمج كودين فى UserForm1 اضافة الصوت WindowsMediaPlayer1 هذا كود يوزرفورم Private Sub CommandButton5_Click() Application.Visible = False On Error Resume Next Login_screen.Show Application.Wait Now + TimeValue("00:00:3") Login_screen.Hide UserForm1.Show UserForm1.Repaint Application.Wait Now + TimeValue("00:00:3") UserForm1.Hide Application.Visible = True End On Error GoTo 0 End Sub هذا كود الصوت Private Sub CommandButton13_Click() WindowsMediaPlayer3.Controls.Play End Sub

للرفع

السلام عليكم و رحمة الله و بركاتة تفضل اظهار الرقم الحقيقي دون كسور.xlsx

اخواني الخبراء كيف اجعل WindowsMediaPlayer1 الصوت يعمل و يوقف اتوماتيكيا عند فتح يوزرفورم مهما كان عدد اليوزرفورم Private Sub OptionButton1_Click() WindowsMediaPlayer1.URL = ThisWorkbook.Path & "سورة الإخلاص\" Application.Wait (Now + TimeValue("0:00:45")) WindowsMediaPlayer1.Controls.Play End Sub

السلام عليكم و رحمة الله و بركاتة اخواني الخبراء هل يمكن اضافة الصوت WindowsMediaPlayer1 فى UserForm2و UserForm3 Sub View_images() Application.Visible = False On Error Resume Next Login_screen.Show Application.Wait Now + TimeValue("00:00:3") Login_screen.Hide UserForm1.Show UserForm1.Repaint Application.Wait Now + TimeValue("00:00:3") UserForm1.Hide UserForm2.Show UserForm2.Repaint Application.Wait Now + TimeValue("00:00:9") UserForm2.Hide UserForm3.Show UserForm3.Repaint Application.Wait Now + TimeValue("00:00:9") UserForm3.Hide Application.Visible = True End On Error GoTo 0 End Sub

المطلوب هو B11 الى B10000هو تاريخ الوارد و الصرف في حالة عدم وجود الوارد فى نفس يوم يترك فاضي c-d-e في حالة عدم وجود الصرف فى نفس يوم يترك فاضي f-g-h المطلوب تاريخ الصرف

السلام عليكم و رحمة الله و بركاتة جزاك الله خير الجزاء المطلوب فقط جلب التاريخ الصرف , B11 الى B10000هو تاريخ الوارد و الصرف في حالة عدم وجود الوارد فى نفس يوم يترك فاضي c-d-e في حالة عدم وجود الصرف فى نفس يوم يترك فاضي f-g-h برنامج المستودع 4.xlsb

السلام عليكم و رحمة الله و بركاتة اخواني الخبراء هل يوجد خطا فى كود بطاقة الصنف B11 تاريخ بد البرنامج و هو ثابت I11 رصيد بد البرنامج و هو ثابت 0 I12 الى I10000 هو رصيد الصنف و هو ثابت و معادلة هو (=I11+D12-G12) B11 الى B10000هو تاريخ الوارد و الصرف في حالة عدم وجود الصرف فى نفس يوم يترك فاضي التاريخ الوارد الصرف الرصيد رقم الفاتورة الكمية القيمة رقم الفاتورة الكمية القيمة 2023/01/01 0 02/01/2023 100001 100 د.إِ.1500 90 03/01/2023 200001 10 د.إِ.1500 180 13/01/2023 200002 10 د.إِ.1500 270 23/01/2023 200003 10 د.إِ.1500 360 03/02/2023 200004 10 د.إِ.1500 350 13/02/2023 200005 10 د.إِ.1500 340 23/02/2023 200006 10 د.إِ.1500 340 02/04/2023 100002 100 د.إِ.1500 340 02/07/2023 100003 100 د.إِ.1500 340 02/10/2023 100004 100 د.إِ.1500 برنامج المستودع 4.xlsb

أ / محمد صالح Ali Mohamed Ali محمد هشام. جزاكم الله خير الجزاء

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

السلام عليكم و رحمة الله و بركاتة برنامج حساب الوزن من تصميمي حساب الوزن.xlsx

السلام عليكم و رحمة الله و بركاتة اخواني الخبراء ارجوا مساعدتي Private Sub CommandButton2_Click() Sheet6.Range("k2").Value = Sheet5.Range("F7").Value Dim x As Integer x = Sheet6.Range("L2").Value Sheet6.Cells(x, "B").Value = Sheet5.Range("B7").Value Sheet6.Cells(x, "C").Value = Sheet5.Range("F7").Value Sheet6.Cells(x, "D").Value = Sheet5.Range("B9:B28").Value Sheet6.Cells(x, "e").Value = Sheet5.Range("d9:d28").Value Sheet6.Cells(x, "D").Value = Sheet5.Range("B9:B28").Value MsgBox "تم تعديل بيانات الفاتورة بنجاح" End Sub فكود تديل الفاتورة برنامج المستودع.xlsb