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

السلام عليكم ورحمة الله وبركاته اخواني الأعزاء طرحت مسبقا لنموذج فاتورة عربي ونموذج فاتورة انجليزي لكن اليوم سوف اتناول الفاتورة بشكل وفكر جديد حتي تخدم شريحة كبيرة من المستخدمين مع حركات اخي الحبيب / شوقي ربيـع الجديد في النموذج فورم واحد ولكن يمكنك من خلاله الاختيار بين لغة الفاتورة (عربي - انجليزي ) ولغة الايصال (عربي - انجليزي) اختيار سهل للاصناف اختيار طريقة السداد بيان رصيد العميل واترككم مع النموذج أدعو الله سبحانه وتعالي ان يكون النموذج فيه الفائدة لكم ولا تنسونا بدعائكم بصلاح الحال بظهر الغيب فاتورة مبيعات اوفيسنا_2.rar

أساتذتي الأفاضل بعد خالص التحية والتقدير إذا تكرمتم لي سؤالين في المرفق: السؤال الأول: أريد حصر عدد الخانات الفارغة في الجدول في جميع الحقول .. بواسطة الدالة Dcount .. بحيث يتم وضعها في النموذج .. وقد لجأت إلى صياغة الدالة لكل حقل على حدى .. وجمع الدالات جميعها. والسؤال .. هي يمكن صياغة كل الشروط في الدالة مرة واحدة بمعنى كتابة جملة Dcount مرة واحدة وبداخل القوس نضيف أسماء الحقول واحدًا تلو الآخر. السؤال الثاني: في عمود (كود الموظف) يوجد أكواد مكررة في الجدول .. هل توجد دالة تحسب عدد مرات التكرار .. ومن ثم وضع تلك الدالة في مربع نص في النموذج الافتتاحي. (لا أريد استخدام استعلام بحث عن التكرار) .. بل أريد – إن أمكن – بواسطة الدوال. جزيل الشكر والتقدير لسيادتكم. Omar.zip

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

السلام عليكم اخي رشيد العامود الذي فية الارتباط التشعبي صغرة بحيث لا يظهر منه سوى حرف واحد وبهذه الطريقة لا تشاهد كامل الارتباط داخل الشيت اقبل تحياتي واحترامي

جرب هذا الحل (واضغط اعجاب) BOOK221 sALIM.rar

وعليكم السلام ربما يساعدك هذا الملف البسيط في فهم الفكرة وتنفيذها على ملفك Hide Show Multi Columns.rar

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

بهذا الكود Sub CopyAll() Dim sh As Worksheet, LR As Long, Last As Long Application.ScreenUpdating = False For Each sh In Sheets If Not sh.Name = ActiveSheet.Name Then Last = sh.Cells(Rows.Count, 1).End(xlUp).Row LR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 sh.Range("A2:M" & Last).Copy ActiveSheet.Range("A" & LR).PasteSpecial xlPasteValues End If Next Application.ScreenUpdating = True End Sub

فكرة جميلة اخي شيفان و لم تخطر ببالي من قبل

السلام عليكم اخي رشيد ما رايك ان تعمل نظام للارشفة بحث تكب اسم الملف ويكون بجانبة ارتباط لمسار الملف عند الضغط علية يفتح لك الملف المطلوب شاهد المرفق واخبرني عن رايك . اقبل تحياتي واحترامي banamj.rar

وجزيت خيراً معلمي بمثل ما دعوت لي .. ويبقى لك الفضل بعد الله عزوجل في أني أحببت هذا المجال تقبل وافر تقديري واحترامي

اخي ابو البراء جزاك الله خيرا اليوم تعلمت منك ProtectScenarios و استفدت منها

الاخوه الكرام عند استدعاء الفورم يتم اظهار الاسم الموجود فى الخليه فى الليبل ولكن الاسم يكون مكتوب فى الخليه اسم الحساب وانا اريد اظهاره فى الليبل بهذا الشكل اسم الحساب Book1.rar

