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

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

تفضل استاذى الفاضل وائل استبدل الجزء الخاص بالخليه A4 بالتالى اذا كنت عايز تستخدم اسم الشيت يبقى لازم تكتب ("اسم الشيت") Sheets If x = Sheets("users").Range("a4") Then او السطر التالى بفرض ان الشيت المسمى Users هو شيت رقم 3 ( وعلشان تعرف رقمه ممكن من محرر الاكواد شوف الشيت users بجوارة رقم الشيت If x = Sheet3.Range("a4") Then كلا السطرين يؤدو نفس الغرض اعتذر للجميع لقلة تواجدى هذه الايام نظرا لانشغالى واسالكم الدعاء اعتذر ابوالبراء لم ارى مشاركتك الا بعد ما عملت حفظ لا يفتى ومالك بالمدينة تقبل تحياتى

اخى صلاح المصرى كما اشار الاخ وائل الاسيوطى في رابط الشرح للاجابه على سؤالك نعم يمكن بطريقتين اولا بالمجال الديناميكى وهو يزيد او ينقص بزيادة ونقص البيانات من صيغ ادارة الاسماء تحرير سمى المجال باسم يدل على العمل او باختيارك ثم في refer to ضع المعادله =OFFSET(Sheet1!$A$1,0,0,COUNTA(Sheet1!$A:$A),4) الطريقة الاسهل حدد بياناتك واضغط ctr+t لانشاء جدول جديد واختار الجدول كمصدر للبيانات ويمكن تحديث التقرير تلقائىه بالكود التالى Sub RefreshPivotTables() Dim pivotTable As PivotTable For Each pivotTable In ActiveSheet.PivotTables pivotTable.RefreshTable Next End Sub

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

جرب ياريس Sub Yasser() Dim x As String x = InputBox("من فضلك فم بادخال كلمة المرور.", "Password Required") If x = users.Range("a4").Value Then users.Visible = xlSheetVisible users.Select Else MsgBox "كلمة المرور خطأ" End If End Sub اكيد دا ملف الصلاحيات

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

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

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

أخي الكريم وائل لما لم ترفق ملف ؟ لما لم تضع الكود بين أقواس الكود؟! ما هو الخطأ الذي يظهر معك عند النقر على كلمة Debug؟ هل الاسم users الاسم البرمجي لورقة العمل المراد ربط الباسورد بها؟ هل جربت استخدام كلمة Sheets يليها قوس مفتوح ) ثم أقواس تنصيص " ثم اسم ورقة العمل users ثم إغلاق أقواس التنصيص " ثم إغلاق القوس ( ...؟ تقبل تحياتي

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

السلام عليكم اسمي عبدالواجد - ومعنى الواجـد الواجد.. الغنيُّ الذي لا يفتقر، والواجد هو الذي لا يضلُّ عنه شيء، فأحياناً الإنسان لضعفه يقول: بحثت عنه كثيراً فلم أجده، أي احترت في أمري فأين أجده، فاته الشيء غاب عنه، لكنَّ الله سبحانه وتعالى هو الواجد الذي لا يضلُّ عنه شيء، ولا يفوته شيء، الله جلَّ جلاله الواجد.. قال: " هو الذي يجد كلَّ ما يطلبه ويريده ". فالإنسان قد يطلب آلاف الطلبات ولا يجدها، يريد آلاف الأهداف ولا يُحصِّلها، لكنَّ الله سبحانه وتعالى لا يضلُّ عنه شيء ولا يفوته شيء، وهو الذي يجد كلَّ ما يطلبه ويريده ولا يُعوزه شيءٌ من ذلك، ولا يُعجزه شيء ذلكم الله ربُّ العالمين، أي شتَّان بين من يكون عبداً لغير الله وبين من يكون عبداً لله. أما بخصوص الشريط المتحرك / فإذا كان به ارهاق على الملف فلا احتاج اليه ، إنما شيء كمالي ولكن بحثت في المتتدى ووجد ملف للأستاذ البسكري سهل وسريع ، ولكن وجدت صعوبة بالتغيير في الشريط شريط شريط.rar

السلام عليكم ... من رخصة الاستاذ سعيد ... Private Sub Command8_Click() DoCmd.SetWarnings False DoCmd.RunSQL "DELETE table3.id, table3.Classe, table3.Tech, table3.Fees from table3 WHERE(((table3.ID) = [Forms]![table1]![Table2 Subform1]![ID]) And ((table3.Classe) = [Forms]![table1]![Table2 Subform1]![Classe]) And ((table3.Tech) = [Forms]![table1]![Table2 Subform1]![Tech]) And ((table3.Fees) = [Forms]![table1]![Table2 Subform1]![Fees]))" DoCmd.RunSQL "DELETE table2.id, table2.Classe, table2.Tech, table2.Fees from table2 WHERE(((table2.ID) = [Forms]![table1]![Table2 Subform1]![ID]) And ((table2.Classe) = [Forms]![table1]![Table2 Subform1]![Classe]) And ((table2.Tech) = [Forms]![table1]![Table2 Subform1]![Tech]) And ((table2.Fees) = [Forms]![table1]![Table2 Subform1]![Fees]))" DoCmd.SetWarnings True Me.Requery End Sub

حبيبي الغالي ابو يوسف اذا كان هو البرنامج بالفعل يبقي اظن اثناء التحميل سقط امتداده معرفشي ازاي المهم جرب الشرح دا وشوف يمكن ينفع تقبل تحياتي yasser.rar

أخي الغالي وحبيبي في الله أبو القبطان .. الملف سيء !! أيوا سيء !! أيوا زي ما بقولك كدا سيء@@ زعلت ؟؟! حقك عليا ! الملف جيد أيوا جيد .. بقولك جيد واحد هيقول العضو دا شكله مجنون أو عبيط .. هرد أقوله أشكرك ... بس كل واحد له طريقة تفكيره وكل شيخ وله طريقة بالأمس لم أطلع على الملف الجيد بشكل جيد .. لكن أتيحت لي الفرصة أن أطلع عليه فوجدت الأكواد جميلة ولكنها تحتاج لترتيب .. نريد أن نتعود عند إرفاق ملفات بالمنتدى أن تكون الأمور مرتبة ومنطقية .. ويتم إزالة الشوائب منها أولاً بالنسبة للكود في حدث المصنف وجدت أنه نفس الكود في موديول رقم 1 ..فلما التكرار الغير مرغوب فيه؟! يمكن الإبقاء على الكود في الموديول رقم 1 والإشارة إلي اسم الإجراء الفرعي في حدث فتح المصنف باستخدام كلمة Call يليها اسم الإجراء الفرعي ثانياً وجدت كود يخص الفورم في الموديول العادي !! ليس مكانه ثالثاً الكود في الموديول الثاني أعتقد أنه ماكرو مسجل ، وكم أكره شكل أسطر الكود الناتجة عن تسجيل الماكرو .. فهناك شوائب كثيرة فيها غير أن الكود ليس له علاقة بالموضوع ومن ثم يجب إزالة جميع الأكواد من المصنف الخاص بك وإعادة ترتيبها بهذا الشكل (لاحظ أيضاً شكل أسطر الكود وكيف تم تنسيقها ليسهل الإطلاع عليها) ضع الكود التالي في حدث المصنف ThisWorkbook Private Sub Workbook_Open() Call Picture1_Click End Sub والكود التالي يوضع في الموديول رقم 1 Sub Picture1_Click() Dim I As Long, lastRow As Long Dim Name1 As String lastRow = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row For I = 2 To lastRow Cells(I, 4).Interior.ColorIndex = xlNone Cells(I, 4).Font.ColorIndex = xlAutomatic Cells(I, 4).Font.Bold = False If Cells(I, 4) = Date Then With UserForm1.ListBox1 .AddItem .List(.ListCount - 1, 0) = Sheet1.Cells(I, 1).Text .List(.ListCount - 1, 1) = Sheet1.Cells(I, 2).Text .List(.ListCount - 1, 2) = Sheet1.Cells(I, 3).Text .List(.ListCount - 1, 3) = Sheet1.Cells(I, 4).Text .List(.ListCount - 1, 4) = Sheet1.Cells(I, 5).Text .List(.ListCount - 1, 5) = Sheet1.Cells(I, 6).Text .List(.ListCount - 1, 6) = Sheet1.Cells(I, 7).Text .List(.ListCount - 1, 7) = Sheet1.Cells(I, 8).Text End With Cells(I, 4).Interior.ColorIndex = 3 Cells(I, 4).Font.ColorIndex = 2 Cells(I, 4).Font.Bold = True End If Next I UserForm1.Show End Sub والكود التالي يوضع في حدث الفورم Private Sub CommandButton1_Click() End End Sub Private Sub Image1_Click() UserForm1.PrintForm End Sub Private Sub Image2_Click() UserForm1.PrintPreviewForm End Sub Private Sub UserForm_Activate() lblDate.Caption = Date End Sub أرجو ألا أكون قد أزعجتك .. ولكني أحب أن أرى الأشياء في أجمل صورة لها ، وحتى يستفيد منها من أرد الاستفادة لا أن تكون مجرد ملف مرفق يلقى به في مكانٍ ما ويطويه النسيان أردت الاستفادة للجميع من الملف الرائع ولكن بصورة أفضل تقبل تحياتي

بسم الله الرحمن الرحيم اللهم صلي على حبيبك و نبيك و سلم و بارك عليه و على ال نبيك و على كل المسلمين عدد خلقك و رضا نفسك وزنة عرشك و مداد كلماتك حتى يوم الدين و في يوم الدين .......... اما بعد بحث من اعداد "سعيد محمد عبد المالك يونس علي بدر الدين" فانطلاقا من مبدأ زكاة العلم نشره و تعليمه وعتابي على المسؤلين عن المنتدى قمت بكتابة هذا الموضوع حيث الهدف من السؤال هو معرفة ادق التفاصيل وليس ارفاق الامثلة المحلولة فهي لا تحتاج الى اشتراك في المنتدى ... كل ما تحتاجه هو البحث في جوجل ولكن يبقى تفسير طلاسم المثال حتى نصبح في يوم ما محترفين مثلكم ......... دون الاطالة فهذا موضوع عن الصلاحيات و المستخدمين في البداية هذا الدرس او المبحث موجه لمن هم مبتدئين ولكن لمرحلة ما بعد الصفر وليس لمرحلة الصفر فهناك مباحث يجب قراتها قبل هذا المبحث كي تفهم ما هو المقصود من هذا المبحث و الموضوع في شكل ملف ورد وهو يحتوي على عدد 28 صفحة و حوالي 48 صورة وهذا هو الرابط http://www.4shared.com/rar/Zgexs_PPba/_online.html كما تم ارفاق مثل عملي يحتوي على الشرح وبه جزئيتين لم يتم شرحهم ساقوم بعون الله بشرحهم في درس اخر كي لا اثقل على المتلقي وهم في حالة ادخال كلمة السر خطا في نموذج تغير كلمة السر اكثر من ثلاثة مرات وفي حالة عدم وجود مستخدمين في البرنامج "اي استخدام البرنامج للمرة الاولى" ولا اريد الا الدعاء لي بظهر الغيب وبان يرزقني الله بزرية صالحة يحبها ويرضها ارجوا تثبيت الموضوع كي يكون سهل الوصول اليه و اعدكم بمواضيع مشابه في القريب جداً العاجل مثل الصلاحيات.rar

بسم الله الرحمن الرحيم بسم الله و الحمدلله و الصلاة و السلام على اشرف خلق الله سيدنا محمد و على آله و صحبة و من والاه أما بعد نظرا لكثرة السؤال عن فك الحماية اما لمحرر الاكواد او لورق العمل قمت بدمج الاكواد مع بعض التعديلات في ملف واحد للتسهيل على الاخوة فقط كل ما عليك هو ان تقر ان الملف خاص بك ولا يعد تعديا علي ملفات الغير يتم تفعيل الازرار الخاصة بكسر حماية محرر الاكواد واوراق العمل كسر حماية اوراق العمل يتم فكها جميعا كل ما عليك هو اختيار الملف والموافقه على بدأ الفك وانتظر حتى يكتمل فك الاوراق جميعا طبعا وقت الفك حسب مدى صعوبة كلمة المرور اما كسر محرر الاكود ما عليك الا ان تقوم باختيار الملف الهدف-xls- فتظهر لك رسالة خطأ بعدها يتم فتح محرر الاكواد ومنها تقوم باعادة تعيين كلمة اخرى والحفظ والسلام عليكم Hack VBA.rar

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

تحياتي أستاذنا العزيز نحنا طلابك أرجو أن يكون في المرفق الحل المناسب مخزون.rar

يعنى لازم تحطه على الملاء ياعربى وباعدين انت مش عاوز تحط الشرح ليه ؟

chart display idea.rar دبل كليك على العمود في المخطط البياني ومن ثم اختر fill ومن ثم الصورة كما في الشكل التالي:

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

ربنا ييسرلك احوالك وترجعلنا سالم غانم جزاك الله كل خير اخى حسام تقبل تحياتى

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

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

تحت أمرك اخى الحبيب بالتوفيق ولا تحرمنا وجودك معنا

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

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

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

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

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

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

طريقة تصوير الشاشة من الكمبيوتر بدون برنامج من لوحة المفاتيح طبعا كلنا بتظهر لنا مشكلة في برنامج او على الجهاز او نحتاج نعمل شروحات للبرامج او الدورات من جهازنا من اجل ذلك راح اعرفكم اسهل طريقة لتصوير الشاشة بدون برامج إليكم الخطوات : 1) نفتح البرنامج الإكسل او اي شئ نحتاج تصويره على الشاشة 2) من لوحة المفاتيح نضغط علي زر print scrn موجود في اعلى لوحة المفاتيح 3) نقوم بفتح برنامج الرسام من قائمة إبدأ إبدأ > البرامج > الملحقات > الرسام start > program > accessories > paint 4) بعد فتح البرنامج من قائمة edit نختار past 5) لقص جزء من الصورة نختار اداة التحديد الموجودة في الجانب ثم نقوم برسم مربع علي المكان المراد قصه ثم نضغط عليه كليك يمين و نختار cut ثم من قائمة file نختار new ثم من قائمة edit نختار past سنجد الجزء المقطوع ظهر على برنامج الرسام 6) بعد ذلك نحفظ الصورة من قائمة file > save as 7) نختار مكان حفظ الصورة علي جهازنا و اسم الصورة و صيغة الصورة الافضل اختيار png لانها اعلى جودة في الصور المحفوظة من هذا البرنامج ثم نقوم برفع الصور علي المنتدى من خلال مركز الرفع بكل سهولة تستخدم هذه الطريقة لعمل الشروحات او عرض المشاكل التي تواجهنا علي الكمبيوتر

