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

السلام عليكم كما تعلمون أثير موضوع جعل الفورم شفافا في المنتدى مؤخرا ... الموضوع على الرابطان: http://www.officena.net/ib/topic/63786-كود-لجعل-الفورم-شفاف/ http://www.officena.net/ib/topic/63770-transparent-userform-فورم-شفاف/ الكود في الرابط الأول يمكننا من التحكم في درجة شفافية الفورم لكن المشكلة هي أن الشفافية تطال اطار الفورم و ال TitleBar و جميع الكونترولات و كل شيئ داخل الفورم و في النهاية مع زيادة درجات الشفافية كل شيئ يختفي من على الشاشة ! أما الكود في الرابط الثاني فان الشفافية لا تطال الا خلفية الفورم و يبقى اطار الفورم ظاهرا و أيضا كل الكونترولات - ممتاز ... لكن المشكلة هي أنه لا يمكن الزيادة أو النقصان في درجة الشفافية اذن المطلوب هو التمكن من جعل الفورم شفافا مع امكانية الزيادة و النقصان في درجة الشفافية لكن بدون اخفاء اطار الفورم و الكونترولات التي بداخله أي اعمال خاصية الشفافية على خلفية الفورم فقط هده اشكالية طالما حيرتني كما أنه موضوع مطلوب حله من طرف العديد من مستخدمي و مبرمجي الاكسيل و تطبيقات الأوفيس في منتديات البرمجة لكن لم أجد أي حل حتى الأن الحمد لله و بعد يومين من التجريب و الاصرار يبدو أنني توصلت الى حل (أو هكدا أتمنى) طبعا الكود لا يعمل على الأوفيس 64Bit ... لكي يعمل ينبغي تعديل الكود لكن ليس لدي Office 64Bit لكي أجرب و أقوم بالاختبارات الازمة الكود يعمل جيدا على ال Modal و ال Modeless فورم ملف للتحميل : https://app.box.com/s/9tj2ipj4jc3rygi8hqkbiw14pde0ggu9 الكود: أضف فورم و أضف الى الفورم CommandButton1 و Label1 و ScrollBar1 ثم ضع الكود التالي في اليوزرفورم موديول: 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 GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type Private Type uPicDesc Size As Long Type As Long hPic As Long hPal As Long End Type Private Type BLENDFUNCTION BlendOp As Byte BlendFlags As Byte SourceConstantAlpha As Byte AlphaFormat As Byte End Type Private Type LOGBRUSH lbStyle As Long lbColor As Long lbHatch As Long End Type Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As Long Private Declare Function ReleaseDC Lib "user32.dll" (ByVal hwnd As Long, ByVal hdc As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare Function AlphaBlend Lib "msimg32.dll" (ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal BLENDFUNCT As Long) As Long Private Declare Sub RtlMoveMemory Lib "kernel32.dll" (Destination As Any, Source As Any, ByVal Length As Long) Private Declare Function CreateCompatibleDC Lib "gdi32.dll" (ByVal hdc As Long) As Long Private Declare Function CreateCompatibleBitmap Lib "gdi32.dll" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long Private Declare Function SelectObject Lib "gdi32.dll" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Declare Function GetClientRect Lib "user32.dll" (ByVal hwnd As Long, ByRef lpRect As RECT) 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 OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As uPicDesc, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long Private Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long Private Declare Function CreateBrushIndirect Lib "gdi32" (lpLogBrush As LOGBRUSH) As Long Private Declare Function SetBkMode Lib "gdi32.dll" (ByVal hdc As Long, ByVal nBkMode As Long) As Long Private Declare Function TranslateColor Lib "olepro32.dll" Alias "OleTranslateColor" (ByVal clr As OLE_COLOR, ByVal palet As Long, Col As Long) As Long Private Const PICTYPE_BITMAP = &H1 Private Const SRCCOPY = &HCC0020 Private Const AC_SRC_OVER = &H0 Private Const OPAQUE = &H2 Private Const GWL_EXSTYLE = (-20) ' Private Const WS_EX_LAYERED = &H80000 Private Const LWA_ALPHA = &H2 Private tRect As RECT Private hInitialDCMemory As Long Private frmHwnd As Long Private frmDc As Long Private hBrush As Long Private hBmp As Long Private bytScrollBarVal As Byte Private Sub UserForm_Initialize() Dim LB As LOGBRUSH Dim Realcolor As Long Dim tRed As OLE_COLOR, tGreen As OLE_COLOR, tBlue As OLE_COLOR 'setup form controls ScrollBar1.Min = 0 ScrollBar1.Max = 255 ScrollBar1.SmallChange = 3 ScrollBar1.BackColor = vbCyan Label1.Font.Bold = True Label1.BackStyle = fmBackStyleTransparent CommandButton1.Caption = "Close" CommandButton1.Font.Bold = True Me.Caption = "Adjustable Transparent UserForm -- (Client Area)" 'retrieve the form hwnd and DC frmHwnd = FindWindow(vbNullString, Me.Caption) frmDc = GetDC(frmHwnd) 'convert system color to RGB TranslateColor Me.BackColor, 0, Realcolor tRed = Val(CStr(Realcolor And &HFF&)) tGreen = Val(CStr((Realcolor And &HFF00&) / 2 ^ 8)) tBlue = Val(CStr((Realcolor And &HFF0000) / 2 ^ 16)) LB.lbColor = RGB(tRed, tGreen, tBlue) 'create a memory DC and store the initial form backColor in it for later blending hBrush = CreateBrushIndirect(LB) GetWindowRect frmHwnd, tRect hInitialDCMemory = CreateCompatibleDC(frmDc) With tRect hBmp = CreateCompatibleBitmap(frmDc, .Right - .Left, .Bottom - .Top) End With Call SelectObject(hInitialDCMemory, hBmp) SetBkMode hInitialDCMemory, OPAQUE FillRect hInitialDCMemory, tRect, hBrush End Sub Private Sub UserForm_Layout() Call UpdateFormPicture End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'cleanUp DeleteObject hBrush DeleteObject hBmp End Sub Private Sub UpdateFormPicture() Dim IID_IDispatch As GUID Dim uPicinfo As uPicDesc Dim IPic As IPicture Dim tPt As POINTAPI Dim BF As BLENDFUNCTION Dim lBF As Long Dim scrDc As Long Dim frmClientWid As Long Dim frmClientHgt As Long Dim hDCMemory As Long 'Update Label with current Transparency rate Me.Label1.Caption = "Transparency : " & 100 - (100 * Me.ScrollBar1.Value \ 255) & "%" 'brievely make the form fully transparent in order to capture the screen area underneath the form SetWindowLong frmHwnd, GWL_EXSTYLE, GetWindowLong(frmHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED SetLayeredWindowAttributes frmHwnd, 0, 0, LWA_ALPHA scrDc = GetDC(0) SetLayeredWindowAttributes frmHwnd, 0, 255, LWA_ALPHA 'retrieve the form's client dimensions GetClientRect frmHwnd, tRect With tRect frmClientWid = .Right - .Left frmClientHgt = .Bottom - .Top End With 'create a memory DC to hold the screen area underneath the form hDCMemory = CreateCompatibleDC(scrDc) hBmp = CreateCompatibleBitmap(scrDc, frmClientWid, frmClientHgt) Call SelectObject(hDCMemory, hBmp) tPt.X = tRect.Left: tPt.Y = tRect.Top ClientToScreen frmHwnd, tPt Call BitBlt(hDCMemory, 0, 0, frmClientWid, frmClientHgt, scrDc, tPt.X, tPt.Y, SRCCOPY) 'blend the form's initial backcolor with the screen image underneath the form With BF .BlendOp = AC_SRC_OVER .BlendFlags = 0 .SourceConstantAlpha = bytScrollBarVal .AlphaFormat = 0 End With RtlMoveMemory lBF, BF, 4 AlphaBlend hDCMemory, 0, 0, frmClientWid, frmClientHgt, hInitialDCMemory, 0, 0, frmClientWid, frmClientHgt, lBF 'Set the Form's Picture property to the resulting blended memory Bitmap With IID_IDispatch .Data1 = &H20400 .Data4(0) = &HC0 .Data4(7) = &H46 End With With uPicinfo .Size = Len(uPicinfo) ' .Type = PICTYPE_BITMAP .hPic = hBmp .hPal = 0 End With OleCreatePictureIndirect uPicinfo, IID_IDispatch, True, IPic Set Me.Picture = IPic 'cleanUp ReleaseDC frmHwnd, frmDc DeleteDC hDCMemory ReleaseDC 0, scrDc End Sub Private Sub ScrollBar1_Change() bytScrollBarVal = ScrollBar1.Value Call UpdateFormPicture End Sub Private Sub ScrollBar1_Scroll() bytScrollBarVal = ScrollBar1.Value Call UpdateFormPicture End Sub Private Sub CommandButton1_Click() Unload Me End Sub

