شاهر

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

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

شاهد الملف بعد التعديل day.rar

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

اخي التقني هل كلمي صح ام اني اجرب بطريقة حطائة مع تحياتي

ايو شباب مافي اي محاولة لتعديل التجربة مع اني اعرف مفي حجه مستحيلة علي البرمجه مع ان الاكسل من نفس اسرة الاكسس

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

اخي الكريم لاتزال المشكله انه لايظهر البيانات بين تاريخين جرب بين تاريخ1/2003 الي 12/2006 ان في اعتقاد ان جميع البيانات في الجدول تظهر لكن النتيجه غير ذلك جرب اخي الكريم اشكرك على هذا التعاون واسف اني اتعبتك معي

هذا هو المثل اخي التقني تكرم التعديل Between.rar

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

اليك المثل بعد التعديل db1.rar

اليك المثل بعد التعديل ___________________________.rar

لدي سؤال حوال تقرير عن بيانات بين تاريخين [between [frst] And [end الي هنا مافي اى مشكلة المشكله عن تحويل تنسيق التاريخ شهر وسنه فقط عند الاستعلام بين تاريخين مثل من تاريخ 1/2006م الى تاريخ 6/2006م يظهر هذه الفتره مع شهر 11 وشهر واحد من السنه السابقة 2005م اى انه ليس دقيق وكذالك عن الاستعلام بين تاريخن مثل 1/2006م الى 12/2006م مع علما باني استخدمة دالة ([Month ([mdate ولذك لناء تقرير حسب الفترة المرغوب بها وتكون دقيقه لنرجو التكرم بمساعد

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

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

تفضل اخي هذا هوا الكود [ Public Function PutWindowOnTop(pFrm As Form) Dim lngWindowPosition As Long lngWindowPosition = SetWindowPos(pFrm.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE) End Function]

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

الاستاذ الكريم ابوهادي المحترم هل توصلتم الى حل بارك الله فيك وعافاك من كل سوء

طلب من الاخ علي حسين السحيب مع خالص التحيه

الامتداد ياخوه بـ rar

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

انظر بعد التعديل التعديل مع اسم الشهر

مرة كنت اتصفح منتدي الاكسل فاوجدة كود بالاكسل واريد تحويلة الى اكسس وعمل الكود بختصار التشييك والبحث في السجلات عن الارقام المكرره حتي انه يعمل على البحث عن الاسماءالمكرره فيحذفها اي المكررة فقط ويبقي على سجل واحد فقط من كل السجلات . هذا هو الكود ارجو التعديل مع مثل في الاكسسس مع خالص احترامي وتقدير Sub Button1_Click() Worksheets("sheet1").Activate Range("b3:b2100").Select Dim Col As Integer Dim r As Long Dim C As Range Dim N As Long Dim V As Variant Dim Rng As Range On Error GoTo EndMacro Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Col = ActiveCell.Column If Selection.Rows.Count > 1 Then Set Rng = Worksheets("sheet1").Range("b3:b2100") End If N = 0 For r = Rng.Rows.Count To 1 Step -1 V = Rng.Cells(r, 1).Value If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then Rng.Rows(r).EntireRow.Delete N = N + 1 End If Next r Range("b3").Select EndMacro: End Sub

انظر هكذا بعد التعديل المرفقات

تسلم ياسيد الناس وانا في الانتظر الحل مع خالص الامتنان وزاد الله علماُ ونفعك بما علمك