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

بدل ان تستخدم Visible استخدم ColumnHidden هكذا [SershExpenseSub].[Form]![Amount2].ColumnHidden = False اليك القاعدة Database1.rar

اتفضل اليك هذا Private Sub kyar_Click() If Me.kyar.Value = 1 Then [SershExpenseSub].[Form]![Amount].ColumnHidden = False [SershExpenseSub].[Form]![Amount2].ColumnHidden = True [SershExpenseSub].[Form]![notes2].ColumnHidden = True [SershExpenseSub].[Form]![TimeSn].ColumnHidden = True [SershExpenseSub].[Form]![SumTotal].ColumnHidden = True [SershExpenseSub].[Form]![Cu].ColumnHidden = True [Prent].Visible = False ElseIf Me.kyar.Value = 2 Then [SershExpenseSub].[Form]![Amount].ColumnHidden = True [SershExpenseSub].[Form]![Amount2].ColumnHidden = False [SershExpenseSub].[Form]![notes2].ColumnHidden = False [SershExpenseSub].[Form]![TimeSn].ColumnHidden = False [SershExpenseSub].[Form]![SumTotal].ColumnHidden = False [SershExpenseSub].[Form]![Cu].ColumnHidden = False [Prent].Visible = True End If Me.Refresh End Sub Database1.rar

توفر لی الحاسب لذا انا قمت بالمطلوب 😉 دائما عندما تبحث عن مربع نصي تقدر تستخدم tap او ctrl + tap لکی يحدد لك واحد تلو الاخر اتفضل اليك القاعدة kan.accdb.zip تحياتي

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

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

السلام عليكم أخي الكريم مرفق نفس الملف وبه الكود لكي تضيف نفس الكود بالملف الأصلي إفتح الملف ثم الفيجوال بيسيك Alt-F11 ثم دبل كليك علي اسم الشيت ثم انسخ هذا الكود وضعه بمحرر الأكواد Private Sub Worksheet_Change(ByVal Target As Range) cl = Target.Column If cl > 14 And cl < 17 Then Exit Sub r = Target.Row If WorksheetFunction.CountA(Range(Cells(r, 1), Cells(r, 11))) < 2 Then Exit Sub ActiveSheet.Unprotect Password:="121314" Cells(r, 15) = Application.UserName Cells(r, 16) = Date & " - " & Time 'Range("A1:C" & r).Locked = True ActiveSheet.Protect Password:="121314" End Sub كما بالصورة التالية AAAA (1).xlsm

تفضل بحث1.xlsm

بالملف المرفق فى النموذج اريد عند الدخول لسطر جديد بعد تسجيله غلق السطر السابق مع امكانية بكود رقم سرى لتعديل سطر معين او اى سطر مغلق وشكرا 1.ACCDB

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

كيف نجعل الخلية تتمرد على تحديدها و تنتقل مع محتوياتها الى العامود المجاور(هروباً من التحديد) شاهد هذا الملف Go_Away.xlsm

اتفضل Database1.rar

تعديل طفيف على طريقة أستاذي @Shivan Rekany تستغني فيه عن كون تنسيق الحقل FIXED IIf(Right$([Derece]-Fix([Derece]);1)>=0.001;Fix([Derece])+Mid$([Derece]-Fix([Derece]);1;4)+0.01;[Derece]) تقريب الى الاعلى للرقم الثاني بعد الفارزة2.accdb

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

اخى الكريم @Shivan Rekany سباق بالخير اخى الكريم جعلك الله دائما فى عون اخوانك و زادك من علمه