السلام عليكم او بهذي الطريقه نسجل باسورد محرر الاكواد ضمن الكود 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

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

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

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

استاذ مختار تسليم ايدك كود ممتاز

السلام عليكم لا يازيزو مش للدرجة دى ده مجرد أمر عادى للاكسل لفتح محرر الأكواد ولو فيه حمايه مش هيشتغل وأنا بستعمل الكود ده كتير لسرعة فتح محرر الأكواد و تجربة الاكواد تحياتى أشكرك أخى ابراهيم أما عن الغياب والحضور دى مش مضمونه الأعمار بيد الله ومحدش ضمن الثانية اللى جايه فيها ايه ؟! تحياتى

السلام عليكم اتفضل استاذنا اتمنى ان اكون فهمت المطلوب كما يجب =IFERROR(INDEX($A$4:$A$10;MATCH(C4;$A$4:$A$10;0));INDEX($B$4:$B$10;MATCH(C4;$B$4:$B$10))) max .rar

السلام عليكم ورحمة الله وبركاته إخوتي الكرام أقدم لكم اليوم تدويناً لدروس الأخ الأستاذ العزيز إبراهيم أبو ليلة عن ( معلومات عن الـ VBA ) - الجزء الأول راجياً أن تنال إعجابكم ..كما أرجو أن يتقبلها الأخ إبراهيم كهدية بمناسبة عيد الأضحى والسلام عليكم. المعلومات المهمة عن الـ VBA 1.rar