اسمحوا لي بالمشاركة يا استاذ محمد ايمن اتفضل اخفاء حقل عمر في الجدول مع تقدير شفان ريكاني AgeProg.rar

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

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

تفضل اخي الكريم كلمة المرور للتعديل هي 12345 بالنسبة الى منع التعديل على الجدول فهذا غير ممكن AgeProg.rar

ما غريب الا الشيطان ،، عندي جدول فيه رسم بياني ،، تنسيق الجدول وايضا الشكل الجمالي للرسم البياني يحتم عليا عدم المساس بعرض العمود ،، والا كان الحل توسيع العمود كما تفضلت. بالاضافة الى ان العمود التالي لا استطيع اخفاءه لان فيه بيانات يجب اظهارها. وفي الآخر هي افكار ،، نحاول نستفيد من خلالها ونتعرف على امكانيات الاكسل. لان كل فكرة يمكن استغلالها في امور اخرى غير هذا الطلب .. خالص محبتي للجميع .

مارايك لو جعلنا الاكسس يقوم بتشفير هذه الملفات ؟؟ وعند استدعاء هذه الملفات يفك تشفيرها وعند الانتهاء منها يشفرها مرة ثانية

اسلوبك جميل استاذ الزباري تسلم ايدك

عمل رائع وجبار تسلم ايدك استاذ طلعت محمد

اخ عبدالله بعد استخدام Runtime ممتاز جدا ولكن فيه سؤال الان عند تثبيت Runtime وتركيب البرنامج على جهاز العميل يلزم تعديل بعض الخيارات من خلال خيارات الاكسس بعد تركيبه لتغيير الايقونه ومنع رسائل التاكيد وانا استخدم هذا الكود لإظهار خيارات الاكسس ولكن لايعمل مع Runtime DoCmd.RunCommand acCmdStartupProperties فهل من حل

تفضل اكمل البقية Public Function tArqam(strx As Integer) Dim x As String Select Case strx Case 1 x = "يوم واحد فقط" Case 2 x = "يومين فقط" Case 3 x = "ثلاثة أيام فقط" Case 4 x = "أربعة أيام فقط" End Select tArqam = x End Function

ممكن عن طريق اخفاء العامود انظر المرفق Filter_Test nagy.rar

اخي الكريم انت بحاجة الى ما يسمى (الرصيد التراكمي) تفضل هذا المرفق و ارجو ان يلبي طلبك www.rar

ما هو المقصود بالمرفقات ؟؟ هل تقصد مثلا مجلد يحتوي صور الموظفين مثلا ؟؟؟؟

اخي الكريم في الرابط يوجد فيديو يوضح كيفية انشاء قاعدة البيانات على SQL Server باستخدام المعالج Upsizing Wizard

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

الحمدلله الذي بفضله تقضى الحوائج

أستاذي الفاضل العزيز/ محمد أيمن لقد أصبت كبد الحقيقية. الحل ممتاز وغير متوقع وسهل (بعد طبعا صياغة الدالة الرائعة التي قمت سيادتك بصياغتها) وغير تقليدي. لقد وجهتني وجهة أخرى غير متوقعة بعيدا عن الدالة الواردة في السؤال. وبالنسبة لحساب التكرارات .. فهي طريقة رائعة وقمة في الإبداع. جزاكم الله كل خير وزادكم علما وتوفيقا.

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

هنا سيكتب الرقم 11 حتماً جزاك الله خيرا وزادك علماً بانتظار المزيد

ا / ابو سلماان تحية طيبة وبعد ,,,, يمكنك حذف كل الارقام الموجودة في عمود الرقم و ذلك لانها كتابة غير مهمة و سوف يظهر الاسم بالكامل ( جزء داخل الخلية و جزء خارج الخلية )

