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

تكملة لموضوع جعل النص بشكل رأسى الذى بدأه أخى الحبيب / ياسر خليل قررت اضافة فكره أخرى بالاضافة الى جعل النص بشكل رأسى وهذه الفكرة إهداء إلى أخى الحبيب ياسر خليل Option Explicit Private Sub CommandButton1_Click() Dim T1 As String, TT1 As String Dim T2 As String, TT2 As String Dim N As Byte, w As Single, Temp Dim i As Integer, ii As Integer '================================== TT1 = "YASSER KHALIL" TT2 = "ياسر خليل" N = 0: i = 1: ii = 1 Do While N < Len(TT1) T1 = T1 & Mid(TT1, i, 1) & Chr(13) T2 = T2 & Mid(TT2, i, 1) & Chr(13) i = i + 1: ii = ii + 1 Label1.Caption = T1 Label3.Caption = T2 w = 0.2 Temp = Timer Do While Timer < Temp + w DoEvents Loop N = N + 1 Loop End Sub اهداء الى أخى الحبيب ياسر خليل.rar

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

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

أساتذتى الكبار أخوتى وأخواتى فى منتدى أوفيسنا أنا فخور انى أحد أعضاء المنتدى الكريم ده دائما ما نجد ضالتنا فيه لقيت الملف ده على موقع أجنبى وبصراحه عجبنى وحبيت أشارك بيه أحلى طاقم عمل فى المنتدى الى أن يتم شرحه وتفكيكه من عباقرة المنتدى مرفق ومنتظر اراءكم يارب يعجبكم New-Userform-.rar

لا تستهينوا زملائى بالدعاء في ظهر الغيب .. فكلنا اخوة فى هذا الصرح الكبير ويكفينا الدعاء بالخير ويمكن التواصل عن طريق الرسائل او الفيس بوك صفحتى على الفيس بوك https://www.facebook.com/magdiyonisقال الله تعالى :وَالَّذِينَ جَاؤُوا مِن بَعْدِهِمْ يَقُولُونَ رَبَّنَا اغْفِرْ لَنَا وَلإِخْوَانِنَا الَّذِينَ سَبَقُونَابِالإِيمَانِ وَلاتَجْعَلْ فِي قُلُوبِنَا غِلاًّ لِّلَّذِينَ آمَنُواوقال إخباراً عن إبراهيم عليه السلام:رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ )وقال تعالى عن نوح عليه السلام:رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ وَلِمَن دَخَلَ بَيْتِيَ مُؤْمِنًا وَلِلْمُؤْمِنِينَ وَالْمُؤْمِنَاتِ .وقال تعالى لنبيه محمد صلى الله عليه وسلم:وَاسْتَغْفِرْلِذَنبِكَ وَلِلْمُؤْمِنِينَ وَالْمُؤْمِنَاتِ . وعن أبي الدرداء رضي الله عنه أنه سمع رسول الله صلى الله عليه وسلم يقول: "ما من عبد مسلم يدعو لأخيه بظهر الغيبإلا قال الملك : ولك بمثل" أخرجه مسلم.