أخي الكريم قم بإرفاق الملف ليعمل عليه الأخوة الكرام بالمنتدى يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على التوجيهات في الموضوعات المثبتة في صدر المنتدى

السلام عليكم بارك الله بكم إخوتي الكرام أرى أنه بدأ أوفيسنا يشهد لم شمل جميل وأرجو الله أن يتم نعمته علينا بعودة إخوة كرام نتشرف بأن يكونوا بيننا لما سمعنا عنهم وعن أخلاقهم الحسنة ومعاملتهم الطيبة.. هنيئا لأوفيسنا برجوع غيابه وعقبى لنا أن نرجع لأهلنا بعد طول غياب والسلام عليكم.

حياك الله اخي الكريم ممكن توضح اكثر .. ايش الشرط اللي ممكن اعتمد عليه في الحذف .. بالتوفيق

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

أخي الكريم جرب الكود بهذا الشكل Sub ConvertProcess() Dim I As Long, Sh As Worksheet Dim strbinnum, BitValue, BinNumSize, PlaceValue, lngBaseX Dim intNumber, intRemainder, strRemainder, strOctalNumber Application.ScreenUpdating = False For Each Sh In ThisWorkbook.Sheets With Sh .Range("F2:J10000").ClearContents For I = 2 To .Cells(Rows.Count, 5).End(xlUp).Row .Cells(I, 6).Value = RemovePeriods(.Cells(I, 5).Text) + 0 .Cells(I, 7).Value = DecimalToBinary(.Cells(I, 6)) .Cells(I, 8).Value = BinaryToOctal(.Cells(I, 7).Text) .Cells(I, 9).Value = SumDigits(.Cells(I, 8)) .Cells(I, 10).Formula = "=IF(" & .Cells(I, 8).Address & "="""","""",MOD(" & .Cells(I, 8).Address & "-1,9)+1)" .Cells(I, 10).Value = .Cells(I, 10).Value Next I End With Next Sh Application.ScreenUpdating = True End Sub Public Function RemovePeriods(ByVal Txt) Application.Volatile If TypeOf Txt Is Range Then Txt = Txt.Text End If RemovePeriods = Replace(Txt, ".", "") End Function Public Function DecimalToBinary(DecimalNum As Long) As String Dim Tmp As String Dim N As Long N = DecimalNum Tmp = Trim(Str(N Mod 2)) N = N \ 2 Do While N <> 0 Tmp = Trim(Str(N Mod 2)) & Tmp N = N \ 2 Loop DecimalToBinary = Tmp End Function Function BinaryToOctal(strbinnum As String) Dim BitValue As String, BinNumSize As Long, PlaceValue, lngBaseX As Long, intNumber As Long, intRemainder As Long, strRemainder As String, strOctalNumber As String BinNumSize = Len(strbinnum) For PlaceValue = 0 To BinNumSize - 1 BitValue = Mid(strbinnum, BinNumSize, 1) BinNumSize = BinNumSize - 1 lngBaseX = (2 ^ PlaceValue * CInt(BitValue)) + lngBaseX Next PlaceValue intNumber = lngBaseX Do While intNumber >= 1 intRemainder = intNumber Mod 8 strRemainder = CStr(intRemainder) intNumber = intNumber \ 8 strOctalNumber = strRemainder & strOctalNumber Loop BinaryToOctal = strOctalNumber End Function Function SumDigits(Number) Dim I As Long For I = 1 To Len(Number) SumDigits = SumDigits + Val(Mid(Number, I, 1)) Next I End Function وإليك الملف المرفق مطبق فيه الكود مع ملاحظة أن تم تنسيق عمود G كنص Decimal & Binary & Octal Conversion For All Sheets YasserKhalil.rar

