ضاحي الغريب

اللهم امين ... وبالتوفيق ان شاء الله فورم بحث برقم الجلوس وبه إضافة وتعديل 2وحذف.xlsm

بعد اذن ا مجدي التعديل بالمرفقات فورم بحث برقم الجلوس وبه إضافة وتعديل 2وحذف.xlsm

ضيف الكود ده علي الفورم Private Sub TextBox3_AfterUpdate() If Me.TextBox1 = "" Then Exit Sub If ListBox1.Value <> 0 Then ListBox1_Click End If End Sub خده نسخ والصقه عندك مجرد هاتدخل الكمية وترجع للصنف هاشتغل جرب وقولي

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

الكود بعد تعديل شرط الكمية Private Sub ListBox1_Click() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual LR = Sheet1.Range("C" & Rows.Count).End(xlUp).Row + 1 For YYY = 0 To ListBox1.ListCount If ListBox1.Selected(YYY) = True Then If Me.TextBox3 = "" Then MsgBox "Please enter the quantity": Me.TextBox3.SetFocus: Exit Sub Range("F" & LR).Value = Me.TextBox3.Value Range("D" & LR).Value = ListBox1.List(YYY, 0) Range("B" & LR).Value = ListBox1.List(YYY, 1) Range("C" & LR).Value = ListBox1.List(YYY, 2) Range("E" & LR).Value = ListBox1.List(YYY, 3) Range("A" & LR).Value = ListBox1.List(YYY, 4) Range("G" & LR).Value = Format(ListBox1.List(YYY, 3) * Me.TextBox3.Value, "0.00") 'ListBox1.Visible = True 'ListBox2.Visible = True 'ListBox3.Visible = True TextBox1 = "" TextBox2 = "" TextBox3 = "" End If Next YYY Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub

الكود بعد التعديل جرب وقولي النتيجة Private Sub ListBox1_Click() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual LR = Sheet1.Range("C" & Rows.Count).End(xlUp).Row + 1 For YYY = 0 To ListBox1.ListCount If ListBox1.Selected(YYY) = True Then If Me.TextBox3 = "" Then MsgBox "Please enter the quantity": Me.TextBox3.SetFocus: Exit Sub Range("F" & LR).Value = Me.TextBox3.Value Range("D" & LR).Value = ListBox1.List(YYY, 0) Range("B" & LR).Value = ListBox1.List(YYY, 1) Range("C" & LR).Value = ListBox1.List(YYY, 2) Range("E" & LR).Value = ListBox1.List(YYY, 3) Range("A" & LR).Value = ListBox1.List(YYY, 4) Range("G" & LR).Value = Format(ListBox1.List(YYY, 3) * Me.TextBox3.Value, "0.00") ' Range("G" & LR).Value = Cells(9, 7).Formula = "=(E9 * F9)" ' Range("G" & LR).Value = "=(E9 * F9)" 'ListBox1.Visible = True 'ListBox2.Visible = True 'ListBox3.Visible = True TextBox1 = "" TextBox2 = "" TextBox3 = "" End If Next YYY Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub

حياك الله الشكر لله

حاجة من باب المرح لتسهيل استخدامك ضيفتلك وظائف تتحكم في اليوز فورم اضافة اسم مش موجود في القائمة ترتيب الاسماء حذف اسم من القائمة لو تتكرر ادخاله من ليست الاسماء دبل كليك لاي اسم هاتحذفه من القائمة جرب ويارب تكون فيها التسير لعملك Fawzy 10.xlsm

وما التوفيق الا من عند الله وجزاك خيرا علي دعائك واللهم يسخر لنا ولكم الطيبين ويهيئ لنا من كل امرنا مرفقا مع تحياتي