أخي الكريم محمد علي ضع الكود التالي في موديول عادي Sub ShowForm() UserForm1.Show End Sub Function LastRowPic(ColumnNumber As Long) As Long Dim Arr, Pic As Shape, I As Long ReDim Arr(1 To Columns.Count) For Each Pic In ActiveSheet.Shapes With Pic For I = .TopLeftCell.Column To .BottomRightCell.Column Arr(I) = Application.Max(.BottomRightCell.Row, IIf(Arr(I) = "", 0, Arr(I))) Next I End With Next Pic LastRowPic = Arr(ColumnNumber) End Function ثم قم بوضع الكود التالي في حدث الفورم #If VBA7 Then Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long #Else Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long #End If Private Const SW_HIDE As Long = 0 Private Const SW_SHOW As Long = 5 Private LastSelectedFilePath As String Private Sub CommandButton1_Click() Dim strFileName As String strFileName = Application.GetOpenFilename(FileFilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select A File", MultiSelect:=False) If strFileName = "False" Then MsgBox "File Not Selected!" Else Me.Image1.Picture = LoadPicture(strFileName) LastSelectedFilePath = strFileName Me.Repaint End If End Sub Private Sub CommandButton2_Click() Dim R As Range, LR As Long ShowWindow FindWindow("ThunderDFrame", Me.Caption), SW_HIDE If LastRowPic(22) = 0 Then LR = Cells(Rows.Count, "V").End(xlUp).Row + 1 Else LR = LastRowPic(22) Set R = Range("V" & LR) ShowWindow FindWindow("ThunderDFrame", Me.Caption), SW_SHOW With ActiveSheet.Pictures.Insert(LastSelectedFilePath) .ShapeRange.LockAspectRatio = msoFalse .Top = R.Top .Left = R.Left .Width = R.Width .Height = R.Height End With End Sub وإليك الملف المرفق فيه تطبيق للأكواد أرجو ان يكون المطلوب إن شاء الله Load Picture On UserForm Using Dialog & Insert Image To Worksheet YasserKhalil.rar

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم اليوم موضوع خفيف جداً .. والموضوع هو كيفية جعل النص في أداة العنوان Label يظهر بشكل رأسي (كنوع من الترفيه ليس أكثر) إليكم الكود المستخدم في الملف المرفق مع الشرح المبسط لأسطر الكود .. ليتسنى لكم التعرف على الأكواد بشكل أفضل Private Sub UserForm_Initialize() 'تعريف المتغير من النوع النصي Dim Word As String 'تعريف متغير من النوع عدد صحيح Dim I As Integer '[Label] تعيين عنوان لأداة الـ Label1.Caption = "YasserKhalil" 'حلقة تكرارية من الرقم 1 إلى طول السلسلة النصية للأداة For I = 1 To Len(Label1) 'يساوي قيمة المتغير نفسه زائد [Word] المتغير النصي المسمى 'حيث يتم استخراج حروف الكلمة [Mid] الحرف الذي يتم استخراجه باستخدام الدالة 'مع كل حلقة تكرارية يتم التعامل مع حرف واحد فقط في كل مرة 'بمثابة الضغط على إنتر للانتقال لسطر جديد [Chr(13)] زائد الدالة '[Vertical] بالتالي يتحقق الهدف من الكود وهو جعل النص يظهر بشكل رأسي Word = Word & Mid(Label1, I, 1) & Chr(13) 'الانتقال للحرف التالي Next I 'ليكون العنوان الجديد للأداة [Word] تعيين المتغير المسمى Label1 = Word End Sub يوضع الكود في حدث الفورم ...ويعمل عند بدء تشغيل الفورم وإليكم الملف المرفق التالي فيه تطبيق للكود حمل الملف من هنا ولا تنسونا بصالح الدعاء تقبلوا وافر تقديري واحترامي

قائمة بافضل المواقع شهرة وشعبية على مستوى العالم فى الاكسيل Excel حسب Alexa Ranking ========================================== وبكل اسف ولا موقع عربى فيهم . والسبب فى شهرة هذه المواقع حجم التفاعل وتبادل المعلومات والخبرات ادخل اى موقع وشاهد اى موضوع وقارن بنفسك . ولكن نحن فى العالم العربى قد نبخل حتى بعمل اعجاب او مشاركة او نخجل من وضع اراءنا ..........الخ لدينا الكثير من علماء الاكسيل العظماء فى العالم العربى اتمنى من الجميع الدعم لهؤلاء العلماء . واتمنى من مدربى الاكسيل وعلماؤه ان يقدمو ما لديهم بكل الطرق احلم بان نكون افضل من الغرب فى كل شىء .

الا الا دا في الش اهو في المنتدى وانا مش واخد بالي حبايبي اخي الغالي رجب واحمد وياسر ها هي الروح تظهر وجمالها اركن الجمال ونشوف البط انا دوري بقي ايه في الليله دي بقي وانت يامعلم بالضم والفتح كمان (ياسر) انا سرقت الموبيل بتاع صاحبك عشان تسيبني وتقعد تتكلم معاه وبلغه ان يجي الساعه اتنين الدمرداش اتنين وخمسه همسح الالعاب من ع الموبيل

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

بارك الله فيك وجزاك الله خيراً أخي وحبيبي في الله خالد الرشيدي (بحق ملك المعادلات) أخي الكريم أسامة مستعجل ع الرد ليه كنت جربت الأول قبل ما ترد وشوف النتائج صحيحة كما طلبت أم لا ... وبعديها رد براحتك يا جميل تقبلوا تحياتي

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

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

