عبدالفتاح في بي اكسيل

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

لا اعلم ما الذي تحاول القيام به . ربما شخص اخر يفهم طلبك . تحياتي

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

اختي الكريمة قد تكون المشكلة من المتصفح الذي تستخدمينه يجب تعيينه كافتراضي هذه محاولة من قائمة ابدا < تشغيل < Set program access and computer defaults وقومي بتعيين المتصفح الذي تعملين عليه كافتراصي تحياتي

مجرد محاولة غير هذه For Each xFile In xFolder.Files الى For Each xFile In xFolder.subfolders

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

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

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

ليس من المعقول 15 مشاركة لا زلت تجهلين قوانين المنتدى اين الملف 😱 ضعي بياناتك الرئيسية قبل وكيف تكون بعد حتى يساعدك باقي الاعضاء . تحياتي.

انسخ هذا في موديول اليوزرفورم ( اكتب الرقم في التيكست بوكس فعل التشيك بوكس) Private Sub CheckBox1_Click() If CheckBox1.Value = True Then TextBox1.Value = Val(TextBox1.Value) * -1 ElseIf CheckBox1.Value = False Then TextBox1.Value = Val(TextBox1.Value) * -1 End If End Sub

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

اخي الكريم هل يتعبك ان تصف لنا ما هو الخطا الذي يظهر لك . كيف نعرف ؟🤔 ,,Application.ScreenUpdating = False احدف الفاصلتين قبل السطر

بعد 5 ايام يتم الرد كلمة السر myPass Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheet1.Unprotect Password:="myPass" With Target .Cells.Locked = True On Error Resume Next .Cells.SpecialCells(xlCellTypeBlanks).Locked = False On Error GoTo 0 End With Sheet1.Protect Password:="myPass" End Sub 1مثال.xlsm

قم بفك هذه الاداة الى C:\Windows\System32 ثم شغلها من قائمة ابدا > نظام الويندوز > تشغيل Regsvr32.exe fm20.dll حتى يتم التسجيل وان لم ينجح عليك اظهار لنا قائمة العناصر المختارة من reference اغلب ظني ان هناك عنصر مختار يجب ازالته fm20.zip

@Elsayeh هل لديك اصدارين اكسيل على نفس الجهاز ؟ قد يكون السبب منهم او من قائمة reference ابحث عن هذا الخيار كما في الصور اذا كان مختار ازل الخيار مجرد تخمين

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

ابحث عنها في المنتدى هذا الموضوع متوفر بكثرة .

تابع هذا الموضوع مع الاخ ابوعيد ما ادام تريد ايضا ارساله بالواتساب https://www.officena.net/ib/topic/113251-ارسال-كشف-حساب-عبر-الواتس-اب-مساعدة/

هل يظهر لك اي خطأ جرب تشغيل F8 من داخل محرر الاكواد سطر بسطر قد يخرج لك خطا

على حسب ما فهمت هذا ما تحتاجه Sub PRINT_OUT() Range("a1:i29").PrintOut Copies:=2 End Sub

@mra63 لا ادري لماذا اصرارك على عدم ادراج ملف وانشاء يوزرفورم حتى يستطيع الاخرين مساعدتك . عالعموم انشأ يوزفورم به اثنان تيكست بوكس وقم بالنقر مرتين على اليوزفورم والصق هذه الاكواد كاملة . عند تشغيل اليوزرفورم سيتم تلوين textbox1,2 باللون الاصفر و اذا كتبت في احدهم سيتلون بالابيض . Private Sub TextBox1_Change() If TextBox1.Text <> "" Then TextBox1.BackColor = RGB(255, 255, 255) Else TextBox1.BackColor = RGB(255, 255, 0) End If End Sub Private Sub TextBox2_Change() If TextBox2.Text <> "" Then TextBox2.BackColor = RGB(255, 255, 255) Else TextBox2.BackColor = RGB(255, 255, 0) End If End Sub Private Sub UserForm_Initialize() TextBox1.BackColor = RGB(255, 255, 0) TextBox2.BackColor = RGB(255, 255, 0) End Sub

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

@صاصا فتحي من قام بكتابة هذا الشيء . هذا مخالف صارخ لخصائص اليوزرفورم احدفه ولكن لا اعلم ما الذي تسعى وراءه

لست جيدا بالمعادلات مجرد تخمين اعتقد يتم تخطي الصف 16 ويبدا من الصف 17

@lionheart after you نظرة سريعة على الكود جرب تغيير هذا السطر من For ii = 2 To UBound(a, 2) الى For ii = 2 To UBound(a, 2)-2 اذا لم ينجح اصدر موضوع جديد ملاحظة : كما قال لك @lionheart قم بتعديل المسافات للاسماء المتكررة حتى يعمل الكود حتى لا تاتي بعد فترة وتقول الكود لم يعد يعمل تحياتي