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

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

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

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

أخي الكريم صاحب الموضوع يرجى تغيير اسم الظهور للغة العربية ليعبر عن شخصكم الكريم جرب المعادلة التالية في الخلية B2 =TRIM(IF(A2<>"",RIGHT(SUBSTITUTE(A2," ","!",LEN(A2)-LEN(SUBSTITUTE(A2," ", ""))),LEN(SUBSTITUTE(A2," ","!",LEN(A2)-LEN(SUBSTITUTE(A2," ", ""))))-FIND("!",SUBSTITUTE(A2," ","!",LEN(A2)-LEN(SUBSTITUTE(A2," ", ""))))),"")) ثم ضع المعادلة التالية في الخلية C2 =TRIM(IF(A2<>"",SUBSTITUTE(A2,B2,""),"")) إذا لم تعمل المعادلة قم باستبدال الفاصلة العادية بفاصلة منقوطة وإليك الملف المرفق فيه تطبيق للمطلوب Split Text & Numbers Using Formulas.rar

اتفضل اخى ان شاء الله يكون كما طلبت بالتوفيق 1.rar

أنا شخصيا موافق على الجوازة دى وندبح الاتنين فى ليلة الدخلة هههههههههههه

بسم الله الرحمن الرحيم http://up.top4top.net/downloadf-484ol21-rar.html

لا بقا طالما فيه بط فيها لاخفيها انا بقلكم اهو هههههههههههههههههههه بارك الله فيكم وجزاكم الله خيراً

وعليكم السلام المشكلة من البداية تكمن في العلاقات حيث أنك جعلت جدول الأصناف مرتبط مباشرة مع جدول العملاء وهذا خطأ تم تعديل مرفقك وإضافة جدول Main يعني جدول رئيسي (رأس الفاتورة) وربطه بجدول Sale تفاصيل الفاتورة مع إضافة عدم تكرار اختيار صنف لنفس الفاتورة انظر التعديل ووافني بالنتيجة مثال---.rar

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

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

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

كل الشكر والتقدير استاذى الغالي مجدي يونس على مبادرتك الطيبة ودعمك تقبل فائق احترامي

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

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

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

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

مساهمة مع الفكرة التى طرحها أستاذنا رمهان لا بأس أن تضع سالب واحد دلالة على غير المتزوج خاصة أن هذا الأمر سيعمل على تيسير عملية فلترة البيانات على حسب معيار اذا كان متزوج أم لا مثالا للتوضيح لنفترض أنى أريد تقرير به عدد المتزوجين ويعولون أولاد - وكذلك عدد المتزوجين ليس لديهم أولاد - وكذلك عدد غير المتزوجين فبامكانى الحصول على ذلك بسهولة من خلال استخدام دالة بسيطة كهذه: Dcount(a,tbl,a >1) 'for marege and have sons Dcount(a,tbl,a =1) 'for marege and dont have sons Dcount(a,tbl,a = -1) 'for not marege and nothave sons هذا والله أعلم

حماية الخلية الذى به معادلات بالكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub

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

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

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

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

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

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

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