عبدالله بشير عبدالله

تفضل كلمة المرور 123 عبارة ترحيبية (1).xlsm

الملف يعمل لدي جرب التعديل عبارة ترحيبية.xlsm اذا لم يعمل اذكر اضدار الاوفيس لديك واي نظام 32 ام 64

الامر له علاقة باضدار الاوفيس ونظام 64 بت جرب التعديل التالي عبارة ترحيبية.xlsm

وعليكم السلام ورحمة الله وبركاته تم اظافة فورم لعرض العبارة الترحيبية يمكنك تعديل الجملة الترحيبية من خلال كود الفورم عبارة ترحيبية.xlsm

بدلاً من كتابة الأرقام ثابتة داخل المعادلة (1 و 0.5)، نخصص خليتين لوضع النسب المئوية فيهما (على سبيل المثال D1و E1)، ثم نربط المعادلة بهما. ' طريقة كتابة النسب مثلا 5% تكتب في الخلية 0.05 - 15% اكتب 0.15 20% اكتب 0,02 كما يمكن بواسطة كود بحيث يتم كتابة النسب بالكود او تغييرها متى تشاء في حدث الورقة كلمة مرور الورقة2 هي 123 يمكنك تغييرها من خلال الكود - وعند الغاء الحماية من الورقة الكود يقوم بارجاع الحماية بدون التدخل منك اليك الفكرتان في الملف حساب النسبة المئوية.xlsb

الذي فهمته من ردك الاخير انك تريد حماية A2&C2 فقط من التعديل وترك B2 قابل للتعديل والعمل سيكون على هذا الصف فقط المعادلة تنض غلى اذا كان تاريخ العمولة (B2) اقل من التاريخ الثابت (A2) تكون النسبة 50% وان كانت اكبر 100% اذا كان العكس غير علامة < الى > الخليتان محميتان بدون كلمة مرور تحياتي حساب النسبة المئوية.xlsx

