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

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

الاخ مختار شكرا لكلاماتك اضافة بسيطة نتمنى تعجبك Enter Password to run a Macro.rar

بسم الله الرحمان الرحيم اقدم لكم اليوم طريقة تحويل تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup نبدأ بالتحويل الى ملف تنفيذي تساعد هته العملية في حماية تشفيير الملف ويسعب بعدها اختراقه والعبث فيه لنقوم بهته العملية نحتاج الى برنامج يدعى XLtoEXE وهذا رابط تحميلة http://cpap.com.br/orlando/download2/XLtoEXE.zip البرنامج لا يحتاج لى تثبيت نقوم مباشرتا بفك الضغط عن الملف وفتح البرنامج اولا نختار الملف المراد تحويله كما في الصورة ثانيا الاعدادات الازمة في البرنامج ثم بعدها سيطلب منك مكان الحفظ اختر المكان ثم موافق ستلاحظ ان الملف حول الى ملف تنفيذي ولتتأكد من ذالك اعمل كليك يمين ثم خصائص وشاهد نوع الملف بعد فتحكم للملف اجري اي تغيرات و وافق على الحفط عند الخروج ستلاحظ ان الملف قد انشأ Backup اي انه صنع نسخة احتاطية لنفسه لاتقم بحذفها ملاحظة : يجب ان تكون تسمية الملف بالانجليزية لان التحويل لن ينجح اذا كانت بالعربية الأن نأتي الى تغيير ايقونت الملف الذي حولناه للقيام بذلك نحتاج الى برنامج Exe Icon Changer وهذا رابط تحميله http://www.mediafire...con_Changer.rar ملاحظة بخصوص برنامج تغيير الايقونات عليك بالغاء الحماية عند تثبيته بعد التثبيت اذهب الى التسجيل وادخل السريال المرفق مع الملف الذي حملته وهذا فيديو يشرح طريقة استعمال البرنامج http://www.youtube.c...h?v=NtZfTFVmGWc نأتي الى المرحلة الاخيرة وهي تحويل الملف الى برنامج Setup الفائدة من هذا البرنامج هي جمع جميع الاضافات التي تريدها مع الاكسل كالصور مثلا في ملف واحد وكذالك حماية الملف من الحذف حيث انه سيصبح لدينا راكورس للملف وهذا يحدث بعد التثبيت طبعا هذا رابط البرنامج http://www.jrsoftware.org/isdl.php بعد تثبيتك الى البرنامج نأتي الان الى طريقة العمل به وللقيام بذالك تابع الصور بالتوالي بعد الانتهاء ستجد عملك داخل الملف الذي اخترته على شكل Setup كأي برنامج عادي ولتشاهد ملف اجريت عليه كل ماسبق شاهد موضوعي برنامج خاص لاصحاب محلات بيع الموبيلات (شوقي ربيع) أكون الان قد انتهيت من شرحي المتواضع هذا ارجومن الله ان اكون قد وفقت فيه وأن تكون فائدته عامة على الجميع مع تحيات أخوكم شوقي ربيع

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

بسم الله الرحمان الرحيم السلام عليكم بعد غيابي الطويل عن هدا المنتدى العزيز لاسباب ........؟ اتركوها على الله لم اشاء ان اعود خالى اليدين لدى ارتأيت ان اضع بين ايديكم هدا الملف المتواضع وهو عبارة عن برنامج خاص لاصحاب محلات بيع الموبيلات كنت قد صممته لاحد اصدقائي بدون اطالة الباسوورد 123 لاغلاق الفورم وفتح ملف الاكسل Alt + b الباسوورد 111118 ارجو ان ينال اعجابكم تحياتي لكم Archivé Mobile V 1.001.rar الملف الاصلي بدون عمله ملف تنفيذي

