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

والله يا اخى الموضوع ما فيه تريقة ولا غيره .. دانا مش عارف ارفق صورة تقولى بسخر .. عموما التعدبل موجود اهوه كما تم اضافة: Private Sub rrrr_GotFocus() ReturnField = 16 'zx.SourceObject = "frmKeyboard" End Sub Private Sub tttt_GotFocus() ReturnField = 17 'zx1.SourceObject = "frmKeyboard" End Sub كما تم تغيير الارقام من Button الى Lable كى لا يكون التركيز عليها وسارفقه لك مرة اخرى بعد تغيير اسمه كى لا يتعارض مع غيرة من الملفات التى قمت بتنزيلها.. واعتذر منك ان كان هناك ما يدعو لذلك KeyEdit.accdb

ارشحك مشرف وبقوة حتى لو جديد 😉 واستاذن اخي الغالي @محمد سلامة في ان يكون صدره متسع في مشاركتي لانها قد تخالف وجهة نظره انا هنا ساطرح وجهة نظري بعيد عن كل شي وبها خروج قليلا عن الموضوع وفي الاخير هي وجهة نظر شخصية انا صرت اشوف مشاركات بالمنتدي فيها تسويق اكثر من انها مشاركة مثل 1. مشاركة اخينا هنا فهو عرض ميزات وعرض صور فقط مع انه يوجد لمسات كويسة في البرنامج ؟ فهل ياترى لو تحول الموضوع هنا الى استفسار بكيف تم عمل الجزئية الفلانية سنجد الرد ؟ 2. اخوان ياتون بشرح حل وتجده يضع الملف برابط اخر شخصي سواء على قناة يوتيوب او غيره 3. وهنا قمة استخفاف العقول وهو التسويق بطرح رابط قناته فقط وبه شرح لموضوع بسيط ياخذ فيه ساعتين شرح فيديو والمصيبة ان اغلب مافي قناته ان لم تكن كلها اتى بالحل من منتدانا هذا وفي اخر الفيديو يطلب لايكات اخيرا زبدة وجهة النظر عندما يكون هناك علاقة بين طرفين لابد ان يكون هناك منفعة متبادلة وبمستوى مختلف والا ستموت هذه العلاقة يوما من الايام فعلى سبيل المثال في المنتدى هنا انا استفيد من طرح الاستفسار حتى لو هو سهل واعرف اجابته ولكنه يعطيني فكره جديده او معلومه على الاقل فكرة الحاجة فقد تكون جديده ولها قيمتها من زوايا اخرى .. المهم نحن نتبادل الفائده في المشاركات ولو باحتمال 1% من احد الاسئلة السهلة جدا وهنا لو سالت اخي محمد سلامة ماهي فائدتي انا لو شاركة وقيمت البرنامج ؟ من المستفيد وبالنسبة؟ ستجده هنا هو استفاد 100% وانا صفر ؟ معناته هذه المشاركات من هذا النوع المنفعة غير متبادله وبمعنى انها ستموت العلاقة واعتقد هذا مايقصد الاخ @SEMO.Pa3x في كلمة فارغ واعتقد كذلك ان الاخ سيمو عندما قال في دولتك لا يقصد ابدا عنصرية بل كانها محاولة بان الافضل ان تسال في منطقتك لانه فعلا لا استطيع ان اقيم برنامج وانا لست من نفس الدولة الا ان يكون برنامج اصبح دوليا ومنتشرا فهو نصحه وقد يكونون من نفس الدولة لان قصده الطريق الصحيح تقبلو اجمل تحية

اعرض الملف التحكم بقاعدة بيانات الخلفية على الشبكة . السلام عليكم ورحمة الله تعالى وبركاته تواجهنا الكثير من المشاكل عند محاولة تحديث لقاعدة بيانات على الشبكة بسبب اتصال المستخدمين بها الان اهديكم هذا العمل المتواضع الذى ينهى هذه المعاناه - الشرح قم بنقل جميع الكائنات الموجودة بالقاعدة التى تحمل اسم test الى قاعدتك حتى تستطيع التحكم بها عن بعد اترككم مع التجربة وانتظر افادتكم Monitored Database.rar صاحب الملف ابا جودى تمت الاضافه 01 أبر, 2019 الاقسام قسم الأكسيس

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

