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

السلام عليكم رمضان كريم على الجميع وجدة هذا الكود الخاص بتفعيل عجلة الماوس لليست بوكس كما وجدة بأنه يعمل كذلك مع الكومبو بوكس فأردت مشاركته اياكم لتعميم الفائدة وانا بصراحة اعجبني حيث انه يصبح من السهل تصفح البينات خاصتا عندما تكون كبيرة كل ما عليكم وضع هذا الكود في موديل عادي Option Explicit Private Type POINTAPI X As Long Y As Long End Type Private Type MOUSEHOOKSTRUCT pt As POINTAPI hwnd As Long wHitTestCode As Long dwExtraInfo As Long End Type Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32.dll" _ Alias "GetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex 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 CallNextHookEx Lib "user32" ( _ ByVal hHook As Long, _ ByVal nCode As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" ( _ ByVal hHook As Long) As Long Private Declare Function WindowFromPoint Lib "user32" ( _ ByVal xPoint As Long, _ ByVal yPoint As Long) As Long Private Declare Function GetCursorPos Lib "user32.dll" ( _ ByRef lpPoint As POINTAPI) As Long Private Const WH_MOUSE_LL As Long = 14 Private Const WM_MOUSEWHEEL As Long = &H20A Private Const HC_ACTION As Long = 0 Private Const GWL_HINSTANCE As Long = (-6) Private mLngMouseHook As Long Private mListBoxHwnd As Long Private mbHook As Boolean Private mCtl As MSForms.Control Dim n As Long Sub HookListBoxScroll(frm As Object, ctl As MSForms.Control) Dim lngAppInst As Long Dim hwndUnderCursor As Long Dim tPT As POINTAPI GetCursorPos tPT hwndUnderCursor = WindowFromPoint(tPT.X, tPT.Y) If Not frm.ActiveControl Is ctl Then ctl.SetFocus End If If mListBoxHwnd <> hwndUnderCursor Then UnhookListBoxScroll Set mCtl = ctl mListBoxHwnd = hwndUnderCursor lngAppInst = GetWindowLong(mListBoxHwnd, GWL_HINSTANCE) If Not mbHook Then mLngMouseHook = SetWindowsHookEx( _ WH_MOUSE_LL, AddressOf MouseProc, lngAppInst, 0) mbHook = mLngMouseHook <> 0 End If End If End Sub Sub UnhookListBoxScroll() If mbHook Then Set mCtl = Nothing UnhookWindowsHookEx mLngMouseHook mLngMouseHook = 0 mListBoxHwnd = 0 mbHook = False End If End Sub Private Function MouseProc( _ ByVal nCode As Long, ByVal wParam As Long, _ ByRef lParam As MOUSEHOOKSTRUCT) As Long Dim idx As Long On Error GoTo errH If (nCode = HC_ACTION) Then If WindowFromPoint(lParam.pt.X, lParam.pt.Y) = mListBoxHwnd Then If wParam = WM_MOUSEWHEEL Then MouseProc = True If lParam.hwnd > 0 Then idx = -1 Else idx = 1 idx = idx + mCtl.TopIndex If idx >= 0 Then mCtl.TopIndex = idx Exit Function End If Else UnhookListBoxScroll End If End If MouseProc = CallNextHookEx( _ mLngMouseHook, nCode, wParam, ByVal lParam) Exit Function errH: UnhookListBoxScroll End Function ثم في حدث MouseMove بالنسبة للكومبوبوكس ضع هذا الكود HookListBoxScroll Me, Me.ComboBox1 اما بالنسبة لليست بوكس في حدث MouseDown ضع هذا الكود HookListBoxScroll Me, Me.ListBox1 وفي الاخير في حدث UserForm_QueryClose ضع هذا الكود UnhookListBoxScroll ارجو ان يفيدكم الموضوع قبل الله صيام الجميع تفعيل عجلة الماوس.rar

السلام عليكم ورحمة الله وبركاته الصلاة والسلام علي رسول الله سيدنا محمد النبي الامي اما بعد كل سنه وحضراتكم بخير بمناسبة شهر رمضان الكريم اعاده عليكم وعلي الامه الاسلامية بالخير والبركات وحفظ الله مصر الحبيبه في هذه الايام المباركة وصل الله علي نبينا محمد حصريا كورس access 2010 شرح باللغه العربية صوت وصوره من شركة pc lab الشركة المنتجة شركة pc lab academy الشرح باللغه العربية برنامج Access 2010 التحميل حجم الكورس 67 ميجا مرفوعه علي مركز الخليج 7 روابط كل رابط 10 ميجا ماعدا الاخير 5 ميجا 1 2 3 4 5 6 7 جزى الله كل من كانت له بصمه في هذا العمل العظيم اتمني من الله لحضراتكم التوفيق الرفع من اخيكم خيالووو

ال RSS أو Really Simple Syndication هي خاصية تمكنك من متابعة المنتديات و المجلات على الويب من خلال الاوتلوك 2007 فمن خلال الاشتراك فى اي قناة تتلقي التحديثات بصورة منتظمة على الاوتلوك RSS للمنتدي http://www.officena.net/ib/index.php?app=core&module=global&section=rss&type=forums&id=15 و يمكن الوصول اليه من الوصلة البرتقالية اعلي يسار المنتدى و خطوات الاضافة الي الاوتلوك كالتالي: او اختار وصلة ال RSS فى الاوتولك ثم اختار ADD a new RSS feed ضع وصلة ال RSS المطلوب اضغط Add ثم ok ستجد أن الاضافة قد تمت و ستري المواضيع من خلال البريد و ستتلقون الوصلة بانتظام على البريد ، و يمكنكم الوصول اليها فى أي وقت على من خلال الزر البرتقالي أسفل المنتدى

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

السلام عليكم ورحمة الله وبركاته اللعبه اسمها سيارات المدينه الجزء 2 2 MidTown Madness اللعبه ذي تتميز بالحريه يعني هجول وفرفر على كيفك في الشوارع وفوق السطوح يعني ماتتقيد بمسار معين تكسر اشجار تصدم بيبان تكسرها والله فلللله واحسن مافيها الجرافيك الخاص فيها مناظر روعه وحركات كل يوم تكتشفها ومداخل سريه اللعبه رووووعه انصحكم اللي ماجربتها يجربها المهم ما اطول عليكم رفعتها ع الفورشيرد وهذي صور من اللعبه هذا رابط تحميل اللعبه http://adf.ly/S0Xnf صور من اللعبه ..

السلام عليكم شباب تكفون ابي مساعدة للتعديل على الكود الاتي . ويا ريت لو فيه شرح ولو بسيط عن كيفية التعديل . لانه انا جربت اعدل علية لكن فشلت Sub sama1() Dim LastR As Long Dim SText As String Dim StDate As Date Dim EndDate As Date Dim LastR1 As Long Application.ScreenUpdating = False Sheets("ßÔÝ ÇáÍÓÇÈ").Range("A5:h10000").ClearContents SText = Sheets("ßÔÝ ÇáÍÓÇÈ").Range("B1") StDate = Sheets("ßÔÝ ÇáÍÓÇÈ").Range("B2") EndDate = Sheets("ßÔÝ ÇáÍÓÇÈ").Range("B3") LastR1 = Sheets("DATA").Cells(Rows.Count, 3).End(xlUp).Row Sheets("DATA").Range("A3:h" & LastR1).AutoFilter Field:=7, Criteria1:=SText Sheets("DATA").Range("A3:h" & LastR1).AutoFilter Field:=3, Criteria1:=">=" & Format(StDate, "mm/dd/yy"), Operator:=xlAnd, _ Criteria2:="<=" & Format(EndDate, "mm/dd/yy") LastR = Sheets("DATA").Cells(Rows.Count, 3).End(xlUp).Row Sheets("DATA").Range("A3:h" & LastR).SpecialCells(xlCellTypeVisible).Copy Sheets("ßÔÝ ÇáÍÓÇÈ").Range("A5").PasteSpecial Sheets("ßÔÝ ÇáÍÓÇÈ").Range("A5").Select Sheets("DATA").Range("A3:h3").AutoFilter Application.ScreenUpdating = True End Sub هو موجود في الملف (استخراج كشف حساب بالاكواد ) . واذا كان غير ممكن ان يعمل مع ملفي ياريت لو فيه طريقة اخرى . مطلوب تعديل على الكود.rar استخراج كشف حساب بالاكواد.rar

السلام عليكم تفضل المرفق 2010 انشاء اوراق بالحسابات.rar

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

بسم الله الرحمن الرحيم كل عام وانتم بخير يارب ورمضان كريم عليكم جميعا اخواني الغالين عدت اليكم اليوم وقد انتهيت من مقدمة المبتدئين و بدأنا في دروس الإحتراف الظل من اجمل التأثيرات التي توضع على التصاميم فهي تعطي شكل ورونق جمييييييييييل جدا وودرسنا اليوم سوف يغير نظرتك للظل أكثر وان شاء الله تستفيدون :) تفضلو الدرس .. https://www.youtube.com/watch?v=KYyv7ZWnE4E اخوكم : علي آل شعله

الساده الخبراء مفاجاه خطيره وجدت هذا العمل الرهيب على النت جدول الضرب عمل فوق الممتاز http://www.4shared.com/rar/lKN7V4kV/jadwal_aldirb.html هذا رابط الملف للاستفادة للجميع لم ينفع تحميلة على الموقع لكبر حجمه

السلام عليكم ورحمة الله وبركاته كيف يمكنني الكتابة بالعربي في الفيزو(اسماء الرموز مثلا)

(اضغط على الصورة لعرضها بحجمها الأصلي)

النشرة الدورية - العدد الأول النشرة الدورية - العدد الثاني النشرة الدورية - العدد الثالث النشرة الدورية - العدد الرابع النشرة الدورية - العدد الخامس النشرة الدورية - العدد السادس النشرة الدورية - العدد السابع النشرة الدورية - العدد الثامن (عدد خاص) النشرة الدورية - العدد التاسع النشرة الدورية - العدد العاشر (عدد خاص) النشرة الدورية - العدد الحادي عشر النشرة الدورية - العدد الثاني عشر النشرة الدورية - العدد الثالث عشر النشرة الدورية - العدد الرابع عشر النشرة الدورية - العدد الخامس عشر

مشكور اخوى على الشرح