أبوعيد

وهذا مثال عملي لست فيو1.xlsb

اللست فيو ميزاتها أفضل من اللست بوكس

ماشاء الله اللهم بارك 1 - لاحظت أن كل آيات (بسم الله الرحمن الرحيم) يوجد بعدها مسافة واحدة يعني بعد آخر حرف (وهو الميم) يوجد مسافة (طبعا هي غير مرئية) بينما في بقية الآيات لا توجد هذه المسافة كذلك في كثير من الآيات هكذا ولا أدري هل لهذا سبب في خاصية البحث أم لا 2 - كل الآيات مشكلولة إلا البسملة غير مشكولة لا زال البحث مستمرا وأي ملاحظات سأرسلها هنا بإذن الله

أن شاء الله ولكن لابد أن ترفق ملف اكسل توضيحي ثم تشرح المطلوب

إذا تطابق اللون والوصف والمقاس سيتم ألغاء الإضافة Private Sub CommandButton1_Click() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Dim WS As Worksheet, rng As Range Dim lastRow As Long Set WS = Sheet1 If Me.TextBox4 = "" Then: Exit Sub '======= lastRow = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row For i = 2 To lastRow ' äÈÏà ãä ÇáÕÝ 2 assuming ÇáÕÝ ÇáÃæá ÚäÇæíä If WS.Cells(i, 2).Value = Me.TextBox1.Value _ And WS.Cells(i, 3).Value = Me.TextBox7.Value _ And WS.Cells(i, 4).Value = Me.TextBox2.Value _ Then MsgBox "ÇáÈíÇäÇÊ ÇáÊí ÊÍÇæá ÃÖÇÝÊåÇ ãæÌæÏÉ ãä ÞÈá", vbOKOnly, "ÈíÇäÇÊ ãßÑÑÉ" Exit Sub End If Next i '======= Set rng = WS.Range("a2100").End(xlUp).Offset(1, 0) rng.Offset(0, 0).Value = Me.TextBox4.Value rng.Offset(0, 1).Value = Me.TextBox1.Value rng.Offset(0, 3).Value = Me.TextBox2.Value rng.Offset(0, 5).Value = Me.TextBox3.Value rng.Offset(0, 6).Value = Me.TextBox5.Value rng.Offset(0, 7).Value = Me.TextBox6.Value rng.Offset(0, 2).Value = Me.TextBox7.Value For i = 1 To 7 Controls("textbox" & i).Text = Empty Next i Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub

تم تعديل الملف كاملا والكود بداخله بالاستعانة بالذكاء الاصطناعي Sub FixArabicEncoding() Dim ws As Worksheet Set ws = ActiveSheet ' يمكنك تغييرها حسب الحاجة Dim LastRow As Long LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row Dim Cell As Range Dim OriginalText As String Dim Bytes() As Byte Dim FixedText As String Application.ScreenUpdating = False For Each Cell In ws.Range("A1:A" & LastRow) If Not IsEmpty(Cell.Value) Then OriginalText = Cell.Value ' تحويل النص إلى بايتات (بافتراض أنها ANSI مشفوعة) Bytes = StrConv(OriginalText, vbFromUnicode) ' إعادة تفسير البايتات كـ UTF-8 (باستخدام ترميز UTF-8 للإخراج) ' نحتاج إلى استخدام ADODB.Stream لذلك FixedText = UTF8BytesToString(Bytes) ' إذا كان النص الجديد يحتوي على نص عربي صحيح، نُحدّث الخلية If ContainsArabic(FixedText) Then Cell.Value = FixedText Else ' اختيار بديل: محاولة تفسيره كـ Windows-1256 (العربية الشائعة) FixedText = BytesToString_ANSI(Bytes) If ContainsArabic(FixedText) Then Cell.Value = FixedText End If End If End If Next Cell Application.ScreenUpdating = True MsgBox "تم تصحيح الترميز بنجاح! تحقق من البيانات.", vbInformation End Sub ' --- دوال مساعدة --- ' دالة: تحويل بايتات إلى نص باستخدام UTF-8 Function UTF8BytesToString(Bytes() As Byte) As String Dim Stream As Object Set Stream = CreateObject("ADODB.Stream") With Stream .Type = 1 ' adTypeBinary .Open .Write Bytes .Position = 0 .Type = 2 ' adTypeText .Charset = "utf-8" UTF8BytesToString = .ReadText .Close End With End Function ' دالة: تحويل بايتات إلى نص باستخدام Windows-1256 (العربية) Function BytesToString_ANSI(Bytes() As Byte) As String Dim Temp As String Temp = StrConv(Bytes, vbUnicode) BytesToString_ANSI = StrConv(Temp, vbFromUnicode) End Function ' دالة: تحقق من وجود نص عربي في النص (لتجنب التحديثات غير الضرورية) Function ContainsArabic(Text As String) As Boolean Dim i As Long For i = 1 To Len(Text) If AscW(Mid(Text, i, 1)) >= &H600 And AscW(Mid(Text, i, 1)) <= &H6FF Then ContainsArabic = True Exit Function End If Next i ContainsArabic = False End Function الملف كاملا مع الكود.xlsm

