Ali Mohamed Ali

وعليكم السلام اخى الكريم-كان عليك من البداية قراءة قوانين ومبادىء المنتدى فبما انك لم تقم برفع ملف مبين كل المطلوب عليه بكل دقة فلماذا لم تقم باستخدام خاصية البحث فى المنتدى قبل رفع مشاركتك هذه وقد نبهنا على هذا الموضوع الاف المرات لعدم اهدار وقت الأساتذة فهناك العديد من الموضوعات بالمنتدى تخص طلبك ومنها : تفقيط العملات دالة ( تفقيط ) تحويل الرقم الى نص بالعربي - طول الرقم غير محدود من رقم إلى كتابة تفقيط عربي مميز تفقيط الارقام باللغة العربية

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

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

جزاكم الله جميعا كل خير

وعليكم السلام-طالما انك لم تقم برفع ملف لتصميم عليه ما تريد فعليك بمتابعة ودراسة هذا الرابط داخل منتدانا الكريم https://www.officena.net/ib/topic/97926-تصميم-شاشة-يوزر-فورم-لدخول-مستخدم-لملف-اكسيل/ او فقط عليك بإستخدام هذا الكود ووضعه فى حدث ThisWorkBook Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub

السلام عليكم اساتذة واعضاء هذا المنتدى الكريم وجدت هذا البرنامج فى موقع خارجى فاحببت ان اشارككم به لعله يكون فى الإستفادة والإفادة لأحدكم واتمنى ان ينال إعجابكم ,بارك الله فيكم جميعا Solaff.mdb

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

بارك الله فيك وجعله الله فى ميزان حسناتك

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

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

دائما وابدا استاذى الكريم ولنجاح اى مشاركة لابد من رفع ملف مدعوم بشرح كافى عن المطلوب ووضع به النتائج التى تريدها تفضل يمكنك هذا بهذا التنسيق [$-2000000]0000 0000 0000 Number Format.xlsx

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

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

تفضل استاذ محمد وهذه هى اخر طريقة للإضافة يمكنك تعلمها من هذا الفيديو ,وليس هناك اية طرق اخرى لذلك كيفية إضافة الدوال المخصصة بشكل دائم في جميع ملفات اكسل VBA

بارك الله فيك وجزاك الله كل خير استاذ عبد اللطيف

تفضل لك ما طلبت استاذ ياسر وتم تنفيذ المطلوب على ملفك : اسم المستخدم : yasser كلمة المرور : 123456 FILE TEST.xlsm

لو اطلعت على هذه الروابط لوجدت ان معظم الدوال بها كود ويمكنك وضعها فى شيت الإكسيل بهذا الكود وطريقة تثبيت كل هذه الدوال بملفات الإكسيل هى : عليك بوضع الملفات التى بها اكواد المعادلات التى تريد اضافتها فى الإكسيل ثم بعد ذلك التوجه الى بارتشن C ثم فتح فولدر Programe Files(X86) ثمMicrosoft Office ثم Office14 وبعد ذلك يمكنك البحث على فولدر اسمه XLSTART ,فعليك بفتح هذا الفولدر ولصق ووضع ملفات الإكسيل التى بها اكواد المعادلات فيها فبذلك تجد كل هذه المعادلات موجودة فى ملفات الإكسيل لديك بارك الله فيك

وعليكم السلام-كان لزاما عليك استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك-تفضل تعريف وشرح دالة VLOOKON

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

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

وعليكم السلام-جرب هذا الملف به طلبك الفاتورة_MZM.xlsm

تفضل استاذ حميد ولحسن عمل الكمبوبوكس يمكنك إضافة هذا الكود Private Sub ComboBox1_DropButtonClick() lrw = Sheets(2).Cells(Rows.Count, 4).End(xlUp).Row ComboBox1.List = Sheets(2).Range("D1:D" & lrw).Value End Sub تعبئة القوائم المنسدلة1.xlsm

وعليكم السلام -يمكنك تحميل هذا من هنا فلا يحتاج الى تفعيل https://www.4shared.com/rar/vx1cv9Hxca/KutoolsforExcel1650.html وهذا رابط اخر http://www.mediafire.com/file/xcvjc4oywbvonda/Kutools.for.Excel.16.50.rar/file

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

اهلا بك فى المنتدى شرفتنا,شرح هذه الدالة كالتالى: وهى دالة معرفة وهذا هو الكود المرافق للدالة لحسن عملها Function VLOOKON(ParamArray My_Arg()) As Variant Dim Max As Integer Dim Index As Integer Dim FindOK As Boolean Dim MyFind As String Dim CIndex As Integer MyFind = My_Arg(0) CIndex = My_Arg(1) Max = UBound(My_Arg) FindOK = False For Index = 2 To Max If FindOK Then Exit For VLOOKON = My_Arg(Index).Name R = Range(VLOOKON).Rows.Count C = Range(VLOOKON).Columns.Count If CIndex > C Then VLOOKON = "#REF!": Exit Function For MyR = 1 To R If LCase(Range(VLOOKON)(MyR, 1)) = LCase(MyFind) Then VLOOKON = Range(VLOOKON)(MyR, CIndex) Exit Function End If Next MyR Next Index VLOOKON = "#N/A" End Function وهذا ملف ايضا به مثال يبين تطبيق الدالة لحسن استخدامها VLOOKON With No Limitation.xls