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

السلام عليكم ورحمة الله وبركاته رايت هناك حاجة لشرح بعض أدوات الفورم لاخواني بالمنتدي حتي يتمكنوا من معرفة كل اداة ووظيفتها ومثال عليها لكي يتمكنوا من عمل فورم بانفسهم وسوف ابدا خطوة خطوة بشرح كل اداة بمثال عملي الدرس الأول Tree View Control وهي تقوم بعرض البيانات علي صورة شجرة مثال الشرح والتطبيق بالمرفقات TreeViewControl.rar

السلام عليكم ورحمة الله وبركاته اخواني الأعزاء طرحت مسبقا لنموذج فاتورة عربي ونموذج فاتورة انجليزي لكن اليوم سوف اتناول الفاتورة بشكل وفكر جديد حتي تخدم شريحة كبيرة من المستخدمين مع حركات اخي الحبيب / شوقي ربيـع الجديد في النموذج فورم واحد ولكن يمكنك من خلاله الاختيار بين لغة الفاتورة (عربي - انجليزي ) ولغة الايصال (عربي - انجليزي) اختيار سهل للاصناف اختيار طريقة السداد بيان رصيد العميل واترككم مع النموذج أدعو الله سبحانه وتعالي ان يكون النموذج فيه الفائدة لكم ولا تنسونا بدعائكم بصلاح الحال بظهر الغيب فاتورة مبيعات اوفيسنا_2.rar

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

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

السلام عليكم ورحمة الله وبركاته جمعة مباركة لعبة التركيز الاصدار 2 مع امكانية تغيير الصور اثناء التصميم من داخل الفورم هدية لاخي الحبيب / رجب جاويش المرفق 2003-2010 لعبة التركيز2.rar

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

البرنامج بعد اضافه بحث ابو خليل اتمنى ان يكون المطلوب وشكرا اخوك اشرف موظفين صيانة الاليات3.rar

السلام عليكم الاخ الكريم / aburajai بارك الله فيك لتنفيذ ما تريده قم بوضع الاكواد التاليه باكواد الفورم واليك ملف مرفق به فورم مع الاكواد المذكورة لالغاء الشريط الازرق من الفورم ( ترويسه الفورم ) 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 DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Const GWL_STYLE = -16 Const WS_CAPTION = &HC00000 Const WS_SYSMENU = &H80000 Private Sub UserForm_Initialize() On Error Resume Next Dim lngWindow As Long, lFrmHdl As Long lFrmHdl = FindWindow(vbNullString, Me.Caption) lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE) lngWindow = lngWindow And (Not WS_CAPTION) Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow) Call DrawMenuBar(lFrmHdl) End Sub Private Sub CommandButton1_Click() End End Sub جزاك الله خيرا الغاء الترويسه من الفورم.rar

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

السلام عليكم أختنا الفاضلة يحدث هذا الخطأ نتيجة عدم وجود رقم سري بهذه القيمة أصلا في ورقة النتائج (Sheet1) ولتلافي هذا غيري المعادلة من =MATCH(Q6,Sheet1!D:D) إلي =MATCH(Q6,Sheet1!D:D,0) ولكن سيعطي لك خطأ في هذه الحالة إذا لم يكن الرقم السري موجود قد تضطرين في بعض الحالات لمليء بيانات الرقم السري للشهادات الخمس يدويا ثم تعيدين صيغة =Q6+1 بعد ذلك إذا كانت الأرقام السرية غير منتظمة ========================== ولشرح الدالة السابقة فإن دالة MATCH تقبل بالبحث التقريبي أو الدقيق دالة MATCH يعقبها (بين القوسين) ثلاثة معاملات الأول والثاني إلزاميين والأخير اختياري وهي تبحث عن الأول في مجال الثاني المعامل الثالث (الإختياري) يأخذ إحدي قيمتين 0،1 أو False, True وحيث أنه إختياري فيتم فرضه 1 أو True في حالة لم يتم إختياره وهذا المعامل الثالث (الإختياري) يجعل الدالة تأخذ بالتقريب إذا كان 1 أو True وتأخذ بالدقة إذا كان 0 أو False ونرجع للملف الرقم السري 645 غير موجود بالعمود D:D في Sheet1 إذا مررت بالعمود D:D من أعلي للأسفل ستجدي أن أول رقم يتجاوز الـ 645 هو 651 والموجود بالصف 1107 وصعودا منه للأعلي ستجدين ان أول صف به أرقام هو 1060 وهو ماتحصلين عليه نتيجة التقريب كل هذا الشرح ليس له مجال الآن ولكني فقط أردت ان تعرفي جيدا استخدام تلك الدالة الرائعة

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

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

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

