(تمت الإجابة) طلب كود تحويل المعادلات لقيم

[ياسر أحمد الشيخ]

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

عندى عدة نطاقات مفترقة تحوى معادلات أريد تحويلها لقيم

ولقد جمعتهم فى نطاق باسم Formulas_to_Values

أريد كود لعمل ذلك

انظر المرفق

وشكرا

Biomass Labor_Values.rar

[الـعيدروس]

السلام عليكم

جرب هذا الكود

Sub ALI_V()

With ActiveSheet

.Range("C5:AL159").Value = .Range("C5:AL159").Value2

End With

End Sub

[ياسر أحمد الشيخ]

أخى الكريم

أريد تطبيق الكود على النطاق المسمى Formulas_to_Values

وشكرا على اهتمامك

ملحوظة: قمت باستبدال النطاق فى الكود الذى أضفته باسم النطاق Formulas_to_Values

لم تنفع حيث أعطتنى قيم #N/A

هل هناك حل لهذه المشكلة

وشكرا

[ياسر أحمد الشيخ]

للرفع

ممكن تطبق الكود على الملف وترفعه ، يمكن أنا قد أخطأت فى تطبيقه ولا حاجة

لاحظ الطلب : أنا عايز اطبق الكود على نطاقات مفترقة ،قد جمعتها وأعطتها اسم Formulas_to_Values

وشكرا

[الـعيدروس]

السلام عليكم

لا ادري ما السبب

غريبه انه يظهر هالخطاء

وبعدين بعض الخلايا لاتنتج خطاء

ولاكن طبق على الكل والمعادلات الذي تريدها حطها يدوي وخلاص

ولا إنتظر من لديهم الخبره العباقرة ينقذونا من المعضلة المزمنه

تحياتي

[ياسر أحمد الشيخ]

حاولت التعديل على الكود ونجحت أخى "على "

الحل : القيام بتكرار سطر البرمجة مع تغيير النطاق الموجود

يعنى كل سطر برمجة به نطاق مختلف (8 نطاقات = 8 أسطر)

هذا حل مؤقت

سؤال:

ولكن ألا يمكن جعل هذا الكود يقوم بالتطبيق على نطاق مسمى Name Range(وبه عدة نطاقات بداخله)؟؟؟؟؟؟؟؟؟؟؟

تم تعديل ديسمبر 13, 2011 بواسطه leprince2007

[الـعيدروس]

جزاك الله خير

فعلا هذا هو عمل الكود

طيب كذا أكون اختصرت ربما

Sub ALI_V()

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

Range(Cells(5, 3), Cells(13, 33)).Value = Range(Cells(5, 3), Cells(13, 33)).Value2

Range(Cells(17, 3), Cells(62, 33)).Value = Range(Cells(17, 3), Cells(62, 33)).Value2

Range(Cells(69, 3), Cells(73, 33)).Value = Range(Cells(69, 3), Cells(73, 33)).Value2

Range(Cells(78, 3), Cells(82, 33)).Value = Range(Cells(78, 3), Cells(82, 33)).Value2

Range(Cells(87, 3), Cells(89, 33)).Value = Range(Cells(87, 3), Cells(89, 33)).Value2

Range(Cells(95, 3), Cells(120, 33)).Value = Range(Cells(95, 3), Cells(120, 33)).Value2

Range(Cells(125, 3), Cells(133, 33)).Value = Range(Cells(125, 3), Cells(133, 33)).Value2

Range(Cells(137, 3), Cells(141, 33)).Value = Range(Cells(137, 3), Cells(141, 33)).Value2

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

End Sub

[ياسر أحمد الشيخ]

هذا هو الكود أخى الكريم "على"

Sub Formulas_To_Values()

With ActiveSheet

.Range("C5:Ag13").Value = .Range("C5:Ag13").Value2

.Range("C17:Ag62").Value = .Range("C17:Ag62").Value2

.Range("C69:Ag73").Value = .Range("C69:Ag73").Value2

.Range("C78:Ag82").Value = .Range("C78:Ag82").Value2

.Range("C87:Ag89").Value = .Range("C87:Ag89").Value2

.Range("C95:Ag120").Value = .Range("C95:Ag120").Value2

.Range("C125:Ag133").Value = .Range("C125:Ag133").Value2

.Range("C137:Ag141").Value = .Range("C137:Ag141").Value2

End With

End Sub

ولكن أخى أنا أريد وضع نطاق مسمى وهو هنا "Formulas_to_Values"

لأن هذا يسهل من كتابه الكود والعمل به

هل يمكن ذلك

[عبدالله باقشير]

السلام عليكم

استخدم الكود التالي:

Sub kh_Formulas_to_Values()

Dim Rng As Range

For Each Rng In Range("Formulas_to_Values").Areas

    Rng.Value = Rng.Value

Next

End Sub

ودمتم في حفظ الله

[ياسر أحمد الشيخ]

أستاذ خبور عندنا يا مرحبا يا مرحبا

حل رائع

تمت الاجابه

أرجو أخى خبور أن تنظر بعين العطف إلى موضوعى وتجد حل للطلبات التى به

لأنى فى حاجة ماسة إلي انجاز هذا الموضوع

طلب انشاء يوزر فورم Attendance Roll

http://www.officena.net/ib/index.php?showtopic=39614&st=20

وشكرا

[الـعيدروس]

السلام عليكم

الاستاذ الحبيب خبور خير حفظك الله ورعاك

افتقدناك يارجل بوركت وبورك مسعاك

كود مختصر جميل وفقك الله

[abouelhassan]

شكر وتقدير وفائق الاحترام

[عبدالله باقشير]

السلام عليكم

جزاكم الله خيرا

الجمع المبارك

لكم شكري وتقديري

[الجزيرة]

كم أفختر بأن المنتدى يوجد به شخص كريم معطاء كالاستاذ / خبور :)

كود مختصر ورائع

[احمد فضيله]

جزاكم الله كل خير