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

تفضل Dim fso As Object, fldrname As String, fldrpath As String fldrname = " ضع اسم المجلد هنا " Set fso = CreateObject("scripting.filesystemobject") fldrpath = Environ("USERPROFILE") & "\Desktop\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If و لإنشاء مجلد جديد و نسخ مجلد آخر داخل المجلد الجديد Dim fso As Object, fldrname As String, fldrpath As String, fldrpathNow As String fldrname = " اسم الجلد الجديد " fldrpathNow = CurrentProject.Path & "\" & " اسم المجلد بجوار قاعدة البيانات او مسار المجلد " & "\*" Set fso = CreateObject("scripting.filesystemobject") fldrpath = Environ("USERPROFILE") & "\Desktop\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) fso.CopyFile fldrpathNow, fldrpath End If

لإنشاء مجلد جديد استخدم الكود التالي Dim fso As Object, fldrname As String, fldrpath As String fldrname = " ضع هنا اسم المجلد " Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If

وعليكم السلام تفضل اخي الكريم بالتوفيق Create Folder On Desktop.accdb

حسب ما فهمت السؤال Sub test() Cells(147, 2).Resize(4, 6) = Application.Transpose(Application.Index(Cells(1). _ CurrentRegion, Array(8, 15, 17, 18), Evaluate("row(1:6)"))) Cells(147, 1).Resize(4) = Evaluate("row(1:6)") End Sub

جرب المرفق test test1.xlsm

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

السلام عليكم ورحمة الله وبركاته . كما وعدتكم الاصدارالثاني لبرنامج صانع القوائم فى البداية هذا العمل مجاني لوجة الله ولكن اتمنى مزيد من التفاعل لارتقاء العمل وحس المساعدة بيننا فالصدار الاول تخطي 550 مشاهدة و 7 ردود فقط فأذا تخطي هذا المشروع 100 رد يكون المشروع الثاني مفاجأه وهو ارسال رسائل SMS مجاناً معتمداً على الباقة المتوفرة من شركة جوالك دون تكلفة اضافية او وسيط والان فيديو شرح البرنامج : لتحميل البرنامج : https://www.mediafire.com/file/z17cd3rpjtikyxi/ARM.exe مساعدة من الخبراء ان أمكن هل من الممكن تشغيل سكريبتك بالاكسس دون الحجة لتفعيله يدوياً كما موضح بأخر الفيديو مع العلم باننى قمت بمحاولات لا تحصي ولكن لا يعمل بالجودة المطلوبة . ثانياً تشغيل زر تصدير الدوال حتى يقوم الصانع بتصدير الدوال والجدول المخصص للشريط دون الحاجة لاستردادهم يدوياً . ولكم جزيل الشكر .

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

لو لاحظت اخي ردي الاول ستري اني قمت بعرض لطريقة الحساب اي اننا نقوم بعكس عملية الشراء في حالة مرتجع الشراء يعني كما في مثالك ارجعت من الصنف الذي اشتريته بـ 1 دينار عدد 1 صنف بقيمة؟؟! 1 دينار طبعا فكما اشتريته بـ 1 دينار عندما اقوم بارجاعه الي المورد سيرد الي 1 دينار اليس كذلك؟ وعندما بعت نفس الصنف بـ 2 دينار وقام المشتري برد 2 صنف ماذا تعتقد اني سأرد اليه من مبلغ اليس 4 دينار؟! اذا سيكون حساب المبلغ علي مثالك : صافي قيمة المشتريات = (10 صنف * 1 دينار = 10 دينار - 1 صنف * 1 دينار = 9 دينار) صافي قيمة المبيعات =( 5 صنف * 2 دينار = 10 دينار - 2 صنف * 2 دينار = 6 دينار) أما بالنسبة الي حساب الربح الناتج من عملية الشراء فينج من خلال المعادلة المحاسبية التالية: اجمالي الربح = (بضاعة اخر المدة + صفي المبيعات) - (بضاعة أول المدة + صافي المشتريات) أو المعادلة الرياضية التالية: (الكمية المباعة * سعر البيع) - ( الكمية المباعة * سعر الشراء) وكما في مثالك سيكون العمل بهذا الشكل الكمية المباعة هي (5-2=3) * 2 دينار = 6 دينار - (لكمية المباعة 3 * سعر الشراء 1 دينار = 3 دينار ) اذا الربح هو 3 دينار آسف علي الاطالة ارجو ان اكون فهمت مرادك بشكل صحيح

اليك اخي تلك الفكرة البسيطة والنصيحة ان اردت ان تضم بياناتك في جدول واحد: 1- اجعل جدول لرأس الفاتورة يضم (رقم الفاتورة - نوع الفاتورة (بيع شراء مرتجع) وكود العميل واجمالي قيمة الفاتورة ونوع السداد وقيمة السداد ...) 2- اجعل جدول لنوع العمليات (كود العملية - ونوع العملية - شراء , بيع , مرتجع بيع , مرتجع شراء) 3- اجعل جدول للأصناف يشمل ( كود الصنف - اسم الصنف - الكمية المتاحة - وسعر الشراء - سعر البيع) 4- وجدول لكل العمليات أو تفاصيل الفاتورة ويشمل ( رقم الفاتورة - كود العملية - كود الصنف - الكمية - القيمة - الاجمالي) هذا الجدول الأخير يمكن من خلاله عمل ما نريد من خلال الاستعلامات التجميعية بكل سهولة ويسر ان شاء الله تمنياتي بالتوفيق

