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

بسم الله الرحمن الرحيم اساتذتى الكرام السلام عليكم ورحمة الله وبركاته ارجو عمل دالة لاستخراج العشرة الاوائل من الشيت مع ملاحظة انى اريدها بعد اذنكم الدالة مع الشرح بمعنى أهمية كل جزء فى الدالة وتعريفه لأنى لااريد عمل copy ,and paste لها اريد أن افهمها واكتبها وكذلك دالة الاحصاء المدرسي ناجح وراسب ودور تانى وانا اسف لا تعطينى ثمرة لأكلها ولكن علمنى كيف ازرع شجرة

السلام عليكم قوائم مخصصة على الفورم باستخدام كومندبار مع اضافة قوائم فرعية (اختياري) القوائم الرئيسية هي النطاقات المسمى باسم الليبلات النطاق الاول: Lbl_ST_1 النطاق الثاني: Lbl_ST_2 النطاق الثالث: Lbl_ST_3 النطاق الرابع: Lbl_ST_4 اذا اردت زيادة قائمة اخرى اضف جدول آخر وسميه Lbl_ST_5 واضف ليبل آخر بنفس التسمية واعمل له كودين مشابهين لاكواد الليبلات الاخرى مع تغيير الرقم الى 5 مثال : الكود الاول Private Sub Lbl_ST_5_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) kh_AddBar sNeme & 5 End Sub الكود الثاني Private Sub Lbl_ST_5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) kh_Set1 sNeme & 5 End Sub وهكذا اذا اردت اضافة ليبل آخر القوائم الفرعية تحتاج فقط لاضافتها اضافة نطاق وسميه باي اسم وضع هذا الاسم في القائمة الذي تريد اظهار القائمة الفرعية فيها مع وضع العلامة <<< لكي يفهم الكود انها قائمة . ويمكنك اضافة قائمة فرعية بداخل قائمة فرعية اخرى. يمكنك ايضا التحكم في النطاقات بادخال ما تريده من اكواد او الحذف او الاضافة . ================================================ لاختيار ارقام صور الكومندبار حمل الملف التالي http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=58279 ================================================ المرفق 2003-2010 قوائم مخصصة على الفورم باستخدام كومندبار+2.rar

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء وفي الدرس القادم سنتعرف علي بعض الاكواد المعاونة لشاشة الادخال او بمعني ادق اكواد نحتاجها مع شاشة الادخال مثل (تنسيق التكست بوكس ، الترقيم التلقائي في تكست معين ، تنسيق التاريخ في التكست بوكس .... ) واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 3 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال 1.rar فيديو 1 .. طريقة عمل شاشة ادخال 1.rar الملف الفيديو الثاني والثالث في المشاركة التالية حيث لم يمكنني اضافتهم هنا

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

بناء علي طلب اخي الحبيب// محمد مصطفى ابو حمزة في موضوع (كود طباعة كل الورق) المشاركة رقم (9) علي الرابط http://www.officena.net/ib/index.php?showtopic=47355 ففضلت ان تكون موضوع منفصل حتي تعم الفائدة مع امكانية اختيار الطابعة اذا كانت اكثر من طابعة مثبتة علي الجهاز الفورم بالمرفقات Print List.rar

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

اسعد الله اوقاتكم بكل خير لدي سيرفر 2008 وعليه SQL 2008 واعمل باكب يومي على السيرفر نفسه. توصلت الى طريقه انسخ من السيرفر الى الجهاز الشخصي عن طريق التعليمة Robocopy في ملف باتش وهي تعمل بشكل ممتاز. المشكلة اذا اسم الفولدر عربي ﻻ ينفذ هذه التعليمة، يقول غير موجود !!! فهل يوجد حل لمشكلة العربي ؟؟؟ مع تحياتي

السلام عليكم ورحمة الله وبركاته اخوتي في الله من على هذا المنبر الطيب نذكر بعضنا بالله ، ونخصص هذه... View the full article

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

