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

شرح لبرنامج اكسيل 2010 على اسطوانتين الاسطوانة الاولى الاسطوانة الاولى على الميديا فاير_منتديات اوفيسنا الاسطوانة الثانية الاسطوانة الثانية على الميديا فاير_منتديات اوفيسنا تحياتى للجميع قنديل الصياد

الأخ الغالي ياسر فتحي رائع أخي الحبيب ياسر في تقديم الموضوع بارك الله فيك وجزيت خير الجزاء .. تقبل الله منا ومنكم صالح الأعمال

السلام عليكم ورحمة الله أخي الكريم، لا أعتقد أنه يمكن باستعمال الدالة SUBTOTAL عمل ذلك (بتحفظ)... وأقترح عليك المعادلة التالية التي تقوم بعدّ القيم الفريدة (المختلفة ودون تكرار): =SUMPRODUCT(1/COUNTIF(B4:B20;B4:B20)) بن علية

كتاب تعلم برنامج اكسيل 2010 فى 134 صفحة باللغة العربية حمل كتاب تعلم اوفيس 2010 باللغة العربية

اخي الفاضل تفحص المرفق Passwords1.rar

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

السلام عليكم ورحمة الله وبركاته مرفق ثلاث ملفات اثنان للترقيم التلقائي بالأكواد وواحد بالمعادلات بمجرد الكتابة في الخلية B يتم نزول الترقيم تلقائي كود ترقيم تلقائي 3.rar ترقيم تلقائي 4.rar ترقيم تلقائي بالمعادلة.rar

السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم شرح مفصل لدالة العد بشرط COUNTIF مع الصور أولا : إذا كنت تريد عد الخلايا التى بها إسم التقرير Report فقط كما موضح بالصورة فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,”REPORT”) ثانيا : إذا كنت تريد عد القيم التى أكبر من رقم 10 فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,">"&10) ثالثا : إذا كنت تريد عد القيم التى أكبر من أو يساوى رقم 10 فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,">="&10) رابعا : إذا كنت تريد عد القيم التى لا تساوى رقم 10 فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,"<>"&10) خامسا : إذا كنت تريد عد القيم التى أقل من رقم 40 ولكن أكبر من رقم 15 فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,"<"&40)-COUNTIF(C2:C10,"<="&15) سادسا : إذا كنت تريد عد القيم التى أكبر من رقم 40 ولكن أقل من رقم 15 فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,">"&40)+COUNTIF(C2:C10,"<"&15) سابعا : إذا كنت تريد عد الخلايا التى بها إسم التقرير Report كما موضح بالصورة حتى لو كان مقترن بكلمة أخرى فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,"*REPORT*") ثامنا : إذا كنت تريد عد الخلايا التى بها إسم التقرير Report كما موضح بالصورة بحيث تكون إسم التقرير Report فى بداية الجملة فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,"REPORT*") تاسعا : إذا كنت تريد عد الخلايا التى ينتهى أخرها ب RT فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,"*RT") عاشرا : إذا كنت تريد عد الخلايا التى ينتهى أخرها ب RT ويكون إجمالى النص بالخلية 6 أحرف فقط فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,"????RT") إحدى عشر : إذا كنت تريد عد الخلايا التى تحتوى على أى نص فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,"*") إثنا عشر : إذا كنت تريد عد الخلايا التى لا تحتوى على أى نص فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,"<>"&"*") ثلاثة عشر : إذا كنت تريد عد القيمة التى أكبر من أو تساوى القيمة التى فى الخلية C12 فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,">="&C12) أربعة عشر : إذا كنت تريد عد القيمة التى أكبر من القيمة التى فى الخلية C12 فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,">"&C12) أرجوا من الله العلى القدير أن ينال رضاكم وأكون قد وفقت فى توصيل المعلومة

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