السلام عليكم ورحمة الله وبركاته هدفيه للعاملين بالكنترولات المدرسيه ...... _ سجلات اعمال الكنترول كامله ... _ توزيع الملاحظين اليا على اللجان .... مع تحياتى ....

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قد يكون موضوع الكسر موضوع شائك وفيه خلاف ، ولكن ربما يكون مفيد لصاحب العمل نفسه ، حيث أنه معرض لنسيان الباسورد الذي تم وضعه على محرر الأكواد .. الموضوع مميز لأنه يقوم بكسر الحماية بدون برامج على الإطلاق ..وبدون AddIns وبدون الاستعانة بأية برامج مجانية أو مدفوعة !! كسر محرر الأكواد بالأكواد نفسها (قنبلة الموسم) وعلى رأي المثل : علمته رمي السهام فلما اشتد ساعده رماني .. الكود قليل الأصل !! محفظش الجميل للبيئة اللي هو منها ، لأنه كسر بيئة محرر الأكواد !!! Sub HackVBA() Open "C:\Users\Future\Desktop\Test.xls" For Binary As #1 Put #1, 1, Replace(Input(LOF(1), 1), "DPB=", "DPX=", , 1) Close Workbooks.Open "C:\Users\Future\Desktop\Test.xls" End Sub المطلوب فقط أن تغير مسار الملف المراد كسره داخل الكود ، والمسار يوضع بين أقواس تنصيص .. أترككم مع الفيديو عله ينال إعجابكم وتستفيدوا منه إن شاء المولى .. ولا تنسونا من اللايكات على اليوتيوب !!!!! ....أكرر اللايكات على اليوتيوب ..فضلاً لا أمراً تقبلوا تحيات أخوكم أبو البراء

السلام عليكم 1. من المعروف ان تنسيق النص في مربع القائمة ListBox هو من اليسار الى اليمين ، مشكلة كانت تصادفني دائما ، وهو تنسيق القيم في مربع القائمة لتكون من اليمين الى اليسار بالنسبة للغة العربية (طريقة تغيير مربع القائمة الى مربع تحرير ونص ، ثم عمل التنسيق عليه من اليمين الى اليسار ، ثم اعادته الى مربع قائمة لا يعمل معظم الوقت) ، موقع http://www.lebans.com والذي يحتوي على مالذ وطاب عنده طريقه لهذا التنسيق: http://www.lebans.com/justicombo.htm كذلك. 2. ونفس المشكلة مع موضوع تنسيق الشجرة TreeView من اليمين الى اليسار. النتيجة: و وطريقة العمل ، يوضع هذا الكود في وحدة نمطية: Option Compare Database Option Explicit #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare PtrSafe Function InvalidateRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As Long, ByVal bErase As Long) As Long Public Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr Public Declare PtrSafe Function GetFocus Lib "user32" () As LongPtr Public Declare PtrSafe Function GetWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal wCmd As Long) As LongPtr Dim hwnd As LongPtr #Else '32 bits Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function GetFocus Lib "user32" () As Long Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Dim hwnd As Long #End If Public Const GW_CHILD = 5 Public Const WS_EX_LAYOUTRTL = &H400000 Public Const GWL_EXSTYLE = (-20) Function RTL_Set(frm As Form, ctl As Control) Dim varHwnd As Variant Dim OldLong As Long frm.SetFocus ctl.SetFocus varHwnd = GetFocus() OldLong = GetWindowLong(varHwnd, GWL_EXSTYLE) SetWindowLong varHwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL InvalidateRect hwnd, 0, False End Function Function RTL_SetTree(frm As Form, ctl As Control) Dim OldLong As Long OldLong = GetWindowLong(ctl.hwnd, GWL_EXSTYLE) SetWindowLong ctl.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL InvalidateRect hwnd, 0, False End Function ' ' From http://www.microsoft.com/middleeast/msdn/faq.aspx ' 'Place OnLoad of the Form ' Dim OldLong As Long 'For Form ' OldLong = GetWindowLong(Me.hwnd, GWL_EXSTYLE) ' SetWindowLong Me.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For List ' OldLong = GetWindowLong(List1.hwnd, GWL_EXSTYLE) ' SetWindowLong List1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For The StatusBar ' OldLong = GetWindowLong(StatusBar1.hwnd, GWL_EXSTYLE) ' SetWindowLong StatusBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For TreeView ' Dim nodX As Node ' Set nodX = TreeView1.Nodes.Add(, , "R", "Root") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4") ' nodX.EnsureVisible ' OldLong = GetWindowLong(TreeView1.hwnd, GWL_EXSTYLE) ' SetWindowLong TreeView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ListView ' OldLong = GetWindowLong(ListView1.hwnd, GWL_EXSTYLE) ' SetWindowLong ListView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ProgressBar ' ProgressBar1.Value = 50 ' OldLong = GetWindowLong(ProgressBar1.hwnd, GWL_EXSTYLE) ' SetWindowLong ProgressBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ToolBar ' mhwnd = GetWindow(Toolbar1.hwnd, GW_CHILD) ' OldLong = GetWindowLong(mhwnd, GWL_EXSTYLE) ' SetWindowLong mhwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False في اسفل الكود انا تركت الكود لبقية الاشياء اللي يمكن عملها من اليمين الى اليسار. اما تنفيذ التنسيق لمربع القائمة ، فهو وضع هذا الكود عند تحميل النموذج الذي يحتوي على هذا المربع (وهنا اسم حقل مربع القائمة هو List0_RTL ) : 'ListBox RTL Call RTL_Set(Me, List0_RTL) وتنسيق الشجرة ، فهو وضع هذا الكود عند تحميل النموذج الذي يحتوي على الشجرة (وهنا اسم الشجرة هو TreeView1) : 'TreeView RTL Call RTL_SetTree(Me, TreeView1) وللأمانة العلمية ، فاني استخدم قاعدة البيانات التي وضعها الاخ محمد في الرابط: http://www.officena.net/ib/index.php?showtopic=60781 جعفر تعديل 1: 18-11-2021 ، جعل البرنامج يعمل على النواتين 32بت و 64 بت 54.RTL_TreeView_ListBox_32bits_n_64bits.accdb.zip

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

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

