osama elmorsy قام بنشر مارس 20, 2021 مشاركة قام بنشر مارس 20, 2021 السلام عليكم أستأذن حضراتكم هل يمكن إخنصار هذا الكود الذي استخدمة بسبب انني عندما ارحل البيانات ومنها الارقام من الفورم للشيت يقرأها الاكسيل كنص وبالطبع المعادلات لا تعمل حينها مع النصوص وكان هذا الكود هو الحل ولكني اود اختصارة للتخفيف من البرنامج وشكرا جزيلا لحضراتكم اقتباس 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 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر مارس 20, 2021 أفضل إجابة مشاركة قام بنشر مارس 20, 2021 جرب هذا الشيء With Sheet1.Range("F5:F34,F50:F79,F95:F124") .NumberFormat = "General" .Value = .Value End With 1 رابط هذا التعليق شارك More sharing options...
osama elmorsy قام بنشر مارس 21, 2021 الكاتب مشاركة قام بنشر مارس 21, 2021 الف شكر استاذ سليم علي مجهودات حضرتك الرائعة وزادك الله من الابداع انا جربت الكود وعمل لكن المشكلة انة يكرر الأرقام في النطاق f5:f34 في النطاقين الاخريين لذلك اكتفيت بالكود غير مختصر وشكرا جزيلا لمجهود حضرتك الاكثر من رائع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.