وبارك فيك اخي محمد يعني شيل من راسك ان نسخة 32 بت accde تعمل على 64 والعكس بالتوفيق

تمام عليك وهذا ماذكرته لك .. خلي عندك نسختين الواجهةaccde وحده 32 ووحد 64 وخلي الخلفية accdb بها الجداول فقط واعمل الربط نعم سيتعرف كلا ال accde على الاساس اتمنى وضحت الصورة

مرحبا بكم اخواني الافاضل لدي مداخلة اريد أن أعرف من أخي @وائل أبو عبد الرحمن هل تقصد كما أعتقد أنه أمكنك من أستدعاء نموذج frmKeyboard في اي حقل واي نموذج؟؟؟ أذا كان كذلك فهل أوضحت لنا الطريقة؟؟؟؟ نفس ما مريت به وعانيت منه سابقاً .. واعذر كل عضو بالمنتدى والسبب عدم الوصول للحل أو أنشغال أساتذتنا الافاضل بأمورهم الخاصة لكن أحثك على المواصل ولا تيأس .. أسترعي أنتباهك وأقول لك أفضل حل وجدة لحل هذا الأمر هو بالبحث والبحث والبحث حتى تصل لمرادك .. مالم أرجوا من أساتذتنا مساعدتك متى اتيحت لهم الفرصة في أسرع وقت ممكن .. تأكد أنهم لن يتوانو عن المساعدة أيدك في كلامك ==== أخي وائل عدت من سفري قبل سويعات .. وأول ما قمت به فتحت المنتدى ووجدت موضوعك فقمت بمتابعة سريعة لموضوعك الخاص بالبحث .. على أمل أن أساعدك لكن حالي قوله تعالى: وَمَا أُوتِيتُمْ مِنَ الْعِلْمِ إِلَّا قَلِيلًا {الإسراء:85} أتمنى أن تلقى مايشغل بالك ويدخل البهجة والسعادة الى قلبك وأرجو أيضاحك لما طلبت منك سابقاً

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

مشاركة مع اخواني .... طريقة اخرى ,,,,, اليشر.mdb

السلام عليكم ورحمة الله تفضل اخفاء واظهار.xlsm

تفضل اتمنى يحقق المطلوب Tawzea3.mdb

عليكم السلام ورحمة الله وبركاته ،،، دائما سباق بالخير استاذنا .... كنت لسا بحضر مثالك ولكن كالعادة دائما سباق للخير كل التقدير والاحترام ابا جودي.accdb

لا يمكن التعامل مع صورة ارفع الملف نفسه

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

اخي / المصري هذا حل اخر لك ولنا اخي المصري استاذنا / صالح حمادي سلمت يمينك وجزاك الله خير بكل المقايس انت ايضا من الناس المحترمين جدا زادك الله من علمه تحياتي لكل الجزائريين

بالاضافة الى ما قدمة استاذنا الجميل صالح بالتوفيق ،،،

السلام عليكم ورحمة الله انسخ الكود التالى و الصقة فى حدث thisworkbook و غير اسم اسم الورقة الرئيسية "Main" فى الكود ذاته Private Sub Workbook_SheetActivate(ByVal Sh As Object) For Each Sh In ThisWorkbook.Worksheets If Sh.Name = "Main" Or Sh.Name = ActiveSheet.Name Then Sh.Visible = xlSheetVisible Else Sh.Visible = xlSheetHidden End If Next End Sub

على الرغم ان ملف الأستاذ سليم لا يعلى عليه ودائما الأكواد تكون افضل واسرع في العمل الا ان بناءا على كلبك فهذا العمل بالمعادلات DATA.xlsx