اخي الفاضل في نهاية الصفحة ستجد كلمة Language وبجوارها سهم لاسفل اضغط عليه و اختار officena Default وستنتهي المشكلة ان شاء الله تحياتي

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

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

وعليكم السلام جرب المرفق الترحيل بشكل عمودي حسب الشهر1.rar

=currentrecord

هل هذا هو طلبك ؟ تفضل system new1.rar

selection.copy حسب التحديد الحالي واذا كنت تريد التحديد من الكود : range("f7").copy او لمجال اوسع: range("f7:f10").copy مع التنبيه على ان الخلية f17 بها معادلة فعند لصقها سيتم نسخ المعادلة مع تغير المراجع ولاخذ القيمة فقط عليك باللصق الخاص ثم لصق القيمة ! بالتوفيق مع قبول تطفلنا على اساتذة الاكسل

اخى محمد اشكرك على المعادله الجميله تقبل تحياتى

السلام عليكم كل عام وحضرتك بخير استاذنا . مشاغل كتير والله والتغيير فى شكل المنتدى اصبح التعود عليه يحتاج وقتا اليك حسب مافهمت =IFERROR(INDEX(A4:A10;MATCH(B4;$A$4:$A$10;0));SMALL(IF($B4<$A$4:$A$10;$A$4:$A$10;"");1)) max .rar

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

شرح رائع من صقر اروع

اخى مختار اين المزيد مش قولتك ما تغيب كود جميل تقبل تحياتى

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

