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

اخى الكريم لم افهم جيد طلبك ولكن جرب المرفق ربما يكون طلبك تقبل تحياتى ----------------------------------------------------- اتش.zip

السلام عليكم ورحمة الله تم إضافة كود يقوم بإدارج "فاصل الصفحات" بعد كل محافظة مستعينا بالعمود C (عمود مساعد)... تم إدراج عدة تسميات لنطاقات معينة لتسهيل عملية الكود... بن علية صفحات الطباعة.rar

السلام عليكم ورحمة الله أخي الكريم الخضر، ما أعرفه عن ملفات PDF أنها صور ولا يمكن التحكم في الصورة بواسطة البرامج مثل إكسيل... إن كان ولا بد تقوم بإنشاء نموذج صفحة مطابقة لوثيقة PDF عن طريق (مثلا) إكسيل مع إنشاء قاعدة بيانات تكون عناوين بياناتها الحقول الموجودة في هذا النموذج ثم الربط بين النموذج وقاعدة البيانات بمعادلات الترحيل وعند الطباعة نستخرج الوثيقة باستعمال خاصية "الطباعة إلى PDF"... والله أعلى وأعلم بن علية

أخونا الكريم محمود تشرفنا بانضمامك إلينا ونتمنى لك قضاء أممتع الأوقات في بيتك الثاني .. أوفيسنا الصرح الكبير وعليكم السلام أبي الحبيب أبو يوسف مرورك بالموضوع شرف كبير لي وجزيت خيراً على تشجيعك الدائم لأبنائك .. تقبل وافر تقديري واحترامي

السلام عليكم أخي الحبيب ياسر أبو البراء عمل رائع وموفق بإذن الله تعالى, بارك الله بك أخي الحبيب وبعملك وأياديك الناصعة في تقديم العون ومساعدة الآخرين.. والسلام عليكم

بسم الله ما شاء الله عليك يا أخي الغالي حسام حطاب (متدورش ع النقطة ..أنا هجيبهالك) عمل رائع ومتقن وإبداعي بشكل منقطع النظير تقبل وافر تحياتي

استاذى الحبيب / ابويوسف جرب المرفق انت بس تؤمر للعلم هذه الرسائل انت مصدر الهام الفكره لى تقبل تحياتى ----------------------------------------- اتش.zip

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

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

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

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

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

أخي الكريم محمد الملف يعمل بشكل عادي معي ..قد تكون المشكلة في نسخة الأوفيس لديك جرب تحمل نسخة أوفيس أحدث إصدار وليكن 2013 أو 2016 ..

ضعه في اي حدث شئت : في حدث تحميل النموذج او في حدث النقر على الزر .......

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

أخى العزيز أبو حمادة لعل هذا هو المطلوب .... معاينة طباعة.rar

تمام كدا وضحت الفكرة ..إذاً ضع هذا السطر في الكود ليختفي التطبيق ثم تظهر الرسالة في حالة عدم التطابق لمسار الملف مع مسار الملف الموجود في الكود Private Sub Workbook_Open() Dim KHM As String Application.Visible = False KHM = Trim(Sheets("Sheet1").Range("A1")) Dim MyPath As String '************************************************************************************* '''''''' KHMB.xls ويوضع داخله ملف الإكسل KHMB وإسم المجلد D:\ هنا إسم المسار في الدرايف MyPath = "D:\KHMB" '************************************************************************************* If ThisWorkbook.Path <> MyPath Then MsgBox "مسار الملف" & vbNewLine & "تم تغيير مسار الملف ولن يعمل معك إلاً من مسارة الصحيح" 'Application.DisplayAlerts = False Application.Quit Else MsgBox MyPath End If Dim MyFlName As String '************************************************************************************* ''''''' D:\ في الدرايف KHMB وهنا إسم ملف الإكسل يتم وضعة داخل المجلد MyFlName = KHM '************************************************************************************* If ThisWorkbook.Name <> MyFlName Then MsgBox "إسم الملف" & vbNewLine & "لقد تم تغيير إسم الملف ولن يفتح معاك إلاً بإسمة" 'Application.DisplayAlerts = False 'ThisWorkbook.Close Else MsgBox KHM End If End Sub أضفت السطر الذي ذكرته في بداية الكود ..وأضفت سطر لإغلاق التطبيق ككل وليس المصنف فقط بعد الرسالة في حالة عدم التطابق تقبل تحياتي