قبل شهور كنت قد كتبت هدا الكود الدي يعطي للمستخدم امكانية التحكم في لون ال UserForm Title Bar و التحكم في حجم و لون و شكل ال Font أي الخط المكتوب به ال UserForm Caption كل حرف على حدى الكود لا يشتغل في اجهزة ال 64Bit Windows ملف للتحميل : https://app.box.com/s/l96isv4jal2rns144zy5 1- كود في Standard Module : Option Explicit Private Type POINTAPI x As Long y As Long End Type Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Type LOGBRUSH lbStyle As Long lbColor As Long lbHatch As Long End Type Private Type PAINTSTRUCT hdc As Long fErase As Long rcPaint As RECT fRestore As Long fIncUpdate As Long rgbReserved(32) As Byte End Type Private Type LOGFONT lfHeight As Long lfWidth As Long lfEscapement As Long lfOrientation As Long lfWeight As Long lfItalic As Byte lfUnderline As Byte lfStrikeOut As Byte lfCharSet As Byte lfOutPrecision As Byte lfClipPrecision As Byte lfQuality As Byte lfPitchAndFamily As Byte lfFaceName As String * 32 End Type Private Type FontAttributes FONT_NAME As String FONT_SIZE As Long FONT_BOLD As Boolean FONT_ITALIC As Boolean FONT_UNDERLINE As Boolean End Type Private Type TRIVERTEX x As Long y As Long Red As Integer Green As Integer Blue As Integer Alpha As Integer End Type Private Type GRADIENT_RECT UpperLeft As Long LowerRight As Long End Type Private Declare Function CreateFontIndirect Lib "gdi32" _ Alias "CreateFontIndirectA" _ (lpLogFont As LOGFONT) As Long Private Declare Function GetWindowDC Lib "user32" _ (ByVal hwnd As Long) As Long Private Declare Function ReleaseDC Lib "user32" _ (ByVal hwnd As Long, _ ByVal hdc As Long) As Long Private Declare Function TextOut Lib "gdi32" _ Alias "TextOutA" _ (ByVal hdc As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal lpString As String, _ ByVal nCount As Long) As Long Private Declare Function SetBkMode Lib "gdi32" _ (ByVal hdc As Long, _ ByVal nBkMode As Long) As Long Private Declare Function SelectObject Lib "gdi32" _ (ByVal hdc As Long, _ ByVal hObject As Long) As Long Private Declare Function SetWindowsHookEx Lib _ "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, _ ByVal lpfn As Long, _ ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Long) As Long Private Declare Function CallNextHookEx Lib "user32" _ (ByVal hHook As Long, _ ByVal ncode As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Declare Function GetCurrentThreadId Lib "kernel32" _ () As Long Private Declare Function SetWindowLong Lib "user32" _ Alias "SetWindowLongA" _ (ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function CallWindowProc Lib "user32" _ Alias "CallWindowProcA" _ (ByVal lpPrevWndFunc As Long, _ ByVal hwnd As Long, _ ByVal Msg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Private Declare Function GetClassName Lib "user32" _ Alias "GetClassNameA" _ (ByVal hwnd As Long, _ ByVal lpClassName As String, _ ByVal nMaxCount As Long) As Long Private Declare Function DeleteObject Lib "gdi32" _ (ByVal hObject As Long) As Long Private Declare Function SetTextColor Lib "gdi32" _ (ByVal hdc As Long, _ ByVal crColor As Long) As Long Private Declare Function CreateBrushIndirect Lib "gdi32" _ (lpLogBrush As LOGBRUSH) As Long Private Declare Function FillRect Lib "User32.dll" _ (ByVal hdc As Long, _ ByRef lpRect As RECT, _ ByVal hBrush As Long) As Long Private Declare Function SetRect Lib "user32" _ (lpRect As RECT, _ ByVal X1 As Long, _ ByVal Y1 As Long, _ ByVal X2 As Long, _ ByVal Y2 As Long) As Long Private Declare Function GetWindowRect Lib "User32.dll" _ (ByVal hwnd As Long, _ ByRef lpRect As RECT) As Long Private Declare Function BeginPaint Lib "User32.dll" _ (ByVal hwnd As Long, _ ByRef lpPaint As PAINTSTRUCT) As Long Private Declare Function EndPaint Lib "User32.dll" _ (ByVal hwnd As Long, _ ByRef lpPaint As PAINTSTRUCT) As Long Private Declare Function InvalidateRect Lib "User32.dll" _ (ByVal hwnd As Long, _ ByVal lpRect As Long, _ ByVal bErase As Long) As Long Private Declare Function GetSystemMetrics Lib "user32" _ (ByVal nIndex As Long) As Long Private Declare Function SetMapMode Lib "gdi32" _ (ByVal hdc As Long, _ ByVal nMapMode As Long) As Long Private Declare Function DrawText Lib "user32" Alias "DrawTextA" _ (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, _ lpRect As RECT, ByVal wFormat As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias _ "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long) Private Declare Sub ZeroMemory Lib "kernel32" Alias "RtlZeroMemory" _ (dst As Any, ByVal iLen As Long) Private Declare Function GetTextColor Lib "gdi32" ( _ ByVal hdc As Long) As Long Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As _ Long, ByVal y As Long) As Long Private Declare Function IsBadWritePtr Lib "kernel32" _ (ByVal lp As Long, ByVal ucb As Long) As Long Private Declare Function GradientFillRect Lib "msimg32" Alias "GradientFill" _ (ByVal hdc As Long, pVertex As TRIVERTEX, ByVal dwNumVertex As Long, _ pMesh As GRADIENT_RECT, ByVal dwNumMesh As Long, ByVal dwMode As Long) As Long Private Declare Function PtInRect Lib "user32" _ (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long Private Declare Function ScreenToClient Lib "User32.dll" _ (ByVal hwnd As Long, _ ByRef lpPoint As POINTAPI) As Long Private Declare Function DrawFrameControl Lib "user32" _ (ByVal hdc As Long, lpRect As RECT, ByVal un1 As Long, ByVal un2 As Long) As Long Private Declare Function OffsetRect Lib "user32" _ (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long Private Const DFC_CAPTION = 1 Private Const DFCS_CAPTIONCLOSE = &H0 Private Const DT_CALCRECT = &H400 Private Const WH_CBT As Long = 5 Private Const HCBT_ACTIVATE As Long = 5 Private Const GWL_WNDPROC As Long = -4 Private Const WM_ACTIVATE As Long = &H6 Private Const WM_PAINT As Long = &HF& Private Const WM_SHOWWINDOW As Long = &H18 Private Const WM_EXITSIZEMOVE As Long = &H232 Private Const WM_DESTROY As Long = &H2 Private Const SM_CYCAPTION As Long = 4 Private Const COLOR_ACTIVECAPTION = 2 Private Const GRADIENT_FILL_RECT_H As Long = &H0 Private Const WM_SYSCOMMAND = &H112 Private Const SM_CXSIZE = 30 Private Const SM_CYSIZE = 31 Private Const WS_SYSMENU = &H80000 Private Const GWL_STYLE As Long = (-16) Private tFontAttr As FontAttributes Private tr2 As RECT Private tRect As RECT Private lPrevWnd As Long Private lhHook As Long Private bHookEnabled As Boolean Private oForm As Object Private bGradientFill As Boolean Private lCharColorsPtr As Long Private bCreateFont As Boolean Private lDefaultFontColor As Long Private sFontName As String Private lFontSize As Long Private bFontBold As Boolean Private bFontItalic As Boolean Public bFontUnderline As Boolean Private sCaptionText As String Private lTitleBarColor As Long Private lFontColour As Long Private aCharColors() As Variant Public Sub ShowFormatedUserForm( _ ByVal Form As Object, _ Optional ByVal TitleBarColor As Long, _ Optional ByVal GradientFill As Boolean, _ Optional ByVal FontAttributesPtr As Long, _ Optional CharColorsPtr As Long _ ) Call HookUserForm(ByVal Form, _ ByVal TitleBarColor, _ ByVal GradientFill, _ ByVal FontAttributesPtr, _ CharColorsPtr _ ) End Sub Private Sub HookUserForm _ (ByVal Form As Object, ByVal TitleBarColour As Long, _ ByVal GradientFill As Boolean, ByVal FontAttributesPtr As Long, _ CharColorsPtr As Long) If Not bHookEnabled Then Set oForm = Form sCaptionText = Form.Caption Form.Caption = vbNullString lCharColorsPtr = CharColorsPtr bGradientFill = GradientFill lTitleBarColor = IIf(TitleBarColour = 0, _ GetSysColor(COLOR_ACTIVECAPTION), TitleBarColour) lDefaultFontColor = IIf(CharColorsPtr = 0, GetSysColor(9), 0) If IsBadWritePtr(FontAttributesPtr, 4) = 0 Then If FontAttributesPtr <> 0 Then CopyMemory ByVal tFontAttr, ByVal FontAttributesPtr, LenB(tFontAttr) With tFontAttr sFontName = .FONT_NAME lFontSize = .FONT_SIZE bFontBold = .FONT_BOLD bFontItalic = .FONT_ITALIC bFontUnderline = .FONT_UNDERLINE End With bCreateFont = True Else bCreateFont = False End If End If If IsBadWritePtr(CharColorsPtr, 4) = 0 Then If CharColorsPtr <> 0 Then ReDim aCharColors(Len(sCaptionText)) CopyMemory aCharColors(0), ByVal CharColorsPtr, 16 * (UBound(aCharColors) + 1) ZeroMemory ByVal CharColorsPtr, 16 * (UBound(aCharColors) + 1) Else Erase aCharColors() End If End If lhHook = SetWindowsHookEx _ (WH_CBT, AddressOf HookProc, 0, GetCurrentThreadId) bHookEnabled = True Form.Show Else MsgBox "The hook is already set.", vbInformation End If End Sub Private Function HookProc _ (ByVal idHook As Long, ByVal wParam As Long, _ ByVal lParam As Long) As Long Dim sBuffer As String Dim lRetVal As Long Dim lDc As Long If idHook = HCBT_ACTIVATE Then sBuffer = Space(256) lRetVal = GetClassName(wParam, sBuffer, 256) If Left(sBuffer, lRetVal) = "ThunderDFrame" Or _ Left(sBuffer, lRetVal) = "ThunderXFrame" Then lDc = GetWindowDC(wParam) ReleaseDC wParam, lDc lPrevWnd = SetWindowLong _ (wParam, GWL_WNDPROC, AddressOf CallBackProc) UnhookWindowsHookEx lhHook bHookEnabled = False End If End If HookProc = CallNextHookEx _ (lhHook, idHook, ByVal wParam, ByVal lParam) End Function Private Function CallBackProc _ (ByVal hwnd As Long, ByVal Msg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Static i As Long Dim lDc As Long Dim lStyle As Long Dim loword As Long Dim hiword As Long Dim tPt As POINTAPI Dim x As Long Dim pt As POINTAPI Dim tr As RECT On Error Resume Next GetWindowRect hwnd, tRect Select Case Msg Case WM_PAINT, WM_ACTIVATE If Msg = WM_ACTIVATE Then lStyle = GetWindowLong(hwnd, GWL_STYLE) SetWindowLong hwnd, GWL_STYLE, (lStyle And Not WS_SYSMENU) End If lDc = GetWindowDC(hwnd) Call DrawTitleBar(hwnd, lTitleBarColor) SetBkMode lDc, 1 If bCreateFont Then CreateFont lDc End If For i = 1 To Len(sCaptionText) If lCharColorsPtr = 0 Then SetTextColor lDc, lDefaultFontColor Else SetTextColor lDc, aCharColors(i - 1) End If SetRect tr, 0, 0, 0, 0 DrawText lDc, Mid(sCaptionText, i, 1), _ Len(Mid(sCaptionText, i, 1)), tr, DT_CALCRECT If x = 0 Then x = 4 TextOut lDc, x, GetSystemMetrics(SM_CYCAPTION) / 3, _ Mid(sCaptionText, i, 1), Len(Mid(sCaptionText, i, 1)) x = x + Abs(tr.Right - tr.Left) Next lFontColour = GetTextColor(lDc) ReleaseDC hwnd, lDc InvalidateRect hwnd, 0, 0 Case WM_EXITSIZEMOVE, WM_SHOWWINDOW Call DrawTitleBar(hwnd, lTitleBarColor) InvalidateRect hwnd, 0, 0 Case WM_SYSCOMMAND GetHiLoword lParam, loword, hiword tPt.x = loword tPt.y = hiword ScreenToClient hwnd, tPt If PtInRect(tr2, tPt.x, -tPt.y) Then Unload oForm End If Case WM_DESTROY SetWindowLong hwnd, GWL_WNDPROC, lPrevWnd bGradientFill = False lCharColorsPtr = 0 bCreateFont = False lDefaultFontColor = 0 sFontName = vbNullString lFontSize = 0 bFontBold = False bFontItalic = False bFontUnderline = False sCaptionText = vbNullString lTitleBarColor = 0 lFontColour = 0 Erase aCharColors() Set oForm = Nothing End Select CallBackProc = CallWindowProc _ (lPrevWnd, hwnd, Msg, wParam, ByVal lParam) End Function Private Sub CreateFont(DC As Long) Dim uFont As LOGFONT Dim lNewFont As Long With uFont .lfFaceName = sFontName & Chr$(0) .lfWidth = lFontSize .lfWeight = IIf(bFontBold, 900, 100) .lfItalic = bFontItalic .lfUnderline = bFontUnderline End With lNewFont = CreateFontIndirect(uFont) DeleteObject (SelectObject(DC, lNewFont)) End Sub Private Sub ConvertLongToRGB(ByVal Value As Long, r As Byte, g As Byte, b As Byte) r = Value Mod 256 g = Int(Value / 256) Mod 256 b = Int(Value / 256 / 256) Mod 256 End Sub Private Function LongToUShort(Unsigned As Long) As Double LongToUShort = CInt(Unsigned - &H10000) End Function Private Function TransfCol(ByVal Col As Long) As Double Dim a As Double If Col = 0 Then TransfCol = 0 ElseIf Col > 127 Then a = 256 - Col TransfCol = -(256 * a) Else a = Col TransfCol = 256 * a End If End Function Private Sub DrawTitleBar _ (lhwnd As Long, ByVal MyColor As Long) Dim tPS As PAINTSTRUCT Dim tLB As LOGBRUSH Dim tr As RECT Dim lDc As Long Dim l As Long Dim hBrush As Long Dim vert(2) As TRIVERTEX Dim tPt As GRADIENT_RECT Dim r As Byte, g As Byte, b As Byte Call BeginPaint(lhwnd, tPS) lDc = GetWindowDC(lhwnd) tLB.lbColor = MyColor hBrush = CreateBrushIndirect(tLB) Call GetWindowRect(lhwnd, tr) SetRect tr, 0, 0, tr.Right, tr.Bottom SetRect tr2, 0, 5, _ GetSystemMetrics(SM_CXSIZE), GetSystemMetrics(SM_CYSIZE) + tr.Bottom OffsetRect tr2, tRect.Right - tRect.Left - GetSystemMetrics(SM_CXSIZE), 0 FillRect lDc, tr, hBrush If bGradientFill Then ConvertLongToRGB MyColor, r, g, b With vert(0) .x = 0 .y = 0 .Red = TransfCol(r) .Green = TransfCol(g) .Blue = TransfCol(b) .Alpha = TransfCol(0) End With With vert(1) .x = tr2.Right .y = tr2.Bottom .Red = TransfCol(0) .Green = TransfCol(0) .Blue = TransfCol(0) .Alpha = TransfCol(0) End With tPt.UpperLeft = 0 tPt.LowerRight = 1 GradientFillRect lDc, vert(0), 2, tPt, 1, GRADIENT_FILL_RECT_H End If Call DeleteObject(hBrush) SetRect tr2, tr2.Right - GetSystemMetrics(SM_CXSIZE), 0, _ tr2.Right, GetSystemMetrics(SM_CYSIZE) OffsetRect tr2, -4, 2 DrawFrameControl lDc, tr2, DFC_CAPTION, DFCS_CAPTIONCLOSE ReleaseDC lhwnd, lDc Call EndPaint(lhwnd, tPS) End Sub Private Sub GetHiLoword _ (lParam As Long, ByRef loword As Long, ByRef hiword As Long) loword = lParam And &HFFFF& hiword = lParam \ &H10000 And &HFFFF& End Sub 2- كود في Standard Module اخر : Option Explicit Private Type FontAttributes FONT_NAME As String FONT_SIZE As Long FONT_BOLD As Boolean FONT_ITALIC As Boolean FONT_UNDERLINE As Boolean End Type Sub test() Dim tFontAttr As FontAttributes Dim aCharColors() As Variant Dim lTitleBarColor As Long 'define a random title bar color lTitleBarColor = RGB(0, 255, 0) 'build the caption font structure With tFontAttr .FONT_NAME = "Arial" '"Trebuchet MS" .FONT_SIZE = 8 .FONT_BOLD = True .FONT_ITALIC = False .FONT_UNDERLINE = False End With 'build the caption individual character colors ReDim aCharColors(Len(UserForm1.Caption)) '===> (=16 chars in this case) aCharColors(0) = vbRed 'U aCharColors(1) = vbRed 's aCharColors(2) = vbRed 'e aCharColors(3) = vbRed 'r aCharColors(4) = vbBlue 'F aCharColors(5) = vbBlue 'o aCharColors(6) = vbBlue 'r aCharColors(7) = vbBlue 'm aCharColors(8) = vbYellow '1 aCharColors(9) = 0 aCharColors(10) = vbRed '- aCharColors(11) = 0 aCharColors(10) = vbWhite 'D aCharColors(12) = vbWhite 'e aCharColors(13) = vbWhite 'm aCharColors(14) = vbWhite '0 aCharColors(15) = vbWhite '0 'display the userform Call ShowFormatedUserForm( _ Form:=UserForm1, _ TitleBarColor:=lTitleBarColor, _ GradientFill:=True, _ FontAttributesPtr:=VarPtr(tFontAttr), _ CharColorsPtr:=VarPtr(aCharColors(0)) _ ) End Sub

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