السلام عليكم و رحمة الله وبركاته.... لو سمحتم اذا أحد يعرف طريقة لتجاوز ادخال الحد الاقصى لقيمة الساعات عن طريق استخدام التنسيقh] :mm ] علما كما هو معروف ان القيمة القصوى هي : Largest amount of time that can be entered 9999:59:59 وجدت طريقة لكنها غير عملية بااستخدام الفورملا: =[h]/24+"00:mm" فهل هناك طريقة مثلا بااستخدام فورم يقوم بعملية التحويل آليا القيم المطلوبة ؟؟؟ مع الشكر الجزيل....

بارك الله فيك اخي الكريم / رائد جزاك الله خيرا

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

السلام عليكم الاخ الكريم / رائد بارك الله فيك هل تقصد هكذا الغاء علامة X من ترويسة الفورم.rar

السلام عليكم شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=40957

السلام عليكم الاخ الكريم / رائد بارك الله فيك الحمد لله ان هداك لما تريد وتوصلت للمطلوب جزاك الله خيرا

السلام عليكم الاخ الكريم / رائد بارك الله فيك اولا : اخي الكريم لاظهار الفورم عند فتح الملف يجب عليك وضع الكود التالي في حدث ThisWorkbook Private Sub Workbook_Open() UserForm1.Show End Sub ثانيا : لاظهار الفورم عن طريق استخدام الزر في داخل الملف ... قم بوضع هذا الكود في مودل جديد مثلا Sub sama() UserForm1.Show End Sub ثالثا : للقيام بجعل الفورم يختفي تدريجيا نقوم بوضع الاكواد التاليه في اكواد الفورم نفسه ... وهي كالتالي Option Explicit Private Declare Function GetActiveWindow Lib "USER32" () As Long Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" _ (ByVal hWnd As Long, _ ByVal lngWinIdx As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" _ (ByVal hWnd As Long, _ ByVal lngWinIdx As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "USER32" _ (ByVal hWnd As Long, _ ByVal crKey As Integer, _ ByVal bAlpha As Integer, _ ByVal dwFlags As Long) As Long Private Const WS_EX_LAYERED = &H80000 Private Const LWA_ALPHA = &H2 Private Const GWL_EXSTYLE = &HFFEC Dim hWnd As Long Dim Transparancy As Integer Dim Running As Boolean Private Sub CommandButton1_Click() Unload Me End Sub Private Sub UserForm_Activate() Running = True Call Transparency End Sub Private Sub Transparency() Dim MyTimer As Double DoEvents MyTimer = Timer Do Do Loop While Timer - MyTimer < 0.07 MyTimer = Timer Transparancy = Transparancy - 1 If Transparancy < 0 Then Unload Me Else Call SemiTransparent(Application.WorksheetFunction.Min(Transparancy, 100)) End If DoEvents Loop While Running End Sub Private Sub SemiTransparent(ByVal intLevel As Integer) Dim lngWinIdx As Long hWnd = GetActiveWindow lngWinIdx = GetWindowLong(hWnd, GWL_EXSTYLE) SetWindowLong hWnd, GWL_EXSTYLE, lngWinIdx Or WS_EX_LAYERED SetLayeredWindowAttributes hWnd, 0, (255 * intLevel) / 100, LWA_ALPHA End Sub Private Sub UserForm_Initialize() Transparancy = 120 Call SemiTransparent(100) DoEvents End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Running = False End Sub وبذلك سيعمل معك الفورم بالشكل الذي تريده ويظهر في بداية تشغيل الملف ثم يختفي تدريجيا وعند الضغط علي الزر بداخل الملف سيظهر الفورم ثم يختفي تدريجيا ايضا ارجو ان يكون هذا هو طلبك ... واليك الملف المرفق به الاكواد السابقة جزاك الله خيرا فورم يختفي بشكل تدريجي1.rar

السلام عليكم الأخ الحبيب / حسام غباشى بارك الله فيك تفضل اخي الكود المطلوب ... ارجو ان يكون ما تريد تماما اولا : ضع الكود التالي في حدث ThisWorkbook Private Sub Workbook_Open() ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False End Sub ثانيا : قم بوضع الكود التالي في موديل واربطه بزر في اي ورقة تريدها ليمكنك اضافة اوراق عند الضغط علي هذا الزر ولن يسمح لك باضافة اوراق الا بعد كتابة الرقم السري الصحيح ... ليمكنك اضافة اوراق كما تريد Sub sama() Dim pwd As String: pwd = "123" If Application.InputBox("برجاء ادخال كلمة المرور ليمكنك اضافة اوراق عمل جديدة", "تصريح اضافة ورقة عمل جديدة", "???") <> pwd Then MsgBox " كلمة المرور غير صحيحة !! من فضلك راجع مسئول النظام ", 0, "عفوا الدخول محظور" ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False Else MsgBox "مرحبا بك !! كلمة المرور صحيحة !! يمكنك الآن اضافة ما تريد", 32, "دخول ناجح" ActiveWorkbook.Unprotect Password:="123" End If End Sub باسورد اضافة الاوراق : 123 جرب ذلك ... وفي انتظار ردك جزاك الله خيرا كود لمنع ادراج اوراق عمل جديدة والاضافة برقم سري.rar

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

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

السلام عليكم اخي الكريم , جرب بدل الاكواد السابقة بهذه الاكواد و اخبرني بالنتيجة . Private Sub CommandButton20_Click() ListBox1.Clear If TextBox35.Text <> "" Then ListBox1.ColumnCount = 2 ListBox1.ColumnWidths = "100;0" If Application.WorksheetFunction.CountIf(Range("C2:c" & Range("c" & Rows.Count).End(xlUp).Row), "*" & TextBox35.Text & "*") > 0 Then Application.ScreenUpdating = False Dim arr() Range("C2:c" & Range("c" & Rows.Count).End(xlUp).Row).AutoFilter Field:=1, Criteria1:="=*" & TextBox35.Text & "*" ReDim arr(1 To 2, 1 To Range("C2:c" & Range("c" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Cells.Count) For Each c In Range("C3:c" & Range("c" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible) arr(1, x + 1) = c.Value arr(2, x + 1) = c.Row x = x + 1 Next [a1].AutoFilter Application.ScreenUpdating = True ListBox1.Column = arr End If End If End Sub Private Sub CommandButton21_Click() ListBox1.Clear If TextBox33.Text <> "" Then ListBox1.ColumnCount = 2 ListBox1.ColumnWidths = "100;0" If Application.WorksheetFunction.CountIf(Range("C2:c" & Range("c" & Rows.Count).End(xlUp).Row), TextBox33.Text & "*") > 0 Then Application.ScreenUpdating = False Dim arr() Range("C2:c" & Range("c" & Rows.Count).End(xlUp).Row).AutoFilter Field:=1, Criteria1:="=" & TextBox33.Text & "*" ReDim arr(1 To 2, 1 To Range("C2:c" & Range("c" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Cells.Count) For Each c In Range("C3:c" & Range("c" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible) arr(1, x + 1) = c.Value arr(2, x + 1) = c.Row x = x + 1 Next [a1].AutoFilter Application.ScreenUpdating = True ListBox1.Column = arr End If End If End Sub Private Sub ListBox1_Click() i = ListBox1.List(ListBox1.ListIndex, 1) For R = 1 To 10 Me.Controls("TextBox" & R).Value = Sheet1.Cells(i, R).Value Next End Sub Private Sub CommandButton19_Click() i = ListBox1.List(ListBox1.ListIndex, 1) Cells(i, 1).Select sama = MsgBox("åá ÊÑíÏ ÇáÐåÇÈ ááÇÓã ÇáãÍÏÏ ÇáÐí ÞãÊ ÈÇÎÊíÇÑå", vbYesNo, "ÑÓÇáÉ ÊÃßíÏ") If sama = vbYes Then UserForm1.Hide Else Exit Sub End If End Sub تحياتي

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

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

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

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

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

أحسنت وبارك الله فيك جزاك الله خيرا