كل الانشطه

لو عملت لك انا او غيري سيعمل لك مثل نموذج frmInvoiceEdit تماما خلاص طلبك محلول اترك نموذج frmInvoice واعمل على نموذج frmInvoiceEdit .. فقط اضف زر : جديد

يعني طلب مني القيام بهذا التعديل من اجل تسهيل عملية المراقبة والتعديل . يعني نقوم بادخال بيانات وبعدها نراقبها ونعدل ان كان هناك خطأ في نفس النموذج

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

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

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

عليكم السلام هذا النموذج تم اعداده للإدخال فقط قصدا ,, بحيث لا يتمكن المستخدم من عرض البيانات والتعديل عليها بينما يتاح هذا من خلال النموذج frmInvoiceEdit .. الذي يمكنك حجبه عن المستخدم في الصلاحيات

قد يكون لــ كرت الشاشة والدقة دور في المشكلة التي تظهر .. جرب برنامجك على جهاز آخر

من باب التجربة الشخصية .. اجعل الحدث TimerInterval = 500 وليس 1000 وجرب هل تأثر ( اختلفت النتيجة ) معك الترميش أو الوميض ؟؟؟؟

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل في نموذج frmInvoice : أريد زيادة الأزرار التالي: جديد - حذف - الأول- التالي- السابق - الأخير للعمل على نفس النموذج-وتصفح البيانات المدخلة في نفس النموذج **الرجاء المساعدة والتوجيه وبارك الله فيكم** stock .rar

الاخوه الافاضل السلام عليكم ورحمة الله وبركاته في هذا الكود عندما اعمل توزيع البيانات الشئ معين مثل (الصنف) اذا كان اسم نوع الصنف طويل مثل (مكيف اسبلت اربعة وعشرون وحده )لا يقبل التوزيع به ويحوله الى رقم سؤالي : كيف اجعل الكود أو ما التغير أو الاضافة لجعله يقبل الاسم الطويل بدون الاختصر منه ولك خالص الشكر والتقدير الكود: Sub Splitdatabycol() 'updateby Extendoffice Dim lr As Long Dim ws As Worksheet Dim vcol, i As Integer Dim icol As Long Dim myarr As Variant Dim title As String Dim titlerow As Integer Dim xTRg As Range Dim xVRg As Range Dim xWSTRg As Worksheet Dim xWS As Worksheet On Error Resume Next Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8) If TypeName(xTRg) = "Nothing" Then Exit Sub Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8) If TypeName(xVRg) = "Nothing" Then Exit Sub vcol = xVRg.Column Set ws = xTRg.Worksheet lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row title = xTRg.AddressLocal titlerow = xTRg.Cells(1).Row icol = ws.Columns.Count ws.Cells(1, icol) = "Unique" Application.DisplayAlerts = False If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet" Else Sheets("xTRgWs_Sheet").Delete Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet" End If Set xWSTRg = Sheets("xTRgWs_Sheet") xTRg.Copy xWSTRg.Paste Destination:=xWSTRg.Range("A1") ws.Activate For i = (titlerow + xTRg.Rows.Count) To lr On Error Resume Next If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol) End If Next myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants)) ws.Columns(icol).Clear For i = 2 To UBound(myarr) ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & "" If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then Set xWS = Sheets.Add(after:=Worksheets(Worksheets.Count)) xWS.Name = myarr(i) & "" Else xWS.Move after:=Worksheets(Worksheets.Count) End If xWSTRg.Range(title).Copy xWS.Paste Destination:=xWS.Range("A1") ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy xWS.Range("A" & (titlerow + xTRg.Rows.Count)) Sheets(myarr(i) & "").Columns.AutoFit Next xWSTRg.Delete ws.AutoFilterMode = False ws.Activate Application.DisplayAlerts = True End Sub الاصناف.xlsm

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