السلام عليكم و رحمة الله و بركاته جزاك الله خيرًا أستاذنا الفاضل ياسر خليل أبو البراء المحترم:

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

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

كود لجعل الفورم شفاف مع الابقاء على شريط عنوان الفورم و اطاره و على جميع الكونترولات بداخله ملف للتحميل : https://app.box.com/s/pzaml5g8slh8kq7bd03axq01vzmrldai الكود في موديول الفورم: Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Private Const LWA_COLORKEY = &H1 Private Const GWL_EXSTYLE = (-20) ' Private Const WS_EX_LAYERED = &H80000 Private Sub UserForm_Initialize() Dim hwnd As Long hwnd = FindWindow(vbNullString, Me.Caption) SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED Me.BackColor = vbRed SetLayeredWindowAttributes hwnd, vbRed, 0&, LWA_COLORKEY End Sub

السلام عليكم وهذه معادلة اخرى بعد معادلة استاذى بن علية حاجى جزاه الله خيرا =SUMPRODUCT(SUBTOTAL(3;OFFSET($B$4:$B$20;ROW($B$4:$B$20)-MIN(ROW($B$4:$B$20));;1))*(1/COUNTIF(B4:B20;B4:B20))) هل ممكن هذه المعادلة تعد بدون تكرار.rar

