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

بسم الله الرخمان الرحيم السلام عليكم ورحمة الله وبركاته لاحظتُ من خلال تصفحي للمنتدى شح المعلومات عن عنصر التحكم List View على عكس list Box برغم انه يمكن التعامل مع الاولى مثلما نتعامل مع List Box لذى بادرت بهذا المرفق الذي جمعت فيه ما استطعت من معلومات لكيفية التعامل مع ListView أرجو ان اكون قد وفقت ولو قليلا في شرح هذه الاداة كما ارجو ان تعم فائدته الجميع ملاحضة هامة المشكلة الوحيدة في عنصر التحكم ListView هي انه يمكن ان يحدث خطأ أثناء فتح الملف وذالك لعدم توافق النسخة المستعملة في المرفق مع النسخة التي عند الذي يحدث عنده الخطاء لذلك ارفقت ملفين احدهما يحوي الشرح للاكواد فقط دون امثلة عملية اما الثاني يحوي الامثلة العملية مع تحيات اخوكم في الله شوقي ربيع درس في التعامل مع istviewبدون امثلة عملية.rar درس في التعامل مع istview 2007 مع امثلة عملية.rar

تحكم فى عواميد رصدك من الأن أغلق عمودك المجاور لعمود رصد ولاتخطأ فى الرصد بعد الأن المرفق الثانى نفس المرفق الأول ولكن بتنسيقات أكثر لتأكيد الغلق كيف تغلق العمود قبل و بعد رصدك.rar كيف تغلق العمود قبل بعد رصدك 2.rar

الاخ الكريم / أبو شرف بارك الله فيك بالنسبة لهذا الطلب ... بتنفيذ ذلك في ملف آخر اولا : قم بتصميم زر في صفحة الاكسيل في الملف الذي تريده ثم ضع الكود التالي في حدث الورقة التي تريد ظهور الزر فيها Private Sub Worksheet_SelectionChange(ByVal Target As Range) Me.CommandButton1.Visible = False If Target.Column = 8 Then If Target.Row > 1 And Target.Row < 10000 Then Me.CommandButton1.Top = Target.Top Me.CommandButton1.Left = Target.Left Me.CommandButton1.Visible = True End If End If End Sub ويتم تحديد العمود المراد ظهور الزر فيه من خلال السطر ... حيث انه هنا العمود رقم 8 If Target.Column = 8 Then ثم يتم تحديد في نفس الكود بداية ونهاية ظهور الزر ... اي من الصف رقم كذا ... الي الصف رقم كذا ...من خلال هذا السطر If Target.Row > 1 And Target.Row < 10000 Then وتقوم ايضا بوضع كود لاظهار الفورم المطلوب ( وهو هنا Go11 ) في حدث الزر نفسه كما يلي Private Sub CommandButton1_Click() Go11.Show End Sub ثم نضع الكود التالي في زر الترحيل الموجود في الفورم المذكور Private Sub CommandButton3_Click() Dim LR As Long ActiveCell.EntireRow.Copy If Not Cmb_NameSheet.Text = "" Then Sheets(Cmb_NameSheet.Text).Select End If LR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ActiveSheet.Cells(LR, 1).Select ActiveSheet.Paste Sheets("الحساب الرئيسي").Select MsgBox ("تم ترحيل الحساب المحدد ... بحمد الله") ActiveCell.Select ActiveCell.Offset(0, 3) = "تم الترحيل الي" & " " & Cmb_NameSheet.Value ActiveCell.Offset(0, 3).Select End End Sub جزاك الله خيرا

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

اخي الكريم الملف عندي يشتغل عادي خيث عند فتحه ينزل الاكسل والفورم معا جوار الساعة وعند الضغط على ايقونت الاكسل مرتين يضهر الفورم وحده وانا لم افعل شيىء سوى اني عدلت على الملف الثاني الذي ارفقه الاخ حمادة وكتبت هذا الكود في حدث فتح الاكسل Dim Me_hWnd As Long, Me_Icon As Long, Me_Icon_Handle As Long, IconPath As String Private Sub Workbook_Open() Me_hWnd = FindWindowd("ThunderDFrame", UserForm1.Caption) IconPath = Application.Path & Application.PathSeparator & "excel.exe" Me_Icon_Handle = ExtractIcond(0, IconPath, 0) Hook Me_hWnd AddIconToTray Me_hWnd, 0, Me_Icon_Handle, "ÃäÞÑ åäÇ áÅÙåÇÑ ÇáÈÑäÇãÌ" UserForm1.Hide End Sub

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

