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

اذا اردتها عاموديا اكتب هذا المعادلة(اينما تريد) واسحبها نزولاً =ROWS($A$1:A1)*50 اذا اردتها افقياً اكتب هذا المعادلة(اينما تريد) واسحبها بالعرض =COLUMNS($A$1:A1)*50

تفضل هذا المزيد Mult_by_choise.xlsx

شو المشكلة ، حقل الترقيم مثله مثل اي حقل آخر تبحث فيه؟

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

السلام عليكم تحديثات وتحسينات يوم الخميس / 25 - 07 - 2019 م : -مراجعة حساب الصندوق ومحاولة معالجة الأخطاء المحاسبية . -عدم إضافة صورة جديدة للمستخدم حتى يتم تعبئة اسم المستخدم . - تحسينات وإصلاحات أخرى . -الآن أصبح الإصدار الحالي أكثر استقراراً . الرابط الدائم لبرنامج الخليل المحاسبي "متجدد" وبالتوفيق ‏‏BuySal19_v09.rar

ما شاء الله روعة استاذ سليم

هذا بالطبع يكفى بارك الله فيكم جميعا اساتذتنا الكرام لما المزيد طالما تحصلت على الإجابة المطلوبة اجعل مجهود ووقت الأساتذة لما هم يحتاجونه من اخوانك فلا تعلم وقت الأساتذة ؟!!!!!!1

اتفضل الملف لعله يقى بالغرض بحث.xlsx

الأمر في غاية البساطة ,عليك بتعديل تنسيق خلية ظهور التاريخ لكى يظهر اليوم كما تريد

احسنت أستاذ منير كده تمام

تفضل كان عليك رفع ملف كى تكتمل المشاركة وتتم المساعدة ولكنى قمت بعمل هذا لك-تفضل جمع الأيام الى التاريخ.xlsx

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

السلام عليكم 🙂 الطريقة الوحيدة اللي اعرفها هي عمل نموذج غير منظم ، وجميع الحقول في النموذج تكون غير منظمة ، اليك هذا الرابط الذي مفروض ان يفيدك ، وبه رابط لمرفق تستطيع انزاله . بس يحتاج تشرب قهوة ثقيلة تعدل مزاجك قبل ان تقرأ الرابط 🙂 جعفر

عليك السلام ورحمة الله وبركاته يمكن عمل ذلك في الحدث Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Value <> "اعدادي" And TextBox1.Value <> "ثانوي" Then MsgBox "عفوًاالكلمة المكتوبة خطأ من فضلك أعد كتابتها بشكل صحيح" TextBox1.Value = "" TextBox1.SetFocus End If End Sub أي أنه بعد الكتابة والانتقال إلى أي شيء آخر إذا كانت الكتابة خطأ يعطي رسالة ويقوم بمسح الذي كتبته وعليك كتابة الاسم الصحيح تقييد تكست بوكس بكلمة.xls

يعطيك الف عافيه ما قصرت

جرب هذا الملف Explain.xlsx

بارك الله بك اخي مصطفى وهذا عمل اخر يقوم بنفس الشيء لكن بدالة معرفة UDF الكود بداية Option Explicit Function Salim_Split_Name(N_name, n) Dim x% Dim arr: arr = _ Array("سيف", "عبد", "أبو", "ابو", "عز", _ "صدر", "نور", "فضل") '++++++++++++++++++++++++++++++++++++++ Rem Array تستطيع ان تضيف اي بداية اسم مركب داخل هذا الــ '+++++++++++++++++++++++++++++++++++++ Dim My_Col As New Collection Dim Final_col As New Collection Dim it, my_st, my_name my_st = Trim(N_name) my_name = Split(Trim(my_st)) For x = LBound(my_name) To UBound(my_name) My_Col.Add my_name(x) Next x For x = 1 To My_Col.Count If Not (IsError(Application.Match(My_Col(x), arr, 0))) Then Final_col.Add My_Col(x) & " " & My_Col(x + 1) x = x + 1 Else Final_col.Add My_Col(x) End If Next x If n > Final_col.Count Then Salim_Split_Name = "" Else Salim_Split_Name = Final_col(n) End If Set My_Col = Nothing: Set Final_col = Nothing Erase arr End Function نموذج عن الدالة وكيفية عملها في الملف المرفق Fuction_split_name.xlsm

معادلة واحدة على كل العامود(دون ادراج معادلة في الصف الاول مختلفة) في الخلية E2 =IF(COUNTA($C2:$D2)=0,"",SUM($C2,-$D2)+SUM($E1)) اذا لم تعمل المعادلة معك استبدل الفاصلة " ," بفاصلة منقوطة "; " (حسب اعدادات الجهاز عندك) لتبدو المعادلة بهذا الشكل =IF(COUNTA($C2:$D2)=0;"";SUM($C2;-$D2)+SUM($E1))

