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

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

السلام عليكم 🙂 انا ضد وضع الساعة في النموذج ، لأن حدث On Timer يحدث كل ثانية (ساعتك تشير الى انك تعرض الثواني ايضا) : 1. ومستحيل انه يستطيع ان يحدث كل ثانية ، لأن هذا الامر مرتبط بساعة الجهاز ، وعلشان اكسس يقدر يحصل على هذه المعلومة ، فإنه يطلبها من الوندوز ، والذي معناه ان المعالج CPU يجب ان ينفذ هذا الامر ، ومن المعروف ان المعالج يكون لديه طابور من الاوامر لتنفيذها ، والأولوية لتنفيذ أوامر الوندوز ثم اوامر البرامج ، ومستحيل ان المعالج يكون فاضي ومستعد 100% لتنفيذ امر الاكسس في تلك الجزئية من الثانية. لهذا السبب ترى ان معظم الوقت الثواني تعمل بطريقة صحيحة ، وبعض الاوقات تتوقف الثواني (لما المعالج يكون مشغول بتنفيذ أوامر اخرى) ، ولا حقا نرى ان الساعة تعمل بطريقة صحيحة!! طبعا كلامي ليس معناه ان بعد التوقف يكون الوقت خطأ ، وانما كلامي انه يكون فيه تأخير في عرض الثواني بعض الاوقات ، 2. وبما ان الساعة موجودة في زاوية الكمبيوتر (ولاحظ انه لا يوجد بها ثواني ايضا) ، فمافي داعي ان نضع ساعة في النموذج ، إلا اذا كان عندنا نموذج منبثق يملئ الشاشة ، واللي من الخطأ استعمال النموذج المنبثق إلا في حالات نادرة ، وهذه احد مشاكله !! 3. حدث الساعة سيكون يعمل طوال وقت استعمال البرنامج ، ولما تفتح احد النماذج وتريد تنفيذ احد الاوامر ، قد تجد فيه بطئ في التنفيذ ، 4. بما ان حدث الساعة يعمل طوال وقت استعمال البرنامج ، واذا اردت ان تعمل تغيير في كود احد النماذج الاخرى في البرنامج ، فسترى انك لا تستطيع كتابة الكود بحرية ، لأنه كل ثانية سترى ان مؤشر الكتابة يرجع الى اول السطر ويترك السطر بلون احمر لأنك لم تكمل كتابة الكود ، الى ان تغلق النموذج الرئيسي او تضعه في وضع تصميم فيتوقف حدث الساعة 🙂 عند استعمال الصور يجب المحافظة على نسبة الطول الى نسبة العرض ، حتى تظهر الصورة بمقاسات صحيحة ، لذلك لا تستعمل Stretch (لاحظ الخيار الثاني في القائمة) إلا بنسبة قليلة ، وإلا فالشكل الدائري سيظهر كشكل بيضاوي (وهذا غير صحيح وعمل غير احترافي) ، ولاحظت هذا على احد صورك في النموذج : . جعفر

لذا انا اشرت الى ذلك لذا فانا اتفق معك في البند الاول جزئيا بناء على مسبق الاشارة اليه وبقية البنود 100%

يا رجال ، بعض المستخدمين عندهم لابتوبات بنظام XP او Vista عليه !! وعيدكم مبارك 🙂 جعفر

موضوع التحديث وانشغال المعالج ربما يكون في المعالجات الضعيفة وبالذات القديمة حاليا وصل عدد الى الانوية الى 16 نواه و32 من خيوط المعالجة Ryzen 9 3950X في جهازي معالج متوسط من نوع انتل i9 عدد 10 نواه و20 خيط معالجة عند الضغط وتشغيل عدد كبير من التطبيقات لا يصل انشغال المعالج الى 30% مع الاحاطة ان هناك مجموعة عوامل تؤثر على انشغال المعالج وتاخر تنفيذ العملية منها نوع المعالج وترددة وعدد الانوية ونوع اللوحة الام و حجم الرام و الهارد نوعه وسرعته والمساحة المتاحة و كذلك تنفيذ عمليات التنظيف للهارد بحذف الملفات المؤقتة والغاء التجزئة الخ ربما المشكلة التي واجهتها وسببت لى ارباك ما اشرتم اليه في البند 4 الله يعطيك العافية وعيدكم مبارك

عدم وضع الساعة في النموذج ، والاهتمام بأبعاد الصورة 🙂 جعفر

انت لم تقل اان المطلوب هو 36 دفعة لان بالتأكيد سيصبح الملف ثقيل لهذا يمكن معالجة الأمر امّا بالكود او تغيير تصميم الجدول كما في هذه الصورة (يوجد ملف نرفق) My_EXAMPLE.xlsx

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

جميل جدا استاذي الغالي اذا كنت تستطيع تحويل الرموز نفسها الى زرارات سيكون افضل

فيديوووو جميل وشيق كيفية استخدام اهم نصائح في paste special في الفيديو ده هانتعلم اهم 5 نصائح في ال paste special PASTE SPECIAL.xlsx

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

