تنسيق الخلية لا يتغير حتى تقوم بعمل double click

[محمد طاهر عرفه]

أحيانا عند الاستيراد من خارج الاكسيل

تجد تنسيق الخلايا لا يريد أن يتغير

و عليك أن تمر علي خلية خلية لعمل double click ( نقر مذدوج ) أو تضغط F2 داخل كلية خلية قبل أن تتمكن من تغيير التنسيق

و قد لا يكون ذلك مناسبا

و هذا كود للقيام بتغيير تنسيق الخلايا المختارة الي "dd/mm/yyyy"

علي سبيل المثال

Sub Reenter_Format()

  Dim MyRow As Double, Z As String

  MyRow = Selection.Rows.Count

  For j = 1 To MyRow

    ActiveCell.Cells.NumberFormat = "dd/mm/yyyy"

    Z = ActiveCell.Value

    ActiveCell.Cells.FormulaR1C1 = Z

    ActiveCell.Offset(1, 0).Activate

  Next j

End Sub

Re_enterValues.zip

[Sharaf]

حل أخر:بأتباع الخطوات التالية

كتابة صفر (0) فى خلية خارج النطاق

نسخ الخلية المكتوب بها صفر

تنشيط النطاق المطلوب تغيير تنسيقه

لصق خاص أ - قيم ب- إضافة

بالطبع إضافة صفر لن تغير القيمة و لكن ستقوم بتفعيل التنسيق :o

تم تعديل يونيو 10, 2003 بواسطه Sharaf

[محمد طاهر عرفه]

جميل فكرة اعادة التفعيل باضافة صفر

و اذا أردنا تنفيذ اعادة التفعيل ( إعادة ادخال القيم ) علي الخلايا المختارة ، دون التدخل فى التنسيق

نزيل سطر التنسيق فقط

Sub Reenter_values()
  Dim MyRow As Double, Z As String
  MyRow = Selection.Rows.Count
  For j = 1 To MyRow
    Z = ActiveCell.Value
    ActiveCell.Cells.FormulaR1C1 = Z
    ActiveCell.Offset(1, 0).Activate
  Next j
End Sub

[محمد طاهر عرفه]

و لتكرار عملية ادخال F2 ثم Enter

و التي نحتاج احيانا لتنفيذها علي عدد من الخلايا المختارة

مثلا لتفعيل وصلة ويب

Sub Reenter_Format()
  Dim MyRow As Double, Z As String
  MyRow = Selection.Rows.Count
  For j = 1 To MyRow
    SendKeys "{F2}"
    SendKeys "{ENTER}"
  Next j
End Sub

EnterF2.rar

[anasalmrshd]

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