السلام عليكم الاخ الكريم / Mohamed Sabra بارك الله فيك والحمد لله انك قد استفدت من الموضوع فهذا هو الغرض منه واهلا وسهلا بك وبين اخوانك في هذا الصرح العملاق واسعد ان تكون اول مشاركة لك في موضوع لي وستسعد كثيرا بالانضمام الي هذه الاسرة الرااائعة ... وان كنت مبتدئ فمع هذا المنتدي واساتذته وخبراؤه ( ان شاء الله ) ستصبح خبير معتمد جزاك الله خيرا

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته استكمالاً لما بدأه الإخوة الأعزاء أواصل معكم أحبابي أعضاء منتدى أوفيسنا سلسلة شرح فيجوال بيسك التطبيقات vba عرفنا في الفصل الأول تسجيل الماكرو ومستويات الأمان والتعامل مع ما تم تسجيله من الماكروات سواء بالحذف أو تعيين اختصار أو ربطه بزر ........ والكثير. وفي الفصل الثاني تعرفنا على محرر فيجوال بيسك وواجهته الرئيسية ومكونات نافذته واستخدامات كل جزء فيها وخصائص معظم عناصر التحكم التي يمكن استعمالها في نماذج vba. والآن جاء دورنا مع التعرف على أساسيات لغة vba كلغة برمجة: ما الفرق بين vb (فيجوال بيسك) و vba (فيجوال بيسك التطبيقات) ؟ لا أجد فرقا كبيراً فالقواعد المتبعة هنا هي نفسها هناك ولكن الفرق الوحيد الجوهري هو أن vb قائمة بذاتها أما vba فيتم احتوائها داخل أي تطبيق مثل الإكسل أو الوورد أو أي تطبيق آخر كما أن vb قادرة على إنتاج ملفات تنفيذية exe تكون واجهة للبرنامج بعد ذلك أما vba فتستعمل التطبيق المضمنة داخله كواجهة لها ولا تنتج ملفات تنفيذية. * من أول ما يجب علينا معرفته في أي لغة برمجة هي: المتغيرات : وهي عبارة عن مخازن يتم تحزين البيانات بداخلها في ذاكرة الحاسب وتختلف مساحة المخزن باختلاف حجم ما يتم تخزينه بداخله وهنا يجدر بنا الإشارة إلى شروط تسمية المتغيرات فيجب ألا يكون اسم المتغير من الكلمات المحجوزة في إكسل وهذه صورة لبعضها ويجب ألا يبدأ اسم المتغير برقم ويمكن أن يبدأ بحرف أو _ (underscore) وألا يحتوي على مسافة أو رمز خاص لذلك نجد أن vba تحتوي على مجموعة من أنواع البيانات التي تحدد نوعية المتغيرات منها: Byte : وهو اصغر أنواع البيانات مساحة حيث يشغل في ذاكرة الكمبيوتر 1 بايت ومداه الأرقام من صفر إلى 255 فقط. Integer : وهو لتخزين الأرقام الصحيحة بطول 5 خانات ويشغل في الذاكرة 2 بايت ويمكن اختصار تعريفه هكذا: dim variableName% بدلا من dim variableName as integer Long : وهو رقم صحيح طويل بطول 7 خانات ويشغل في الذاكرة 4 بايت ويختصر بإضافة & في نهاية اسم المتغير. Single : وهو لتخزين رقم عشري بطول 7 خانات ويشغل في الذاكرة 4 بايت ويختصر بإضافة ! في نهاية اسم المتغير. Double : لتخزين رقم عشري بطول 15 خانة ويشغل في الذاكرة 8 بايت ويختصر بإضافة # في نهاية اسم المتغير. Boolean : لتخزين قيم منطقية true/false ويشغل في الذاكرة 2 بايت. String : لتخزين النصوص حتى أكثر من 2 مليار حرف والحرف يشغل 1 بايت أي يتسع المتغير النصي إلى 2 جيجا بايت نصوص. Date : لتخزين التواريخ والأوقات ويشغل في الذاكرة 8 بايت يبدأ تاريخ vba من 1/1/100 حتى 31/12/9999 (لاحظ أن تاريخ الإكسل يبدأ من 1/1/1900) ويجب إحاطته بعلامة # مثال : mydate=#1/1/2000# Object : لتخزين الكائنات التي تحتوي على خصائص ووظائف ويتم تعيينه بجملة set ويشغل في الذاكرة 4 بايت أو حسب خصائص ووظائف الكائن المحدد. Variant : لتخزين كل الأنواع السابقة ويمكن تخزين المصفوفات بداخله أيضاً. وهذه الصورة توضح أنواع البيانات ......................... نأتي إلى معاملات لغة vba وتنقسم إلى : معاملات حسابية مثل الأس والضرب والجمع وهكذا يجب علينا معرفة أولوية حساب هذه المعاملات (أي العمليات يتم أولاً؟) وهي كالتالي مرتبة من الأكثر أولوية إلى الأقل كما بالصورة: نأتي الآن إلى معاملات المقارنة وهي تستعمل للمقارنة بين قيمتين وهي كالتالي: = يساوي <> لا يساوي > أكبر من >= أكبر من أو يساوي < أصغر من <= أصغر من أو يساوي والآن جاء دور المعاملات المنطقية : وهي التي تستعمل للتحقق من أكثر من شرط وهي كالتالي: Not : وهي لعكس نتيجة قيمة فإذا كانت true ترجع هي القيمة false والعكس صحيح. And : وترجع true إذا كان كلا الشرطين صحيح وترجع false فيما عدا ذلك. Or : وترجع false إذا كان كلا الشرطين غير صحيح وترجع true فيما عدا ذلك. Xor : وترجع false إذا كان كلا الشرطين صحيحاً أو خطأً وترجع true فيما عدا ذلك. Eqv : وهي عكس xor حيث ترجع true إذا كان كلا الشرطين صحيحاُ أو خطأً وترجع false فيما عدا ذلك. .......... إن أول ما يستعمله المبرمج في لغة البرمجة هي دالة الرسائل حيث يقوم من خلالها بإرسال رسائل للمستخدم أو يأخذ منه قيم من خلال مربع الإدخال فهيا بنا نتعلم الرسائل ومربع الإدخال: الصيغة العامة لصندوق الرسالة msgbox : MsgBox(prompt[, buttons] [, title] [, helpfile, context]) وتعني prompt نص التنبيه ثم بعدها الأزرار المستخدم في الرسالة ثم عنوان الرسالة ثم ملف المساعدة ثم رقم المقالة داخل ملف المساعدة وكل القيم اختيارية ما عدا نص الرسالة وهذه صورة تحتوي على أسماء الثوابت والقيم الرقمية المستخدم في خانة الأزرار. ويمكننا أن نضع القيمة الراجعة من الرسالة في متغير مثل: Mas=msgbox(“are you ready”,vbyesno,”title”) وهذه صورة توضح القيم الراجعة من صندوق الرسائل كثوابت وكقيم رقمية لاستعمالها في كاستجابة لاختيار المستخدم فإذا اختار المستخدم نعم نفذ كذا وإذا اختار المتخدم لا نفذ كذا. نأتي الآن لمربع الإدخال inputbox وهو شبيه بصندوق الرسائل وصيغته العامة هي: myValue = InputBox(message, title, defaultValue) وتحتاج إلى نص الرسالة وعنوان الصندوق والقيمة الافتراضية بحيث إذا لم يدخل المستخدم قيمة أو وافق على القيمة المقترحة منك ويمكننا التعامل مع القيمة الراجعة منه كما تعاملنا مع القيمة الراجعة من الرسالة. ..................... وبإذن الله في الدرس القادم سوف نتعرف على كيفية الإعلان عن المتغيرات والثوابت وكذلك ما يسمى بمدى المتغيرات وكيفية إنشاء ماكرو من خلال الكود وليس بتسجيل ماكرو وكذلك كيفية إنشاء دالة . وكيفية إضافة تعليقات للكود وبإذن الله سوف يكون فيديو. .......... وأعدكم بهديتين في الفيديو ولكن بعد أن يتم اكتشافهما من حضراتكم سوف يتم إخباركم بالسر فيهما.