استاذي العزيز @husamwahab شكرا لمجهودك الرائع تقبل اجمل التحيات

وضعت لك ملفاً مختصراً عما تريد ( 10 أعمدة فقط كنموذج ) المعادلة في العامود J يمكن نسحها والتعديل عليها لوضعها اينما تريد Salim_File.xlsx

تم معالجة الأمر MY_Filter.xlsm

السلام عليكم بتاءا على طلب احد الاخوة طريقة التحكم بالحقول برمجيا بالنسبة لحقل يستحق او لا يستحق هذا حقل غير منظم لذلك النتيجة لن يتم تخزينها بحيث اذا خرجت وعدت للنموذج لن تجد شيء اما اذا اردت تثبيتها على طول اعمل حقل في جدول الطالب اسمه الخصم مثلا واختار معالج البحث .. ثم اختار سأكتب القيم التي اريدها يديويا ( يستحق الخصم -- لا يتحق الخصم ) هيك ستبقى النتيجة مخزنة في النموذج حسب معدل الطالب شاهدوا الفيديو لطفا رابط تحميل ملف العمل اوتو يعني مجرد ان تكبس عليه ينزل عندك الملف drive.google.com/uc?export=download&id=1-0eupFawDaMHgTMP1hB7dQmgIVvF7L5F

ماشاء الله شرح جميل وواضح الله يعطيك العافية

عيدكم مبارك تقبل الله منا ومنكم صالح الاعمال

تصميم بسيط وجميل والاهم رضى العميل تحياتي ابا اشرف وعيدكم مبارك

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

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

ما شاء الله استاذي husamwahab العزيز حسام ولا اجمل ولا احاى من هكذا جواب اباداع

المصنف1.xlsb

جزاك الله خيرا اخي @kha9009lid

كيف تريد ان يعمل الكود ما دام لا يوجد تنسيق بين اسماء الشيات الفعلية واسماءها داخل الكود و حتى النطاق في الكود مختلف عما هو في الشيت الاساسي استبدل "Main" باسم الشبت الاساسي و "Final" باسم شيت الذي تريد نقل البيانات اليه واسم النطاق"A3:AN3" بنطاق العناوين في الشيت الاساسي

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

كان من المفورض طرح هذه الأسئلة مسبقاً و دون تضييع الوقت تم تعديل الماكرو خسب ما تريد Option Explicit Sub From_one_to_two() Dim M As Worksheet Dim F As Worksheet Dim LF%, col%, i% Dim F_rg As Range, y% Dim S_rg As Range Dim max_ro% Dim Flt_rg Application.ScreenUpdating = False Set M = Sheets("Main"): Set F = Sheets("Final") Set S_rg = M.Range("A3:AM3") col = F.Cells(3, Columns.Count).End(1).Column F.Range("a5").Resize(5000, col).Clear For i = 2 To col Set F_rg = S_rg.Find(F.Cells(3, i), lookat:=1) If F_rg Is Nothing Then GoTo Next_I y = F_rg.Column max_ro = M.Cells(Rows.Count, y).End(3).Row M.Cells(4, i).Resize(max_ro - 2).SpecialCells(12).Copy F.Cells(5, y).PasteSpecial (12) Next_I: Next LF = F.Range("A5").CurrentRegion.Rows.Count F.Range("A5").Resize(LF) = _ Evaluate("Row(" & 1 & ":" & LF & ")") F.Range("A5").Resize(LF).NumberFormat = "[$-,200] 0" With F.Range("A5").Resize(LF, col).SpecialCells(2) If .Cells(1, 1) <> vbNullString Then .Borders.LineStyle = 1 .InsertIndent 1 .Font.Size = 14: .Font.Bold = True End If End With F.PageSetup.PrintArea = F.Range("A3").Resize(LF + 2, col).Address Rem ++++++++++ Optional +++++++++++++++ ' If M.FilterMode Then ' M.Range("a3").CurrentRegion.AutoFilter ' End If Rem ++++++++++ Optional +++++++++++++++ Application.ScreenUpdating = True End Sub الملف من جديد Mhnd_7788_with filter.xlsm

هذه المشكلة واجهتني وعملت مثل اقتراح استاذي @jjafferr وحملت البرنامج وعملت التقرير وفقا للصورة المرفقة والنتيجة جيدة

وعليكم السلام 🙂 الطابعات الحرارية تأخذ اكثر من حجم واحد من الاوراق ، لذلك يجب ضبط اعدادات حجم الورقة من اعدادات الطابعة نفسها 🙂 اقترح عليك ان تعرف اسم الطابعة ، ثم تنصّب برنامج الطابعة على كمبيوترك ، وتعمل التضبيط المطلوب ، ثم تُخبر المستخدم بها 🙂 جعفر

جرب هذه المعادلة =IF(ISNUMBER(B7),MAX($A$6:A6)+1,"") الملف مرفق My_file.xls