وعليكم السلام أخي أبو حنين بارك الله فيك وجزيت خيراً ..حل جميل لي ملحوظة بسيطة : هل يعقل لتطبيق الحل أن يقوم المستخدم بعمل معادلات في الثلاث أوراق عمل (أي قمت بالاستعانة بثلاثة أعمدة مساعدة) ... كما سيقوم بوضع ثلاثة معادلات للتنسيق الشرطي في الورقة الواحدة أي 9 في ثلاث ورقات ؟؟ ما بالك لو كان عدد الأوراق أكثر من 10 أوراق عمل مثلاُ ؟ أنا لا أقلل من شأن عملك والعياذ بالله ، ولكن أحببت فقط توضيح الأمور .. ويبقى العمل الذي قدمته عمل جميل ومميز تقبل تحياتي

الأخ الكريمjojo2009 السلام عليكم أولا نرجو منك اتباع تعليمات المنتدى بتغيير الأسم الى اللغة العربية ثانيا قليل من الصبر وستجد رد ان شاء الله على اسئلتك من الأخوة فى هذا المنتدى العريق ان شاء الله جرب الكود التالى لعله يفى بالغرض Sub abo_abary1() For i = 4 To 10 Select Case Range("b" & i) Case Is >= 400001 Range("d" & i) = "30%" Case Is >= 300000 Range("d" & i) = "25%" Case Is >= 5000 Range("d" & i) = "0%" End Select Next End Sub Sub abo_abary2() For i = 15 To 19 Range("e" & i) = Range("b" & i) * Range("c" & i) Next End Sub abo_abary_مساعدتى عمل كود VBN.zip

عوداً حميداً أخي وحبيبي إبراهيم .. أين كنت يا رجل ؟ أما افتقدت إخوانك!! شوف الرابط ده فيه شرح لكود أخونا العربي http://yasserkhalilexcellover.blogspot.com.eg/2016/10/search-using-arrays.html

جرب الدالة المعرفة التالية لتفي بالغرض تماماً مثل الدالة FormulaText الغير مدرجة في أوفيس 2007 Function GetFormula(MyRange As Range) As String If Left(MyRange.Formula, 1) = "=" Then GetFormula = MyRange.Formula Else GetFormula = "" End If End Function أخي الكريم أبا سلمان إليك الملف المرفق الذي يلبي طلبك إن شاء الله رابط الملف المرفق من هنا

اخي الكريم جمال مشكور على مرورك الكريم اما بالنسبة لطلبك كل ما عليك تعديله في الكود هو السطرالتالي If myArray(X, targtN) Like targt & "*" Then يتم تغيير الى If myArray(X, targtN) Like "*" & targt & "*" Then

أخي الكريم هاني يرجى وضع الأكواد بين أقواس الكود ليظهر بشكل منضبط جرب الكود التالي عله يفي بالغرض .. قبل تنفيذ الكود حدد الخلايا المراد حمايتها ثم كليك يمين ثم Format Cells ثم انتقل للتبويب Protection ثم علم علامة صح بحوار الخيار Locked Sub Protect_All_Sheets() Dim Sh As Worksheet For Each Sh In Worksheets If Sh.ProtectScenarios = False Then Sh.Protect "aaaa" Sh.EnableSelection = xlUnlockedCells End If Next Sh End Sub تقبل تحياتي

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

جرب اخي ادخال درجات الصف الرابع او الخامس او السادس لجميع فترات السنة يتم اختيار الفترة اولا ثم الصف ثم المادة وموافاتي بالنتيجة والاستفسارات ان وجدت ADrjat2.rar

اخى ابن مصر بالفعل الفورم المرفق من حضرتك يعمل بنجاح ولكن عن تطبيق الفكره على الملف الموجود عندى يحدث نفس الخطأ -------------------------------------------------- وايضا عند جعل قيم التيكس بوكس تساوى قيمة الخليه يظهر الاسم داخل التيكست بالشكل الموضح فى الصوره untitled.rar

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

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

كود للتنقل بين كل الصفحات Sub SheetList_CP() Application.CommandBars("Workbook Tabs").ShowPopup End Sub

السلام عليكم بعد اذن الاخوة الافاضل كود مختصر للانتقال الى اى صفحة فى الملف Sub kandeel() Sheets("الصفحة الرئيسية").Select End Sub

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

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