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

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اخوتي / اخواتي لي الشرف ان انظم الى هذا الصرح العلمي ، سائلاً المولى جل وعلا ان يوفقني لما فيه الخير للجميع 🙂 في اول مشاركة لي ، اضع بين يديكم برنامج مسقط التقارير (مسمى صانع التقارير متداول كثيرا ، لذا احببت ان اسمي برنامجي بإسم مميز ، إسم مسقطنا الحبيبة 🙂 ). البرنامج في نسخته الاولى ، لذا ، فلا تتوقعوا الكثير منه 🙂 في احد المشاريع التي عملت عليها قريبا ، كان العمل لسجلات شؤون الموظفين ، ولم يكن بالامكان عمل تقرير محدد ، حيث كانت التقارير المطلوبة من الادارة بشتى انواع البيانات ، طولا وعرضا. لذا اضطررت العمل على صانع للتقارير (في الواقع مسقط التقارير يعتبر برنامجا بحد ذاته ، فالعمل كان ، برنامج في برنامج 🙂 ). مع ان البرنامج بسيط في طريقة عمله (وطبعا عندي الكثير من الاشياء الاخرى التي اود ان اضيفها ، لكن في وقتها ان شاء الله ، وبما ان البرنامج مفتوح المصدر ، فانا ارحب بمن يضيف عليه خصائص جديدة 🙂 ) ، فمع بساطة البرنامج ، إلا ان نتائجه مرضية 🙂 العمل على البرنامج ابسط بكثير من شرحه 🙂 يمكنك نقل هذه الكائنات السته الى برنامجك الخاص ، ومسقط التقارير سيعمل بدون الحاجة الى اي تغيير او كود: مسقط التقارير يعمل على الجداول والاستعلامات فقط ، واليكم طريقة العمل: جدول او استعلام: اختر من ايهم تريد ان تعمل تقريرك ، جدول او استعلام ، الاسم: على اساس الاختيار السابق ، ستظهر لك قائمة بجداولك او استعلاماتك ، وعندما تختار اسم جدول او استعلام ، فان النموذج الفرعي الذي اسفل الاسم سوف يمتلئ باسماء الحقول من الجدول او الاستعلام ، وكلها عليها اشارة اخفي (اي كلها ستكون مخفية من الظهور في النموذج الفرعي الذي بالاسفل) ، احذف اشارة الاخفاء عن الحقول/الخانات التي تريدها ، وستظهر لك في النموذج الفرعي الذي في اسفل النموذج. هذا النموذج هو شكل مبسط من التقرير ، فكما ترى الحقول وعرضها ، وعدد السجلات ، ستراها في التقرير. هناك خطان فوق النموذج الفرعي ، باللون الاصفر والاخضر ، اذا كانت بياناتك اقل من الخط الاصفر ، سيكون التقرير بالطول ، وإلا فانه سيكون بالعرض ، وهناك خطان صفر ، فالمسافة بينهم ستكون للترقيم التلقائي للتقرير (لاحظ ان التقرير لبيانات النموذج ادناه سيكون بالعرض ، لأننا تخطينا الخط الاصفر 🙂 يمكننا ان نمسك الحقول/الخانات بالزر الايسر من الفأرة ونغير ترتيبها يمينا ويسارا ، كما ان البرنامج يحترم عرض الحقل الذي تقوم بتعديله ، (لاحظ ان التقرير لبيانات النموذج سيكون بالطول ، لأننا في حدود الخط الاصفر 🙂 وهذا هو التقرير لبيانات النموذج السابق ، ولاحظ ان البرنامج يقوم بتغيير ارتفاع الصف تلقائيا ، حتى يمكن مشاهدة جميع بيانات الحقل. اذا قررت ان تتعدى الخط الاصفر ، فنفس شروط الخط الاصفر تنطبق على الخط الاخضر ، وهنا نرى باننا اضفنا عنوان لراس صفحة التقرير ، واضفنا معلومات عن موضوع التقرير ، بالاضافة الى معلومات في ذيل التقرير: وهذا هو تقرير لبيانات النموذج السابق ، ولاحظ ان البرنامج يوسع عمود الترقيم التلقائي ليسد المسافة: بعد اختيار الحقول التي نريدها في التقرير ، نستطيع ان نفرز الحقول بالطريقة التي نريد: وكذلك تصفية البيانات حسب الحاجة: وهذا هو تقرير لبيانات النموذج السابق ، لاحظ عدد السجلات قد تغير ، لأني طلبت ان ارى السجلات التي مبالغها اكبر من 500: البرنامج لا يحفظ التقارير (نعم ، عمل طريقة لحفظ اسم لكل تقرير ، على قمة قائمة التحديثات ان شاء الله 🙂 ) ارجوا ان تتقبلوا مني هذا العمل المتواضع 🙂 اسئلة/اقتراحات ، سأحاول الرد على قدر استطاعتي ان شاء الله 🙂 جعفر ملاحظة1: عمود المجموع لا يعمل ، وكان يجب ان اخفيه 😞 ملاحظة2: في الاساس كان عندي كمية كبيرة من صور الشرح ، إلا ان المنتدى لا يسمح بأكثر من 10 مرفقات ، فاختزلت الموضوع 🙂 ملاحظة3: ادراج فيديو لطريقة عمل التقرير: Muscat_Reports.zip

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

مساهمة مع الفكرة التى طرحها أستاذنا رمهان لا بأس أن تضع سالب واحد دلالة على غير المتزوج خاصة أن هذا الأمر سيعمل على تيسير عملية فلترة البيانات على حسب معيار اذا كان متزوج أم لا مثالا للتوضيح لنفترض أنى أريد تقرير به عدد المتزوجين ويعولون أولاد - وكذلك عدد المتزوجين ليس لديهم أولاد - وكذلك عدد غير المتزوجين فبامكانى الحصول على ذلك بسهولة من خلال استخدام دالة بسيطة كهذه: 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 هذا والله أعلم

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

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

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

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

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

جزاكم الله خيراً أخي الحبيب رجب على هذا الحل الرائع إليك حل آخر إثراءً للموضوع ضع الكود التالي في حدث الفورم Private Sub UserForm_Initialize() Dim Rng As Range Dim Dn As Range Dim Dic As Object With Sheets("Sheet1") Set Rng = .Range(.Range("C6"), .Range("C" & Rows.Count).End(xlUp)) End With Set Dic = CreateObject("Scripting.Dictionary") Dic.CompareMode = vbTextCompare For Each Dn In Rng: Dic(Dn.Value) = Empty: Next ComboBox1.List = Application.Transpose(Dic.keys) End Sub Private Sub ComboBox1_Click() Call cValues(ComboBox1.Value, ComboBox2, 4) '4 Is Column Number End Sub Private Sub ComboBox2_Click() Call cValues(ComboBox2.Value, ComboBox3, 5) '5 Is Column Number End Sub Sub cValues(Txt As String, Obj As Object, Col As Integer) Dim Dn As Range Dim Rng As Range Dim Dic As Object Obj.Clear With Sheets("Sheet1") Set Rng = .Range(.Cells(6, Col), .Cells(Rows.Count, Col).End(xlUp)) End With Set Dic = CreateObject("Scripting.Dictionary") Dic.CompareMode = 1 For Each Dn In Rng If Dn.Offset(, -1).Value = Txt Then If Not Dic.exists(Dn.Value) Then Dic(Dn.Value) = Empty End If End If Next Dn Obj.List = Application.Transpose(Dic.keys) End Sub قمت بإعادة تسمية الكومبوبوكس .. بدلاً من Sanf استخدمت الاسم الافتراضي ComboBox1 وبدلاً من Nawa استخدمت ComboBox2 والثالث جعلته بدلاً من ComboBox1 جعلته ComboBox3 .. كما قمت بإزالة الـ Row Source لأول كومبوبوكس .. تم الاستغناء عن الأكواد في حدث ورقة العمل .. فقط الكود في حدث الفورم هو الذي يقوم بالمهمة كاملة إن شاء الله أرجو أن يكون الملف مقبول لديكم تقبل تحياتي Dependent ComboBox On UserForm YasserKhalil.rar

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

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