اذهب الي المحتوي
أوفيسنا

حسونة حسين

أوفيسنا
  • Posts

    1072
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    30

كل منشورات العضو حسونة حسين

  1. تفضل اخي عدل هذا السطر If (X.Row < 600 And X.Column < 12) Then الى If (X.Row >= 100 and X.Row <= 120 And X.Column < 4) Then
  2. وعليكم السلام ورحمه الله وبركاته اخي @ابوعلي الحبيب الكود الخاص بك في المشاركه الاولي ليس به اي مشكله لكن تأكد ان المسار الذي تحفظ به الصورة موجود وهذا كود اخر بسيط سوف يقوم بإنشاء المسار ان لم يكن موجود ويحفظ الصورة Option Explicit Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Boolean Sub Export_Range_As_Picture() Dim Ws As Worksheet, StrToFolder2 As String Dim oRng As Range, sPath As String, oChart As ChartObject Set Ws = ActiveSheet Application.ScreenUpdating = False StrToFolder2 = "D:\pic\" MakeSureDirectoryPathExists StrToFolder2 sPath = StrToFolder2 & Ws.Range("a1").Value & "." & "jpg" Set oRng = Ws.Range("A3:H17") oRng.CopyPicture xlScreen, xlPicture Set oChart = Ws.ChartObjects.Add(Left:=0, Top:=0, Width:=oRng.Width * 1, Height:=oRng.Height * 1) With oChart .Activate .Chart.Paste .Chart.Export Filename:=sPath .Delete End With Application.ScreenUpdating = True End Sub
  3. وعليكم السلام ورحمه الله وبركاته جرب هذا التعديل اخي @ehabaf2 Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Range For Each X In Target ' 600 هو اخر سطر لعمل الكود 'L هو العامود column 12 If (X.Row < 600 And X.Column < 12) Then If ActiveSheet.ProtectContents = True And X.Value <> "" Then X.Offset(0, 1).Select End If Next End Sub عدم التعديل فى اسطر محددة.xlsb
  4. السلام عليكم ورحمة الله وبركاته وبها نبدأ لطفا ارفق ملف
  5. وعليكم السلام ورحمة الله وبركاته قواعد المشاركة بمنتدي أوفيسنا بالنسبه لطلبك الأول هو موجود فعليا في البند رقم ٢٣ 23. ممنوع نهائيا وبشكل قاطع تكرار الموضوع نفسه أو فتح موضوع جديد للمطالبة برد في موضوع سابق، كما يمنع منعا باتا ذكر أكثر من سؤال في نفس الموضوع، وهذا لكي يسهل البحث والحصول على المعلومة على من بعدك بالنسبه لطلبك الثانى هو موجود فعليا في البند رقم ١٩ 19. تجنب نشر بيانات حقيقية يخشى نشرها ويمكن أن تطلب حذفها لاحقاً
  6. قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا الموضوع مخالف لقوانين المنتدي ×××××××× موضوع مكرر ×××××××× يغلق ×××××××× الإدارة
  7. السلام عليكم ورحمة الله وبركاته وبها نبدأ لطفا ارفق ملف
  8. اخي @2saad كل موضوع له طلب واحد تم غلق الموضوع
  9. وعليكم السلام ورحمة الله وبركاته Portable Ontrack EasyRecovery Technician 16.0.0.2 Multilingual
  10. السلام عليكم ورحمة الله وبركاته وبها نبدأ الشيت محمي فك الحمايه عن الشيت اولا
  11. قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا الموضوع مخالف لقوانين المنتدي ×××××××× يخالف حقوق الملكية الفكرية ×××××××× يغلق ×××××××× الإدارة
  12. تفضل اخى العدد ٩١ New ورقة عمل Microsoft Excel.xlsx
  13. وعليكم السلام ورحمة الله وبركاته تم غلق الموضوع لانه مكرر رابط الموضوع
  14. تم غلق الموضوع للتكرار رابط الموضوع
  15. السلام عليكم ورحمة الله وبركاته تم غلق الموضوع لتكرار المواضيع موضوعك الاول هنا موضوعك الثاني هنا موضوع الثالث هذا الموضوع وكلهم لنفس الطلب
  16. السلام عليكم ورحمة الله وبركاته وبها نبدأ اي موضوع لطفا ارفق ملف
  17. وعليكم السلام ورحمة الله وبركاته تفضل اخي تم تحديث الموضوع اطلع عليه ستجد حل مشكلتك ان شاء الله
  18. تم اضافه مرفق في المشاركه الاساسيه لمعالجة مشاكل التشغيل التي تقابل الإخوة الاعضاء
  19. وجزاكم مثله اخي ومرحبا بك بين اخوانك
  20. تفضل رابط الإصدار الرابع وبه التحكم في الصور
  21. قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا الموضوع مخالف لقوانين المنتدي ×××××××× اكثر من طلب في موضوع واحد. ×××××××× يغلق ×××××××× الإدارة
  22. وعليكم السلام ورحمة الله وبركاته لطفا ارفق ملف
×
×
  • اضف...

Important Information