السلام عليكم استاذ ياسر ... جميل جداً شغل تخصص ... عصرت الدالة COUNTIF لازم من المرفق

السلام عليكم ورحمة الله وبركاته كما قالوا لك الاساتذة ولكن الملف الذي ارفقته به خلل لذلك انظر الملف المرفق وحاول تلقي نظرة عليه وستستطيع عمل ذلك بسهولة jadwal1.rar

إن لله ما أخذ وله ما أعطى وكل شىء عنده بأجل مسمى

السلام عليكم و رحمة الله و بركاته حبيت اشارك طريقة حفظ نسخة احتياطية للقاعدة بيانات حسب نموذج اعدادات وتم اضافة زر اسفل زر حفظ في شاشة إعدادات للحفظ النسخة مع ضغط و إصلاحها بالتوفيق،،،،، Main2.rar

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

وعليكم السلام انكليزي !!!!!! اخي الفاضل لماذا لاتجرب ان تشرح لنا انت ماتعلمت ....

السلام عليكم و رحمة الله و بركاته أخي الفاضل أبو عادل ..إضافة لما تقدّم به الأستاذ القدير قنديل الصيّاد جزاه خيرًا و زادها بميزان حسناته .. هناك العديد من الدوال و الأكواد التي تقوم بهذا العمل .. لكن في ملفك لم تقمْ بتحديد النّطاق الذي يتم فيه العد .. لاحظ لو سمحت الملف المرفق وبه نوعيْن من الدّوال .. الشّرح موضّح في الصورة أدناه : الدالة المشار إليها بالسّهم الأخضر لا تحتسب في العد بالنطاق المحدّد الأرقام و إشارة "" .. أمّا المشار إليها باللّون الأحمر تحتسب في عدّها الاشارات و الأرقام ..شاهد الملف المرفق فضلاً لا أمرًا خالص احتراماتي حساب عدد الخلايا غير الفارعة.rar

السلام عليكم ورحمة الله وبركاته إخوانى وحبائى أعضاء وأساتذة هذا المنتدى العظيم تحية طيبة وبعد وكل عام وحضراتكم بألف خير بمناسبة عيد الأضحى المبارك أعاده الله عليكم بالخير واليمن والبركات أقدم لكم اليوم أدة Add-in تقوم بتحويل قوائم الإكسيل 2007 و 2010 إلى قوائم إكسيل 2003 الكود المستخدم Sub Show_Excel_2003_Style_Menu() On Error Resume Next Dim cmdBar As CommandBar Dim cmdBarCtrl As CommandBarControl Dim sMenuName As String Dim sToolbarName As String Dim iMenu As Integer sMenuName = "Excel 2003 Style Menu" sToolbarName = "Excel 2003 Style Toolbar" CommandBars(sMenuName).Delete CommandBars(sToolbarName).Delete 'Code upto here can be used to hide/delete Excel 2003 'style menu from Excel 2007/2010. Set cmdBar = CommandBars.Add(sMenuName, , , True) 'This will create Excel 2003 style menu bar in Excel 2007/2010 With cmdBar .Visible = True For iMenu = 1 To 10 Set cmdBarCtrl = .Controls.Add(Type:=msoControlPopup, ID:=30001 + iMenu) Next iMenu Set cmdBarCtrl = .Controls.Add(Type:=msoControlPopup, ID:=30022) 'Chart Set cmdBarCtrl = .Controls.Add(Type:=msoControlPopup, ID:=30177) 'AutoShapes End With Set cmdBar = CommandBars.Add(sToolbarName, , , True) With cmdBar .Visible = True With .Controls Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=2520) 'New Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=23) 'Open Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=3) 'Save Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=4) 'Print Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=109) 'Print Preview Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=2) 'Spelling Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=21) 'Cut Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=19) 'Copy Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=22) 'Paste Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=108) 'Format Painter Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=210) 'Sort Ascending Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=211) 'Sort Descending Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=984) 'Help Set cmdBarCtrl = .Add(Type:=msoControlComboBox, ID:=1728) 'Font Set cmdBarCtrl = .Add(Type:=msoControlComboBox, ID:=1731) 'Font Size Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=113) 'Bold Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=114) 'Italic Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=115) 'Underline Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=120) 'Align Left Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=122) 'Center Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=121) 'Align Right Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=402) 'Merge and Center Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=395) 'Accounting Number Format Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=396) 'Percent Style Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=397) 'Comma Style Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=398) 'Increase Decimal Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=399) 'Decrease Decimal Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=3162) 'Decrease Indent Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=3161) 'Increase Indent End With End With Set cmdBar = Nothing Set cmdBarCtrl = Nothing On Error GoTo 0 End Sub أرجو ا من الله أن ينول رضاكم Excel2003_Style_Menu.rar