اعضاء وزوار واساتذة منتديات اوفيسنا الكرام اقدم لكم سجل من اهم السجلات بالمدرسة وذلك بمناسبة العام الدراسي الجديد 2015 / 2016 وهو سجل التكليفات المدرسية حمل من المرفقات او من الروابط التالية : http://www.3rbco.net/do.php?id=23646 http://www.m5zn.com/d/?15997674 سجل.rar

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

شكراااا استاذ عبدالعزيز .. وكل عام وحضرتك بخير

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

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

تفضل اخي العزيز Dawrat1.rar

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

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

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

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

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

مشكور اخي حسام وصدقني نحن نتبادل الافكار وفي نفس الوقت مرجع لنا وارشيف نعود له وقت الحاجة وكلها بركاتكم ! اخي ابا عارف مارأيك بهذا السطر ونفس الحدث بعد التحديث للعميل وعلى نفس مثالك : Delegate = CurrentDb.OpenRecordset("Delegates").GetRows(CurrentDb.OpenRecordset("Delegates").RecordCount)(1, DCount("*", "Oprations") Mod DCount("*", "Delegates")) تحياتي

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

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

السلام عليكم و رحمة الله و بركاته أستاذي القدير محمد حسن المحمد .. بارك الله فيك على المبادرة الطيّبة .. والفكرة الجديدة المميّزة .. أن تتقدّم بالشكر .. وبخط بيدك و الله شيء ممتاز .. فقط لي ملاحظتيّن : 1 - نحن الذين من واجبنا أن نشكرك لما تبذله من جهد و لما تساهم به في كل الأوقات .. جزاك الله خيرًا و أمدّك بالصحّة و العافية 2 - أعجبني خطك كثيرًا .. خط روعة " بسم الله ماشاء الله " ..تأكد سيدّي المحترم من شعورنا المتبادل .. فألف شكر لك أنت أيضٌا خالص احتراماتي

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

Like [Forms]![Form1]![Text2] & "*"

اللهم اشفه انت الشافي لا شفاء الا شفائك , شفاء لا يغادر سقما اللهم اشفه انت الشافي لا شفاء الا شفائك , شفاء لا يغادر سقما اللهم اشفه انت الشافي لا شفاء الا شفائك , شفاء لا يغادر سقما اللهم اشفه انت الشافي لا شفاء الا شفائك , شفاء لا يغادر سقما اللهم اشفه انت الشافي لا شفاء الا شفائك , شفاء لا يغادر سقما اللهم اشفه انت الشافي لا شفاء الا شفائك , شفاء لا يغادر سقما اللهم اشفه انت الشافي لا شفاء الا شفائك , شفاء لا يغادر سقما

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

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

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

السيد ياسر خليل هو من عرفني بهدا المنتدى و طلب منى الانضمام اليه ... أعرفه من خلال منتدى Excel4us ... انه انسان نشيط و متحمس جدا يحب الاكسيل و ال VBA و شغوف بالتعلم ... كما أنه شخص مرح و عنده روح دعابة ادعو له بالشفاء العاجل ان شاء الله

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

الله نسألك يا ذو الجلال والإكرام ان تشافي اخونا ياسر ، اللهم ارفع عنه البأس ، اللهم صل على محمد وعلى آله وصحبه وسلم تسليما

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

و لاثراء الموضوع مرسل ملف لعمل التقديرات يتم تحديد 1) المجموع الكلي ( 100 , 80 , 50 , ........ ) 2) الحد الأدني في النظري ( 12 , 10 , .......... ) لأن هناك بعض المواد درجتها ليس 100 هناك 80 أ, 60 و الحد الأدني ليس 12 غير الحد الأدني , و درجة المادة و أنظر إلي تغير التقديرات و النتائج ======= جرب المرفقات Book1.rar

المثال مفكوك الصادر والوارد.rar

أخي ha98 الشرح مرفق مع صور في ملف وورد مع خالص تحياتي وأشكرك على شعورك الطيب مع خالص تحياتي لك وللمنتدى أعضاءاً وإدارة ___.rar