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

اذا اردتها عاموديا اكتب هذا المعادلة(اينما تريد) واسحبها نزولاً =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

هناك الكثير من الأكواد حول هذا الموضوع لكن الكود في هذا الملف يستطيع ان يفصل الاسماء المركبة حتى الاسم الرابع و أكثر مع اضافة تنسيقات تلوينية للنتائج و القدرة على اضافة بعض الأسماء الأولى للاسم المركب (عبد , أبو , سيف , جمال الخ....) Option Explicit Sub split_names() Application.ScreenUpdating = False Dim my_st$, st1, st2 Dim last_col% Dim my_name, i%, k%, Col%, int_col% Dim Lr%: Lr = Cells(Rows.Count, 1).End(3).Row Dim mon_range As Range Dim fin_rg As Range Range("b2").Resize(Lr - 1, 10).Clear Dim arr: arr = _ Array("سيف", "عبد", "أبو", "ابو", "عز", "صدر", "نور") '++++++++++++++++++++++++++++++++++++++ Rem Array تستطيع ان تضيف اي بداية اسم مركب داخل هذا الــ '+++++++++++++++++++++++++++++++++++++ For i = 2 To Lr If Range("a" & i) = vbNullString Then GoTo Next_i my_st = Trim(Range("a" & i)) my_name = Split(Trim(my_st)) Range("b" & i).Resize(1, UBound(my_name) + 1) = my_name Next_i: Next '============================== For i = 2 To Lr last_col = Cells(i, Columns.Count).End(1).Column Set mon_range = Range(Cells(i, 2), Cells(i, last_col)) For k = 1 To last_col - 1 If Not (IsError(Application.Match(mon_range.Cells(k), arr, 0))) Then st1 = mon_range.Cells(k): st2 = mon_range.Cells(k + 1) mon_range.Cells(k).Delete Shift:=xlToLeft mon_range.Cells(k) = st1 & " " & st2 End If Next Next Set fin_rg = Range("a1").CurrentRegion Lr = fin_rg.Rows.Count Col = fin_rg.Columns.Count With fin_rg.Offset(1).Resize(Lr - 1, Col - 1).Offset(, 1) .Borders.LineStyle = 1: .Font.Bold = True .InsertIndent 1: Columns.AutoFit .SpecialCells(2).Interior.ColorIndex = 35 End With Set mon_range = Nothing Set fin_rg = Nothing Application.ScreenUpdating = True '=============================== End Sub الملف مرفق sep_complex_names_New.xlsm

السلام عليكم ورحمة الله وبركاته أخواني كيف أمنع حفظ التلقائي في نموذج فاتورة بيع عند ضغط رز الحفظ يحفظ واللى لا يحفظ تجربة.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

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

وعليكم السلام -تفضل بطريقتين Search.xlsm

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

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

تم التعديل My_date_new.xlsm

في هذه الحالة ، جرب هذا المرفق ، وبدون مكتبة MessageBoxW جعفر

بارك الله بك اخي مصطفى وهذا عمل اخر يقوم بنفس الشيء لكن بدالة معرفة 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

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

تفضل تم عمل قائمة منسدلة بجميع الأسماء فى الخلية J2 ,فعند اختيار اى اسم سيظهر رقمه فى الخلية I2 ولكم منى جزيل الشكر 11.xlsm

تفضل 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

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

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

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

تفضل لك ما طلبت بيان اعلى راتب من الدرجات في الدوائر.xlsx

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

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

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

بعد النظر في الملف ، عندك مجلد خارجي فيه ملفات 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