أبو حنــــين

السلام عليكم هل تقصد بهذه الطريقة البيانات.rar

السلام عليكم أما عن معنى هذه المصطلحات فهي : ـ 1 الدوال و المعادلات و الاكواد هي اجراءات نقوم بها لتنفيذ طلب ما سواءا كان هذا الطلب يتعلق بالحسابات او البحث او التاريخ او النصوص او الهندسة . . . . الدوال : هي تابعة لبرنامج الاوفيس و معرفة داخل البرنامج بمعنى مثل دالة الجمع Sum او دالة احصاء مثل Count او دالة بحث مثل Index و هكذا .... المعادلة : هي كأ نقول مثل : نريد جمع الخلية A1 مع الخلية A2 و نريد ان يكون الناتج في الخلية A3 فنقول بكل بساطة A3=A1+A2 مثل المعادلات التي تدرس في المدارس الكود : او ما يسمى بالماكرو و هو تنفيذ مثل ما سبق ذكره في الدوال لاكن بصورة اكبر و بميزات غير موجودة في الدوال و هو يعتمد على كلمات تسمى الكلمات المحجوزة التي لا يمكن استعمالها إلا من خلال الكود مثل الشرط IF أو الحلقات التكرارية ( For ........ Then .......Else ........End IF ) أو Do أو Private أو Sub أو Public . . . . . . .. أما عن كيفية كتابة كود فهو يعتمد اولا على ترجمة ما تريد تنفيذه الى كلام رياضي لا يتناقض مع المنطق بمعنى يقبله العقل ( ترجمة نصية ) ثم نحول هذا الكلام الى كود باستعمال الكلمات المحجوزة التي ذكرناها قبل قليل مثال : اريد ان ابحث في العمود A1:A20 عن كلمة تبدأ بالحرف ( م ) مثلا ـ 1 صياغة ما اريده على شكل نص : يا اكسل اريد منك ان تظهر لي الكلمات الموجودة في العمود السابق بشرط ان تبدأ الكلمة بالحرف م و إن وجدتها لونها بالبرتقالي وإن لم تجدها اخبرني بذلك . و كأنننا نكتب رسالة لشخص ما ـ 2 تحويل هذا الكلام الى كود '----------------------------------------------------------------------- ' حلقة تكرارية ' روح ابحث من الخلية 1 الى الخلية 20 For x = 1 To 20 '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' الشرط ' اذا كان الحرف الاول في اليمين هو حرف م If Right(Cells(x, 1), 1) = "م" Then '----------------------------------------------------------------------- '----------------------------------------------------------------------- 'جواب الشرط ' لون الخلية بالبرتقالي Cells(x, 1).Interior.ColorIndex = 46 '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' احتمال عدم تحقق الشرط Else '----------------------------------------------------------------------- '----------------------------------------------------------------------- 'اظهر لي مساج يؤكد عدم وجود ما طلبته MsgBox "لا توجد نتائج" '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' انهاء الشرط End If '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' اكمل حتى الرقم 20 الموجود في اول الكلام Next '----------------------------------------------------------------------- ملاحظة هذا الشرح لا يعتمد على منهجية علمية بل يعتمد على تجربة خاصة فقط

السلام عليكم اولا ملفات البنري تتميز بالسرعة و الخفة هذا حسب علمي ثانيا هناك فرق بين : ا أ إ ثالثا عملت فورم لا يشوش على واجهة الاكسل فهو في اعلى الصفحة و يتيح لك التنقل بين الصفحات و كأنه غير موجود و قمت بذلك ليكون البحث اسر ع من ما سبق التبويب الموضوعي لآيات القرآن الكريم Finshed 17-4-2016_2.rar

السلام عليكم قمت بهذه المحاولة جربها و اخبرني القرآن العظيم كاملا موثقا 2.rar

السلام عليكم جرب هذه الطريقة القرآن العظيم كاملا موثقا1.rar

السلام عليكم اخي بالنسبة للصورة الاولى capture تعني ان هناك شيئ ينقص و كان موجودا على الفورم مثل زر او مربع نص ..... بالنسبة للصورة الثانية captue2 ذلك السطر الاصفر انزع منه الرقم 7

السلام عليكم أخي : دغيدي اولا اعتذر عن التأخر في الرد لانني لم اتصل ثانيا سأرفع ملف آخر يعمل بالتنسيق الشرطي في حالة حدوث تشابه و لاحظ بنفسك النتائج تقبل تحياتي و تقديري توليد سريل نمبر 2.rar

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