شكرا اخي الكريم بارك الله فيك دي ميزه مكنتش باستخدمها خالص ولا اعرفها ان شاء الله احاول اعرف اكتر عنها ألف شكر 🏆🥰

السلام عليكم قم بانشاء مجلد في اي مكان بالجهاز لحفظ الملفات اليك التعديل الشرقية1 (1).xlsm

و عليكم السلام ورحمة الله و بركاته انشيء ملف جديد و وأضبطه كما تريد من حيث الحجم و الهوامش و كل شيء بعدين احفظ الملف باسم مثلا A4 وبصيغة Excel Template (*.xltx) الحفظ يكون في المسار التالي C:\Users\[اسم المستخدم]\Documents\Custom Office Templates لما تنشئ ملف جديد اختار القالب اللي أنت عملته اللي هو A4

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

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

السلام عليكم المشكلة أن الكود يستخدم عامل البحث النصي (*) مع عمود يحتوي على أرقام - عامل * مخصص للنصوص وليس للأرقام اليك كود يتخقق من الحالة اولا 02- محرك بحث يعمل على تصفية البيانات حسب كل خلية على حدى.xlsm

هذا الملف المرفق لمحرك بحث يعمل على تصفية البيانات حسب كل خلية على حدى (كل خلية تبحث في العمود المحدد لها) ... ارجو تصحيح الكود لأن خاصية TextBox2 تعمل بشكل جيد مع عمود الأسماء .... أما خاصية TextBox1 لا تعمل مع عمود رقم الموظف... هل يمكن أن تعمل كل خلية على حدى (وحدها) . ؟ 01- محرك بحث يعمل على تصفية البيانات حسب كل خلية على حدى.xlsm

تم إغلاق التجربة ، شكراً لكل من ساهم في متابعتي للنتيجة وتفاعله معي

وعليكم السلام ورحمة الله وبركاته تم وضع معادلات في العمود G وكذلك العمود J نموذج.xlsx

السلام عليكم ورحمة الله وبركاته الاخوه الافاضل ارجوا مساعدتي في جعل النموذج المرفق يجمع لي العمود c&d&f&e ثم ينقص من العمود h & i ليصبح الناتج في j وكذلك مرفق نموذج بالمطلوب وجزاكم الله خيراً نموذج.xlsx

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

او جرب هذا الملف ربما يتوافق مع 2007 ليس لدي الاصدار لاجرب 3فلتر.xlsm3فلتر.xlsm

وعليكم السلام ورحمة الله وبركاتة تعني أن هناك مرجع (Reference) مفقود في مكتبة VBA، وخسب الصورة Excel 2007 عند استخدام بعض الدوال مثل Trim أو الكائن Scripting.Dictionary جرب الحل التالي افتح محرر الأكواد من القائمة العلوية اختر: Tools → References ابحث عن أي سطر مكتوب بجانبه: MISSING: أزل علامة الصح من المربع الموجود أمام هذا المرجع. اضغط OK وأغلق النافذة. جرّب تشغيل الكود من جديد واعلمنى بالنتائج

