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

تكملة لموضوع جعل النص بشكل رأسى الذى بدأه أخى الحبيب / ياسر خليل قررت اضافة فكره أخرى بالاضافة الى جعل النص بشكل رأسى وهذه الفكرة إهداء إلى أخى الحبيب ياسر خليل 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 الاقسام قسم الإكسيل

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

ماشاء الله جزاك الله كل خير

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

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

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

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

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

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

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

نفضل اخي هذا مثال مرفق اما بالنسبة للكود يصبح هكذا (يجب ةضغ الكلمة المطلوبة في الخلية A1) Private Sub UserForm_Initialize() 'تعريف المتغير من النوع النصي Dim Word As String 'تعريف متغير من النوع عدد صحيح Dim I As Integer '[Label] تعيين عنوان لأداة الـ Label1.Caption = Cells(1, 1).Value 'حلقة تكرارية من الرقم 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 Book1.rar

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

السلام عليكم ورحمة الله وبركاته يقول تعالى: ﴿إِنَّمَا الْمُؤْمِنُونَ إِخْوَةٌ فَأَصْلِحُوا بَيْنَ أَخَوَيْكُمْ وَاتَّقُوا اللَّهَ لَعَلَّكُمْ تُرْحَمُونَ﴾1. أهمية الأخوة لقد حثّ‏َ الإسلام العزيز على العلاقات الإنسانية القائمة على أسس الخير والصلاح والتي يكون عنصر الربط فيها نابعاً من الروح السامية والقلب السليم والعقيدة الصحيحة. لما في تلك العلاقات من تأثير متبادل بين الأطراف وخصوصاً الأخوّة في الله تعالى التي تترك بصماتها في الحياة الداخلية والخارجية للإنسان بعيداً عن حدود الإتصال بالنسب فقط كما قيل : "ربّ‏َ أخٍ لك لم تلده أمك فنحن داخل هذا المنتدى يوميا نطلب ونجيب ونناقش ونفيد ونستفيد كل هذا جميل فهذا غذاء العقل فأين غذاء الروح نريد ان تربطنا المودة والمحبة والاخوة في الله فنحن هنا اسرة فلابد من صلة رحم هذه الاسرة الكريمة الجميلة فلا نريد جعل هذا المكان مجرد تحصيل علم بحت فلقد قمت منذ فترة بعمل موضوع في المنتدى المفتوح ليكون ترويح عن النفس من ضغوط العمل وتعب الاعصاب الموضوع بسيط جدا كل واحد من احبابي الاعضاء لما يدخل المنتدى يدخل الموضوع يكتب اي شئ يعبر عن مزاجه حالته او اي شئ يراه نافعا لاخوته المهم نتواصل وكما قال اخي الغالي ابو يوسف وعسى أن تجلب هذه الصفحة رواداً أُخر ...فلا تنحصر باثنين أو ثلاثة ...نحن بحاجة إلى التغذية الروحية ... http://www.officena.net/ib/topic/64516-صباح-الخير-اثبت-حضورك-بكلمة/ اللهم إنا نسالك الفردوس الأعلى وأن تجمعنا في مستقر رحمتك ...آمين والسلام عليكم ورحمة الله وبركاته

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

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

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

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء اسعدنى الله بكم خير صحبة وخلان اجتمعنا على العلم فزادانا الله من فضله وعلمه وجمعنا بالايمان والمحبة فى الله فنعم الرزق المبارك من الله عز وجل

تفضل هذا الشرح البسيط

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

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

أخي الفاضل الدهشوري إليك حل بالأكواد (رغم أنك طلبت أن يكون بالمعادلات) .. لعل وعسى أن يكون المطلوب .. وأنا شخصياً أفضل التعامل بالأكواد Sub ExtractData() Dim arrData, arrOut(1 To 1000, 1 To 5), I As Long, P As Long, D1 As Date, D2 As Date, isQualified As Boolean D1 = ورقة2.Range("E2").Value D2 = ورقة2.Range("H2").Value With ورقة1 arrData = .Range("A1:H" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value For I = 1 To UBound(arrData, 1) If arrData(I, 1) = "التاريخ:" Then If arrData(I, 2) >= D1 And arrData(I, 2) <= D2 Then P = P + 1 arrOut(P, 1) = arrData(I, 7) arrOut(P, 5) = arrData(I, 2) isQualified = True Else isQualified = False End If End If If arrData(I, 1) = "إجمالى" And isQualified Then arrOut(P, 2) = arrData(I, 2) Next I End With ورقة2.Range("B5").Resize(UBound(arrOut, 1), UBound(arrOut, 2)).Value = arrOut End Sub تقبل تحياتي كشف حساب.rar

السلام عليكم أخى الفاضل جرب المرفق اماكن.rar

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

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

بعد أذن الاستاذ / منتصر يمكن الملف المرفق يكون فيه مايريده الاخ السائل علما بان الملف منقول نقلا كاملا من منتدي الفريق العربي ولاسفي الشديد لم أتذكر اسمه الان وليس لي فيه اي تعديل او اي شيئ ارجو انساب هذا العمل له هذا للأمانة والله يحفظه ويرعاه اخيكم ابو شادي _______________________.rar