السلام عليكم هذه الطريقة في توليد الأرقام صالحة لأي برنامج بمعنى ليس بالضرورة أن يكون منجز بالإكسل ملاحظة 1 يمكن توليد أكثر من 100 صف أفقيا كما هو الآن و ذلك بتغيير المتغير x و يمكن توليد أكثر من عشر أعمدة رأسيا كما هو الآن و ذلك بتغيير المتغير y كما أن الكود يقوم بالتأكد من تشابه الأرقام التسلسلية فإن كانت هناك مشكلة يخبرك بها و يقوم بتلوين الخلايا المتشابهة ملاحظة 3 كل هذه الحيل لا تنطلي على متخصص في الإكسل لكن المعروف أن المتخصص لا يشتري برنامجا بل يصنعه بنفسه . و السلام عليكم توليد سريل نمبر.rar

جزاك الله خيرا أخي ياسر قمت بتحميل الملف الجميل كنت اتبع طريقة لتغير اسم الكموند بوتن ( بوتن لا اعني به اسم رئيس روسيا ) و هذه الطريقة هي Private Sub CommandButton1_Click() If CommandButton1.Caption = "1" Then CommandButton1.Caption = "2" Else CommandButton1.Caption = "1" End Sub

السلام عليكم عمل جميل جزاكم الله خيرا اخي ابو البراء واخي وائل و جعله الله في موازين حسناتكم

السلام عليكم المرفق يقوم بحفظ صفحة الفاتورة حسب ما فهمت Facture 3.rar

العفو اخي

السلام عليكم لا بد من ارسال نموذج بنفس التنسيق الذي لديك للعمل عليه

جرب المرفق 222.rar

1-100.rar السلام عليكم جرب المرفق الملف.rar

السلام عليكم لقد قمت بعمل ذلك بالمعادلات في شيت1 و بالكود في شيت2 دفعات تجريبي.rar

السلام عليكم اعتقد انه تم عمل المطلوب حضور وانصراف3.rar

نفس المشكل موجود في البقرة 154 الكهف 48 و 50 الصافات 68 الزمر 12

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

اعتقد انني وجدت الخطأ قمت بتحويل الآية الى الخط : Arabic Typesetting فوجدت رمز غير مفهوم قمت بحذفه ثم ارجعت الخط الاصلي KFGQPC Uthmanic Script HAFS فحلت المشكلة لاحظ الصورة Sans titre.rar

السلام عليكم المتبقي على 11المواعيد.rar

هل تريد عدم تكرار البيانات عد الى الموديل ستجد الجملة : ( 1 + ) مكررة 6 مرات قم بمسحها Dim Sh_LFP As Worksheet Dim Sh_LTR As Worksheet Dim Sh_LHL As Worksheet Dim Sh_IPD As Worksheet Sub Copy1() Application.ScreenUpdating = False Dim R_LFP As Long, LastR_LFP As Long Dim R_IPD As Long, LastR_IPD As Long Set Sh_LFP = Sheets("LFP") Set Sh_IPD = Sheets("IPD") LastR_IPD = Sh_IPD.Cells(Rows.Count, "J").End(xlUp).Row LastR_LFP = Sh_LFP.Cells(Rows.Count, "J").End(xlUp).Row For R_LFP = 2 To LastR_LFP Sh_LFP.Range("J" & R_LFP).Resize(1, 10).Copy Sh_IPD.Range("J" & LastR_IPD).PasteSpecial xlPasteValues LastR_IPD = LastR_IPD + 1 If R_LFP = LastR_LFP Then Copy2 Next End Sub Sub Copy2() Dim R_LTR As Long, LastR_LTR As Long Dim R_IPD As Long, LastR_IPD As Long Set Sh_LTR = Sheets("LTR") Set Sh_IPD = Sheets("IPD") LastR_IPD = Sh_IPD.Cells(Rows.Count, "T").End(xlUp).Row LastR_LTR = Sh_LTR.Cells(Rows.Count, "T").End(xlUp).Row For R_LTR = 2 To LastR_LTR Sh_LTR.Range("T" & R_LTR).Resize(1, 9).Copy Sh_IPD.Range("T" & LastR_IPD).PasteSpecial xlPasteValues LastR_IPD = LastR_IPD + 1 If R_LTR = LastR_LTR Then Copy3 Next End Sub Sub Copy3() Dim R_LHL As Long, LastR_LHL As Long Dim R_IPD As Long, LastR_IPD As Long Set Sh_LHL = Sheets("LHL") Set Sh_IPD = Sheets("IPD") LastR_IPD = Sh_IPD.Cells(Rows.Count, "AC").End(xlUp).Row LastR_LHL = Sh_LHL.Cells(Rows.Count, "AC").End(xlUp).Row For R_LHL = 2 To LastR_LHL Sh_LHL.Range("AC" & R_LHL).Resize(1, 9).Copy Sh_IPD.Range("AC" & LastR_IPD).PasteSpecial xlPasteValues LastR_IPD = LastR_IPD + 1 Next Application.ScreenUpdating = False End Sub

السلام عليكم هذا بالنسبة للترحيل فقط osamahreport2.rar

السلام عليكم جرب المرفق اظهار السعر تلقائيا بعد اختيار 11اسم المادة.rar