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

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

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

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

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

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

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

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

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

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

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

تفضل اخي تحياتي ملف قبل كود الطباعة.rar

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

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

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

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

السلام عليكم وهذه معادلة اخرى بعد معادلة استاذى بن علية حاجى جزاه الله خيرا =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

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

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

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

السلام عليكم احي ابو جنا الحمد لله انه سيلبي حاجتك اما بالنسببة لعمله اولا الشيت الذي اريد نسخه منه باستمرار اسميته Source وجعلته مخفيا يظهر لاخذ نسخة منه ثم يختفي مرة اخري طبعا بالكود الكود المستخدم في شيت اليوم Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row <> 8 Then Exit Sub If Target.Column < 3 And Target.Column > 16 Then Exit Sub If Cells(Target.Row - 1, Target.Column) <> "" Then Application.ScreenUpdating = False Sheets("Source").Visible = True Sheets("Source").Copy After:=Sheets("اليوم") ActiveSheet.Name = Format(Cells(Target.Row - 1, Target.Column), "dd_mm_yyyy") Sheets("Source").Visible = False Application.ScreenUpdating = True End If End Sub وان ا, اردت اي استفسار لايهمك تحياتي

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

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

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

السلام عليكم او بهذي الطريقه نسجل باسورد محرر الاكواد ضمن الكود Private Sub باسوورد() ' الكود في وضع الخاص (مخفي) وحفظ اسم الكود بمسمى معين ' بإستخدام كلمة Private ' Private Sub باسوورد Call Un_VBPro("123") ' مثلا اذا الباسورد حق محرر الاكواد 123 End Sub Private Sub Un_VBPro(ByVal Pwd As String) Dim vbProj As Object Set vbProj = ThisWorkbook.VBProject If vbProj.Protection <> 1 Then Exit Sub ' Set Application.VBE.ActiveVBProject = vbProj SendKeys Pwd & "~~" Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute Application.VBE.MainWindow.Visible = True DoEvents With Application .Goto "باسوورد" End With End Sub

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

الاستاذ / ياسر خليل المحترم شفاك الله وعفاك

شفاك الله وعافاك أخي ياسر ولا بأس طهور إن شاء الله. وأسال الله الشافي المعافي أن يمن عليك بشفاء لا يغادر سقماً

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

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

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

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

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

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

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

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

تم التعديل المطلوب و التحميل بعد قليل

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

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