يتشرف #مركز_الرؤية_الاستراتيجية_للتدريب #Strategic_Vision_Training_Center لدعوة سيادتكم للأنضمام الي الدورات التدريبية التالية,,,,, #دورات #الهندسة_الكهربائية #2025 #مركز_الرؤية_الاستراتيجية مقدمة إن أهمية الدورات التدريبية ليست قاصرة فقط على الحياة المهنية كما يظن أغلبنا .. ولكن الدورات التدريبية تهدف إلى نقل المعرفة والخبرات العملية التى تثقل مهارات الأفراد وتعزز الثقة بالنفس لديهم مما يساهم في إعداد الكوادر مما يعود بدوره على تطوير وتقدم المؤسسات .لذا يهدف مركز الرؤية الاستراتيجية للتدريب إلى تعزيز مهارات وخبرات الافراد من خلال أقوى البرامج التدريبة لنواكب كل تطور في سوق العمل . #دورات #الهندسة_الكهربائية دورة اجراءات التوعية بالسلامة الكهربائية دورة اجراءات الوعي بالجهد العالي دورة الأساسيات الكهرباء دورة التأريض والترابط دورة التحقق الأولي والفحص الدوري والاختبار والاعتماد للتركيبات الكهربائية دورة الدخول الآمن إلى اللوحات الكهربائية أو مرفقاتها دورة الصيانة الكهربائية الصناعية دورة العزل الكهربائي الأمن لأنظمة الجهد المنخفض دورة تركيب لوائح الأسلاك دورة تصميم التركيبات الكهربائية والتحقق منها دورة تقييم المخاطر الكهربائية دورة سلامة الماكينات الكهربائية دورة شحن السيارة الكهربائية دورة فحص واختبار المعدات الكهربائية دورة اللائحة الكهربائية في بيئة العمل دورة المحركات الكهربائية دورة الطاقة الشمسية وأنواع الطاقة المتجددة دورة المفاتيح الكهربائية (إختبار-صيانة-تركيب) دورة التركيبات الكهربائية في المباني السكنية والمستشفيات والمصانع دورة صيانه المعدات الكهربائيه واكتشاف الأعطال واصلاحها دورة متطلبات التمديدات الكهربائية دورة صيانة المحولات وخلايا التوزيع دورة وحدات تحكم منطقية عامة قابلة للبرمجة PLC دورة صيانة وتشغيل المولدات الكهربية دورة تحليل ومراقبة الجودة في نظم القوى الكهربائية دورة قراءة المخططات الكهربائية لدوائر التحكم دورة لوحات التوزيع للجهد المتوسط دورة تصميم وتشغيل وصيانة الشبكات الكهربائية كما يتم تنفيذ #الدورات_التدريبية فى #المجالات_التدريبية الاتية : #الدورات الهندسية ) الكهربائية - الميكانيكية والسيارات - الهندسة المدنية والمشاريع والطرق - هندسة المساحة - الصيانة - البترول والجولوجيا( دورات البيئة وصحة وسلامة الغذاء دورات الامن الصناعي والسلامة والصحة المهنية دورات الامن دورات القانون والعقود دورات الجودة والأنتاج دورات القيادة والادارة دورات العلاقات العامة والدولية والاعلام دورات السكرتارية وادارة المكاتب دورات التسويق والمبيعات وخدمة العملاء دورات الموارد البشرية دورات المحاسبة والمالية دورات البنوك والمصارف دورات المشتريات والمخازن دورات النقل و اللوجستيات وادارة سلاسل التوريد أماكن الانعقاد ( #دبي #اسطنبول #كوالالمبور #المغرب #السعودية #شرم_الشيخ #القاهرة #الأسكندرية #لندن # اسبانيا #كندا ) الاعتمادات احصل الان على شهادتك باعتماد cpd الدولى كما يوجد خصم للشركات والهيئات والجهات الحكومية والمجموعات كما يتم تنفيذ أي دوره تدريبيه اخرى تلبي احتياجاتكم التدريبية بالوقت و بالمكان المناسبين لكم على ان يكون عدد المشاركين (2) كحد ادنى قاعات التنفيذ بفنادق 5 نجوم ذات الشهره العالميه مجهزه بالوسائل السمعيه والبصريه للتسجيل او لطلب العرض الفنى والمالى يرجى الاتصال او ارسال بريد الاكترونى Ahmed Mohamed 00201551848384 : WhatsApp Training@svtcenter.com www.svtcenter.com Facebook https://www.facebook.com/profile.php?id=100086139318374 Twitter https://twitter.com/StrategicVisio7 Linkedin https://www.linkedin.com/company/strategic-vision-training-center/ Instagram https://www.instagram.com/strategicvisiontrainingcenter WIX https://eslam-training.wixsite.com/training Website https://www.svtcenter.com/ar/Home