الاخ الكريم مصطفى فينك بقالك فترة مختفي (لعله خير) إليك الملف التالي رغم أنك لم توضح بالتفصيل طلبك ، ولكني حاولت التدقيق في الطلب حتى فهمت مرادك Sub CopySheets() Dim I As Long Dim WS As Worksheet, SH As Worksheet Set WS = Sheets("نسخ"): Set SH = Sheets("بداية") Application.ScreenUpdating = False For I = 3 To 10 If blnWorksheetExists(SH.Cells(I, "B")) Then GoTo 1 WS.Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = SH.Cells(I, "B").Value ActiveSheet.Range("B2").Value = SH.Cells(I, "B").Value 1 Next I SH.Activate Application.ScreenUpdating = True End Sub Function blnWorksheetExists(strWorksheet As String) As Boolean On Error Resume Next blnWorksheetExists = Not (ThisWorkbook.Worksheets(strWorksheet) Is Nothing) On Error GoTo 0 End Function تقبل تحياتي Copy Sheet Based On Range Values YasserKhalil.rar

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

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

اخي الكريم شاهد هذا الملف لعله يفي بالغرض. التفقيط عربي وانجليزي.rar

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

الأخ الحبيب رشراش علي مشكور على كلماتك الرقيقة الأخ أستيكة (همسحك بأستيكة لو مغيرتش اسمك للغة العربية ههه) جزيت خيراً على مرورك الكريم مشكور على مرورك الطيب والعطر أخي الكريم غسان بارك الله فيك وجزاك الله خيراً

أخي الأستاذ ياسر (أبو البراء) ..بارك الله فيك وفي مجهودك الطيب.. وعاشت ايدك ..اللهم ارزقنا حسن الفهم وحسن العمل..

انا كنت عارف ان الباش محمد ماغاب اليومين الاخيرين الا ووراه حاجة من طول الغيبات جاب الغنايم اكيد ابوعبير هيوزع شربات والا عصير^_^ اسمعوا يا اخوانا: انتو معزمين بكرة الجمعة بعد صلاة العص عند الخ ابوعبير............

وهاي المرفق 54.1.TreeView_RTL.mdb.zip

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

تسلم اخي ابو البراء فعلا درس رائع ومفيد بارك الله فيك ولا تحرمنا من ابداعاتك الرائعة

أخي وحبيبي في الله حسام مشكور على مرورك العطر وعلى كلماتك الطيبة (كلماتك لي بمثابة البنزين للعربية ومش أي بنزين دا بنزين 92 ..) تقبل تحياتي

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