هناك مواضيع كثيرة على ذلك لكن اسهل طريقة هو ان تعمل مربع نصي في تذيل نموذج فرعي وفي مربع نصي اللي في نموذج رئيسي اعطيه قيمة مربع نصي في نموذج الفرعي واتفضل اليك رابط على ذلك https://www.officena.net/ib/topic/10594-الحصول-على-مجموع-قيم-النموذج-الفرعي/?do=findComment&amp;comment=31310 او هذا https://www.officena.net/ib/topic/60946-عمليه-الجمع-في-subform/ واليك رابط البحث عن ذلك بها كثير من الموضوعات على ذلك https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&amp;ie=UTF-8&amp;q=جمع+نموذج+فرعي&amp;sa=Search

انا لا اعرف تريد ان تظهر اي حقول عند اختيار الاول و اخفاء اي حقول او عند اختيار الثاني انا عطيتك الطريقة و تأكد من اسماء المربعات النصية في نموذج الفرعي و استخدم ColumnHidden بدل Visible فقط

اخى الكريم @Shivan Rekany اريد ان اعرف اذا كان عندى نموذج يحتوى على نموذج فرعى واريد ان اضيف مربع نص فى تذييل النموذج الرئسي واكتب فيه تعبير لجمع حقل ما بالنموذج الفرعى فماذا استخدم وماذا اكتب لانى استخدمت sum ولم تفلح

أهلاً بأستاذنا الكبير @Shivan Rekany أشكرك على ردك السريع بارك الله فيك ..

كم عدد الدول عندك ... هل تريد كل واحد بيكون لون مختلف عن الكل الاخرين ؟ اذا نعم او لا ارفق نسخة مصغرة من قاعدة بياناتك و بيكون بها اسماء الدول لكي نشوفه

بارك الله فيك اخى الكريم سابحث باذن الله عنها عندما اذهب للمنزل وايضا بانتظار حضرتك عندما يتوفر لك الكمبيوتر ان تظهرها حال انى لم اراها

استخدم فونت Digistyle Unicode اليك رابط التحميل https://arbfonts.com/digistyle-unicode-font-download.html

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

ان شاء الله سيكون هناك حل كان من المفروض ان ترفق نسخة مصغرة من القاعدة لكي تحصل على الجواب باسرع وقت ممكن حسب ما في الصورة اتفضل اليك هذا Teqrib: IIf(Right$([Derece]-Fix([Derece]);1)>=0.001;[Derece]+0.01;[Derece]) Derece هو حقل الارقام تقدر تغيره الى اسم اللي في جدول قاعدة بياناتك القي نظرتا الى الصورة واليك القاعدة بها جدول واحد مع استعلام تقريب الى الاعلى للرقم الثاني بعد الفارزة.accdb

بدل الى هذا الكود Private Sub CommandButton1_Click() Dim My_sh As Worksheet Set My_sh = Worksheets("ورقة1") Dim lastrow As Integer Dim i% With My_sh lastrow = .Cells(Rows.Count, 1).End(3).Row + 1 For i = 1 To 14 .Cells(lastrow, i).Value = Me.Controls("TextBox" & i) Me.Controls("TextBox" & i) = "" Next MsgBox "تم الترحيل" End With End Sub

السلام عليكم هل حاولت تغيير المستخدم عند الدخول للويندوز؟ (كحل أول)... أو حاولت استعادة النظام قبل حدوث هذا الخلل؟ (كحل ثاني) بن علية حاجي

شكراااااااااااا لك

كيف لا يعمل وهو به بيانات

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

