محمد غنيمي

السلام عليكم الأستاذ سليم شكراً على مجهودك في الملف ولكن للأسف ليس هذا المطلوب المطلوب مع تغيير القيم في الخلايا B24, C24, D24 يقوم بالرجوع للبيانات وإحضار القيمة من الجدول الموجود بالأعلى من H12 حتى J18 Book ADJ.xlsx

السلام عليكم أ. أحمد يوسف الموضوع معقد لكن سأحاول اوصل المطلوب حتى اجد المساعدة من الأعضاء المحترمين - عند النظر في القيمة الموجودة بالخلية B24 يتم البحث عن القيمة في رؤوس الأعمدة من H حتى j , والإنتقال إلى الخلية C24 والبحث في العمود E حتى G عن القيمة الموجودة في خلية D24 ومن ثم إحضار نتيجة البحث في الخلية E24. مثلا : عند إختيار القيمة Banks في الخلية B24 واختيار القيمة Fitch في الخلية C24 وإختيار A+/A- في الخلية D24 فتقوم الدالة بشكل تلقائي بالبحث في الجدول وذلك بتحديد العمود I ( Bank وتحديد عمود Fitch - G والبحث عن القيمة A+/A- , ومن ثم تحضر النتيجة الموجودة بالخلية المقابلة لها داخل عمود I وهي الموجودة في خلية I14 وهكذا حسب تغيير المدخلات في الخلايا B24 , C24 , D24 Book111.xlsx

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

ارجو الافادة حول امكانية عمل البرنامج على اوفيس 2013 ام انه لا يعمل غير على 2007 و 2010

شكرا أ/ محمد الريفي على الشرح والايضاح

مشكور على الايضاح وهل يوجد امكانية لشرح الدالة

للرفع

الأستاذ/ سعيد اتقدم بالشكر لسيادتكم على سرعة الرد وقد تم الأخذ بعين الاعتبار ما تم ابداءه من ملاحظات مرفق ملف العمل وارجو من الأعضاء المساعدة في حل المشكلة Acc_Prog.rar

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

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

للرفع

عزيزي الاستاذ عبدالرحمن في البداية اشكر سيادتك على مجهود , الحل هذا قريب من المطلوب ولكن ارغب ان يكون جدول EMPLOYEES هو الجدول الرئيسي ومربوط به التسويات بحيث في حالة اضافي اي بيان به تدخول تلقائياً في بحث VAC_ENTRY1 وحتى اتمكن فيما بعد في حالة اردت معرفة عدد تسويات موظف معين وتوارخها يكون من خلال جدول employees حيث انه عند تجربة النموذج واضافة موظف جديد لا يظهر في فورم vac وارغب في ان يكون رقم الاقامة ( id_no ) هو رقم لا يتكرر وأسف على الإطالة ارجو ان يكون عند حل المشكلة

المطلوب عمل فورم بعلاقة بين جدول EMPLOYEES و VAC_INTRY1 بحيث انه عند كتابة رقم الإقامة في فورم VAC_INTRY1 يتم استحضار البيانات المتبقية من جدول EMPLOYEES ارجو من الخبراء المساعدة في هذا

ارجو المساعدة

الأخوة الأعزاء أعضاء المنتدى الكرام اولا أشكر لكم مجهودكم المبذول في الموقع ثانيا فأنا اقوم بعمل برنامج خاص بالعاملين بالمؤسسة لدي وقد بدأت بالبرنامج واستفدت من برامج اخرى بفورم وافكار ولكن توقفت عند فورم التسويات ارجو من الأخوة الكرام مساعدتي في عمل فورم للتسويات بحيث أنه عند كتابة رقم الهوية فأنه يقوم بإستحضار البيانات كالراتب والإضافي والإسم وخلافه حسب جدول التسويات المرفق صورة منه من جدول الموظفين ويظهر بالتقرير كما الشكل المرسل بالمرفقات EMP 1001.rar

ارجو المساعدة في الكود التالي لعمل مسار لحفظ نسخة إحتياطية عند الضغط على زر BACKUP يعطى خطأ ويقوم بتظليل بالاصفر على BrowseFolder Private Sub SaveDB_Click() [ResultLBL].Visible = False Dim StrFolder As String StrFolder = BrowseFolder On Error GoTo MyErr If IsNull(StrFolder) Then [StrNew] = Null Else [StrNew] = Left(StrFolder, Len(StrFolder) - 1) End If MyErr: If Err.Number <> 0 And Err.Number <> 5 Then MsgBox Err.Number & " - " & Err.Description End If End Sub

الأخوة أعضاء المنتدي الكرام أرجو منكم مساعدتي في الربط بين الكودين مرفق ملف لتعديل الاكواد به الكود الأول : Private Sub Workbook_Open() Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" Sheets("MyDate").Range("E3:IT3").ClearContents For I = 2 To Sheets.Count Sheets("MyDate").Cells(3, I + 3) = Sheets(I).Name Next End Sub الكود الثاني Option Explicit Private Const MAX_USES As Long = 3 Private Sub Workbook_Open() Dim lNumberOfUses As Long On Error Resume Next lNumberOfUses = Evaluate("NumberOfUses") If Err.Number = 13 Then Me.Names.Add "NumberOfUses", 1, False Me.Save Exit Sub End If Me.Names.Add "NumberOfUses", Evaluate("NumberOfUses") + 1, False Me.Save If Evaluate("NumberOfUses") > MAX_USES Then Kill_Myself End Sub Private Sub Kill_Myself() With Me .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub اقفال.rar

الأخوة أعضاء المنتدي الكرام أرجو منكم مساعدتي في الربط بين الكودين الكود الأول : Private Sub Workbook_Open() Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" Sheets("MyDate").Range("E3:IT3").ClearContents For I = 2 To Sheets.Count Sheets("MyDate").Cells(3, I + 3) = Sheets(I).Name Next End Sub الكود الثاني Option Explicit Private Const MAX_USES As Long = 3 Private Sub Workbook_Open() Dim lNumberOfUses As Long On Error Resume Next lNumberOfUses = Evaluate("NumberOfUses") If Err.Number = 13 Then Me.Names.Add "NumberOfUses", 1, False Me.Save Exit Sub End If Me.Names.Add "NumberOfUses", Evaluate("NumberOfUses") + 1, False Me.Save If Evaluate("NumberOfUses") > MAX_USES Then Kill_Myself End Sub Private Sub Kill_Myself() With Me .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub

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

أخي الكريم هذا الملف من الممكن أن يكون تم عمله ببرنامج Adobe Acrobat X Pro حيث انه به امكانية عمل ملفات PDF بتحويلها الى فورم

للرفع

السادة الأعضاء الأستاذ / حسين ارجومساعدتي في كود لفك حماية WorkSheet قبل أضافة ونسخ صفحة في الملف المرفق أو حل المشكلة حيث أنني قد قمت بإضافة الملف المعد من قبل أ/حسين على ملف صلاحيات وتم بشكل جيد ولكن المشكلة هي عند استخدام موديل اضافة صفحة نسخة من ورقة OR. لا يقبل إلى بعد فك حماية ملف أكسيل وارجو إضافة كود في حالة تكرار إسم الصفحة يعطى رسالة تحذير وهل يمكن حماية الورقة برقم سري يقوم كود الاضافة بفتح الملف عند النسخ واعادة اقفاله مرة اخرى كما قام أ/حسين بفعله بالكود ولكن برقم سري وهل يوجد كود يعمل على سرعة فتح الملف وسرعة إغلاقه باسورد فتح الملف 111 باسورد الغاء حماية Workbook - باسورد 1234 last v.rar

الأخوة الأعضاء استاذ حسين ارجو مساعدتي في دالة If مرفق ملف عند استخدام دالة If بدلا من إعطائي النتيجة يقوم بإظهار المعادلة الخاصة بالشرط H-رواتب1.rar