اخى العزيز لحساب عدد الخلايا الغير الفارغة استخدم الدالة مثال : ‎=COUNTA(A2:A6)‎

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

اخي الفاضل لم يـكن الموضوع بسيطا كما تخيلت عموما لم ارد ارفع لك الملف الا بعد التاكد من النتائج ارجو ان يكون المطلوب تحياتي متكررات.rar

السلام عليكم ورحمة الله وبركاته لتشكيل عن طريق لوحة المفاتيح: 1-لوضع الشدة ..... (shift + ذ ) 2-لوضع السكون ..... ( shift + ء ) 3-لوضع الفتحة ....... ( shift + ض ) 4-لوضع تنوين الفتح ....... ( shift + ص ) 5-لوضع الضم ....... ( shift + ث ) 6-لوضع تنوين الضم ....... ( shift + ق ) 7-لوضع الكسر ........ ( shift + ش ) 8-لوضع تنوين الكسر ........ ( shift + س ) __________________ وظائف أزرار لوحة المفاتيحبالترتيب:- ______________________ -(Esc)= و وظيفة هذا الزر فى لوحةالمفاتيح أثنين: الوظيفة الأولى و هى متعلقة بالأنترنت... حيث أنه يوقف تحميلالصفحة التى أردت فتحها . و الوظيفة الثانية و هى خاصة بالأكسبلورار .... حيث أنه يمكن من الخروج من بعض العمليات التى تقوم بها على جهازالكمبيوتر. 2-(F1)= و وظيفة هذا الزر فى لوحة المفاتيح هى فتح ملف ال (HELP) . و مع الأسف99.9(%) من مستخدمى الكمبيوتر يخافون فتح هذا الملف لأنهم يملون القراءه . حاجة غريبة !!!! و على فكرة هذا الملف يحوى جميعأستخدامات الويندوز من الألف حتى الياء . f2)= و وظيفة هذا الزر فىلوحة المفاتيح هى تغيير اسم أى ملف ، أو فولد ، أو درايف . و بأختصار شديدبدل ما تعمل كليك يمين ، و تضغط على (rename) ... فهذا الزر يسهل الأمر عليك ياباشا . أيضاً لهذا الزر فائدة أخرى ، و هى متعلقة بال (D.O.S) ... و الوظيفةهى أنك و أنت بتغير نسخة الويندوز من الدوس ، فبمجرد الضغط على هذا الزر فتظهرلك شاشة ال (MENU). 4-(F3)= و وظيفة هذا الزر فى لوحة المفاتيح هى أظهارلوحة البحث عن الملفات .... الله.. حاجة سريعة !!! بدل ما تضغط على قائمة (START) ، ثم (SEARCH) ، ثم (FILES OR FOLDERS) ... يا خبر أبيض !!! هو الواحدلسه هيضغط على كل هذه الأزار .... و هذه هى فائدة لوحة المفاتيح .. توفير الوقت . أيضاً لهذا الزر فائدة أخرى ، و هى متعلقة بال (D.O.S) ... و الوظيفة هىبمجرد الضغط على هذا الزر فتظهر لك شاشة ال (VIEW) .. أى خدمة . 5-(F4)= و وظيفة هذا الزر فى لوحة المفاتيح هى أنك عندما تضغط على أيقونة (MY COMPUTER) الموجودة على الديسكتوب ، ثم تضغط على (VIEW) الموجودة فى أعلى اليسار ، وبعد أن تضغط عليها ستنزل لك قائمة ... ففى بداية هذه القائمة ستجد الكلمة (TOOLBARS) ، و تخرج منها قائمة أخرى .. . و فى هذه القائمة ستجد الكلمة (ADDRESS BAR) .. . فأذا ضغطت عليها ، فستجدها ظهرت لك فى صفحة الأكسبلورار، و هى بأختصار الخانة البيضاء التى تكتب فيها اسم الموقع الذى تريد أن تذهبأليه ، و على يمين هذه الخانة البيضاء الطويلة ستجد زر يسمى (GO) .. وفائدة هذا الزر هى أنك بعد كتابة اسم الموقع فبمجرد الضغط عليه ، فأنك بهذاتعطى أمر بالذهاب الى الموقع الذى كتبته ، و وظيفة الزر الذى نتحدث عنه منذالبداية ، و هى أنك بمجرد الضغط عليه فيفتح لك الخانة البيضاء و ترى قائمةتنزل منها أسماء المواقع التى دخلتها من قبل . أيضاً لهذا الزر فائدة أخرى ، وهى متعلقة بال (D.O.S) ... و الوظيفة هى بمجرد الضغط على هذا الزر فتظهر لك شاشةال (EDIT) . 6-(F5)= و لهذا الزر وظائف متعددة ، و هى كالتالى: الوظيفةالأولى و هى متعلقة بالأنترنت ... و هى بمجرد الضغط على هذا الزر فأنك بهذا تعيدتحميل أو فتح صفحة النت مرة أخرى . الوظيفة الثانية و هى متعلقة بالأكسبلورار ... وهى بمجرد الضغط على هذا الزر فأنك بهذا كأنك بتعمل (*RefresH*) للكمبيوتر. الوظيفةالثالثة و هى متعلقة بالدوس أو (D.O.S) ... و الوظيفة هى بمجرد الضغط على هذا الزرفتظهر لك شاشة ال (COPY) لكى تحدد منها كيف ستكون أختيارات النسخ عن طريق شاشةالدوس ، و على فكرة أنا دائماً بعمل ال (COPY) و ال (CUT) من خلال الدوس ، وهذا لسرعته الرهيبة فى النقل و الحفاظ على كفاءة الويندوز. 7-(F6)= و لهذاالزر وظيفتين: الوظيفة الأولى و متعلقة بالأكسبلورار ، و هى وظيفة لذيذة و غريبةجداً ، و أنا متأكد أنه لا يعلمها ألا القليل من مستخدمى عالم الكمبيوتر ... و هىأنك عندما تشير بالماوس على مثلاً ملف (NOTEPAD) فمن المؤكد أنه يجعل الملف مظلل ،و هنا تأتى روعة زر ال (F6) ... و هى أنك حتى و لو ظللت مائة ملف أو فولدر فبمجردالضغط عليه ، فأنه يزيل هذا التظليل بالكامل ... و جربوها .. جميلة !!! و الوظيفةالثانية و هى متعلقة بالدوس ... و فائدة هذا الزر فى الدوس تنقسم الى قسمين.. القسمالأول هو أنك يمكنك عمل (RENAME) لأى ملف ، و القسم الثانى هو أنك يمكنك عمل (MOVE) أيضاً لأى ملف أو أى شئ . 8-(F7)= و مع الأسف ليس له فائدة تستحقالأهتمام من ناحية الويندوز. لذلك سأشرح فائدته فى الدوس و هى بمجرد الضغط على هذاالزر فتظهر لك شاشة ال (MK DIR) ، و هذه الخاصية طبعاً مهمة . 9-(F8)= و معالأسف ليس له فائدة تستحق الأهتمام من ناحية الويندوز. لذلك سأشرح فائدته فى الدوسو هى بمجرد الضغط على هذا الزر فتظهر لك شاشة ال (DELETE) . 10-(F9)= و معالأسف ليس له فائدة تستحق الأهتمام من ناحية الويندوز. لذلك سأشرح فائدته فى الدوسو هى بمجرد الضغط على هذا الزر فتظهر لك شاشة ال (PULL DN) . 11-(F10)= و معالأسف ليس له فائدة تستحق الأهتمام من ناحية الويندوز. لذلك سأشرح فائدته فى الدوسو هى بمجرد الضغط على هذا الزر فأنك تخرج من الشاشة الزرقاء التى تقوم بعمل أغلبعمليات الدوس من خلالها ، بأختصار فهى تساوى معنى كلمة (QUIT): أى خروج .... أىخدمة . أما وظيفة الزر (Fn) فهو يستخدم فى بعض البرامج ، و أعتقد أنه ليس مفيد ... و أن كان وظيفة الزر (Fn) تأتى فى أستخدامات ال (EXCEL) و ال (ACCESS) و كلحاجة فى وقتها ... 12-(F11)= و وظيفة هذا الزر هى عمل حفظ لأى ملف .. مثلاً الوورد ، أو النوتباد . و بأختصار فهو يساوى كلمة (SAVE) . 13-(F12)= و وظيفة هذا الزر بأختصار تساوى كلمة (SAVE AS) . 14-(PRINT SCREEN/SYS RQ)= و هى أنك مثلاً و أنت واقف على الديسكتوب ، وبمجرد أنك تضغط على هذا الزر ، و تضغط على قائمة (START) ثم (PROGRAMS) ثم (ACCESSORIES) ثم (PAINT) ... فستجد هذا البرنامج الخاص بالرسم ... فما عليك ألا أنتضغط على زر (EDIT) الموجود أعلى اليسار ، ثم (PASTE) ، و ستجد أن شاشة الديسكتوبالتى كنت واقف عليها قد طبعت فى البرنامج ، و يمكنك بعد ذلك الضغط على زر (FILE) ثم (SAVE AS) ، و أكتب أى أسم للصورة ، و لا تنسى أن تحفظ الصورة بهذا الأمتداد (JPEG) و ذلك لأن هذا الأمتداد ترجع فائدته فى أنه يضغط الصورة الى أصغر حجم . وهيص يا عم .... أى خدمة. 15-(Esc+cool.gif=أستخدام فى لوحة المفاتيح ، و هوأنك عندما تضغط على هذين الزرين مثلاً فى برنامج ال (WORD) فأنك سترجع الى الوراءكلمة واحدة . 17-(PAUSE/BREAK)= و الوظيفة كالتالى ... و أنت بتضغط على زر ال (POWER) لكى تفتح الكمبيوتر طبعاً بتظهر لك شاشةسوداء فيها ال (CD-ROM) و ال (HARD DRIVE) و أمكانيات ال(CPU) ... المهم .. بمجردالضغط على زر ال (PRINT SCREEN/SYS RQ) فأنه يوقف الشاشة ، و بهذا يمكنك قرائةمحتويات جهازك بسهولة و براحتك . و لكى تجعل الكمبيوتر يكمل التحميل للدخول علىالويندوز ، فما عليك ألا أن تضغط على زر (ENTER) و هتدخل على الويندوز منغير أى قلق . 18-(INSERT)= و لهذا الزر وظيفتين ... الوظيفة الأولى وسأشرحها مع وظيفة أخرى. و الوظيفة الثانية و هى متعلقة بالدوس ... و تأتى عندماتريد أن تنسخ ملفين فى الدوس و تريد تحديد الملفين .. فما عليك ألا أن تقف علىالملف و تضغط هذا الزر ، ثم تقف على الملف الثانى و تضغط أيضاً هذا الزر . 19-(HOME)= للذهاب الى أعلى الصفحة مرة واحدة . 20-(END)= للذهابالى أسفل الصفحة مرة واحدة . 21-(PAGEUP)= طريقة سهلة جداً تستخدم للأتجاهالى أعلى الصفحة ، بالتدريج . 22-(PAGEDOWN)= طريقة سهلة جداً تستخدم للأتجاه الى أسفل الصفحة ، بالتدريج . 23-(NUM LOCK)= و وظيفة هذا الزر هي تشغيل و أغلاق الجزء الموجود فى أقصى يمين لوحة التحكم . 24-(BACKSPACE)= لها وظيفتين .. الوظيفة الأولى و هى متعلقة بالأكسبلورار ، فعلى سبيل المثال فىبرنامج الوورد عندما تضغط على هذا الزر فأنك بهذا تزيل به الحروف . و الوظيفةالثانية و هى متعلقة بالأنترنت أكسبلورار ، و وظيفتها تحدث بمجرد أن تضغط على هذاالزر فأنك بهذا تفتح الصفحة السابقة للصفحة التى أنت عليها الآن . 25-(علامةال PROPERTIES)= هذا الزر ستجده عند ثالث زر على يمين الزر (SPACE) ، و وظيفتههى أنك بدل ما تعمل كليك يمين على (MY COMPUTER) و تضغط على (PROPERTIES) ، فهذاالزر يوفر عليك كل شئ . و له وظيفة أخرى و هى أنك أذا أشرت بالماوس على أى ملف، و ضغطت على هذا الزر فأنه سيظهر لك محتويات الملف نفسه . 26-(علامةالويندوز)= و هذا الزر سيكون ثانى زر على يمين الزر (SPACE) و وظيفة هذا الزرهى فتح قائمة (START) . و من الآن بدل ما أقول العبارة (علامة الويندوز) فسأقول الكلمة (WINDOWS) .. ماشى . 27-(TAB)= و هذا الزر له وظيفتين ... الوظيفةالأولى وهى فى برنامج الوورد أو برنامج كتابة بمجرد الضغط على هذا الزر؛ فأنهينتقل الى الأمام ثمانية أحرف . و الوظيفة الثانية هى أنه يتحول بين الخانات . 28-(windows+e)= لتشغيل ال (windows explorer) . 29-(windows+f)= لفتح لوحة البحث عن الملفات (files or folders) . 30-(windows+m)= لتنزيلجميع الصفح المفتوحة على ال (taskbar) . 31-(windows+r)= لفتح لوحة ال (run) . 32-(windows+d)= و هى أيضاً تستخدم لتنزيل جميع الصفح المفتوحة على ال (taskbar) . 33-(windows+l)= للخروج من الويندوز . 34-(windows+p)= لفتح خصائص الطباعة . 35-(windows+c)= لفتح ال (control panel) . 36-(windows+k)= لمعرفة خصائص لوحة المفاتيح . 37-(windows+tab)= للتنقل بين العناويين بسهولة . 38-(windows+pause/break)= لأظهار خصائصالنظام ، أو ال (system properties) . 39-(windows+shift+m)= لأعادةأظهار جميع اللوحات ا لى نزلتهم على ال (taskbar) . 40-(windows+Ctrl+f)= للبحث عن أجهزة الكمبيوتر... و ذلك أما عن طريق ال (network) ، أو ال (internet) . و هى ما تسمى بــِ (remote access) . 41-(alt+printscreen/sys rq)= لتصوير الشاشة . 42-(alt+tab)= أمرمفيد جدا لك اذا كان هنالك نوافذ كثيرة مفتوح يمكنك اختيار النافذة المطلوبة . 43-(alt+f4)= لأغلاق أى نافذة . 44-(alt+Esc)= للتنقل بين النوافذ .... حركة جميلة جداً . 45-(alt+space+s)= تصغير أظهار النافذة . 46-(alt+d)= تستخدم هذه الطريقة للتظليل على الموقع المكتوب فى ال (address bar) .. مهمة . 47-(alt+left arrow)= و هذه الطريقة ترجعك للصفحةالسابقة على الأنترنت . 48-(alt+right arrow)= و هذه الطريقة تنقلك للصفحةالتالية على الأنترنت . -(alt+shift)= و هذه الطريقة تحول لغة الكتابة منالعربية الى الأنجليزية ، و العكس . و على فكرة أنتم مش محتاجيين أنكمتضغطوا على الزرين (alt+shift) الموجودين على اليسار ... بالعكس كفاية جداً الىعلى اليمين للتحويل .. خلاص ... أى خدمة . 50-(alt)= هذا الزر بمفرده وبمجرد الضغط عليه .. . فأنك تستطيع أن تفتح الأزرار الموجودة أعلى اليسار ، وهى (file – edit –view – etc) ، و بعد أن تضغط على هذا الزر ؛ فأضغط علىالأتجاهات للتنقل بينهم . 51-(ctrl+a)= هذه الطريقة تمكنك من التظليل علىجميع الملفات الموجودة فى أى فولدر مرة واحدة . 52-(ctrl+c)= هذه الطريقةتمكنك من عمل نسخ لأى ملف . 53-(ctrl+x)= هذه الطريقة تمكنك من عمل (cut) لأى شئ . 54-(ctrl+v)= هذه الطريقة تمكنك من عمل (paste) لأى شئ . 55-(ctrl+Esc)= لفتح قائمة (start) . 56-(ctrl+s)= لعمل حفظ لأى ملف (save) . 57-(ctrl+o)= لفتح ملف أو فولدر أو برنامج . 58-(ctrl+p)= لأعطاء أمر بالطباعة . 59-(ctrl+z)= للتراجع عن آخرأمر قمت به ، أو بمعنى أوضح و أدق (undo) . 60-(ctrl+cool.gif= لزيادة سمك الخط ،و هذا الأمر يستخدم فى برامج الكتابة ، و الحرف (cool.gif هذا أختصار للكلمة (bold) . أيضاً هذا الأمر يستخدم فى حالة الأنترنت .. و وظيفته هى ترفتح و ترتيب ال (favourites) . 61-(ctrl+u)= لوضع خط تحت العبارة التى تحددها أنت . 62-(ctrl+i)= لأمالة الخط . 63-(ctrl+h)= لفتح ملف ال (history) الموجود بالكمبيوتر . 64-(ctrl+d)= لأضافة موقع الى قائمة ال (favourite) . 65-(ctrl+n)= لفتح صفحة جديدة . 66-(ctrl+o)= لفتح موقع جديد . 67-(ctrl+r)= لأعادة تحميل الصفحة . 68-(ctrl+s)= لحفظ الصفحة التى تفتح أمامك . 69-(ctrl+w)= لأغلاق صفحة النت . 70-(ctrl+f4)= أيضاًلأغلاق الصفحة التى أمامك ، و لكنه لا يمكنه أغلاق برنامج ... عكس الأمر (alt+f4) الذى يغلق البرامج و أيضاً الصفحات

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

أنا بحاول اساعد حضرتك على قدر استطاعتى فاسمحلى ببعض الاستفسارات لعلى ييسر الله لى أمرا ما هى العلاقة بين جدول invoicehh & invoicett اليس من المفترض أن يكون الحقل invoicenum متساوى فى كلا الجدولين فليس منطقيا أن يكون رقم الفاتورة فى جدول الرأس مختلف عنه فى جدول التفاصيل أم الأمر على خلاف ذلك أرجو التوضيح

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

السلام عليكم و رحمة الله و بركاته خير الكلام ما قلّ و دلّ كما هو واضح من العنوان أعرض عليكم كود فتح الفيجوال بيزك أو محرر الأكواد Sub OpenVBE() Application.Goto "OpenVBE" End Sub الكود يوضع فى مديول عادى ...... بس خلاص تحياتى للجميع

أستاذ خالد بارك الله فيك أستاذنا العيدروس شرفت بمروركم وشكرا على هذه الاضافة الأكثر من رائعة يا زيزو يا بسكرى العيديه بتاعتك أهه افتح الفيجوال المحمى بكلمة سر كل سنة وأنتم جميعا بخير Open Visual Basic Editor .rar Open Visual Basic Editor .rar

نتوجة الى الله ونسالة - اللهم رد الباس اذهب الياس واشفى انت الشافى شفاءأ لا يغادر سقما نسال الله العظيم رب العرش العظيم ان يشفية ويشفى جميع مرضى المسلمين انة ولى ذلك والقادر علية

اننا نعيش ايام الخير ويتسابق الناس في نيل كل ما يستطيعو نيله من الخير........و منهم من يمن الله عليه و يرسل له الخير فان استقبله بالصبر نال و نال و بشر الصابرين..... شفاك الله و عفاك يا انفع الناس للناس

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

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

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

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

السلام عليكم ورحمة الله وبركاته الدرس السادس 7-Conditions الشروط وسوف نتناول فى هذه الدرس الاتى انشاء الشرط بواسطة if استخدام اكثر من شرط داخل الكود وذلك باستخدام Else if استخدام Select Case بعض الشروط التى شائعة الاستخدام ........................................... انشاء الشرط بواسطة if يتم انشاء الشرط بواسطة if وطالما كان هناك شرط اذا لابد ان تكون هناك نتيجه تتحقق بتوافر الشرط ام بعدم توافره ففى حاله توافر الشرط نستخدم كلمة then وفى حالة عدم توافر الشرط نستخدم كلمة else ثم فى النهاية لابد ان يتم اقفال الشرط if ب end if If الشرط Then ماذا سيحدث فى حالة تحقق الشرط Else فى حالة عدم تحقق الشرط ماذا سيحدث فى حالة عدم تحقق الشرط End If نهاية قاعدة الشرط مــثــــــــــــــال نريد فى حالة وجود الرقم 10 فى الخليه a17 يتم كتابة الرقم صحيح فى الخليه b17 واذا كان الرقم لايساوى الرقم 10 يتم كتابةالرقم خطأ فى الخليه b17 شاهد الصوره طيب نشوف الكلام ده هيتعمل ازاى بالكود Sub Conditions() If [a17] = 10 Then ' A17 هنا نقول انه فى حالة وجود الرقم 10 فى الخليه 'Then يتم ' الرقم صحيح B17 اعطاء الخليه [B17] = "الرقم صحيح" Else 'Else فى حالة عدم وجود ارقام غير الرقم10 ' الرقم خطأ A17 اعطاء الخليه [B22] = "الرقم خطأ" End If 'End If..... IFنهاية الشطر End Sub استخدام اكثر من شرط داخل الكود وذلك باستخدام Else if مـثـــــــــــــــــــال نريد اذا كانت الخليه a23 بها الرقم 10 يتم كتابة a10 فى الخليه a24 واذا كانت a23 بها الرقم 20 يتم كتابة a20 فى الخليه A24 واذا كانت a23 بها الرقم 30 يتم كتابة a30 فى الخليه A24 شاهد الصوره طيب نشوف الكلام ده هيتعمل ازاى بالكود Sub Conditions1() If Range("A23") = 10 Then Range("A24") = "a10" ElseIf Range("A23") = 20 Then Range("A24") = "a20" ElseIf Range("A23") = 30 Then Range("A24") = "a30" Else Range("A24") = "خطأ" End If End Sub استخدام Select Case يمكننا استخدا مها فى حالة توافر اكثر من شرط Select Case كتابة معطيات التى يبنى عليها الشرط Case Is الشرط الاول النتيجه Case Is الشرط الثانى النتيجه Case Is الشرط الثالث النتيجه Case Else ' فى حالة عدم تحقق اى من الشروط النتيجه End Select ' Select Case نهاية مـثـــــــــــــــــــال نريد اذا كانت الخليه a45 بها الرقم 10 يتم كتابة a10 فى الخليه a46 واذا كانت a45 بها الرقم 20 يتم كتابة a20 فى الخليه A46 يتم كتابة a30 فى الخليه A46 شاهد الصوره قوم بانشاء قاعده بيانات مكون من عمود واحد به اسماء معينه من A الى D ونريد عند كتابة اسم معين فى الخليه A22 واذا كان هذا الاسم موجود ضمن الاسماء يتم كتابة الاسم صحيح فى الخليه B22 واذا كان غير موجود ينم كتابة الاسم خطأ

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

السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذي الفاضل " الشهابي " على المتابعة الطيّبة و الاهتمام .. كنت قد كتبت موضوعًا بعنوان " مساعدة في إيجاد حل للميلتيباج " .. هو نفس الملف .. على كلٍّ تفضّل المرفق سيّدي الكريم : http://up.top4top.net/downloadf-top4top_f35158ecf11-rar.html

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

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

السلام عليكم ورحمة الله وبركاته الاخ zoro888 الموضوع ببساطه انه اي عمود انت تريده تستطيع فقط تغيير رقم العامود من داخل الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 Then UserForm1.Show End If End Sub هنا اخترنا الحدث دبل كليك من نفس الصفحه التي نريد ان يظهر في عمودها الثالث وهو c ، ببساطة اذا اردت العمود b فانك ستضع الرقم 2 بدل الرقم 3 او الرقم 1 بدل الرقم 3 اذا اردت التاريخ في العمود a اماالمقصود بالكود اعلاه انه اذا تحقق الشرط بحيث يكون اختيار الخليه بالضغط عليها دبل كليك ضمن نطاق العمود c هنا اطلب من التقويم ان يظهر لي لكي اضع به التاريخ الذي اريده اما بخصوص الفورم الخاص بالتقويم ستتبع الخطوات التاليه: اولا - الدخول الى محرر الفجوال بيسك ثانيا - اختيار ادراج فورم userform ثالثا - من الادوات tools اختيار additional controls او اضافة عنصر تحكم رابعا - من القائمه التي ستظهر معك اختيار calendar control ومن ثم موافق ، بعدها ستجد الامر موجود في toolbox مثلها مثل label او textbox وغيرها خامسا - ستقوم بسحب امر calendar داخل الفورم وتعيد تنسيقه بالشكل الذي تريد سادسا - دبل كليك من على فورم ستظهر لك نافذة البرمجه سابعا - ستضع الكود التالي داخل حدث التقويم Private Sub Calendar1_Click() ActiveCell = Calendar1.Value ActiveCell.NumberFormat = "DD/MM/YYYY" UserForm1.Hide End Sub ويعني هذا الكود انه في الخليه النشطه تكون قيمتها هي نفس قيمة التقويم والسطر الثاني بخصوص اختيار الفورمات التي سيظهر عليها التاريخ والسطر الثالث يعني عند ادخال التاريخ من التقويم يقوم تلقائيا باخفاء التقويم اما الكود التالي فيعني في كل مره يستدعا بها التقويم يعطيني تاريخ اليوم الفعلي Private Sub UserForm_Activate() Me.Calendar1.Value = Now() End Sub اتمنى ان تعذرني ان اطلت عليك الشرح لانه ربما انك تعلم الكثير مما كتبت ولكن قصدت هذا ليستفيد الجميع حياك الله

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

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

Function GetFRSAT(Mydate1 As Date, Mydate2 As Date) As Long If Mydate2 < Mydate1 Then Dim tempdate As Date tempdate = Mydate1 Mydate1 = Mydate2 Mydate2 = tempdate End If Dim Datediff As Long, vic As Long Datediff = Mydate2 - Mydate1 + 1 vic = 0 For i = 1 To Datediff If Weekday(Mydate1 + i - 1) > 5 Then vic = vic + 1 Next i GetFRSAT = vic End Function تم تعديل المثال للمرة الثانية و الكود أعلاه بعد اضافة الأخ أبو هادي : Sat_Fr_vications.zip