جرب هذا الكود Option Explicit Sub tarnsfer_Data() Dim My_rg As Range Dim i% Dim fisrt_row: fisrt_row = 1 Sheets("Sheet3").Range("a1").Resize(500, 10).ClearContents For i = 1 To Sheets.Count If Sheets(i).Name <> "Sheet3" Then Set My_rg = Sheets(i).Range("a2").CurrentRegion Sheets("Sheet3").Cells(fisrt_row, My_rg.Columns.Count + 1) = _ "Begining of " & Sheets(i).Name Sheets("Sheet3").Range("a" & fisrt_row). _ Resize(My_rg.Rows.Count, My_rg.Columns.Count).Value = _ My_rg.Value fisrt_row = fisrt_row + My_rg.Rows.Count + 1 Sheets("Sheet3").Cells(fisrt_row - 2, My_rg.Columns.Count + 1) = _ "End of " & Sheets(i).Name End If Next End Sub الملف مرفق DATA.xlsm

تفضل بدون فلتر ( انقر بدون كتابة شيء : يفتح الجميع ) او اكتب الاسم للفلترة مثال2.mdb

يمكنك الوصول إلى ما تريد بإستخدام طابعة افتراضية تقوم بطباعة التقرير على شكل صورة بالصيغة التي تريدها و هذا رابط البرنامج: https://download.cnet.com/ImagePrinter-Pro/3000-18497_4-75906022.html

الفيديو ضمن كورس الدليل الكامل لتعليم اساسيات برنامج الاكسل 2019 دليلك لتعلم الاكسل من الصفر حتى الاحتراف في كورس واحد! 2018 - 2019

أخي الكريم سعد سعد يحيا سعد استغرق الموضوع مني أكثر من ساعتين والله .. لأن الموضوع جديد بالنسبة لي .. ألا وهو ترتيب البيانات حسب التاريخ الهجري وجدت أن التواريخ الهجرية لا يتم ترتيبها كما في التواريخ الميلادية ، فخطرت لي فكرة التحويل من الهجري إلى الميلادي ، فبحثت في مكتبتي فوجدت دالة تحول التاريخ الهجري إلى تاريخ ميلادي ثم بدأت في كتابة الكود ، وفوجئت أن الترتيب لا يعمل بالشكل الصحيح ، فاكتشفت أن التواريخ المحولة عبارة عن نصوص وليست تواريخ ، فقمت بتجزئة النص إلى أجزاء : يوم وشهر وسنة ، ثم لم شمل هذه الأجزاء واستخدام دالة CDate لتحويل النص إلى تاريخ .. ونجحت العملية بفضل الله .. :power: وكعادة الأطباء أن ينسوا المشرط في بطن الطبيب .. نسيت أن أنفذ الكود .. قم بتنفيذه على بركة الله الكود بهذا الشكل Sub SortByHijriDates() Dim LR As Long, I As Long, strDate As String LR = Range("A" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False Range("H1").Value = "Helper" For I = 1 To LR If IsDate(Cells(I, "E")) Then strDate = Mid(ConvertDateString(Cells(I, "E")), 1, 2) & "/" & Mid(ConvertDateString(Cells(I, "E")), 4, 2) & "/" & Mid(ConvertDateString(Cells(I, "E")), 7, 4) Cells(I, "H") = CDate(strDate) End If Next I Range("A1:H" & LR).Sort Key1:=Range("H1:H" & LR), Order1:=xlAscending, Key2:=Range("C1:C" & LR), Order2:=xlAscending, Header:=xlYes Columns("H:H").ClearContents Application.ScreenUpdating = True End Sub Function ConvertDateString(ByRef StringIn As String) As String Dim SavedCal As Integer Dim myDate As Date Dim str As String SavedCal = Calendar Calendar = 1 myDate = CDate(StringIn) Calendar = 0 str = CStr(myDate) ConvertDateString = Format(str, "dd.mm.yyyy") Calendar = SavedCal End Function لا تنسى أن تحدد الإجابة كأفضل إجابة عن طريق الضغط على كلمة "تحديد كأفضل إجابة" ؛ ليظهر الموضوع مجاب ومنتهي ، كما لا تنسى أن تضغط على كلمة "أعجبني هذا" الموضوع استغرق مني أكثر من ساعتين ولن يستغرق الأمر منك أكثر من ثانيتين تقبل تحياتي Sort By Hijri Dates.rar

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

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

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

و عليكم السلام في المرفق اكتب التاريخ في الخلايا الصفراء و سوف يظهر الناتج امامة Book1.rar