هدية ممتازة رغم انه عندي ملاحظة عليها ارجو تقبلها اذا كان عدد الحروف في النص العربي اكبر من عدد الحروف في النص الاجبني لا تظهر النتائج الصحيحة(يكتفى بالنص الاجنبي) العلاج:استبدال هذا السطر Do While N < Len(TT1) بهذا Do While N < Len(TT1) Or N < Len(TT2)

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

أخي وحبيبي في الله رجب جاويش جزاكم الله خيراً على هذه اللفتة الطيبة وعلى هذه الهدية القيمة والرائعة تسلم الأيادي وتعيش يا كبير الأساتذة والهدية دي قيمتها عندي كبيرة جداً .. لا تقدر بثمن بس دا بردو مش هيمنعني إني أعلق على الكود .. فيه متغير اسمه II ملوش أي دور في الكود .. ما الداعي له ؟؟ جرب تشيل الإعلان عنه والسطر اللي عينت له قيمة والسطر اللي بيزيد فيه بمقدار واحد وجرب الكود مرة تانية هتلاق الكود شغال من غيره (فدا متغير دخيل على الكود .. ولكن لو عاجبك وجوده خليه زي ما هو اوعاك تشيله أنا هقبل الهدية زي ما هيا) تقبل وافر تقديري واحترامي

السلام عليكم اخى الكريم لم افهم المطلوب جيداً .. عموماً جرب الملف التالى وابدى ملاحظاتك .. osamah3_2.rar

يا كاتب التاريخ أسمعنى وقول لى ما الخبر ..هل راح عهد النصر ام ولى الظفرخالد ينـــــــــــــادى .. اين سيف ابى بكر ؟؟وابن الزبير اراه يبكـــــــــــــــــــــــى من قهرعذراً رسول الله .. إذ ليس فينا عمـــــــــــرعذراً رسول الله .. إذ ليس فينا عمـــــــــــريا كاتب التاريخ مهلاً .. لا تغلق الصفحــــــــــــاتأحفاد خالــــــــــــد قد أتوا ومحمد ما مــــــــــــاتيا كاتب التاريخ مهلاً لاتغلق الصفحـــــــــــــاتأحفاد حمـــــــزة قد أتوا .. ورسولنا ما مـــــــــــات .. رسولنا ما مـــــــــاتإنى أراهم قادمين ويحملون مصحاف الجيب الصغيرة .. يقرأون .. يرتلون .. يرددون .. الله اكبر ومحمد ما ماتإنى أراهم قادمين .. يسبحون .. يمجدون .. ويرفعون أكفهم لله بعد الصلـــــــــــــــــواتيهللــــــون .. يمجــــــــدون .. يكبـــــــــــرون .. اللــــــــــــــــــــــه أكبــــــــــــــر .. ومحمد ما ماتإننا أبناء سعـــــــــــد إنما دماؤنا وفيــــــــــــــهوإذا دعا داعي الجهاد فإننا أرواحنا هديــــــهإننا أبناء حمـــــــــــزة إنما دماؤنا وفيــــــــــــــهوإذا دعا داعي الجهاد فإننا أرواحنا هديــــــهوليشهد التاريــــــــــــــخ دوما أن غزة حرة أبيـــــــه (وليشهد التاريــــــــــــــخ دوما أن شعوبنا حرة أبيـــــــه)

اصبحنا واصبح الملك لله استغفر الله العظيم من كل ذنب واتوب اليه لا اله الا انت سبحانك ان كنت من الخاطئين اللهم افتح لنا ابواب رحمتك وادم علينا الصحه والعافيه والسعاده وحب الناس ومحبتهم

صباحكم سعيد

الحمد لله الذى بنعمته تتم الصالحات صباحك معطر بذكر الله جزاك الله خيرا

الحمد لله

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

الرخم وصل عمل جميل بس احط التاتش الترفيهي وانا اتعب نفسي ليه بص للمرفق من غير كود Label Vertical Text YasserKhalil.rar

