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

وعليكم السلام ورحمة الله وبركاته جرب الكود المرفق Sub PrintFromTo_1() Dim adData As Variant Dim I As Long Dim Rng1 As Range Dim printRows As Long Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual adData = Range("AD1:AD14").Value For I = 1 To UBound(adData, 1) If Len(adData(I, 1)) > 0 Then Cells(1, 13).Value = adData(I, 1) ActiveSheet.Calculate printRows = Range("AG1").Value Set Rng1 = Range("A1").Resize(printRows, 27) Rng1.PrintOut Copies:=1 End If Next I Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End Sub

وعليكم السلام ورحمة الله وبركاته تم العاء AC3 وربط المعادلة بالخلية AC1 للقائمتين مع اضافة كود تلقائي لمسح احد القائمتين عند اختيار الاخرى __المقياس المتدرج 3456 الصفوف العليا2026 - نسخة.xlsb

جزاك الله خيرا اخي Foksh من طلبات الاستاذ ابو مارفن لو تكرمت واظهرت زر الاغلاق والتكبير والتصغير للفورم حتى تكتمل طلبات اخونا ابو مارفن وخصوصا انني حاولت ولم اصل الى حل عملي

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

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

اليك التعديل بحث-لصق-تسخ (1).xlsb

اليك طلبك البحث في الاكسل او المواقع بحث-لصق-تسخ.xlsb

لم افهم طلبك الاخير بحث غن ماذا

كنت اتمنى من استاذنا أبومروان متابعة الموضوع ولكن للغائب عذره اخي ابو مارفن ليست لدي فكرة عن طلبك ولو بنسبة 1% ولكن ارفقت الكود والطلب الى احدبرامج الذكاء الاصطناعي وبعد محاولات عديدة منه اعطاني كودا حسب تجربتى له يقوم بالنسخ واللصق والقص والحافظة وهو اقصى ما توصل اليه البرنامج QQ1.xlsb هذا ما استطعت افاذتك به متمنيا ان يحقق بعض طلباتك

بالعكس تمامًا ليس هناك اي عجلة في الاجابة ، ولوكان عندى اصدار 2019 لما عرفت المشكلة واجبته بما اجبت به انت وكانت تجربتي على اصدار 2016 حيث ظهرت المشكلة الثانية . وتجربتك الفعّالة على إصدار 2019 هي التي أوضحت الفارق وكشفت أصل المشكلة واختلاف السلوك بين الإصدارات. جزاك الله كل خير على وقتك ومجهودك الطيّب، ودمت معطاءً ومبدعًا.

السلام عليكم ورحمة الله وبركاته الملف به مشكلتان الاولى اجاب عنها معلمنا Foksh اما الثانية تكمن في الوجدة النمطية القياسية تحتاج الى تعديل مع تعديل بالكود للتوافق امر هام : ما قام به معلمنا Foksh او ما أَضَفْتُهُ للملف ليس له علاقة بطلبك الاساسي او حل لطلبك بل تصحيح للاخطاء الواردة بالملف المرفق فقط لكما تحياتي ولكل احبابنا بالمنتدى اليك الملف بعد التعديلات QQ1.xlsb

تفضل كلمة المرور 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