أخى انظر المرفق فالأخ يقصد من سؤاله أن يقوم بالجمع فى وجود الفلتر وبالتالى يكون عمل الدالتين صحيح لكن لو تم اخفاء صف فيجب استخدام الرقم 109 بدلا من 9 وشكرا للتوضيحSUBTOTAL2.rar

السلام عليكم إخواني الكرام أخي أحمد يعقوب مشكور على المرور الكريم وفي انتظار التفاعل معنا في هذه الدورة فنحن في حاجة إليك منورنا يا باشا أخي خالد القدس اهضم كويس عشان اللي جاي ميكبسش على العقل ويخليه يهنج!!! أخي جودة أنا بدأت ولو لم أستمر فليستمر غيري وليكن أنت أو أي عضو بالمنتدى المهم ألا يغلق الموضوع حتى نطمئن إلى أننا وصلنا إلى مرحلة متقدمة أخي أبو عبد الرحمن بالله عليك وحدة وحدة الموضوع محتاج تأني وتروي أنا عارف إنك مستعجل وأنا مستعجل وكل الأعضاء مستعجاين ، بس متنساش إن الدورة للذين هم في مرحلة الحبو ( أمثالي) إليكم إخواني الجزء الثاني من الفصل الأول ، وقد رفعته بالتنسيقين 2003 و 2007 أخوكم أبو البراء ChapterOne_2.rar ChapterOne_B.rar