اعرض الملف برنامج مخازن السلام عليكم ورحمة الله وبركاته برنامج المخازن يشتمل عدة أوراق إكسيل في مصنف 1- شاشة دخول ترحيب بالمستخدم الكريم. اسم المستخدم: admin كلمة المرو:123 2- الصفحة الرئيسية:تحتوي على روابط أوراق المصنف وإمكانية الخروج. 3- إذن إضافة وإذن صرف ومخزن رئيسي وآخر فرعي . 4- تقرير حركة المخزن: حسب تاريخي البدء والانتهاء ولكل صنف ضمن المخزن المحدد مع إمكانية طباعة أصنافعدة يحدد المستخدم رقم الصنف الأول ضمن الخلية I1 والأخير في الخلية J1 وفقني الله وإياكم لما يحب ويرضى كما أسألكم الدعاء بظهر الغيب لي ولوالدي ولذريتي وللمؤمنين بالقبول والصلاح والنجاح والفلاح ...آمين ولولدي الحبيب "علي" بالرحمة والمغفرة والفردوس الأعلى من الجنة ...آمين والسلام عليكم ورحمة الله وبركاته. أخوكم المحب لكم محمد حسن المحمد أبو يوسف برنامج المخازن.xlsm صاحب الملف محمد حسن المحمد تمت الاضافه 17 فبر, 2016 الاقسام قسم الإكسيل

و من اسباب نجاح موقع التواصل Facebook الفيديوهات التي يتم مشاركته بين الاصدقاء و على الصفحات الشخصية للأشخاص و غالباً ما تكون فيديوهات غريبة او مضحكة او حتى فيديوهات علمية. قبل ظهور فيس بوك كان الاعتماد الرئيسي في مشاهدة الفيديوهات هو يوت يوب و لكن بعد ان اضاف مارك زوكربرج خاصية اضافة الفيديوهات في الفيس بوك بعد عدة شهور من انطلاق الموقع، اصبح المستخدمين يتجهوا شيئاً فشيئاً الى مشاهدة الفيديوهات على فيس بوك و الابتعاد عن اليوت يوب حيث انها وسيلة اسرع و مباشرة اثناء تصفح الموقع. حيث تعتمد سياسة شركة فيس بوك في الاساس على جعل الموقع رقم واحد لدى المستخدمين و ابقائهم في الموقع اطول فترة ممكنة، لذلك تطور الشركة فيس بوك يوماً بعد ي وم و تضيف مزايا و خصائص بحيث تجعل المستخدم لا يمكنه الاستغناء عن موقع التواصل الاجتماعي و توفر له كامل احتياجاته و من ضمنها بالطبع اضافة و مشاهدة و تحميل الفيديو في هذا الموضع سنتعرف على افضل الطرق لتحميل الفيديو من الفيس بوك سواء ببرامج أو بدون برامج للكمبيوتر و للهواتف الذكية بحيث تكون قادر على تحميل اي فيديو يعجبك اثناء تصفح الموقع و مشاركته مع الصدقاء او رفعه مرة اخرى على صفحة او بروفايل آخر. موقع تحميل الفيديو من الفيس بوك يعتبر موقع fbdown.net هو افضل و اشهر موقع لتحميل الفيديو من الفيس بوك عن طريق وضع رابط الفيديو في الموقع و بدء التحميل. و للحصول على رابط الفيديو قم بفتح الفيديو في نافذة وحده اولاً و انسخ الرابط من شريط العنوان برنامج تحميل الفيديو من الفيس بوك للكمبيوتر يعتبر برنامج FreeMake Video هو افضل برنامج لتحميل الفيديو من الفيس بوك و ايضاً من اي موقع اخر مثل يوت يوب ، و بذلك تستطيع استخدام البرنامج لتحميل الفيديو من الانترنت بشكل عام تطبيقات تحميل الفيديو للاندرويد و الايفون يوجد تطبيق رائع للاندرويد يسمى Video Download for facebook عند الدخول على رابط التحميل الموجود بالاسفل ستجد فيديو بالعربية يشرح خصائص البرنامج و مميزاته و كذلك كيفية تحميل الفيديوهات على الهاتف الاندرويد اما عن الايفون فبرنامج FaceVidz يقوم بتحميل الفيديو من الفيس بوك بسهولة يمكنك الحصول عليه من متجر اي تونز او من الرابط اسفل الموضوع يوجد طريقة اخرى لتحميل الفيديو على الهاتف بدون برامج وهي عن طريق المتصفح اوبرا ميني عند الضغط على الفيديو تظهر لك نافذة تحميل حيث ان هذا المتصفح لا يدعم تشغيل الفيديو مباشرة عليه لذلك يجعلك تقوم بتحميله أولاً ... و ايضاً توجد خاصية تحميل الفيديو في متصفح جوجل كروم للاندرويد و الايفون التحميل المصدر: تحميل الفيديو من الفيس بوك برنامج FreeMake Video Downloader من هنا برنامج تحميل الفيديو للفيس بوك من هنا تحميل الفيديو من فيس بوك للايفون اضغط هنا