ممكن أستاذنا / محمد سلامة ... يعطينا طريقة فك الحماية من على البرنامج

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

السلام عليكم ورحمة الله تفضل تظهر الرسالة إذا تغير إسم الملف ويفتح معك الملف وهو لكي تعدل طبعا إذا تبغاه تأتيك الرسالة ثم يغلق أزل علامة التنصيص الفردية ( ' ) التي امام الكود اللي بعد الرسالة 'Application.DisplayAlerts = False 'ThisWorkbook.Close رسالة إذا تغير مسار الملف واخرى إذا تغير إسم الملف الآن خارج بعجاله إذا فيه أي استفسار اتركه إلي غد إن شاء الله ممكن تلاحظني انني موجود فأنا فعلا ما اخرج من النت إلا إذا فصل لحاله فانا اترك الجمل بما حمل لان يوجد آخريين يدخلوا علي ملفات للعمل عليها طبعا خاص بالعمل KHMB.rar

تم التعديل تفضل Project3.rar

السلام عليكم ورحمة الله تفضل الملف غير الاسماء اللي ترغب شغًال عندي وتمت التجربة 100 % إن يعمل معاك عندي Office 2013 KHMB.rar نعم حسب طلبك شاهد الملف

كود جميل جداً

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الغالي " حسام " على العمل المميّز .. أو بإمكاننا القول .. العمل الأنيق جزاك الله خيرًا و زادك من علمه و فضله .. إشتقنا لك و للمساتك و بصماتك الإكسيليّة البديعة فائق إحتراماتي

ايش اللي تريد وضعة في الخلية A1 هل هو إسم ملف الاكسل او مسار الملف أي المجلد طبعا واضح انة الملف صحيح

اعتقد مثل هذا يحقق مطلوبك Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 45 Then Dtfild = Dtfild - 1 ElseIf KeyCode = 43 Then Dtfild = Dtfild + 1 End If End Sub باعتبار Dtfild هو حقل التاريخ داخل النموذج

جرب تغير السطر الخاص بتحديد رقم العمود إلى الشكل التالي If Target.Column = 5 Or Target.Column = 9 Or Target.Column = 13 Or Target.Column = 17 Or Target.Column = 21 And Target.Row > 4 Then حيث الرقم 5 يشير إلى العمود الخامس E والرقم 9 يشير إلى العمود التاسع I وهكذا ..بحيث يمكنك التعامل مع هذه الأعمدة فقط

بارك الله فيكم ولكم جزيل الشكر فعلا هوا دا المطلوب ان شاء الله اقوم بالتعديل واقول لحضرتك النتيجه

شكرا جدا اخى حسام هو المطلوب شكرا على تعبك

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

اخي الغالي أ / ياسر جزاكم الله خير ... ونسأل الله العظيم من فضله العظيم ان يعطيكم العافية ويزيدكم من فضله وعلمه

بسم الله والشكر الجزيل أخي سعيد لتجاوبك مع تقديري واحترامي رضا الله

فى تصميم الجدول اضغط على الحق وفى الخصائص required = yes او لو الاكسس عربى الخاصية مطلوب = نعم the end.rar

الاخت الكريمه رشا جربى هذا الكود افتحى ملف جديد وادخلى محرر الاكواد اعملى ادراج مودويل جديد والصقى هذا الكود فيه ثم اضغطى على زر رن الاخضر لعمل الكود ثم اعملى حفظ للملف واغلقيه Sub ResetAll() Dim myCommandBar As CommandBar For Each myCommandBar In Application.CommandBars If myCommandBar.Type = msoBarTypePopup Then myCommandBar.Reset myCommandBar.Enabled = True End If Next myCommandBar End Sub للعلم هذا الكود من مكتبة الموقع اللى كان قائم على العمل والاشراف بهاالاخ الحبيب ياسر خليل واليك حل اخر اتبعى التعليمات اللى بالصوره تقبلى تحياتى --------------------------------------------------------------------------------------

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

حياك الله اخي تفضل المرفق وجزى الله خير الأخ محمد سلامة صاحب الموضوع والمهتم بالأرشفه للتوضيح وللفائدة :: هذا الكود كان في النموذج frm_main وهو يعمل على اخفاء شريط الأدوات ستحتاجه بالتأكيد في المستقبل القريب قمت بتعطيله فقط .. بدون برامج فك ولا سواه . ستجده في حدث في الحالي للنموذج وباللون الأخضر . DoCmd.ShowToolbar "Ribbon", acToolbarNo بالتوفيق Arcives.rar

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

اجعل الخاصية Required = yes لهذا الحقل

من أدام التسبيح : فرجت أسراره ومن أدام الحمد : تتابعت عليہ آلخيراتومن أدام الاستغفار : فتحت لہ المغاليق اللهم اجعل أيامنا سعيدة

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

تم التعديل test salim 1.rar

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

اخي الكريم ونيابه عن الأخ محمد علق على امر شفت في لوحة المفاتيح .. ومن ثم اضغط انتر بالتوفيق

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

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

اضغط على زر Shift في لوحة المفاتيح أثناء تشغيل الملف وسيفتح معك في وضع التصميم بارك الله في مصمم هذا البرنامج وجزاه كل خير

أخي الغالي المتميز مختار بارك الله فيك وجزيت خيراً على هذا الإبداع أخي وحبيبي في الله بن عليه حاجي جزيت خير الجزاء على شرارة الإنطلاق الإبداعية إليكم إثراءً للموضوع الكود التالي Sub FindCombinations() Dim V(1 To 4) As Variant, W(1 To 4) As Variant, P As Variant Dim PCount&, I&, II&, III&, IIII& Dim Target As Single, Cell As Range ReDim P(1 To 4, 1 To 1) For I = 1 To 4 With Union([Ligne_1], [Ligne_2], [Ligne_3], [Ligne_4]).Areas(I) V(I) = .Value W(I) = .Value II = 0 For Each Cell In .Cells II = II + 1 W(I)(1, II) = Cell.Address Next Cell End With Next I Target = [Cellule1].Value For I = 1 To UBound(V(1), 2) For II = 1 To UBound(V(2), 2) For III = 1 To UBound(V(3), 2) For IIII = 1 To UBound(V(4), 2) If Target = V(1)(1, I) + V(2)(1, II) + V(3)(1, III) + V(4)(1, IIII) Then PCount = PCount + 1 ReDim Preserve P(1 To 4, 1 To PCount) P(1, PCount) = W(1)(1, I) P(2, PCount) = W(2)(1, II) P(3, PCount) = W(3)(1, III) P(4, PCount) = W(4)(1, IIII) End If Next IIII Next III Next II Next I Application.ScreenUpdating = False [B16:F65000].ClearContents [C16:F16].Resize(PCount).Value = Application.Transpose(P) [B16].Value = 1 [B16].Resize(PCount).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Trend:=False Application.ScreenUpdating = True End Sub تقبلوا تحياتي Find Every Combination YasserKhalil.rar

جرب المرفق بدون ماكرو ولكن عن طريق vba cost2016.rar

حياك الله اخي رضا الله هذا الكود للسجل الأخير On Error Resume Next Me.Refresh With Recordset If .AbsolutePosition = .RecordCount - 1 Then MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" Else DoCmd.GoToRecord , , acNext End If End With هذا الكود للسجل الأول On Error Resume Next Me.Refresh With Recordset If .AbsolutePosition = 0 Then MsgBox "هذا هو السجل الأول ", vbInformation + vbOKOnly, "تنبيه" Else DoCmd.GoToRecord , , acPrevious End If End With بالتوفيق ان شاء الله

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