Generate PDF Dahy VBA Skills fun موضوعنا النهاردة موضوع شيق مدخل للدرس الثالث للفورم التفاعلي وفي نفس الوقت ها نتعرف فيه علي أدوات ها توفر الوقت والمجهود لشريحة كبيرة تستخدم قالب معين مثل الموارد البشرية لما ترسل طلبات التوظيف المالية لمطابقات كشوف الحساب للموردين واحنا داخلين علي موسم الجرد الختامي والبنوك او الشركات او المواقع التي ترسل رسائل دورية وما الي ذلك انا اخترت المثال علي شئون الموظفين وطلبات التوظيف وهانتعرف علي كيفية التعديل علي النموذج Word عن طريق الفورم عناصر الدرس ملف Templet word القالب المستخدم اداة Microsoft Outlook 16.0 Object Library أداة Microsoft Word 16.0 Object Library ونتعلم مع بعض VBA Dynamic Code وكيفية عمل ملف PDF وارساله بالايميل الشرح نقوم بإضافة الأدوات في الفيجوال كما يلي من Tools نختار References Microsoft Outlook 16.0 Object Library اضافة أداة Microsoft Word 16.0 Object Library تحديد مسار القالب كما يلي شفت + كليك يمين علي ملف الوورد ثم نختار Copy as Path حسب موقع الملف علي جهازك انا عندي في برتيشن F "\F:\GeneratePDF\Template_Contract.docx" تحديد مسار حفظ ملفات PDF الذي يحفظها البرنامج F:\Generate and Preview طبعا يلي مش عارف يغير في الكود يقوم بحفظ الملف المرفق علي برتيشين الFبعد فك الضغط مباشرة . ملف الورد يلي نستخدمه كقالب ولاحظ المسميات يلي انت ظللتها بالاصفر نفس مسميات الليبل ف الفورم وضعتها بين علامتي ##لانها بيانات متغيرة سيتم اضافاتها من الفورم لاحظ معي عند استدعاء الملف بالورد شاهد النتيجة البرنامج اضاف البيانات المظلله بشكل تلقائي الوظيفة الثانية للبرنامج اني ببعت الملف بالايميل من البرنامج لتوفير الوقت والوظيفة في حالة التقارير الدورية او النشرات او حسب استخدام الفرد الذي يحتاج ارسال عدد كبير في نفس الوقت مع ملاحظة انه بشكل تلقائي بياخد الايميل من الفورم ويضيف اسم الموضوع والمرفقات كما بالكود بشكل تلقائي طبعا الشرح موجز لاهم العناصر انا برفق مع الشرح مثال عملي منه للشرح ومنه نستفيد منه او من الافكار يلي فيه وبكون منتظر حد يسال عن اي شئ داخل الملف بصدر رحب لكن للاسف كعادتنا نحفظ في الارشيف علي اية حال الملف بالمرفقات واي استفسار لا تترد كلنا بنتعلم مع بعض شارك وتفاعل انت تسال وذلك يسال واخر يجيب وكلنا هانستفيد الدرس القادم ان شاء الله هاشرح الاكواد ونتعرف علي كود الحغظ والتعديل والبحث الديناميكي لضمان عمل الملف اتبع الشرح السابق في اضافة الادوات ومسار الملف وبالتوفيق للجميع ولا تنسونا من دعائكم بظهر الغيب بصلاح الحال GeneratePDF.rar

اضفت لك تعديل الفصل علي الملف بطريقة سهلة بدلالة رقم الصف في الشيت لان عندك بيانات متكررة وما يكون فيه خلل في التعديل بعد حفظ البيانات فعل خاصية Edit ثم دبل كليكSelect Row علي اي صف تريد تغير بيانات الفصل تظهر في التكست اعلاه ثماختار من قائمة الكمبوبوكس الفصل الجديد قم OK عاوزك تضبط المدرسين في الحصص زود عليهم احسن من قعدتهم علي الموبايلات تاركين الطلبة (ههههه) جرب وقلي النتيجة Fawzy 10.xlsm

بالنسبة لفورمات الصف الاكسيل بعتبره تاريخ ويحوله الي فورمات تاريخ ......... في ورقة العمل غير تنسيق العمود الي نص وفي الكود Format(.......,"@") استبدل النقاط بالعمود في الليست بوكس والترحيل واللهم بوفقك ويسير لك كل امر