جزاكم الله خير احبابي في الله جزاكم الله خير احبابي في الله جزاكم الله خير احبابي في الله

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

اتفضل اخى جزاك الله كل خير اخى سليم نفس المثال اخى سليم قمت بتحويله لك2003 بالتوفيق extract_number-2003.rar

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

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

اخى الفاضل هنا فى اول مشاركه تحت صورة البرنامج هتلاقى كلمة اعرض الملف اضغط عليها هتروح لصفحة الملف على طول وتحمله من هناك بالتوفيق

وعليكم السلام أخي كريمو في الحدث "قبل التحديث" للحقل تاريخ نهاية الخصم ضع هذه المعادلة: if StartDate >= EndDate then msgbox "Start Bigger then End" endif جعفر

السلام عليكم استاذ عبدالعزيز اذا سمحت لي ، فإن شاء الله انظر في موضوعك بعد كم ساعة جعفر

أخي الفاضل محمد حسن هل من الممكن توضيح كيف أضفت هذه الأداة إلي office 2007

وعليكم السلام انا غيرت شوي على المثال السابق: . ولكن ، اذا عملت التغيير التالي على التقرير وفي المجموعات والفرز: . فالنتيجة: جعفر 286.برنامج حساب الاجازات 3.accdb.zip

استاذ أبو عبد الله ... أعتقد أنك تقصد ... Dcount(a,tbl,a >0) 'for marege and have sons Dcount(a,tbl,a =0) 'for marege and dont have sons Dcount(a,tbl,a = -1) 'for not marege and nothave sons لأن الحقل a هو عدد الأولاد ...

أسعد الله صباحكم بكل خير إخوتي الكرام اللهم بك أصبحنا وبك أمسينا وبك نحيا وبك نموت وإليك النشور روى أصحاب السنن عن أنس بن مالك قال: كنت مع رسول الله صلى الله عليه وسلم جالساً يعني ورجل قائم يصلي، فلما ركع وسجد وتشهد دعا فقال في دعائه: اللهم إني أسألك بأن لك الحمد لا إله إلا أنت المنان بديع السماوات والأرض يا ذا الجلال والإكرام يا حي يا قيوم إني أسألك، فقال النبي صلى الله عليه وسلم لأصحابه تدرون بما دعا؟ قالوا: الله ورسوله أعلم، قال: والذي نفسي بيده؛ لقد دعا الله باسمه العظيم الذي إذا دعي به أجاب، وإذا سئُل به أعطى. قال الشيخ الألباني: صحيح... والله أعلم.

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

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

اسكت بقي متفكرنيش ابو صلاح كان عامل شوية شغل عاليين وجاب راموس ومارسيلو الارض بس النصيب بقي

بارك الله فيك أخي العزيز عبد العزيز البسكري أخي السائل يرجى وضع عنوان مناسب للموضوع مستقبلاً إن شاء الله ..راجع التوجيهات في الموضوعات المثبتة في صدر المنتدى جرب التالي ضع الكود التالي في حدث الفورم Private Sub UserForm_Initialize() Label1.Caption = Range("A1").Value End Sub ثم قم بوضع الكود التالي في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub Else UserForm1.Label1.Caption = Range("A1").Value End If On Error GoTo 0 End Sub لتجربة الملف قم بإظهار الفورم ...ستظهر أداة العنوان بها قيمة الخلية A1 .. اترك الفورم مفتوح وانقر في الخلية A1 وعدل القيمة لتجد أن الأداة يتم تحديثها تقبل تحياتي Update Label Automatically By Cell Change YasserKhalil.rar

السّلام عليكم و رحمة الله و بركاته جرّب هكذا أخي الكريم ..على أساس الليبل1 و الخلية A3 Private Sub UserForm_Initialize() Label1.Caption = Range("a3") End Sub

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

اكثر من رائع و لكن كيف التعامل معه باللغة العربية اعنقد انه يجب استعمال Text Direction لهذا الغرض

مرفقك اخى الكريم فقط اختر قاعدة البيانات التى تريد الحاق البيانات بها مع مراعات ان يكون نفس الحقول بنفس انواع بيانات الحقول نقل البيانات.rar

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

تفضل التقاعد.zip