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

السلام عليكم ورحمة الله وبركاته إخواني الأعزاء في المنتدى الأغر أقدم لكم حيلة بسيطة جداً .. ألا وهي : نسخ صورة لنطاق وعمل ارتباط للصورة بهذا النطاق يعني عندنا نطاق بيانات ، عايزين ناخد صورة من هذه البيانات وفي نفس الوقت تكون الصورة مرتبطة بأي تغير يحدث في النطاق الشرح داخل الفيديو على هذا الرابط مرفق لكم الملف لتقوموا بالتطبيق عليه ، دا للي مهتم بالتطبيق ! كان معكم أخوكم أبو البراء في حلقة 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 كأي برنامج عادي ولتشاهد ملف اجريت عليه كل ماسبق شاهد موضوعي برنامج خاص لاصحاب محلات بيع الموبيلات (شوقي ربيع) أكون الان قد انتهيت من شرحي المتواضع هذا ارجومن الله ان اكون قد وفقت فيه وأن تكون فائدته عامة على الجميع مع تحيات أخوكم شوقي ربيع

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

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قد يكون موضوع الكسر موضوع شائك وفيه خلاف ، ولكن ربما يكون مفيد لصاحب العمل نفسه ، حيث أنه معرض لنسيان الباسورد الذي تم وضعه على محرر الأكواد .. الموضوع مميز لأنه يقوم بكسر الحماية بدون برامج على الإطلاق ..وبدون 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 Macro1() LR = Sheet1.[A99999].End(xlUp).Row For r = (15 + 19) To LR Step 20 ' يمكنك استبدال الرقم 15 برقم أول سطر بعد العناوين ActiveSheet.HPageBreaks.Add Before:=Cells(r, 1) Next End Sub وبعد إرسال الملف لي واستئذانه في نشره هذا هو الملف مرفق بعد عمل اللازم (ليس به معلومات تضر بمصلحة العمل) بيج بريك.rar

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

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

الاخ الكريم مصطفى فينك بقالك فترة مختفي (لعله خير) إليك الملف التالي رغم أنك لم توضح بالتفصيل طلبك ، ولكني حاولت التدقيق في الطلب حتى فهمت مرادك 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

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

بارك الله فيك استاذي ياسر يشهد الله اني احبك بالله .

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

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

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

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

الأخ الحبيب اللبيب: ياسر (أبو البراء) والله أخجلتني بكريم ردك وهديتك وكرمك، وتسلم عيونك وبمناسبة ترقيتك، أتمثل بـقول الشاعر: ليست الألقاب هي التي تكسب المجد .. بل الناس من يكسبون الألقاب مجداً تحياتي لك.. ولكل الأحبة في منتدانا العامر بأمثالكم.

هدية رائعة من استاذ واخ رائع !! واكرر اعجابي باتجاه التري فيو من اليمين لليسار ( عربي )

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

الأخ الحبيب الغالي مختار جزيت خيراً على الكود الرائع فقط جزئية بسيطة جداً لم تعجبني ..ألا وهي وجود امتداد الملف في اسم الملف المصدر قم بتغيير السطر إلى fName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & " " & .Range("C10").Value تقبل تحياتي

الشكر فيما فعلت قليل , رفع الله قدرك وجزاك الله خير ونفع بك .

جرب الكود ده Sub MOKHTAR_SaveAsPDF() Dim fName As String With Worksheets("Exemple facture chifrée") fName = ThisWorkbook.Name & .Range("C10").Value End With ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\" & Environ("UserName") & "\Desktop\" & fName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub الملف هيكون اسمه باسم الملف والخلية C10 تحياتى

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

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

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

السلام عليكم اولا هذه الملفات ليست لى بل هى من ابداع الاستاتذه الكبار فى هذا الصرح الكبير وصرح اخر كبير اتمنى من الله ان يعود الينا وهوا الفريق العربي للبرمجه ومجموعه كبيرة من المواقع وهى موجوده بمكتبتى واحببت ان اضغها هناا ليستفيد منها طلاب العلم مثلى ولخوفى عليها من الضياع ____________________ مع خالص شكرى وتقديرى الى الاساتذة الكبار اصحاب هذه الامثله جعلها الله فى ميزان حسناتهم يوم القيامة ( اللهم بارك لهم فى علمهم وفى رزقهم وفى اهلهم يا اكرم الاكرمين يا الله ) تسعة أمثله للبحث منها مثال للبحث بطريقتين لأبو هاجر.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

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

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

مشكورة جهودك

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

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

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

الاستاذ الكبير الجميل ياسر خليل لو بايدى كنت خبط على كل مشاركه لك افضل اجابة ولكن اعذرنى ابداعاتك تتواصل ليتواصل علمنا تقبل منى كل الحب والتقدير :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

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

الجذء الثانى 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

للاسف غير مجانى

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

الاخ محمد الريفي بارك الله فيك وجزاك الله خيرا الأخ إبراهيم أبو ليلة الحل كان ع السريع إليك الملف التالي عله ينال إعجابك وينال رضاك Unique List No Blanks YasserKhalil.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