السلام عليكم اولا هذه الملفات ليست لى بل هى من ابداع الاستاتذه الكبار فى هذا الصرح الكبير وصرح اخر كبير اتمنى من الله ان يعود الينا وهوا الفريق العربي للبرمجه ومجموعه كبيرة من المواقع وهى موجوده بمكتبتى واحببت ان اضغها هناا ليستفيد منها طلاب العلم مثلى ولخوفى عليها من الضياع ____________________ مع خالص شكرى وتقديرى الى الاساتذة الكبار اصحاب هذه الامثله جعلها الله فى ميزان حسناتهم يوم القيامة ( اللهم بارك لهم فى علمهم وفى رزقهم وفى اهلهم يا اكرم الاكرمين يا الله ) تسعة أمثله للبحث منها مثال للبحث بطريقتين لأبو هاجر.rar مثال من تصميم أحد الأخوة فيه عدة أمثلة على نماذج و تقارير مختلفة.rar FileSize-مثال مهم جدا يعرض لك حجم المكونات الفعلية للبيانات.rar ربط قاعدة البيانات حسب الاختيار (المثال بعد التعديل).rar ChooseReportFromList2_2k-مثال على كيفية اختيار اسم التقرير المطلوب من لائحة ListBox.rar مثل الصلاحيات.rar CtlGroups-مثال للتحكم بخصائص مربعات النص من خلال أزرار الاختيار ف يالنموذج.rar sHIFT-مثال للتحكم في خصائص تشغيل أي ملف أخر , مثل السماح باظهار صفحة بيانات الملف أو استخدام المفاتيح الرئيسية او اظهار شريط الأدوات أو ... الخ.rar Tree- مثال على البنية الشجرية - تصميم أبو هادي - أوفسينا.rar findrecord2k--مثال مفيد جدا لمن يحتاج المساعدة في بناء الاستعلامات بسهولة كبيرة.rar Animation2k-مثال رائع على استخدام خاصية المؤقت في النموذج Timer لصنع ساعة - أشكال متحركة مختلفة.rar Atomatic_Record_Scrolling-مثال يجعل النموذج ينتقل تلقائيا من سجل للسجل الذي يليه - استخدام المؤقت في النموذج.rar AutoBkUp2K-- مثال لعمل نسخ احتياطي تلقائي لقاعدة البيانات.rar UpdateDirect2k - مثال على الاستيراد و التصدير المبرمج.rar

جزاك الله خيرا عمل رائع بالتوفيق

أخي وحبيبي في الله وأستاذي الكبير طارق لكم تشتاق نفسي لرؤية مشاركاتك بالمنتدى ، فمنكم تعلمنا وما زلنا ننهل من علمكم الغزير .. بارك الله فيك وجزاك الله خيراً على هذا الكود المميز والرائع أحببت أن أشارك ولو بشيء بسيط ، مشاركتي مجرد شرح بسيط جداً للكود حتى يستفيد الأخوة الكرام من الكود Sub AddPageBreaks() Dim R As Long, LR As Long 'تحديد رقم آخر صف به بيانات في العمود الأول LR = Sheet1.[A99999].End(xlUp).Row 'إعادة ضبط كل فواصل الصفحات ActiveSheet.ResetAllPageBreaks 'يمكنك استبدال الرقم 15 برقم أول سطر بعد العناوين 'يمثل الرقم 20 عدد الأسطر أو الصفوف المطلوبة في كل صفحة For R = (15 + 20) To LR Step 20 'عمل فاصل للصفحات قبل نهاية كل حلقة تكرارية ActiveSheet.HPageBreaks.Add Before:=Cells(R, 1) 'الانتقال للحلقة التالية Next End Sub تقبل ودي وحبي واحترامي وتحياتي أستاذي ومعلمي الباشمهندس طارق

ربما كان المطلوب شرط البيع.rar

مشكورة جهودك

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

أبوسليمان فى هذا المرفق تم تغيير امتداد الملفات الستة الى xls مع تغيير أسماء الملفات لسهولة التعامل جلبت لك البيانات من الملفات الخمس وهى مغلقة وبضغطة واحدة الى ملف الرئيسية تحديث البيانات : عدل كما تشاء فى الملفات الخمس وانقر على الزر فى الرئيسية فقط وبكده نكون عملنا المرحلة الأولى أما الثانية سوف أسألك بعض الأسئلة فى حينها أما السؤال الأن : الرقم الطويــــــــــــــــــــــــــــــــــــــــــــــل ده بيتقسم الى خلايا هل المطلوب منه أن نستخلص منه تاريخ ووقت مثلاً ؟ أرجو الايضاح وسوف نكمل الموضوع باذن الله تعالى mokhtar get data for bosoliman.rar

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

هل يمكن ارفاق الملف مرة اخرى وياحبذا لو على سيرفر الموقع يكون افضل

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

تفضل اخي هل هذا ماتبحث عنه برنامج بحث.rar برنامج بحث.rar

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

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