السلام عليكم ورحمة الله تعالى وبركاته أحبائي وأساتذتي الأفاضل أقدم لك هذه التجميعية البسيطه ليستفيد بها المبتدئ والمحترف تجمعية تحت عنوان تغذية القائمة المنسدلة خاصة بالفورم (ComboBox) بمدى ديناميكي أولا: نقوم بإنشاء فورم وندرج به قائمة منسدلة (ComboBox1) ثانيا : نفتح محرر الاكواد View Code) ثالثا: من نافذه المحرر نختر حدث بداية التشغيل الفورم UserForm_Initialize Private Sub UserForm_Initialize() End Sub نقوم بوضع المتغير التالي الخاص بتحديد ورقة العمل وهم أمر مهم جدا Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select End Sub نأتي الأن إلى الأكواد الخاصة بتغذية القائمة المنسدلة ملاحظه جميع الأكواد الخاصة بالتغذية أنا إخترت العمود الأول وبداية التغذية من الخلية A2 ولكم حرية التغيير الكود رقم 1 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Range("A2", Range("A" & Rows.Count).End(xlUp)).Name = "Dynamic" Me.ComboBox1.RowSource = "Dynamic" End Sub الكود رقم 2 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Me.ComboBox1.RowSource = Range("B2", Range("B65536").End(xlUp)).Address End Sub الكود رقم 3 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Me.ComboBox1.RowSource = ("A2:A") & ws.Cells(Rows.Count, "A").End(xlUp).Row End Sub الكود رقم 4 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Me.ComboBox1.List = Range("A2:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value End Sub الكود رقم 5 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim FR As Integer, LR As Integer With ws LR = .Range("A2").End(xlDown).Row For FR = 2 To LR Me.ComboBox1.AddItem .Range("A" & FR) Next FR End With End Sub الكود رقم 6 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim R As Integer With ws For R = 2 To .Range("A" & .Rows.Count).End(xlUp).Row If .Range("A" & R) <> "" Then Me.ComboBox1.AddItem .Range("A" & R) End If Next R End With End Sub الكود رقم 7 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim LR As Long LR = ws.Cells(Rows.Count, "A").End(xlUp).Row myList = ws.Range("A2:" & "A" & LR) Me.ComboBox1.List = myList End Sub الكود رقم 8 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim LR As Long LR = ws.Range("A" & Rows.Count).End(xlUp).Row Set myList = ws.Range("A2:A" & LR) Me.ComboBox1.List = myList.Value End Sub الكود رقم 9 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim LR As Long With ComboBox1 LR = ws.Cells(Rows.Count, 1).End(xlUp).Row .List = ws.Range(ws.Cells(2, 1), ws.Cells(LR, 1)).Value End With End Sub الكود رقم 10 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim myList As Range For Each myList In ws.Range("A2").SpecialCells(xlConstants) With Me.ComboBox1 .AddItem myList.Value .List(.ListCount - 1, 1) = myList.Offset(0, 1).Value End With Next End Sub الكود رقم 11 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim i As Integer, iMin As Integer, iMax As Integer iMin = 2: iMax = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row For i = iMin To iMax ComboBox1.List = Range(Cells(iMin, 1), Cells(iMax, 1)).Value Next i End Sub الكود رقم 12 من إدارة الأسماء نختر جديد الإسم انت حر فيما تختار أنا إخترت MyRange في خانة يشير إلى نقوم بوضع هذه المعادلة =OFFSET(Sheet1!$A$2;;;COUNTA(Sheet1!$A$2:$A$10000);1) في الفورم نقوم بوضع الكود التالي Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Me.ComboBox1.RowSource = "Myrange" End Sub الكود رقم 13 كود تغذية القائمة المنسدلة بدون فراغات Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim cell As Range With ws For Each cell In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row) If Not IsEmpty(cell) Then ComboBox1.AddItem cell.Value Next cell End With End Sub الكود رقم 14 كود تغذية القائمة المنسدلة بدون فراغات وبدون تكرار Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim I As Integer Dim Valeurs As Variant Dim sDic As Object Set sDic = CreateObject("Scripting.Dictionary") With ws Valeurs = .Range("A2:A100").Value For I = LBound(Valeurs) To UBound(Valeurs) If Not IsEmpty(Valeurs(I, 1)) Then sDic(Valeurs(I, 1)) = "" Next I End With If IsArray(Valeurs) Then Me.ComboBox1.List = sDic.keys End Sub وفي الأخير أتمنى هذه التجمعية المتواضعة أن تفيدكم أعرف أن أستاذي القدير حيزعل مني لأني لم أقم بوضع هذه الاكواد في تجمعية مكتبه المنتدى ووضعها في موضوع منفصل حتى يكون هذا الموضوع مرجعا لكل من يريد التعلم بأبسط الطرق أستاذي القدير وحقك عليا تقبلو تحياتي لا تنسونا بخالص دعائكم

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

الله يعطيكم العافية جميعا هذا رابط الملف Decimal & Binary & Octal Conversion.rar

السلام عليكم أخي كرار ، هذا معناه انك لم تحدّث الاكسس 2010 اللي تستعمله !! تم حل هذه المشكلة في SP1 ، والان التحديثات وصلت الى SP2 (وطبعا ما تقدر تنصب SP2 بدون ما تكون منصب SP1). رابط انزال SP1 https://www.microsoft.com/en-us/search/result.aspx?q=Service+Pack+1+for+Microsoft+Office+2010&form=dlc رابط انزال SP2 http://pcsupport.about.com/od/keepingupwithupdates/a/office-service-pack.htm واثناء تنزيل التحديثات من الانترنت ، اقرا الرابط التالي ، وفيه معلومة عن التحديثات ومعلومات اخرى: http://www.officena.net/ib/topic/65568-تفعيل-ضغط-القاعدة-عند-الاغلاق/?do=findComment&comment=426819 جعفر

وعليكم السلام ورحمة الله وبركاته أخي كرار ، اذا كان كمبيوترك يعمل الحدث باستخدام الماكرو ، فالرجاء الذهاب الى هذا الرابط ، لجعل الاكسس يعمل الحدث في الكود: http://www.officena.net/ib/topic/65236-مشكلة-في-حدث-عند-النقر/ ولما يضبط الاكسس ، تستطيع ان تستخدم زر الامر من لوحة التصميم ، وعندما تختار الزر الذي تريده للمهمة التي تريدها ، ستراها في الكود اما اذا مازلت في استخدام الماكرو ، فيمكنك تحويل الماكرو الى كود وتنظر فيه واذا فشلت كل المحاولات ، فاليك الكود: ' السجل التالي DoCmd.GoToRecord , , acNext 'السجل السابق DoCmd.GoToRecord , , acPrevious جعفر

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

Private Sub Command0_Click() DoCmd.OpenReport "تقرير الطبع الكلي", acViewPreview, , , acHidden DoCmd.SelectObject acReport, "تقرير الطبع الكلي" DoCmd.PrintOut acSelection, , , , 2 DoCmd.Close acReport, "تقرير الطبع الكلي" End Sub

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

يلا شباب بدي ردود سأضع بين أيديكم أكثر من 3000 برنامج بس بدي تشجيعكم BackUpWithCompact2k.zip

وهاي كمان برامج ولسى الخير قادم أنا شايف إنو لغاية الآن ما في لسى حد دخل على المنتدى و هيك راح تكون مفاجئة كبيرة للكل WriteNumber2000.zip ProgressBar2000.zip ColorRecords2000.zip Keyboard2000.zip FindAndFilter2000.zip HideMsgBoxFail2000.zip Animation2k.zip

شوفولي هالبرنامج و إدعولي وما بدي أذكركم هاي برامج مجمعة من مواقع ومنتديات ، يعني مش أنا إلي عاملها وبشكر أصحاب هذه البرامج لأنها راح تكون مفيدة للجميع إنشاء الله wzbackup.zip

وهنا برامج أخرى ،،،،، لا تنسونا بالدعاء زي ما وصيتكم ، ، ، accarch179.zip accarch171.zip