إختصار كود

[osama elmorsy]

السلام عليكم

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

 

اقتباس

 Sheet1.Range("F5:F34,F50:F79,F95:F124").NumberFormat = "General"
 Sheet1.Range("F5:F34").Value = Sheet1.Range("F5:F34").Value
 Sheet1.Range("F50:F79").Value = Sheet1.Range("F50:F79").Value
 Sheet1.Range("F95:F124").Value = Sheet1.Range("F95:F124").Value

 

[سليم حاصبيا]

جرب هذا الشيء

With Sheet1.Range("F5:F34,F50:F79,F95:F124")
.NumberFormat = "General"
.Value = .Value
End With

 

[osama elmorsy]

الف شكر استاذ سليم علي مجهودات حضرتك الرائعة وزادك الله من الابداع انا جربت الكود وعمل لكن المشكلة انة يكرر الأرقام في النطاق f5:f34 في النطاقين الاخريين لذلك اكتفيت بالكود غير مختصر وشكرا جزيلا لمجهود حضرتك الاكثر من رائع