قلبي دليلي

تحديث تم تعديل المعادلة على النحو التالي "2011 : SAR "#,##0.0,_);(#,##0.0,) واصبحت تظهر العملة باليسار بالريال السعودي هل كذا تمام تحياتي

السلام عليكم ورحمة الله وبركاته وكل عام وانتم بخير انا ودي اتعلم استخدام الداش بورد بالاكسل وعندي مشروع مبيعات لقيت ملف مبيعات بالنت ( dashboard pivot ) لكن في خانة config2 موجود معادلة تحسب مجموع المبيعات لعام 2011 وتم وضع علامة العملة بالدولار الأمريكي =GETPIVOTDATA("Sales",config1!$B$46,"Sales Person - Name",J4) حاولت اغيرها للريال السعودي ما عرفت لما اغيرها من الفورمات واحط ريال سعودي تروح السنة وتبقى المبيعات الفورمات مخصصة بالشكل التالي "2012 : "$#,##0.0,_);(#,##0.0,) حاولت احط مكان الدولار ريال سعودي يتم رفض الاجراء هل ممكن القى مساعدة عشان اتعلم وشكرا Sales-Dashboard.xlsm

للرفع

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

للرفع

للرفع

لدي ملف اكسل شيت فيه 1000 موظف بكل بياناتهم عربي / انجليزي ارغب بعمل دمج مراسلات بالورد له وربطه بملف العقود ( العقد قسمين الجزء الأيمين عربي والجزء الأيسر انجليزي ). وملف الأكسل فيه تفصيل كل داتا ( عربي انجليزي ) تم الدمج بكل سهولة ولكن المشكلة هي في الأرقام تكون بشكل واحد ( عربي فقط ) بالجزئين أو ( انجليزي فقط بالجزئين ) حاولت الذهاب الى الخيارات المتقدمة بالورد واختيار ( سياق ) ولم يتغير شي . أرجو المساعدة حتى تكون الارقام عربية عربية والانجليزية انجليزية افضل طريقة لتكون الطريقة فعالة هي كالتالي : إذا ذهبت في ملف الإكسل إلى إدراج insert > رمز symbol، ثم اخترت علامة التبويب الثانية "أحرف خاصة Special characters"، ستجد في أسفل القائمة علامتين: علامة اليمين-إلى-اليسار Right-to-left mark، وأيضا علامة اليسار إلى اليمين Left-to-right mark. هاتان العلامتان هما بديل غير مرئي عن أحرف، أي إن العلامة الأولى تقوم مقام حرف عربي، بينما تقوم الثانية مقام حرف إنكليزي. صحيح أنك لا ترى شكل هاتين العلامتين، ولكن من الممكن عرضهما. الأولى لها شكل سهم عمودي رأسه منعقف إلى اليمين (وهو اتجاه الكتابة في اللغة العربية)، والثانية لها شكل سهم عمودي رأسه منعقف إلى اليسار (اتجاه الكتابة في اللغات الأوروبية، كالإنجليزية). كل ما عليك فعله هو أن تقوم بإدراج العلامة الأولى في أول الرقم العربي كي يعرف الإكسل أن السياق عربي، فيظهر الرقم عربيا؛ ثم أدرج العلامة الثانية في أول الرقم الأجنبي كي يعرف الإكسل أن السياق أجنبي فيكتب الأرقام بالأجنبية. مرفق صورة كمثال للطريقة الناجحة ( لاحظوا علامة اتجاه النص في بداية كل خلية ) السؤال كيف اقوم بتفعيل الخاصية لكل الداتا بدلا من ادخالها يدويا حيث ان الملف فيه ٥٠٠ موظف وكل موظف لديه بيانات كثيرة تحتاج تعديل ( عربي انجليزي ) وشكرا

الأخوة الأعزاء لدي ملف اكسل شيت فيه 1000 موظف بكل بياناتهم عربي / انجليزي ارغب بعمل دمج مراسلات بالورد له وربطه بملف العقود ( العقد قسمين الجزء الأيمين عربي والجزء الأيسر انجليزي ). وملف الأكسل فيه تفصيل كل داتا ( عربي انجليزي ) تم الدمج بكل سهولة ولكن المشكلة هي في الأرقام تكون بشكل واحد ( عربي فقط ) بالجزئين أو ( انجليزي فقط بالجزئين ) حاولت الذهاب الى الخيارات المتقدمة بالورد واختيار ( سياق ) ولم يتغير شي . أرجو المساعدة حتى تكون الارقام عربية عربية والانجليزية انجليزية مرفق جزء من الملف للتجربة عليه دمج مراسلات.rar وشكرا

أخي الحبيب أعتذر لعدم الرد عليك سابقاً لوجود مشكلة بالسيرفر الخاص بالعمل . تمت تجربة الملف اليوم وهو يعمل بشكل ممتاز على كل الأجهزة وبشكل سليم وآلي. جزاك الله كل خير ونفع بك

أستاذي الفاضل تمت التجربة بعد ارسال الرسالة واستلامها من الطرف الآخر وبعد فتحها وعند الضغط على ( Save as pending ) تظهر لي نفس العلامة ونفس المشكلة الماكرو الخاص به هو هذا Sub SaveInvWithNewName_Pending() Dim NewFN As Variant ' Copy Invoice to a new workbook ActiveSheet.Copy NewFN = "D:\Fleet Service Job Order Pending\Inv" & Range("O8") & Range("AI1") & Range("U11").Value & ".xlsm" ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbookMacroEnabled ActiveWorkbook.Close End Sub كما أحب أن أسال عن هذا الكود Sub SaveInvWithNewName() Dim NewFN As Variant ' Copy Invoice to a new workbook ActiveSheet.Copy NewFN = "D:\Technical Support Job Order Pending\Inv" & Range("O8") & Range("AI1") & Range("U11").Value & ".xlsm" ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbookMacroEnabled ActiveWorkbook.Close ' ActiveWorkbook.SaveAs Filename:="C:\Users\tareq\Documents\assasa.xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False NextInvoice لأنه جديد وأحب أن أفهم معناه واعتذر منك مقدما وشاكر لك جهودك معي

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

الملف بعد التعديل وتغيير ملف الحفظ ليكون بدون ماكرو Job Order Test.rar

هذه صورة الخطأ عند الانتهاء من النقطة رقم 5 من قبل قسم خدمات الأسطول ننتقل للخطوة رقم 6 وهي حفظ الملف الذي تم ارساله في مجلد الطلبات المغلقة. يظهر لي هذا الخطأ المرفق