السلام عليكم بارك الله فيكم جمعة مباركة عليكم وعلي الامة الاسلاميه اجمعين هذه مجموعة اخري من مجموعة اكواد ActiveCell( 39 الموجودة بالموقع المذكور والتي تتعلق فقط باستخدامات الخليه النشطة فقط وسأقدم لكم عدد 10 اكواد الثانية منها ( وان شاء الله نكملها سوياً ) ... ولكن عذرا حسب الوقت المتاح ومرفق ملف اكسيل به 10 ازرار لمشاهدة طريقة عمل الاكواد التاليه كل كود بزر اليك التالي : =================== 11- كود يقوم بتحديد الصف بداية من الخليه النشطه الموجود بها المؤشر ويحدد الصف الي نهايته ( اليمين ) اي بداية من الخليه النشطة لنهاية الصف Sub SelectToRight() Range(ActiveCell, ActiveCell.End(xlToRight)).Select End Sub 12- كود يقوم بتحديد الصف بداية من الخليه النشطه الموجود بها المؤشر ويحدد الصف الي نهايته ( اليسار ) اي بداية من الخليه النشطة لنهاية الصف Sub SelectToLeft() Range(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub 13- كود لاختيار النطاق الموجود به الخليه النشطة من خلايا مجاورة ( في الملف المرفق جرب وضع التحديد علي الخليه الحمراء ثم اضغط وشاهد النتيجة ) Sub SelectCurrentRegion() ActiveCell.CurrentRegion.Select End Sub 14- كود لتحديد النطاق الموجود به بيانات في الشيت بداية من الخليه A1 Sub SelectActiveArea() Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select End Sub 15- كود للانتقال من الخليه النشطة الي الخليه الفارغة التي تليها ( في نفس العمود ) فان لم تكن فارغة ينتقل المؤشر لاول خليه فارغة في نفس العمود لتصبح اول خليه فارغة بعد الخليه النشطة Sub ActivateNextBlankDown() ActiveCell.offset(1, 0).Select Do While Not IsEmpty(ActiveCell) ActiveCell.offset(1, 0).Select Loop End Sub 16- كود للانتقال من الخليه النشطة الي الخليه الفارغة التي تليها ( في نفس الصف ناحية اليمين ) فان لم تكن فارغة ينتقل المؤشر لاول خليه فارغة في نفس الصف يمينا لتصبح اول خليه فارغة بعد الخليه النشطة Sub ActivateNextBlankToRight() ActiveCell.offset(0, 1).Select Do While Not IsEmpty(ActiveCell) ActiveCell.offset(0, 1).Select Loop End Sub 17- كود يجعل قيمة الخليه النشطة تساوي قيمة الخليه المجاورة لها بضغطة زر Sub SwapTextWithCellOnRight() Dim CellContent CellContent = ActiveCell.Value ActiveCell.Value = ActiveCell.offset(0, 1).Value End Sub 18- كود يعمل عكس الكود السابق اي يجعل قيمة الخليه المجاورة للخليه النشطة هي التي تساوي قيمة الخليه النشطة ( جرب ذلك ) Sub SwapTextWithCellOnRight1() Dim CellContent CellContent = ActiveCell.Value ActiveCell.offset(0, 1).Value = CellContent End Sub 19- كود يعمل علي انه اذا كانت قيمة الخليه النشطة اكبر من 100 بضغطة زر يجعل الخليه النشطة تساوي 100 واذا كانت القيمة اقل من 100 يتجاهل الامر ويتركها كما هي ( في الملف المرفق حدد الخليه الصفراء G8 واضغط الزر) Sub MyMacro() If ActiveCell.Value > 100 Then ActiveCell.Value = 100 End If End Sub 20 - كود يقوم بجعل قيمة الخليه المجاورة للخليه النشطة باستخدام if, ElseIf and Else مع الخليه النشطة 1- اذا كانت قيمة الخليه النشطة اكبر 1000 يكون الناتج قيمة الخليه النشطة × 0.05 2- اذا كانت قيمة الخليه النشطة اكبر 500 يكون الناتج قيمة الخليه النشطة × 0.025 3- ان لم يتحقق الشرطان السابقان في الخليه النشطة اجعل قيمة الخليه المجاورة تساوي 5 جرب ذلك في الملف المرفق باستخدام قيم جدول 1 .. حدد خلاياه بالترتيب واضغط الزر وشاهد الفرق Sub MyMacro1() If ActiveCell.Value > 1000 Then ActiveCell.offset(0, 1).Value = ActiveCell.Value * 0.05 ElseIf ActiveCell.Value > 500 Then ActiveCell.offset(0, 1).Value = ActiveCell.Value * 0.025 Else ActiveCell.offset(0, 1).Value = 5 End If End Sub ارجو ان اكون وفقت في تقديم المطلوب جزاك الله خيرا مجموعة اكواد 10 خاصة بالخليه النشطة2.rar

السلام عليكم الاخ الكريم / مصطفى كامل بارك الله فيك بالفعل موقع به اكواد كثيرة وتفيد الجميع في حالات كثيرة ... ولكن اخي الكريم القيام بترجمه هذا الكم الكبير من الاكواد امر من الصعب تنفيذه حيث انها كثيره بالفعل وساقوم بتقديم هذه المجموعة الموجوده في الموقع باسم ActiveCell( 39 وكما تشاهد فهذه المجموعة فقط بها عدد 39 كود لكل منها وظيفة مختلفة وهذه المجموعة المذكورة تتعلق فقط باستخدامات الخليه النشطة فقط وسأقدم لكم عدد 10 اكواد الاولي منها ( وان شاء الله نكملها سوياً ) ... ولكن عذرا حسب الوقت المتاح ومرفق ملف اكسيل به 10 ازرار لمشاهدة طريقة عمل الاكواد التاليه كل كود بزر اليك التالي : ====================== 1- كود للانتقال لخليه اخري بعد الخليه النشطة باربعة اعمدة وصفين للاعلي Sub offset() ActiveCell.offset(RowOffset:=-2, ColumnOffset:=4).Activate End Sub 2- كود لكتابة كلمة معينة ( Hello World! ) في الخليه النشطة Sub MyMacro() ActiveCell.Value = "Hello World!" End Sub 3- كود لكتابة كلمة ( INVALID: ) في الخليه النشطة قبل قيمتها اي تأخذ قيمة الخليه النشطة ويتم كتابتها + الكلمة المحددة Sub MyMacro1() ActiveCell.Value = "INVALID: " & ActiveCell.Value End Sub 4- كود لتجميع نطاق معين في الخلية النشطة وهو هنا النطاق من A1:A5 Sub fomula() ActiveCell.Formula = "=SUM($A$1:$A$5)" End Sub 5- كود يجعل قيمة الخلية النشطة تكون كالتالي قيمة الخلية النشطة نفسها × 2 - 1 Sub MyMacro2() ActiveCell.Value = (ActiveCell.Value * 2) - 1 End Sub 6- كود يجعل قيمة الخلية النشطة تكون Top cell وقيمة الخليه اسفلها كلمة Bottom cell Sub MyMacro3() ActiveCell.Value = "Top cell" ActiveCell.offset(1, 0) = "Bottom cell" End Sub 7- كود يجعل قيمة الخلية النشطة تكون Top cell وقيمة الخليه اسفلها كلمة Bottom cell ولكن بطريقة اخري ويمكن التكرار Sub MyMacro4() ActiveCell.Value = "Top cell" ActiveCell.offset(1, 0).Select ActiveCell.Value = "Bottom cell" End Sub 8- كود لتحديد عنوان الخليه النشطة وذلك في رسالة توضح ذلك Sub selectRange() MsgBox ActiveCell.Address End Sub 9- كود ينتقل من الخلية النشطة الي الاسفل بعدد 10 صفوف اي من الصف رقم 1 الي الصف رقم 11 ثم الصف رقم 21 وهكذا .. Sub DownTen() ActiveCell.offset(10, 0).Select End Sub 10- كود يقوم بتحديد العمود بداية من الخليه النشطه الموجود بها المؤشر ويحدد لاعلي العمود اي بداية من الخليه النشطة لاعلي الصفحة Sub SelectUp() Range(ActiveCell, ActiveCell.End(xlUp)).Select End Sub ارجو ان اكون وفقت في تقديم المطلوب جزاك الله خيرا مجموعة اكواد 10 خاصة بالخليه النشطة.rar

السلام عليكم 1-عند فتح نموذج RequestHolidays وطلب اجازه فانه لا يحفظها في السجل ولا تظهر في التقرير 2- عند فتح نموذج BackFroHolyYearly وعمل اشعار عوده وحفظها فانها لا تظهر في التقرير وانما يظهر اول سجل في الجدول اجازات.rar

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

السلام عليكم و رحمة الله و بركاته اخي الحبيب الاستاذ الكبير / حماده عمر يمكنك الاستاعنه بمواقع بها قوالب جاهزه على سبيل المثال : http://www.wix.com/ او http://www.weebly.com/ ولي تصميم متواضع على weebly تجده على الرابط التالي : http://aaleraky.weebly.com/ و الله المستعان و السلام عليكم و رحمة الله و بركاته

مش عارف اقلك ايه يا استاذنا الكبير رائع ومحترم تم حل المشكلة بس ليه العنوان في اليوزر فورم بيظهر بنفس الكلام الغير مفهوم

جرب هذه الطريقة في محرر الاكواد من قائمة Tools ثم Option من تاب Editor Format ثم Font اختر نوع الخط هذا Courier New (Arabic)

السلام عليكم تفضل يا أخى 5.rar

أخى الفاضل / عباس السماوى بعد التحية عذرا لهذا السهو برجاء استبدال السطر التالى For I = Range("E1") To Range("F1") بالسطر التالى For I = Range("E1") To Range("F1") Step 2 وكل عام وأنتم بخير

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال... أخي الكريم وأستسمح أخي العزيز رجب لأقوم بتغيير طفيف على كوده حسب المطلوب الجديد... في الكود الخاص بطباعة المحدد عليك تغيير السطر For I = Range("E1") To Range("F1") بالسطر For I = Range("E1") To Range("F1") Step 2 والله أعلم

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