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

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

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

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

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

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

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

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

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

شكرا على ردك ومساعدتكاقتباس هجرب واشوف

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

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

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

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

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

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

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

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

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

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

جزاكم الله خيراً أخي الحبيب رجب على هذا الحل الرائع إليك حل آخر إثراءً للموضوع ضع الكود التالي في حدث الفورم 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