قلبي دليلي

تحديث تم تعديل المعادلة على النحو التالي "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 وهي حفظ الملف الذي تم ارساله في مجلد الطلبات المغلقة. يظهر لي هذا الخطأ المرفق

أبشر أخي الكريم سيتم عمل اللازم وفي نفس الوقت سيتم توضيح المشكلة

أخ طارق الف شكر لك على المعلومة القيّمة تم ارفاق الملف وانتظر تفاعل الأخوة بمساعدتي ولكم كل الشكر والتقدير Job Order Test 1.rar

الأخوة الأعزاء بعد التحية ،، يوجد لدي ملف اجتهدت فيه بعد القراءة كثيرا في المنتديات كان هدفي منه تحسين مستوى العمل وتقليص الدورة المستندية وسرعة انجاز العمل. طريقة عمل الملف كالتلي : 1- يتم تعبئة البانات من قبل الدعم الفني . 2- يتم ارسال الملف بشكل آلي بالضغط على ايقونة الارسال ( ويتم بشكل الى حفظ الملف باسم جديد يعتمد على رقم الطلب واللوحة ويكون هناك تلقائياً رسالة داخل البريد . 3- يتم الضغط على ايقونة حفظ ومسح وذلك ليتم تغيير الرقم الخاص بالطلب تلقائيا ويتم مسح محتويات الطلب السابق بشكل الي. 4- يقوم قسم خدمات الاسطول بفتح البريد يضغط على حفظ الملف كطلب معلق حسب الايقونة ويتم حفظه بنفس الاسم في مجلد خاص يتم انشاؤه في جهاز الكمبيوتر للمتابعة فقط. 5- عند الانتهاء من الطلب يتم فتحه وكتابة الملاحظات حسب الخانات الموضحة بالملف ومن ثم يتم ارسال البريد للجهة المعنية حسب الايقونة الخاصة بها وأيضا تم برمجتها لتكون بشكل الي والشرح بشكل الي. 6- تم حفظ الملف الذي تم ارساله بالضغط على ايقونة حفظ ليتم حفظ الملف في جهاز الكمبيوتر في مجلد الكلبات التي تم اصلاحها واقفالها. 7- يتم فتح الملف من قبل الدعم الفني ويتم تعبئة البيانات النهائية الخاصة بالطلب ومن ثم يتم حفظ الملف بشكل نهائي على أنه تم اقفاله بشكل الي أيضا. المشكلة التي واجهتها هي أنه عند الخطوة رقم 5 عند فتح الملف الذي تم حفظه باسم جديد كمعلق لا يكون فيه الماكرو ولا يتم عمل الايقونات ، حاولت عمل ماكرو شخصي وواجهتني مشكلة ايضا . أريد أن يتم الربط بين الجهازين بدون أي مشاكل في الماكرو الذي يختفي عند حفظ الملف باسم جديد. لا أستطيع ارفاق الملف ولا أعلم السبب Sub NextInvoice() Range("O8").Value = Range("O8").Value + 1 Range("U11:AA16").ClearContents Range("M11:O16").ClearContents Range("A11:H16").ClearContents Range("C22:AB31").ClearContents Range("O17:O18").ClearContents End Sub Sub SaveInvWithNewName() Dim NewFN As Variant ' Copy Invoice to a new workbook ActiveSheet.Copy NewFN = "D:\JOB ORDER\Inv" & Range("O8") & Range("AI1") & Range("U11").Value & ".xlsm" ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbookMacroEnabled ActiveWorkbook.Close NextInvoice End Sub Sub Email_CurrentWorkBook_Hoobers() 'Do not forget to change the email ID 'before running this code Dim OlApp As Object Dim NewMail As Object Dim TempFilePath As String Dim FileExt As String Dim TempFileName As String Dim FileFullPath As String Dim MyWb As Workbook Set MyWb = ThisWorkbook With Application .ScreenUpdating = False .EnableEvents = False End With 'Save your workbook in your temp folder of your system 'below code gets the full path of the temporary folder 'in your system TempFilePath = Environ$("temp") & "\" 'Now get the extension of the file 'below line will return the extension 'of the file FileExt = "." & LCase(Right(MyWb.Name, Len(MyWb.Name) - InStrRev(MyWb.Name, ".", , 1))) 'Now append a date and time stamp 'in your new file TempFileName = Range("AK3").Value 'Complete path of the file where it is saved FileFullPath = TempFilePath & TempFileName & FileExt 'Now save your currect workbook at the above path MyWb.SaveCopyAs FileFullPath 'Now open a new mail Set OlApp = CreateObject("Outlook.Application") Set NewMail = OlApp.CreateItem(0) On Error Resume Next With NewMail .To = "fahad.mohammad@lsclogistics.com" .BCC = "algarni.fahad@gmail.com" .Subject = Range("AK2").Value .Body = "ãÑÝÞ áßã ØáÈ ÕíÇäÉ ááÔÇÍäÉ ÇáãÑÝÞÉ ÈíÇäÇÊåÇ ÃÚáÇå ¡ ÃÑÌæ ãäßã ÊÚãíÏ ãä íáÒã ÈÑÝÚ ÊÞÑíÑ áäÇ ÈÚÏ ãÚÇíäÊåÇ ÍÓÈ ÇáäÙÇã ÇáãÊÈÚ" .Attachments.Add FileFullPath '--- full path of the temp file where it is saved .Send 'or use .Display to show you the email before sending it. End With On Error GoTo 0 'Since mail has been sent with the attachment 'Now delete the temp file from the temp folder Kill FileFullPath 'set nothing to the objects created Set NewMail = Nothing Set OlApp = Nothing 'Now set the application properties back to true With Application .ScreenUpdating = True .EnableEvents = True End With End Sub Sub SaveInvWithNewName_FleetService() Dim NewFN As Variant ' Copy Invoice to a new workbook ActiveSheet.Copy NewFN = "D:\JOB ORDER CLOSE\Inv" & Range("O8") & Range("AI1") & Range("U11").Value & ".xlsm" ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbookMacroEnabled ActiveWorkbook.Close End Sub Sub SaveInvWithNewName_Pending() Dim NewFN As Variant ' Copy Invoice to a new workbook ActiveSheet.Copy NewFN = "D:\JOB ORDER PENDING\Inv" & Range("O8") & Range("AI1") & Range("U11").Value & ".xlsm" ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbookMacroEnabled ActiveWorkbook.Close End Sub Sub SaveInvWithNewName_Close() Dim NewFN As Variant ' Copy Invoice to a new workbook ActiveSheet.Copy NewFN = "D:\JOB ORDER CLOSE\Inv" & Range("O8") & Range("AI1") & Range("U11").Value & ".xlsm" ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbookMacroEnabled ActiveWorkbook.Close End Sub Sub RunExcelMacro() Dim xl As Object 'Step 1: Start Excel, then open the target workbook. Set xl = CreateObject("Excel.Application") xl.Workbooks.Open ("C:\Users\Fahad\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.xlsm") 'Step 2: Make Excel visible xl.Visible = True 'Step 3: Run the target macro xl.Run "JobOrder" 'Step 4: Close and save the workbook, then close Excel xl.ActiveWorkbook.Close (True) xl.Quit 'Step 5: Memory Clean up. Set xl = Nothing End Sub وشكراً