سؤال عن تحويل نتائج الصيغ إلى بيانات عبر كود.

[حسن أبو علي]

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

 

عندي ملف، فيه نتائج وبيانات استخرجتها بالدوال والصيغ.

 

ما الطريقة لكي أقوم بتثبيت البيانات وذلك بمسح الصيغ ولصق البيانات

 

مثلا في الملف المرفق.

 في صفحة الإدخالات

 

أريد النقر على زر فيقوم بمسح الصيغ من عمود سي إلى عمود اتش  (C:H) واستبدالها بالبيانات الموجودة فيها، بحيث إلا تغير بيانات المصدر لا تتغير هنا.

وأريد بنفس الزر بطريقة ما، عمل ذلك في نطاق آخر من I إلى N

 

وأيضا في نطاقات أخرى.

 

 

أتمنى المساعدة

وشكرا

[ياسر خليل أبو البراء]

أخي الكريم

أهلا ومرحباً بك في المنتدى

يرجى إرفاق ملف بعد ضغطه لتتمكن من رفعه كما يرجى الإطلاع على رابط التوجيهات في الموضوعات المثبتة في المنتدى لمعرفة كيفية التعامل مع المنتدى

[حسن أبو علي]

أرفقت الملف في المرة الماضية بضغط وبدون ضغط، لكن .......

 

وماشاء الله علي رد علي الأستاذ (ياسر خليل أبو البراء) الذي قرأت له الكثير من المشاركات الرائعة.

 

الآن أرفقت الملف وأريد :

 

في صفحة الإدخالات

 

أريد النقر على زر فيقوم بمسح الصيغ من عمود سي إلى عمود اتش  (C:H) واستبدالها بالبيانات الموجودة فيها، بحيث إذا تغيرت البيانات في المصدر لا تتغير هنا.

وأريد بنفس الزر بطريقة ما، عمل ذلك في نطاق آخر من I إلى N

 

وأيضا في نطاقات أخرى.

 

وشكرا لك

morfq.zip

[ياسر خليل أبو البراء]

السلام عليكم أخي الكريم حسن

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

وبذلك تتخلص من الصيغ والمعادلات الموجودة وتحصل على القيم فقط ..

[حسن أبو علي]

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

 

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

 

وأسأل الله أن يبارك لك في عمرك ووقتك.

 

والفكرة التي ذكرتها فكرة صحيحة.

 

لكن المشكلة عندي بيانات ما يتجاوز 600 عمود، وفي في العمود الواحد ما يقارب خمسمائة صف، ويتم تحويل عدة أعمدة يوميا مرتين على مدى شهر كامل (أي تحويل الصيغ إلى قيم)

 

والذي ليس عنده إلمام بإكسل يمكن يفسد الملف، ولذلك أنا  محتاج أعطيه طريقة سهلة يقوم بالنقر على زر مثلا، فيتم التحويل. على نطاقات محدة كل يوم.

 

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

[ياسر خليل أبو البراء]

أخي الكريم حسن

يرجى تغيير اسم الظهور للغة العربية

إليك الملف التالي عله يفي بالغرض .. يمكنك النظر داخل الكود وإضافة النطاقات المراد تحويلها لقيم

Sub ConvertToVlaues()
    Dim Rng As Range
    Set Rng = Union(Range("C:H"), Range("I:N"))
    Application.ScreenUpdating = False
        Rng.Copy
        Rng.PasteSpecial xlPasteValues
        Range("A1").Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

وكل عام وأنت بخير :fff:

Pupils' Names.rar

[حسن أبو علي]

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

ماشاء الله تبارك الله ، بارك الله لك في علمك وعملك وعمرك.

 

وإن شاء الله تفرح يوم القيامة، بنتيجة هذه الإجابة.