بعض اعمال الاستاذه الكبيره زهره بارك الله فيها المواضيع الممزة لها بالمنتدى http://www.officena.net/ib/index.php?showtopic=10405 za_arrangement_UP.rar zaAccessDiaryDaily_v.2.rar za-Aziz03-END.rar zaChangeResolution2006_UP.rar za-Database2-LAST- من والى المدرسة 2.rar za-Database2-UP- التحويل من والى المدرسة.rar za-ditingup-UP.rar za-ditingup-UP_2.rar za-NA-Copy-Report -عدد نسخ التقرير المطلوبة للطباعة.rar za-Nadih-Last.rar za-Nadih-Last-4.rar za-SplitName- تقسلم الاسم 2.rar za-SplitName12-UP - تقسيم الاسم.rar za-SplitName12-UP.rar za-Students-Rank-END.rar za-Students-Rank-ENDs.rar za-Students-Rank-العشرة الاوائل.rar zaTextEffectScrollingUP - نص متحرك.rar za-Translate v 1.1-برنامج الترجمة.rar za-توزيع الاسم.rar

ونكمل بأمر الله SubQuery2k- مثال على استخدام الاستعلام الفرعي داخل الاستعلام لاستخراج قيم تجميعية.rar SynchronizedSubforms2k - مثال على كيفية مزامنة نموذجين فرعيين ضمن نموذج رئيسي.rar TimeDiff- مثال على كيفية حساب الفرق في الوقت و التاريخ.rar TimeDiffrent- مثال يعرض الفرق بين تاريخين بالساعه.rar Unbound2k -مثال لاضافة حقول غير منضمة الى الجدول و الى قائمة لائحة ListBox.rar WipeEffects - مثال لاغلاق النموذج بعدة طرق انسايبية.rar مثال على كيفية اضافة أقساط المتبرعين لعدد 12 شهرا بطريقة اتوماتيكية.rar مثال كيفية اضافة صورة للموظف او طالب وايضا اظهارها في التقرير 2003.rar مثال كيفية اضافة صورة للموظف او طالب وايضا اظهارها في التقرير.rar مثال لاخفاء شاشة الأكسس الرئيسية عند فتح الملف.rar مثال لعرض الأرقام الشاغرة بين رقمين.rar

الجذء الثانى animation- مثال لكيفية فتح النموذج بعدة طرق انسيابية -.rar AuditTrail2k-مثال لضبط و رقابة سجلات الملف.rar AutonumberProblem2k-مثال بسيط لعمل ترقيم تلقائي مبرمج من خلال ادخال البيانات من النموذج فقط حيث سيتم اضافة رقم تلقائي لكل سجل جديد.rar calendarsolution-مثال على نموذج فيه زر يفتح التقويم.rar CascadingComboBoxes2K-مثال لكيفية تصفية مربع تحرير و سرد بناء على قيمة مقابلة من مربع تحرير و سرد آخر.rar ChangeBackColor-مثال للتحكم بلون خلفية النموذج و تغييرها من نفس النموذج.rar clipboard2k-مثال لكيفية النسخ و اللصق من و الى الحافظة.rar CndFrmt-مثال لكيفية تلوين السجل الحالي في النموذج المستمر بلون مختلف.rar ConditionalFormatting2k-مثال على التنسيق الشرطي بعدة طرق مختلفة للنماذج.rar CrosstabReport2k-مثال على صنع تقرير مبني على استعلام جدولي محوري CrossTab_Query.rar CurrentTab2k-مثال للتنقل بين حقول الصفحات Tab Pages من خلال زر أمر.rar FormSubform2k---مثال يبين كيفية توظيف الدوال لاستخراج نتائج بيانات النموذج الفرعي من خلال النموذج الرئيسي.rar HighLightComd-مثال لنموذجين فيهما عدة أزرا أمر , بمجرد تحريك الفأرة فوق أحد الأزرار يتغير لون نصه الى الأخضر.rar MultiReport - مثال لطباعة عدة تقارير دفعة واحدة.rar MultiReport up - مثال لطباعة عدة تقارير دفعة واحدة - النسخة الصح.rar NumberLettrs-مثال لتحويل الأرقام الى حروف - كتابة الرقم كتابة من أجل التفقيط.rar Openargs2k-مثال فيه فائدة كبيرة على طريقة استخدام قرائن فتح النموذج OpenArg بشكل بسيط و متعدد.rar Openargs2k-مثال فيه فائدة كبيرة على طريقة استخدام قرائن فتح النموذج OpenArg بشكل بسيط و متعدد.rar OrderListBox2k -مثال على كيفية التحكم بترتيب عناصر لائحة ListBox من خلال زر أمر.rar ParaQueryDelete2k -مثال لتشغيل استعلام حذف سجلات بناء على قيمة معينة مختارة في النموذج.rar ParaQuerySelect2k -مثال قريب للمثال السابق لكن لتشغيل استعلام اختيار حسب قيمة معينة و ليس حذف.rar ProgressBar2000--مثال على استخدام شريط التقدم الأزرق Progress Bar.rar ReadWriteWord - مثال على كيفية ارسال بيانات الى ملف وورد , و فتح ذلك الملف بعد انشائه.rar Rotateit_مثال لالتفاف مربع نص من اليمين الى اليسار أو بشكل آخر.rar search_form1- مثال على البحث المتقدم في أكثر من حقل.rar Search-مثال على البحث مع تجاهل التشابه في الحروف.rar SequenceDancing-مثال على استخدام المؤثرات البصرية في جعل الكائنات تتحرك باشكال هندسية.rar StringStuff2k - مثال على كيفية تغيير تنسيقات الحقول.rar SubForm3Levels2k - مثال على نموذج يحوي نماذج فرعية بثلاثة مستويات.rar SubformReference2k - مثال على كيفية الاشارة من النموذج الرئيسي الى اي عنصر من عناصر النموذج الفرعي.rar

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

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