يمكن استخدام الدالة VLOOKUP في هذه الحالة

جرب الشرح والخطوات التى داخل هذا الرابط http://www.torkymax.com/2010/10/run-time-error-13-type-mismatch.html

أحسنت جزاك الله كل خير

بارك الله فيك وجزاك الله كل خير

جزاك الله كل خير وزادك الله من فضله

بارك الله فيك

أحسنت بارك الله فيك

بارك الله فيك وزادك الله من فضله

جرب هذا الملف My_date.xlsm

استبدل الفاصلة " ," بفاصلة منقوطة "; " (حسب اعدادات الجهاز عندك) لتبدو المعادلة بهذا الشكل =INT(A1)+INT((MOD(A1;1)+0.01)*100)/100

ارفع صورة للخطأ

أحسنت أستاذ سليم معادلة ممتازة جعله الله في ميزان حسناتك

ربما كان المطلوب Select_Month.xls

تفضل 11.xlsm

جرب الملف رقم 2 تم تعديله يمكنك إضافة ما تشاء من الأصناف وسوف تضاف مباشرة الى صفحة Report

أستاذى الكريم لو النسخة عندك 32 بت هذا البرنامج لا يعمل الا على 64 بت لو غير ذلك ستكون المشكلة عندك فالبرنامج يعمل تمام

وعليكم السلام-اهلا بك في المنتدى تم عمل كود في الملف رقم 1 لتظليل الصف الذى به الخلية النشطة بدون الغاء لون الخلية القديمة ان وجدت اما بالنسبة للملف الثانى تم انشاء صفحة أخرى بداخل الملف Report لعمل اللازم بالمعادلات Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False If Cells(1040000, 1) <> "" Then Rows(1040000).Copy Rows(Cells(1040000, 1).Value).PasteSpecial Paste:=xlPasteFormats End If Rows(Target.Row).Copy Rows(1040000).PasteSpecial Paste:=xlPasteFormats Cells(1040000, 1) = Target.Row With Target .EntireRow.Interior.ColorIndex = 8 End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub 1.xlsm 2.xlsx

يمكنك التغيير قى البرنامج كما تشاء بالنسبة للعملة

الملف مع المعادلة celing_fuction.xls

وعليكم السلام 🙂 تفضل ، هذا التعديل على الوجدة النمطية Public Function FileName(iPath_In As String, iCondition As Variant) Dim fdr As String FileName = iPath_In & "No.jpg" fdr = Dir(iPath_In & iCondition & ".*") Do While fdr <> "" FileName = iPath_In & fdr fdr = Dir Loop End Function جعفر

تفضل 🙂 1065.zip

بارك الله فيك استاذى الكريم

أحسنت أستاذ مجدى بارك الله فيك

بارك الله فيك أستاذ هانى ,بس ياريت لو يتم رفع العمل مرة أخرى-فالملف غير موجود

بارك الله فيك أستاذ مجدى وجزاك الله كل خير

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

بارك الله فيك أستاذ محمد

ابداع بارك الله فيك أستاذ مجدى وزادك الله من فضله

أحسنت أستاذ مجدى رائع بارك الله فيك ورحم الله والديك

بارك الله فيك وزادك الله من فضله -معادلات فوق الممتازة

بارك الله فيك أستاذ بن علية معادلات ممتازة

بعد النظر في الملف ، عندك مجلد خارجي فيه ملفات PDF وتريد تعرض الملف حسب رقمه ، بعد النقر على List1 🙂 النتيجة ، وبدون الاكروبات ومكتباتها 🙂 . نستخدم IE WebBrowser ، والموجود على كل كمبيوتر ، وبدون اضافة ملفات 🙂 وهذا كود العرض: Option Compare Database Dim web As Object Private Sub Form_Load() 'On Error GoTo err_Form_Load DoCmd.Maximize 'specify that the browser is an object in the Form Set web = Me.WebBrowser_PDF.Object 'give the initial web page name web.Navigate "about:blank" 'don't show web page errors web.Silent = True Exit Sub Err_Form_Load: If Err.Number = 2447 Then MsgBox "Please Enter a Site Name for starting this Page" Exit Sub End If Resume Next End Sub Private Sub List1_Click() 'تحديد مسار الملف StrFileParh = CurrentProject.Path & "\booksindex\" web.Navigate StrFileParh & Me.List1 & ".pdf" web.Visible = True End Sub جعفر 1032.db2.zip