السلام عليكم ورحمة الله وبركاته اقدم الى المكان الذى لا انسى فضله علي هذا العمل المتواضع تقبل الله منا ومنكم صالح الاعمال . بسم الله ◀مؤشرات قياس الاداء (KPIS) Key Performance Indicators وهو مقياس كمى لقياس هدف الاعمال والتى ترتبط بالاستراتيجية الخاصة بالشركة وهى مقياييس تسمح للاداره بتقييم الاداء بصوره سريعة وهى تستخدم مؤشرات مالية وغير مالية لمقارنة الاهداف الموضوعه . ◀وقد تناولنا فى هذا النموذج الخاص KPI كيفية قياس مدى تحقيق الهدف لمديرى ومشرفين وفريق المبيعات وتكون هذا النموذج من ◀ورقة عمل الهدف الاستراتيجى : وهنا يتم ادخال فترة التطبيق وشكل مؤشرات الهدف ورد الفعل المناسب فى حالة تحققه ◀ورقة عمل من 1 : 20 : وهى بمثابة اجنده شهرية لكل فرد يسجل فيها التارجيت او الهدف واجمالى المتحقق اليومى وهنا سيعرض لك KPI يومى وشهرى وايضا يوجد ملخص عام فى الاعلى ◀ورقة عمل التقرير العام : وهى تشمل قياس الاهداف لكل فرد بشكل يومى وشهرى وهنا يتم طباعة هذه الصفحة وارسالها لمتخذى القرار باى شكل . هذا وماكان من توفيق فمن الله وحده وماكان من خطأ او سهوا او نسيان فمنى ومن الشيطان والله والرسول منه براء ------------------- النموذج متاح للجميع تحميله وكلمة المرور هى 123 نصيحة : يمكنك التعديل على النموذج كما تريد خذ الافكار وطبق على مجال عملك --------------- تحميل الملف http://www.mediafire.com/file/501t47bzv7oh3zh/KPI-2018.xlsm/file ------------------- #خبير_اكسيل #KPI_EXCEL #EXCEL_BI #زكاة_العلم_نشره لاتنسونا بصالح دعاؤك يرجى مشاركة الجميع KPI-2018.xlsm

تفضل ملف الشركة التعديل الثاني.xlsm

تفضل لك ما طلبت بعد عمل التعديلات المطلوبة للملف لسهولة التعامل والمرونة 1ملف الشركة.xlsm

تفضل لك ما طلبت ملف1.xlsm

كيف نعرف كم يوم سبت أو أحد أو الخ.... بين تاريخين (دون ماكرو) هذا الملف يوضح كل شيء (الباسوورد فيما بعد لمعرفة كل الاقتراحات) how many_days.xlsx

لعنوان يدل على الموضوع مثلا: 250 جنيه ممكن يكونوا: 1- 5 أوراق من فئة 50 جنيه 2- 25 ورقة من فئة 10 جنيه ..... الخ أقل عدد من الاوراق 3 2 من فئة 100 و واحدة من فئة 50 لنرى كيف اكسل يحل هذه المسألة ملاحظة :جاري العمل على نفس الموضوع لكن بواسطة المعادلات دعواتكم بالتوفيق أهم شيء الملف مرفق monney.xlsm

السلام عليكم الاخ الحبيب/ محمدي ----حفظه الله اكرمك الله واثابك بمثل ما دعوت لي اضعاف مضاعفة تقبل تحياتي وشكري ======================= الاخ الحبيب/ ابو اسامة العينبوسي----حفظه الله سرني مرورك اكرمك الله تقبل تحياتي وشكري ======================= الاخ الفاضل/ yahia----حفظه الله في المرفق ستجد ما تريد تقبل تحياتي وشكري ======================= الاخ الفاضل/ عادل----حفظه الله وانت بالف خير تقبل تحياتي وشكري ======================= الاخ الفاضل/ safwat----حفظه الله في المرفق ستجد ما تريد ======================= الاخ الفاضل/ قصي----حفظه الله الله يكرمك اخي الصفحة الرئيسية هي موجودة في فايل معين وبرفقتها ملفات اكسل معينة( هما دول الملفات التي يتم فيها البحث) ======================================== الاخ الفاضل/ engineer.salah----حفظه الله سرني مرورك اكرمك الله تقبل تحياتي وشكري ======================================== في الصفحة الرئيسية اضفنا جدول يتم من خلاله التحكم في اعدادات البحث الملفات والاوراق ونطاق البحث تفضلوا المرفق بحث بفورم في عدة ملفات.rar