كيفيه جعل الخلايا بدون رمز الشباك

[ايهاب السيد بدوى]

بسم الله الرحمن الرحيم

فى الخلايا التى باللون البنفسجى تكون على شكل رمز الشباك فاقوم بتوسيع كل خليه على حده حتى تظهر الارقام حتى اقوم بطباعه الورق.

هل هناك طريقه لعدم اظهار رمز الشباك واظهار الارقام لكل الشيت بدلا من توسيع كل خليه على حده

Copy of شهر أكتوبر بعد القانون 18.rar

[الـعيدروس]

استخدم الكود التالي

Public Sub Ali_Clm()
 On Error Resume Next
    ActiveSheet.UsedRange.Columns.EntireColumn.AutoFit
 On Error GoTo 0
End Sub

 

[ناصرالمصرى]

ماذا لو تكرر هذا الامر فى اكثر من شيت

هل يتم وضع الكود فى حدث كل شيت على حدى

ام هناك اتاحة لعمل كود يوضع بالحدث ThisWorkbook ليشمل جميع 

شيتات المصنف مهما بلغ عدد الشيتات **** وافر تقديرى واحترامى

تم تعديل نوفمبر 26, 2015 بواسطه ناصر المصرى

[الـعيدروس]

بالامكان ذلك في حدث Thisworkbook مباشره عند دخولك الصفحه

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   Sh.UsedRange.Columns.EntireColumn.AutoFit
End Sub

 

[ناصرالمصرى]

بارك الله فيكم أخى الكريم

زادك الله تعالى

هل من إضافة أخرى بنفس الكود وبنفس الحدث 

كتحديد ارتفاع الصفوف وكذا نوع البنط وحجم البنط

وافر تقديرى واحترامى

[الـعيدروس]

السلام عليكم

هكذا بيكون

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Ap_A False
With Sh.UsedRange
   .Columns.EntireColumn.AutoFit  '' الاعمدة
   .Rows.EntireRow.AutoFit        '' الصفوف
   .Borders.Color = 1             '' البوردر
  With .Font
    .Name = "Times New Roman"     '' اسم الخط
    .Size = 10                    '' حجم الخط
  End With
End With
  Ap_A True
End Sub
Private Function Ap_A(Bn As Boolean)
With Application
   .Calculation = IIf(Bn, -4105, -4135)
   .ScreenUpdating = Bn
   .EnableEvents = Not Bn
End With
End Function

 

[ياسر خليل أبو البراء]

أخي الحبيب أبو نصار

أعتقد أنه يجب تغيير السطر الخاص بتفعيل الحدث إلى هذا الشكل

.EnableEvents = Bn

حيث أنه عند تجربة الكود الخاص بك لاحظت أنه يقوم بالمهمة عند تفعيل أو تنشيط أول شيت وفقط .. وعند تنشيط ورقة عمل أخرى فإنه لا ينفذ شيء عليه ...

تقبل تحياتي

[ناصرالمصرى]

السلام عليكم ورحمته الله وبركاته

بارك الله فيكم جميعا

نعم نفس الملاحظة ولكن لاول خليه فقط " A1 "

ولاتتم المهمه بعد حذف " NOT "

   .EnableEvents = Not Bn

إلا بالتنقل بين الشيتات فهل من سبيل لتثبيت تلك الاوامر

على سبيل المثال اكتب اى رقم فى اى خلية فى أى شيت

هنا لايتم تفعيل الكود الا بالخروج من الشيت ثم العودة اليه مرة أخرى

كما يفضل فضلا تحديد سمك البنط " BOLD " ليتم تغيره حسب طبيعة كل مستخدم

 وافر تقديرى واحترامى

 

تم تعديل نوفمبر 27, 2015 بواسطه ناصر المصرى

[ياسر خليل أبو البراء]

أخي الكريم ناصر (صحيح الكتالوج بتاعك مش معايا بس جرب التعديل التالي)

