أبوعيد

لا يوجد تحويل هجري دقيق 100% داخل الإكسل أفضل حل عملي: إضافة/طرح يوم باستخدام معادلة الطريقة : إذا كان لديك تاريخ ميلادي في الخلية A1 والتحويل الهجري يكون بأضافة أو أنقاص يوم ويتم مثلًا في B1: اكتب في B1 إحدى هذه المعادلتين : =TEXT(A1-1,"[$-ar-SA]dd mmmm yyyy") =TEXT(A1+1,"[$-ar-SA]dd mmmm yyyy") mmmm لإظهار الشهر بالحروف mm لإظهار الشهر بالرقم

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

وعليكم السلام وأنا أيضا حصل لي هذا الشيء

الحل في شيت جديد تفضل 333.xlsx

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

جرب هذا الحل تسجيل الطرمبات2.xlsx

الأن بحسب الصورة التي أرسلتها تبين أن الخلل في : الديزل وفي القاطرة 1 فقط في خانة السابق الأن المعادلة تظهر الرقم 7789 ما هو الرقم اصحيح الذي تريده أن يظهر ؟ الرجاء كتابة النتائج المتوقعة التي تريدها ان تظهر في النتيجة

وعليكم السلام ورحمة الله وبركاته تفضل جرب هذا الحل تسجيل الطرمبات1.xlsx

الطريقة الصحيحة (تغيير اتجاه الورقة بالكامل) افتح ملفك في WPS Spreadsheet 2020 من الشريط العلوي اختر: Page Layout (تخطيط الصفحة) اضغط على: Sheet Right-to-Left أو Right to Left ألغِ التحديد عنها ➜ ستصبح الورقة من اليسار إلى اليمين

للأسف: Fuzzy Lookup ليست إضافة رسمية من Microsoft ولا تتوافق مع إصدارات Office 2021/2024 الحديثة. هناك عدة دوال قد تغنيك عن الأضافة ارسل ملف اكسل فيه مثال لما تريد أنجازه لربما الخبراء يجدون لك حلا سهلا وبسيطا

تفضل جرب مثال1.xlsx

السلام عليكم ورحمة الله وبركاته أنت تريد إجمالي الكشوفات طيب الناتج أين سيظهر ؟ في سطر "إجمالي الكشف رقم 1 " أم "إجمالي الكشف رقم 2 " أم الخ الخ ملاحظة : اللون الأسود حول الكشوفات يزيد من حجم الملف الرجاء حذف اللون نهائيا وجعل ما حول الكشوفات بلا لون حتى يكون حجمه معقولا

وعليكم السلام ورحمة الله وبركاته تم تصحيح المعادلة في العمود Y قم بحذف المعادلات في X واستبدالها بـ Y ntega_elec_new1.xlsb

وهذا مثال عملي لست فيو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+@) ثم اكتب الله هذه الأزرار الثلاثة لا تعمل بهذه الفكرة إلا في تنسيق الكتابة العربية وليس الأنجليزية تقبل تحياتي