عليكم السلام وورحمة الله وبركاته ..... احبك الله الذي احببتني من اجله وجزاك الله خيرا علي دعائك الطيب واللهم يتقبل منا ومنكم صالح الاعمال وادعوا الله ان اكون عند حسن ظنكم في اليك الفورم بعد التعديلات يمكن اضافة مدرسي التربية والتعليم دفعة واحدة وتوزع الجداول كما شئت وادعوا الله ان يلتزموا بها ربنا يصلح حال المدرسين لانهم هم الاساس في بناء المجتمع من ليست بوكس المدرسين اختار المدرسين وبعد اختار المدرس الهدف يلي هاتنسخ منه البيانات ثم Ubdate list ثم Save Data .... تظهر لك رسالة تاكيد الخفظ والترحيل لةورقة العمل وبعد رسالة تخيرك الاحتفاظ بالقائمة القديمة المحفوظة مسبقا ولا تعملك قائمة جديدة جرب الملف واعلمني بالنتيجة وبالتوفيق فوزي 9 اوفيسنا.xlsm

استبدل السطر التالي Range("F" & LR).Value = Me.TextBox3.Value بالشرط If Me.TextBox3 <> "" Then Range("F" & LR).Value = Me.TextBox3.Value Else MsgBox "Please enter the quantity" Me.TextBox3.SetFocus End If End Sub او If Me.TextBox3 = "" Then MsgBox "Please enter the quantity": Me.TextBox3.SetFocus: Exit Sub Range("F" & LR).Value = Me.TextBox3.Value

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

الملف التالي يمكنك معاينة كل المدرسين يلي اضفتهم قبل الحفظ فوزي 2 اوفيسنا.xlsm

فمهتك عاوز تاخد بيانات جدول المدرس 1 مثلا ( المواد - الفصل - الحصص ) وتنسخها لمدرس 3 مثلا او اي عدد من المدرسين ان كان كذلك جرب الملف التالي جرب واعلمني بالنتيجة فوزي 2 اوفيسنا.xlsm

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

رابط الدرس الثاثي في الفورم التفاعلي Advance Data Entry Software https://www.officena.net/ib/topic/116978-advance-data-entry-software/

بسم الله الرحمن الرحمن الرحيم الدرس الثاني لليوزفورم التفاعلي تعال نفكر مع بعض خارج المألوف والمعقول بمعني ايه اي حد بفكر يعمل فورم يسهل استخدام البيانات بقعد يفكر في شكل الفورم وتصميمه وتركيب الاكواد وما الي ذلك في موضوعات تناولت الفورم المرن او حسب مايكون اسمه فورم بيركب علي ورقة العمل وتضبط شغلك عليه لو فكرنا بطريقة مختلغة برمجية خارج حدود التصميم والاكواد والوقت والمجهود طيب الفكرة هنا ايه ...........!!! فورم يصنع لك الفورم يلي انت عاوزه بالالوان والاعمدة والشكل نفس فكرة مواقع التصميم والبلوجر يلي بتعطيك template قالب جاهز وتعدل عليه ندخل في الموضوع النهاردة موضوعنا فورم تفاعلي يصنع لك فورم خدمي نضيف ورقة عمل جديد من خلال التبويب Insert Sheet نضيف عدد الاعمدة يلي انت عاوزها في قاعدة بياناتك من خلال Enter No of columan مثال اضافة ورقة عمل جديدة باسم Officana عدد الاعمدة 5 مثلا (Sno-Name-username-password-Contact) اقوم بادخال اسماء الاعمدة ثم Add من خلال الفورم هاتقدر تعدل المسيات تضيف تحذف كما تشاء بعد ما تنتهي من الاعداد للتصميم لقاعدة بيانات كل يلي عليك تختار الشيت تدخل طريق العرض من خلال عدد الاعمد مثلا 3 وتضغط openForm وشوف النتيجة وهنا هتلاقي وظايف البحث والتعديل والحذف كما اخترت طريقة العرض 3 طيب لو غيرنا طريق العرض 2 لاحظ تغير الفورم معاك لتغير اللون اضغط علي Color هاسيبك تجرب بنفسك وتشوف النتيجة اتمني من الله اكون قدرت اوصلك المعلومة وافيدك الملف بالمرفقات Advance Data Entry Software Officana.xlsm الدرس القادم الفورم التفاعلي المتقدم عن نقاط البيع ان شاء الله برنامج POS لادارة نقاط البيع مع فاتورة ضريبية

للاسف لا ... من غير الاسكانر مش عاعرف اجرب الكود

