اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

 

لقد تناولت فى موضوعى السابق  " إزالة أو إبقاء آثار التنسيق الشرطى "  على الرابط التالى
http://www.officena.net/ib/topic/64950-%D8%A5%D8%B2%D8%A7%D9%84%D8%A9-%D8%A3%D9%88-%D8%A5%D8%A8%D9%82%D8%A7%D8%A1-%D8%A2%D8%AB%D8%A7%D8%B1-%D8%A7%D9%84%D8%AA%D9%86%D8%B3%D9%8A%D9%82-%D8%A7%D9%84%D8%B4%D8%B1%D8%B7%D9%89/

كيفية ازالة التنسيق الشرطى و تبعاته من تنسيقات  ... أو الابقاء على تلك التبعات والتنسيقات و تحويلها من تنسيقات شرطية الى تنسيقات عادية

 

و اليوم بإذن الله تعالى أقدم لكم كودا بسيطا لكن  يمكن أن تكون آثاره و نتائجه من وجهة نظرى المتواضعة  جميلة و مبهرة و الرأى لكم فى النهاية

الكود :

Sub creatingFormats()

   On Error Resume Next
   
    For Each cell In Range("data")
        Range("formats").Cells(cell.Value).Copy
        cell.PasteSpecial Paste:=xlPasteFormats
    Next cell
    
   On Error GoTo 0
   Application.CutCopyMode = False
   
End Sub

الكود يقوم  بعمل تنسيقات عادية فى نطاق محدد هو  data   طبقا لتنسيقات يمكنك تعييرها فى خلايا نطاق آخر  هو  formats 

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

كن حذرا ...  أبو ضحكة جنان قاعد لك فى الملف

أخوكم مختار حسين محمود الصعيدى

 

 

تنسيقات بلا حدود.rar

تنسيقات بلا حدود.rar

  • Like 3
  • Thanks 1
قام بنشر

تنسيقات بلا حدود وإبداع بلا حدود

إبداع لا يتوقف وما زال هناك المزيد والمزيد .. ربنا يبارك ويزيد يا مختار يا أبو اليزيد .. على كل ما تقدمه من جديد وممتع ومفيد

واضرب ع الحديد يا راجل يا شديد :clapping:

 

  • Like 1
قام بنشر

ما أروعك أخى الحبيب الغالى / مختار

يوميا تأتى بكل ما هو جديد وجديد

زادك الله من علمه وفضلة

وجعله فى ميزان حسناتك

تقبل خالص تحياتى وتقديرى

  • Like 1
قام بنشر

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

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

بارك الله فيك أستاذي القدير " مختار حسين محمود " على الابداع المكتمل

جزاك الله خيرًا و زادك من علمه و فضله

فائق إحتراماتي و إعجاباتي

  • Like 1
قام بنشر

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

أخى العزيز ناصر  المصرى

بارك الله فيك ... أشكرك أخى الكريم على هذا الكلام الكبير الذى أسعدنى كثيرا  ..و مشكور أيضا على مرورك الكريم

أخى و حبيبى و أستاذى الكبير ياسر خليل

يعلم الله عز وجل أننى أعتز بأنك أحد أهم الذين تعلمت - ولا زلت أتعلم - منهم ...  تقبل الله منا و منكم صالح الاعمال

أخى و حبيبى الغالى ياسر فتحى

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

أخى و حبيبى العزيز عبدالغزيز

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

 

  • Like 3

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information