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

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

اخى الفاضل تم تعديل اسم الدالة فقط فأصبح الملف يعمل على اصدار 2010 ... اصبح اسمها IRG فقط وليست IRG08 .. مرفق الملف بعد التعديل تحياتي UpdateFunction.rar

السلام عليكم و الحل بسيط جداً ترحيل.rar

بسم الله الرحمن الرحيم كل عام أنتم جميعاً بخير ..... يوجد امتداد ملفات اسمه shs وهو خاص بميكروسوفت أوفيس Shell Scrap Object File وينتج هذا الملف عند نسخ نص من ملف وورد مثلا أو أي برنامج ضمن الأوفيس ثم لصق ما تم نسخه في مجلد وليس في ملف من جنسه هذا الامتداد كان يفتح بمجرد الضغط المزدوج بالفارة على الملف في أوفيس 2003 وويندوز إكس بي ولكن اختلف الأمر مع ويندوز 7 فهذا الملف غير مدعوم ولا يفتح مع برامج الأوفيس 2007 أو 2010 ............. ولمن عانى من هذه المشكلة واستكمالاً لسلسلة (ما خف وزنه وغلا ثمنه) أقدم لكم الحل الأكيد فقط اتبع التعليمات في المرفق وستجد كل شيء على ما يرام ..... ولا تنسوني من صالح دعائكم open .shs in win7.rar

السلام عليكم اخي الكريم بالنسبه للسؤال الاول الخاص بارسال ايميل عند الاغلاق الي ايميل محدد او اكثر من ايميل .... ممكن وشغال بالفعل اما الباقي نترك الرد للخبراء الموجودين تحياتي

عمـــل رائــــــع تشـــكر عليـــة لك مـــنى كل تقــــدير وجـــزاء الله خــــير

اخى الفاضل انا اللى متأسف لك لم انتبه انك عامل Line Break او Enter ما بين الكلمتين .. جرب المرفق ان شاء الله ستزبط معك تحياتي Book1.rar

اخى الفاضل طب ما ترفق الملف الذي تعمل عليه ووضح به المطلوب سيكون اسهل وافضل تحياتي

اخى الفاضل تفضل الملف المرفق لعله طلبك تحياتي Book1.rar

اهلا بالاخ والأستاذ محمد سلامة لدي أولا استفسار حول مالفائدة من انشاء مجلد ؟ هل هو سيصبح مسار للمفات المراد انشاؤها ؟ ام له استخدامات أخرى ؟ كذلك لماذا أنشئ ملفات اكسل وورد وبوربوينت ؟ معليش سؤال تطفلي؟ ثانيا أتوقع ان مسالة فتح مربع الحوار ووضع المسار بالمربعات هي لديك ولا تحتاج مساعدة بها !! فقط تحتاج انشاء المجلد والملفات حسب المسار المدرج بالمربعات ؟؟ بالتوفيق

اخى الفاضل ازاى يعني لا يوجد كود، الكود لا يعمل من خلال زر أمر ... لكن بمجرد فتح الملف سيري ان كان تاريخ اليوم اكبر من التاريخ الذي حددته سيحذف بيانات الشيت .. غير ذلك يبقي الوضع كما هو عليه .... شاهد المرفق وعامة هذا هو الكود انشئ موديول جديد والصق به هذا الكود مع تغيير التاريخ للتاريخ الذي تريده Sub ClearSheet() Dim Ddate As Date Ddate = "28/02/2015" If Date > Ddate Then Sheet1.Cells.ClearContents End If End Sub وفي حدث فتح الملف الصق هذا السطر Private Sub Workbook_Open() ClearSheet End Sub تحياتي Code.rar

رائع كالعادة استاذنا العزيز رمهان طريقة رائعة كروعتك بارك الله فيك و نفع بعلمك

السلام عليكم Sub MyMsg() Dim Mytxt As String Mytxt = "ÇáÓáÇã Úáíßã æÑÍãÉ Çáå æÈÑßÇÊå" MsgBox Mytxt End Sub هذالكود تم نسخة ولغة الكتابة اثناء العمل على محرر الأكود هي الإنجليزية وهذا هو نفس الكود بعد تغيير اللغة الى العربية بإستخدام Shift + Alt Sub MyMsg() Dim Mytxt As String Mytxt = "السلام عليكم ورحمة اله وبركاته" MsgBox Mytxt End Sub أي أني أقصد تغيير لغة الكتابة بواسطة Shift + Alt

اخي رضوان بالنسبة لملاحظتك على ان المستودع في التفاصيل : لانه أحيانا اخرج البضاعة من اكثر من مستودع لنفس الفاتورة او في الشراء ؟ فهل افتح اكثر من فاتورة لعميل واحد وفي نفس اللحظة علشان البضاعة من اكثر من مستودع ؟!! يبدو انك من المتأثرين بالبرامج العربية والمحلية !!! وبالنسبة لمشكلة انه ادخل البضاعة في كل صمف : ابدا هنا دور المصمم : فالحل يكون في وضع مربع قائمة في راس الفاتورة بالمستودعات وكحقل محسوب ويصبح هو القيمة الافتراضية لكل صف في تفاصيل الفاتورة !! اخت ريمي اطلعت على العلاقات والجداول والحقول في الصورة السابقة ولي ملاحظة :1. ربط المتعاملين ( أتوقع تقصدين العملاء والموردين كلهم بجدول واحد وهذا صح ولكن اضيفي النوع عميل او مورد ) ولكن الربط يكون مع الهيدر وبرقم id فطبعا اذا كانت الحركة خارج يتم الفلترة للعملاء والعكس . 2. لانحتاج اسم المادة في التفصيل ولا نحتاج الوحدة ( بالنسبة للوحدة نحتاجها اذا كان هناك صرف بوحدات مختلفة واتوقع انه لايوجد حاجة في طلبك البسيط ) 3. ملاحظة رفعتي صورة ولم ترفعي الملف الأساس !! أتمنى اتباع السابق وإعادة رفع القاعدة بالتوفيق