ضع الكود في حدث المصنف ..

سيتم تنفيذ الكود بمجرد التغيير في أي خلية في أي ورقة (وإن كنت لا أحبذ التعامل مع الأكواد بهذه الطريقة)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Ap_A False
    With Sh.UsedRange
        .Columns.EntireColumn.AutoFit
        .Rows.EntireRow.AutoFit
        .Borders.Color = 1
        With .Font
            .Name = "Times New Roman"
            .Size = 10
            .Bold = True
        End With
    End With
    Ap_A True
End Sub

Private Function Ap_A(Bn As Boolean)
    With Application
        .Calculation = IIf(Bn, -4105, -4135)
        .ScreenUpdating = Bn
        .EnableEvents = Bn
    End With
End Function

 

[ايهاب السيد بدوى]

استخدمت الكود

ولم يحدث اى تعديل

 

[ناصرالمصرى]

اخى الكريم ابو البراء

السلام عليكم

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

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

على مجريات المصنف وخاصة اننى سنة أولى VBA فمن هنا يأتى التشتت فى الطلب

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

وافر تقديرى واحترامى لشخصكم الكريم

[ياسر خليل أبو البراء]

الكود يتم تفعيله عند حدوث تغيير في ورقة العمل (لأي ورقة عمل)

يوضع الكود في حدث المصنف ThiisWorkbook ..

[ناصرالمصرى]

اخى الكريم الاستاذ احمد محمد

السلام عليكم

اليك الملف خاصتك

تأكد من اتجاه لوحة المفاتيح لديك اجعلها على اللغة الانجليزية

وافر تقديرى واحترامى

شهر اكتوبر قانون 18 لسنة 2015.rar

[ياسر خليل أبو البراء]

أخي الكريم ناصر يبدو أنني حصلت على الكتالوج بالفعل ههههه

إليك التعديل في هذا السطر ليناسب طلبك

With Sh.Range("A1:D20")

بدلاً من السطر

With Sh.UsedRange

 

[ناصرالمصرى]

هههههههه

هههههههههه

طيب ممكن نسخة للذكرى

ياحبيبى والله العظيم  انا بس بنكشك لانى بعرف حالتك المزاجية

من ردك *** وعشان أطلع اللى عندك ممكن أسالك سؤال يبدو فيه غباء منى وده سر الكتالوج

ههههههه هههههههههههههه ههههههههههههههههه بس خلاص

احنا بتعلم منك كتير وربنا يخليك لاولادك وربنا يحلى ايامك واحنا كمان

عسل عليك ياأبو البراء

[ياسر العربى]

انا جيت المشكلة خلصت ياعم ناصر ولا احط التاتش بتاعي

[ناصرالمصرى]

براحتك ياباشا ومنكم نستزيد شرفا وعلما

احلى تثبيته وهات اللى عندك ياأبوالعربى

تكاتك ماشى *** تتشاتك كله ماشى

والله احلى صحبة

تم تعديل نوفمبر 27, 2015 بواسطه ناصر المصرى

[ياسر العربى]

ههههههههههههههه مش انا اللي حد يثبتني

ارفق يامعلم الملف مع اخر تعديلات وتوضيح المطلوب في المشاركة وداخل الملف

وتوضح المطلوب باسماء الشيتات هاااا واخد بالك اسماء الشيتات لسه لحد الان شيت واحد اسمه اتنين واتنين اسمه اربعه وليلة كبيرة

ارفق يامعلم وهلم ليك كل اكوادك واضربها في الخلاط واعملك احلا كوكتيل

تم تعديل نوفمبر 27, 2015 بواسطه ياسر العربى

[ناصرالمصرى]

ههههههههههه

حبيبى ابو محمد

المعلم شغال ومضبط كل شيىء

ولكن سيتم الرفع على صفحات الموضوع الاصلى

بس ياريت بسرعة لحسن همووووووووووووت من العطش ومتنساش تكتر من السكر