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