عدد الموظفين حسب السنة.xlsx

تفضل التعديل درجات الطلاب.accdb

موضوع جميل ويستحق المتابعة واشيا جديدة علينا زادك الله من علمة مهندس كريم

تفضل هذه الفكرة ************************************************* يجب اضافة الصورة قبل الإستخدام ************************************************* Date1.zip

الحمد لله الذي بنعمته تتم الصالحات

ما الفرق بين الفيجول بيسك و #C و ++C كلها لغات تابعة لمياكروسوفت و #C و ++C كذلك هذا الهجين المستحدث في عام 2000 م من قبل أندريس هيجلسبرج / آمل أن اكون قد كتبت اسمه صحيح كلها لغات برمجة قوية في مجالات محدد و ضغيفة في اخرى لكن ما يمييز الاستديو بأنه قادر على التعامل مع اغلب لغات البرمجة و هذه بحد ذاتها نقطة قوة لدى ما يكروسوفت هل الفيجول بسيك ضغيف ؟ لا هي فقط ضعيف في بعض مجالات الوسائط القي نظرة على بعض لغات البرمجة التي ستجدها داخل الاستديو كذلك هذي لقد دخلت تغيرات كبيرة و جذرية في الفيجوال بعد الاصدار السادس حيث كما ترى اعلاه ان كنت تريد التحدث عن القوة

اخي بلال هذا السؤال يتكرر كثير اذا الحل لابد ان تتعلم و تقدم يد المساعدة لنفسك هذا هو الإنجاز الحقيقي دعنا نبدء بالتعلم الآن في البداية و في محرر الأكواد يجب ان نقوم بإضافة مكتب الاكسل كما بالصورة ادناه ثم تقوم بالبحث عن المكتبة التالية و اضافتها بهذه الطريقة اليك اهم ثلاث متغيرات للاتصال بملف الاكسل Dim xlApp As Excel.Application Dim xlWb As Excel.Workbook Dim xlWs As Excel.Worksheet الآن و تحت المتغييرات سوف نضع الأوامر التالية Set xlApp = New Excel.Application xlApp.Visible = False ' عدم عرض ملف الاكسل اثناء الاستيراد او التصدير Set xlWb = xlApp.Workbooks.Open(" ضع هنا مسار ملف الأكسل ") Set xlWs = xlWb.Worksheets(1) ' رقم صفحة في ملف الاكسل الآن سوف نضغ متغيير رقمي لكي نقوم من خلاله بتحديد السطر سيبدء الاستيراد منه Dim intLine As Long الآن لكي يتم تحديد حقل داخل الاكسل لغرض الاستيراد او التصدير للبيانات نستخدم الأمر التالي تحديد الحقل من خلال رقم العمود و رقم الصف xlWs.Cells(Line_Number, Column_Number).Value بعدما عرفنا كيفية تحديد الخلية الآن لو فرضنا أننا نريد استيراد الخلايا الى مربعات النص داخل الاكسس من خلال حلقة تكرارية ستكون بهذه الكيفية intLine = 2 'بدء الاستيراد من رقم السطر Do TextBox1 = xlWs.Cells(intLine, 1).Value TextBox2 = xlWs.Cells(intLine, 2).Value TextBox3 = xlWs.Cells(intLine, 3).Value ' نقوم بعكس القيم في حال التصدير '============================================ xlWs.Cells(intLine, 1).Select ' وضع المحدد داخل اول خلية في ملف الاكسل بعد الانتهاء intLine = intLine + 1 ' تحديد سطر جديد للاستيراد او التصدير Loop Until IsEmpty(xlWs.Cells(intLine, 1)) و بعد الانتهاء من الاستيراد يجب حفظ و انهاء ملف الاكسل xlWb.SaveAs CurrentProject.Path & "\Excel-" & Format(Now, "hh-nn-ss") & ".xlsx" xlWb.Close False xlApp.Quit Set xlApp = Nothing Set xlWb = Nothing Set xlWs = Nothing و هذا ببساطة كل شيئ عن مبادئ استيراد او تصدير ملف الاكسل

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

وعليكم السلام من الافضل ان ترسل ملف وتشرح فيه مطلوبك ونحن نعدل فيه

Post the code in worksheet module. Right-click the sheet name then select View Code then paste the code

Private Sub Worksheet_Change(ByVal Target As Range) Dim sCompany As String, m As Long If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Address = "$D$5" Then sCompany = Target.Value If Evaluate("ISREF('" & sCompany & "'!A1)") Then With Sheets(sCompany) m = .Cells(Rows.Count, "D").End(xlUp).Row + 1 .Range("D" & m).Resize(1, 4).Value = Application.Transpose(Range("M7:M10").Value) MsgBox "Data Copied To [ " & .Name & " ] Worksheet", 64 End With End If End If End Sub

حسب فهمي للمطلوب أنك تريد التصفية على حرف الغياب غ ولكن بطريقة أفقية إن شاء الله يكون هذا هو مطلوبك بالتوفيق تصفية أفقية بالمعادلات.xlsx