سؤالك هو عند اختيار الكود من كمبوبوكس يتجاهل اول رقمين من ناحية اليمين و يبحث عن اعلي قيمة في العمود (A) الكود 4801 او 4802 تو اي كود بدايته 48 يبحث عن اعلي قيمة بالمقابل االحل استبدل السطور التالية في الكود If Val(Me.ComboBox1) = Ws.Cells(i, "B") Then Me.TextBox1 = Ws.Cells(i, "A").Value الي السطر If Left(Val(Me.ComboBox1), 2) = Left(Ws.Cells(i, "B"), 2) Then Me.TextBox1 = Application.WorksheetFunction.Max(Ws.Cells(i, "A").Value) شرح التعديل انه لو الرقمين علي الشمال في الكود متساويتان للرقمين اليسار في العمود اختار اعلي قيمة مقابلة للبحث والنتيجة عند البحث باي الاكواد التي تبدا ب 48 او 49 الملف بعد التعديل بالمرفقات اتمني اكون افدك وبالتوفيق wo.xlsm

علي ما حسب مافهمت من طلبك انك تختار المدرس من ليست بوكس تظهر بيانات المادة شرح الكود في حدث انطلاق اليوز فورم اضافة قائمة المدرسين بدون تكرار Private Sub UserForm_Initialize() On Error Resume Next 'اضافة قائمةا المدرسين الى الليست بوكس بدون تكرار Set SH = Sheet1 LsRow = SH.Cells(Rows.Count, "C").End(xlUp).Row With Me 'مسح قائمة الليست لمنع تكرار القائمة .LstItm.Clear: .ListBox1.Clear: .ListBox2.Clear Dim MyDahy As Collection, Dl As Range Set MyDahy = New Collection ' العمود ورقم الصف For Each Dl In SH.Range("C4:c" & LsRow) MyDahy.Add Dl.Value, Dl.Text Next Dl For j = 1 To MyDahy.Count .LstItm.AddItem MyDahy(j) .ListBox1.AddItem MyDahy(j) Next j: End With: End Sub وفي حدث الدبل كليك لليست بوكس 1 Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'اضافة قائمةا المدرسين الى الليست بوكس بدون تكرار Dim R As Integer With Me If .ListBox1.ListIndex >= 0 Then R = .ListBox1.ListIndex .ListBox2.Clear .LstItm.Value = .ListBox1.List(R, 0) 'ارتفاع الليست بوكس .ListBox1.Height = 200: .ListBox2.Height = 200 End If: End With: End Su كود البحث لليست بوكس 2 من اليمين لليسار Sub UpDateLstBoX() If Me.LstItm.Value = "" Then Exit Sub 'ليست بوكس من اليمين للشمال Set SH = Sheet1 With SH .Activate LsRow = .Cells(Rows.Count, "C").End(xlUp).Row On Error Resume Next For a = 4 To LsRow If .Cells(a, 3) = LstItm.Value Then ListBox2.ColumnCount = 4 ListBox2.ColumnHeads = False ListBox2.AddItem .Cells(a, 6) ListBox2.List(C, 1) = .Cells(a, 5) ListBox2.List(C, 2) = .Cells(a, 4) ListBox2.ColumnWidths = "60,60,100,0" C = C + 1 : End If: Next End With: End Sub لاحظ النتيجة عند تكرار مواد مدرس 3 الكود مع الشرح بالمرفقات حتي تستطيع التعديل بما يتناسب مع فكرتك نسخ من الى .xlsm

]حياك الله اخي سعد دائما التفاعل يدفع للاستمرار انت تسال وهذا يسال وذاك يجيب والكل يستفيد اولا الحلقة التكرارية بدات بصفر وليس واحد لان صفحات المالتي البيج تبدا من صفر ولو غيرنا الحلة التكراريةمن صفر الي 1 الكود هايعطيك الخطا لاحظ في الكلاسيك مودل UserForm1.MultiPage1.Value = Right(LblBtn.Name, 1) - 1 Me.MultiPage1.Style = fmTabStyleNone السطر السابق لاخفاء تبيوبات المالتي بيج وهذا السطر عند انطلاق الفورم تكون الصفحة الاولي هي الاكتيف Me.MultiPage1.Value = 0 جزاكم الله خيرا جمعيا

ان شاء الله احاول تكون الشروحات فيديو