وعليكم السلام ورحمة الله وبركاته، حسب الشرط لطلب الأخ الكريم (في حال كان تاريخ الاشتراك اكبر أو أصغر من التاريخ الثابت ، فقط احتاج نسبة مئوية ( 50% & 100% ) ، فإن التنسيق المطلوب يعتمد على الشرط التالي: إذا كان تاريخ العمولة (في العمود B) أقل من التاريخ الثابت (في العمود A)، تكون النسبة 100%. وإذا كان تاريخ العمولة أكبر من التاريخ الثابت، تكون النسبة 50%. بناءً على ذلك، يتم وضع المعادلة التالية في الخلية C2: وتسحب لاسفل مع ضبط تنسيق الخلايا في العمود C على نسبة مئوية =IF(B2>A2; 0.5; 1) بالنسبة للحماية تم حماية العمود التالث بكلمة سر هي 123 هذا حسب فهمي للسؤال وان كان غير ذلك فالتوضيح من صاحب السؤال ضروري المصنف1.xlsx تحياتي لكما

احسنت معلمنا واستاذنا Foksh

السلام عليكم معادلة استاذنا Foksh بالملف المرفق لم اضف اليها شئ سوى معالجة الاخطاء IFERROR وشرط اختيار نوع الحركة وشرط اختيار الصنف فمت بالتجربة بيع وشراء -المعادلة تعمل حسب طلبك لا تسمح باظافة اي كمية في حالة تفاذ الرضيد ولا تسمح باظافة اي كمية قبل اختيار نوغ العملبة ( بيع - شراء) قم بالتجربة بالملف المرفق واعلمني بالنتائج في حال ان المعادلة تعمل لديك وتريد تقلها الى ملفك الاصلي تكون الاعدادات -الغاء التأشير على تجاهل الفراغات +التمط - ايقاف اذا لم تغمل لديك حقيقة لا اعلم السبب مخزن 3.xlsb

وعليكم السلام جرب الكود المعدل بالملف تغيير لون الخلايا المحدده بالماوس من خلال اليوزر فورم_085825.xlsm

كررت التجربة والملف يعمل ولا يسمح باظافة اي كمية تتجاوز الموحود بالمخزن ولكن هناك سبب يجغل الرصيد في المخزن بالسالب عندما تكتب الكمية اولا ثم تختار توع الحركة بعدها هنا يتم قبول الكمية ولو كان الصنف انتهى من المخزن وهذه حلها الغاء خاصية تجاهل الفراغ حينها لا يقبل اي كمية سواء اخترت نوع الحركة اولا او اخر جرب الغاء الخاصية في ملف الاستاذ Foksh واليك ملف اخر بنفس فكرة Data Validation باستخذام عمود مساعد في العمود o بالرغم انني لا احبذ استخذم الاعمدة المساعدة وله نفس نتائج ملف معلمنا Foksh مخزن 1.xlsb

وعليكم السلام ورحمة الله وبركاته الكود المرفق يقوم :- بالغاء حماية الشيتات المستهدفة 123 ثم يتم اظهار الصفوف 1-2 ثم يمسح الصور السابقة بعد ادراج الصور يتم اخفاء الصفوف1-2 ثم حماية الصفحات من جديد 123 استبدل الكود السابق بهذا تم تجربة الكود على 28 صفحة في حدود 3 الى 4 ثانية Private Sub CommandButton13_Click() Dim ws As Worksheet Dim Pic As Shape Dim shp As Shape Dim rng As Range Dim fd As FileDialog Dim imgPath As String Dim i As Long Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Title = "اختر الصورة المراد إدراجها" .Filters.Clear .Filters.Add "جميع الصور", "*.jpg; *.jpeg; *.png; *.bmp; *.gif; *.tiff" .AllowMultiSelect = False If .Show = -1 Then imgPath = .SelectedItems(1) Else Exit Sub End If End With Application.ScreenUpdating = False On Error Resume Next Application.CommandBars.FindControl(ID:=549).Execute On Error GoTo 0 For Each ws In Worksheets If ws.Name <> "قائمة" And ws.Name <> "مخزن" Then On Error Resume Next ws.Unprotect Password:="123" On Error GoTo 0 ws.Rows("1:2").Hidden = False Set rng = ws.Range("A2:V2") For i = ws.Shapes.Count To 1 Step -1 Set shp = ws.Shapes(i) If shp.Type = msoPicture Or shp.Type = msoLinkedPicture Then On Error Resume Next If Not Intersect(shp.TopLeftCell, rng) Is Nothing Then shp.Delete End If On Error GoTo 0 End If Next i Set Pic = ws.Shapes.AddPicture( _ Filename:=imgPath, _ LinkToFile:=msoFalse, _ SaveWithDocument:=msoTrue, _ Left:=rng.Left, _ Top:=rng.Top, _ Width:=rng.Width, _ Height:=rng.Height) With Pic .LockAspectRatio = msoFalse .Placement = xlMoveAndSize End With ws.Rows("1:2").Hidden = True ws.Protect Password:="123" End If Next ws Application.ScreenUpdating = True MsgBox "تم إدراج الصورة بنجاح!", vbInformation, "تم بنجاح" End Sub كما يمكنك الغاء اكوادالحماية وغيرها من ملفك لانها اصبحث من صمن الكود السابق

السلام عليكم ورحمة الله وبركاته من خلال التجربة لملف Data Validation الاول - طلب السائل الكريم يتحقق مع تعديل النمط الى ايقاف كما تصحته في مشاركة لاحقة ولا اعتقد انه يمكن اظافة اي جديد اكثر مما تم عمله هذا حسب اعتقادي والله اعلم تحياتي لكما

تم التعديل الكود حاليا يقوم بحذف اي صور من النطاق a2:v2 قبل ادراج الصورة الجديدة حتى لا تتراكم الصور فوق بعضها كذلك تم تعديل اسم الصورة ومكانها على الجهاز بحيث يمكنك احتيار اي صورة وباي اسم وباي امتداد من الجهاز ويمكنك اضافة اي امتداد اخر غير مدرج بالكود .Filters.Add "جميع الصور", "*.jpg; *.jpeg; *.png; *.bmp; *.gif; *.tiff" تم استتناء ورقة3-ورقة6 من ادراج الصور ويمكنك استتناء المزيد وذلك باظافة اسم الورقة بالكود من الجزء For Each ws In Worksheets If ws.Name <> "ورقة3" And ws.Name <> "ورقة6" Then ادراج صورة (2).xlsm

السلام عليكم يوجد بعض الاختلاف بين الكودين في التفكيك الكود الأول: يمر على الخلايا خلية خلية ويضع الناتج في الشيت مباشرة باستخدام التكرار For...Next . الكود المعدل: يقوم بنفس التفكيك بواسطة رمز الفصل * ولكنه يحمل النتائج في مصفوفة بالذاكرة (dataArr) ثم ينسخها دفعة واحدة. بالنسبة للتجربة لدي الكود يستغرق اقل من ثانية اما الكود الاصلي حوالي 6 ثانية تم اظافة حساب الزمن للكود وتم تعديل الكود في الكود التلقائي وفي كل الاحوال مواصفات الجهاز وغيرها من الامور الفنية لها علاقة بالسرعة وفي حالة الزمن متساو لديك في الكودين القديم والمعدل فلك الخيار في اختيار احدهما ف 6 ثواني ليست بالوفت الطويل اليك الملف وبه التعديل شهادات1.xlsb