هذه المشكلة واجهتني في السابق حاول تفعل كما فعلت : ظلل جميع الخلايا في كل ورقة ثم اضغط على "مسح تنسيق" ثم احفظ الملف فقط

نعم الموقع يقوم بإرسال أشعار بالفعل إذا قمت أنت بتفعيل هذه الخاصية يوجد أسفل الموضوع زر اسمه ( نبهني بالردود) قم بتفعيله أي رد جديد سيرسل لك الموقع رسالة على بريدك الالكتروني =================== أخي الحبيب : من أول ما فتحت ملفك عرفت أن الاكسل يمكن أن يحل مشكلتك بسهولة ولكن حتى لا أقوم بالمخاولة والخطأ (لأنني لم افهم شغلك) ويطول الوقت فقد طلبت منك التوضيح ومن خلال خبرتي في هذا الموقع فمن الأفضل أن ترفع ملف فيه بعض الحسابات (فيه أرقام) أنت أرفقت ملفك أعلاه ولم يكن فيه إلا القليل من الحسابات التي لا تفي بالغرض الرجاء وضع أرقام في الخلايا لو أنت تريد فقط ترحيل أرقام من خلايا في ملف إلى ملف آخر فهذا بسيط ولكنك تريد أيضا حساب إجمالي العهد المصروفة المطلوب منك تساعد في تقريب المسألة حتى يتم حلها كيف يتم حساب إجمالي العهد المصروقة , لا أريدك أن تشرح لي ولكن في الجدول الموجود في الملف ضع رقما في العمود (إجمالي العهد المصروفة) وأنا سأتابع كيف تم حساب العهد المصروفة هذا الرقم الذي ستضعه لن يأتي عشوائيا ولكن سيأتي من مجموع عدة خلايا لن أطيل عليك أخي الكريم لذلك لم تجد التجاوب السريع من الأعضاء على مشاركتك لوجود الغموض الخلاصة : قم بتعبئة الملف بالبيانات ثم ارسله هنا حتى يتم متابعة المشكلة وحلها بإذن الله تقبل تحياتي

السلام عليكم طبعا أنت فاهم شغلك تمام التمام ولكن !!!!!!!!!!!! عشان نساعدك لا زم نفهم شغلك , لازم تفهمنا شغلك ========================= كيف يتم حساب إجمالي العهدة المصروفة خلال اليوم؟ لو تكتب رقم في الخلية عشان سيتضح الأمر الرجاء أضافة بيانات أكثر في الجداول حتى يتم فهم الموضوع البيانات التي وضعنها قليلة جدا تقبل تحياتي

نعم السؤال غير واضح ومن الأفضل طرح ثلاثة أمثلة وليس مثال واحد حتى يتم فهم المطلوب

المطلوب الأول هو من جنس المطلوب الثاني ولا داعي لتكرار الجداول المعادلات المستخدمة هي من نوع الصفيف وليست معادلات عادية تفضل example1.xlsx

السلام عليكم عادة ما تكون الاسماء المركبة بين قوسين هكذا [ ] ولكن بدون أقواس يكون الأمر فيه شيء من الصعوبة المهم يوجد [تكة] صغيرة أو خدعة بسيطة تستطيع أن تحل بها المشكلة . تابع معي : منة الله : يتكون من (منة) ثم مسافة ثم (الله) المسافة هنا هي المشكلة , لذلك سنجعلها (نصف مسافة) وليس مسافة كاملة منة الله : لو حذفنا المسافة ستكون (منةالله) وهذا هو الاسم السليم لأن (منة) آخرها تاء مربوطة مش هاء الآن : لنفترض أن الاسم هو منه الله (بالهاء) كما هو في ملف الاكسل . كيف العمل ؟ منه الله : لو حذفنا المسافة ستكون (منهالله) وهذا غلط أذن لا نحذف المسافة ولكن نجعلها (نصف مسافة ) منه‌ الله : منه‌الله هكذا --- كيف فعلنا هذا ؟ والطريقة بسيطة اكتب منه ثم (اضغط ctrl+shift+@) ثم اكتب الله هذه الأزرار الثلاثة لا تعمل بهذه الفكرة إلا في تنسيق الكتابة العربية وليس الأنجليزية تقبل تحياتي

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

السلام عليكم هذه محاولة بحسب ما فهمت حل1 : اختر أول سطر للبيانات من القائمة المنسدلة الزرقاء حل2 : مباشرة بدون اختبار سيتم اختيار آخر سطر تفضل جديد1.xlsm

السلام عليكم فعلا طريقة الملف غير مجدية لأنه اصبح ثقيلاا بفعل المعادلات أخي : الملف مليئ بالمعادلات وكونك الآن لا يمكن ان تحوله إلى الأكواد بسرعة (كونها اخف في الحجم) فقط عملت لك حلا سريعا أرجو أن يناسبك أشتغل على الملف كما كنت تعمل عليه من قبل ولكن الملف الآن لن يحسب لك المطلوب مباشرة فعندما تنهي عملك تماما قم بالحفظ وبعدها سيتم حساب الخلايا في الملف ما قمت به أنا باختصار هو : تحول الحساب التلفائي إلى يدوي ويعمل فقط عند حفظ الملف تفضل تسهيل رصد فورى 1.xlsm