منعت من الموقع بأن أسجل أعجابى بكلامكما فقد وصلت للحد الأقصى اليوم لكن الأهم هو أن تحب الاكسل فيحبك و كمان يعطيك محبة الناس الحمد لله

بالنسبة للفريق ESD نجد انه هذه النتيجة الولى ESD 3 CRBO 1 وهذه النتيجة الثانية CRBO 0 ESD 3 وعند التوزيع مسجل النتيجة تحت 3/1 و 3/0 ممكن شرح جات ازاي ولا هي غلط ولا انا مش فاهم

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

اخي الفاضل ممكن تشرح اكتر

أخي الحبيب غسان إليك الملف المجاني .. وعيوني للأخوة الأعضاء Functions 2013-EN-US (free-unlocked).rar

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

الأخ الحبيب أحمد مرجان نعتذر عن التأخير في تقديم المساعدة (وكل تأخيرة فيها عطلة للناس بس أكيد فيها خيرة بردو) إليك الكود التالي (وعشان غرامة التأخير مرفق شرح لكل أسطر الكود عشان تقدر تعدل بما يناسبك إن شاء الله) Sub ImportDataFromClosedWBUsingVLOOKUP() 'تعريف المتغيرات Dim WBK As Workbook Dim Rng As Range Dim LastRow As Long 'إيقاف تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إيقاف خاصية رسائل التنبيه Application.DisplayAlerts = False 'ليساوي المصنف المسمى 1 والموجود في نفس مسار المصنف الحالي [WBK] تعيين قيمة للمتغير 'يقوم هذا السطر أيضاً بفتح المصنف في المسار المذكور Set WBK = Workbooks.Open(ThisWorkbook.Path & "\1.xlsx") 'تعيين قيمة للنطاق المراد جلب البيانات منه من المصنف المسمى 1 Set Rng = Range("A2:C" & Cells(Rows.Count, 1).End(xlUp).Row) '[Sheet1] بدء التعامل مع المصنف الحالي في ورقة العمل With ThisWorkbook.Sheets("Sheet1") 'تحديد رقم صف آخر خلية بها بيانات في العمود الأول LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'وضع معادلة دالة البحث في العمود الثاني والحصول على النتيجة من العمود الثاني في المصنف 1 With .Range("B2").Resize(LastRow - 1) .Formula = "=IFERROR(VLOOKUP(A2," & Rng.Address(, , , True) & ",2,False),"""")" .Value = .Value End With 'وضع معادلة دالة البحث في العمود الثالث والحصول على النتيجة من العمود الثالث في المصنف 1 With .Range("C2").Resize(LastRow - 1) .Formula = "=IFERROR(VLOOKUP(A2," & Rng.Address(, , , True) & ",3,False),"""")" .Value = .Value End With End With 'إغلاق المصنف المأخوذ منه البيانات بدون حفظ WBK.Close SaveChanges:=False 'إعادة تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub وبكدا نكون دفعنا غرامة التأخير والحمد لله تقبل تحياتي Import Data From Closed WB Using VLOOKUP YasserKhalil.rar

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

الاخ/ mahmoud شكرا للتهنئة بالعيد الان كيفية تحويل الارقام من الانجليزية للعربية بالاكسل اكسل 2003 و 2010 تحويل الارقام للعربية.rar