اتصل بالشخص فهو واضع اكثر من عنوان له وحاول التفاهم معه بالتوفيق

كل الشكر والتقدير استاذ

بارك الله فيك استاذ ياسر

ما في غنى عنك احى استاذ ياسر

السلام عليكم بالامكان الاستعانه بهذا الكود يقوم بحفظ الملف كل دقيقة هذه الأكواد في مودويل Public Rm As Double Public Const C_Con = 60 Public Const Sc_W = "Ex" Public Sub St_A() Rm = Now + TimeSerial(0, 0, C_Con) Application.OnTime EarliestTime:=Rm, Procedure:=Sc_W, Schedule:=True End Sub Sub Ex() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True St_A End Sub وهذه في حدث Thisworkbook Private Sub Workbook_Deactivate() Call St_A End Sub Private Sub Workbook_Open() Call St_A End Sub

جزاكم الله خيرا ووفقكم الله شكرا جزيلا لكم ارجو من الاستاذ خبور شرح بسيط للكود مع مثال ويمكن حذف ما هو مكرر في العامود مثال اذا كان الاسم موجود في نفس العامود لي منع التكرار وشكراً............ 0

من أعمال الأستاذ خبور Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim CC As Integer, C As Integer Dim sR As String Dim MyRng As Range Set MyRng = Range("n8:Aw78") If Not Intersect(Target, MyRng.Cells) Is Nothing Then Application.EnableEvents = False CC = MyRng.Column - 1 C = Target.Column - CC sR = MyRng.Columns(C).Address If Application.CountIf(Range(sR), Target.Value) > 1 Then If MsgBox(" this value was enter" & vbLf & vbLf & "Do you want to continue? ", 16 + vbYesNo + 524288 + 1048576, "Note") = vbNo Then Target.ClearContents End If End If Kh_ColorIndex Range(sR) Application.EnableEvents = True End If On Error GoTo 0 End Sub

هذا الموضوع أتصور أنه سبق طرحه ،و لكن بحثت عنه و لم أجده لذا سأضيفه ثانية حيث احتجته مؤخرا و لم أجده الفكرة هي الرغبة فى استخراج أسماء الجداول و الحقول الى ملف اكسيل و ذلك بغرض استخدامها فى توثيق معلومات قاعدة البيانات ضع موديول (وحدة نمطية) جديدة فى القاعدة ، ثم انسخ الكود التالي اليها ثم شغله باستخدام F5 و لا اعتقد انه من المفيد وضع زر لتشغيله حيث عادة ما تحتاج لاجراء هذه العملية مرة واحدة او مرات قليلة لكل قاعدة تقوم بتصميمها ، اذا ما ما كنت ستقوم بتوثيقها أو كتابة تقرير عنها و ستكون النتيجة تكوين ملف اكسيل يحوي أربعة أعمدة الاول يحوي اسم الجدول و الثاني يحوي اسماء الحقول و الثالث يحوي على نوع الحقل ، و الأخير يدل على سعة الحقل و لا تنسي توسيع اول عمودان فى الاكسيل بعد أن ينفتح الملف منقول بتصرف و اضافة Option Compare Database Option Explicit Sub ListTablesAndFields() 'Macro Purpose: Write all table and field names to and Excel file Dim lTbl As Long Dim lFld As Long Dim dBase As Database Dim xlApp As Object Dim wbExcel As Object Dim lRow As Long 'Set current database to a variable adn create a new Excel instance Set dBase = CurrentDb Set xlApp = CreateObject("Excel.Application") Set wbExcel = xlApp.workbooks.Add 'Set on error in case there is no tables On Error Resume Next 'Loop through all tables For lTbl = 0 To dBase.TableDefs.Count - 1 'If the table name is a temporary or system table then ignore it If Left(dBase.TableDefs(lTbl).Name, 1) = "~" Or _ Left(dBase.TableDefs(lTbl).Name, 4) = "MSYS" Then '~ indicates a temporary table 'MSYS indicates a system level table Else 'Otherwise, loop through each table, writing the table and field names 'to the Excel file For lFld = 0 To dBase.TableDefs(lTbl).Fields.Count - 1 lRow = lRow + 1 With wbExcel.sheets(1) .range("A" & lRow) = dBase.TableDefs(lTbl).Name .range("B" & lRow) = dBase.TableDefs(lTbl).Fields(lFld).Name .range("C" & lRow) = FieldType(dBase.TableDefs(lTbl).Fields(lFld).Type) .range("D" & lRow) = dBase.TableDefs(lTbl).Fields(lFld).Size End With Next lFld End If Next lTbl 'Resume error breaks On Error GoTo 0 'Set Excel to visible and release it from memory xlApp.Visible = True Set xlApp = Nothing Set wbExcel = Nothing 'Release database object from memory Set dBase = Nothing End Sub Function FieldType(intType As Integer) As String Select Case intType Case dbBoolean FieldType = "dbBoolean" Case dbByte FieldType = "dbByte" Case dbInteger FieldType = "dbInteger" Case dbLong FieldType = "dbLong" Case dbCurrency FieldType = "dbCurrency" Case dbSingle FieldType = "dbSingle" Case dbDouble FieldType = "dbDouble" Case dbDate FieldType = "dbDate" Case dbText FieldType = "dbText" Case dbLongBinary FieldType = "dbLongBinary" Case dbMemo FieldType = "dbMemo" Case dbGUID FieldType = "dbGUID" End Select