محمد غنيمي

السلام عليكم

الأستاذ سليم  شكراً على مجهودك في الملف 

ولكن للأسف ليس هذا المطلوب 

المطلوب مع تغيير القيم في الخلايا 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

ارجو المساعدة في الكود التالي لعمل مسار لحفظ نسخة إحتياطية

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

وهل يمكن تقليل حجم الملف

السادة الأعضاء

الأستاذ / حسين

ارجومساعدتي في كود لفك حماية WorkSheet قبل أضافة ونسخ صفحة في الملف المرفق أو حل المشكلة

حيث أنني قد قمت بإضافة الملف المعد من قبل أ/حسين على ملف صلاحيات وتم بشكل جيد ولكن المشكلة هي عند استخدام موديل اضافة صفحة نسخة من ورقة OR.  لا يقبل إلى بعد فك حماية ملف أكسيل

وارجو إضافة كود في حالة تكرار إسم الصفحة يعطى رسالة تحذير

وهل يمكن حماية الورقة برقم سري يقوم كود الاضافة بفتح الملف عند النسخ واعادة اقفاله مرة اخرى كما قام أ/حسين بفعله بالكود ولكن برقم سري

وهل يوجد كود يعمل على سرعة فتح الملف وسرعة إغلاقه

باسورد فتح الملف  111

باسورد الغاء حماية Workbook    -  باسورد     1234

last v.rar

الأخوة الأعضاء

استاذ حسين

ارجو مساعدتي في دالة If مرفق ملف عند استخدام دالة If  بدلا من إعطائي النتيجة يقوم بإظهار المعادلة الخاصة بالشرط

H-رواتب1.rar