أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل واضافة كود اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





تحويل المعادلات إلى قيمتها

بسم الله الرحمن الرحيم وبه نستعين السلام عليكم ورحمة الله وبركاته فضلا **** لا أمرا أحبتى فى الله أحتاج إلى رمز vba لتحو ..



07-02-2020 09:02 مساء
أبو سجده
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 174
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
قوة السمعة : 230
الاعجاب : 15
 offline 
بسم الله الرحمن الرحيم
وبه نستعين
السلام عليكم ورحمة الله وبركاته
فضلا **** لا أمرا أحبتى فى الله
أحتاج إلى رمز
vba لتحويل المعادلات إلى قيمتها ... تبدأ المعادلات دائمًا من G8 إلى H على سبيل المثال.
ونظرًا لأن الأعمدة تحتوي على آلاف الصفوف ، أريد تحويل المعادلات إلى قيمتها في ضربة واحدة من G8
إلى H
أى لأخر صف  يحتوى على بيانات
 
كيف يمكن القيام بذلك بطريقة سهلة وسريعة  .... أي مساعدة يمكن أن يقدمها هذا المجتمع المدهش ستكون موضع تقدير كبير.
وافر تقديرى وجزاكم الله خيرا
 
 
  تحويل المعادلات الى قيمتها.xlsb.rar   تحميل rar مرات التحميل :(8)
الحجم :(7.864) KB





07-02-2020 09:29 مساء
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 501
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3854
الاعجاب : 84
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى قيمتها
This macro

Sub ONLY_VALUES()
Dim R
R = Cells(Rows.Count, "G").End(3).Row
Range("H8:G" & R).Value = Range("H8:G" & R).Value
End Sub

 




07-02-2020 10:47 مساء
مشاهدة مشاركة منفردة [2]
أبو سجده
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 174
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
قوة السمعة : 230
الاعجاب : 15
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى قيمتها
شكرا جزيلا لك أخى وأستاذى الفاضل
هذا ليس ما أقصده *** كيف يمكن تحويل المعادلات إلى قيمتها مع الاحتفاظ بالمعادلات المدونة بالخليتين الــ G و الــ H8
حيث تحتوى تلك المعادلات على بعض الشروط وفقا للعمودين الــ B و C8 *** إذن المطلوب تحويل تلك المعادلات بداية
من الصف التاسع وحتى أخر صف يحتوى على بيانات **** أرجو أن تكون الفكرة واضحة **** جزاكم الله خيرا

 




08-02-2020 04:33 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8673
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25549
الاعجاب : 205
 Online 
look/images/icons/i1.gif تحويل المعادلات إلى قيمتها
هل تقصد نسخ المعادلات من خلايا معينة لنطاق معين ؟




09-02-2020 01:54 صباحا
مشاهدة مشاركة منفردة [4]
أبو سجده
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 174
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
قوة السمعة : 230
الاعجاب : 15
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى قيمتها
أخى أبو البراء
السلام عليكم ورحمة الله وبركاته
لا أقصد نسخ المعادلات كنسخ **** وإنما أقصد أن يتم تحويل هذة المعادلات 
وفقا للشروط المبينه بالعمودين الــ C8 و D8
كـ مليء تلقائى للخلايا " AutoFill" بداية من خلايا الصف التاسع وحتى أخر صف يحتوى على بيانات
وهنا يمكن تحديد النطاق المطلوب تحويله سواء هذا النطاق عمود واحد أو عدة أعمدة **** الله المستعان وجزاكم الله خيرا




09-02-2020 04:38 مساء
مشاهدة مشاركة منفردة [5]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 501
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3854
الاعجاب : 84
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى قيمتها
جرب هذا الماكرو

Option Explicit
Sub get_values()
    Dim Sh1 As Worksheet
    Dim rg_B As Range, rg_H As Range
    Dim Rg_All As Range, Nro%
    Dim Ro%, i%, st
Set Sh1 = Sheets("Sheet1")
Ro = Sh1.Cells(Rows.Count, 2).End(3).Row
Set Rg_All = Sh1.Range("A7:H" & Ro)
Rg_All.Borders.LineStyle = xlNone
Rg_All.Interior.ColorIndex = xlNo
Rg_All.Columns("G:H").ClearContents
For i = 7 To Ro
    Select Case Cells(i, 2)
     Case "متزوج", "ارمله1": st = 2
     Case "متزوج1", "ارمله2": st = 4
     Case "متزوج2": st = 6
     Case Else: st = "اعزب"
    End Select
Cells(i, 7) = st
Next
Cells(7, 8).Resize(Ro - 6).Formula = "=IF(C8=""نقابى"",100,"""")"

With Sh1.Range("A7:H" & Ro)
.HorizontalAlignment = 1
.InsertIndent 1
.Borders.LineStyle = 1
.Interior.ColorIndex = 20
.Font.Size = 14
.Value = .Value
End With

End Sub

الملف مرفق
 
 
  from_formula _to values.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(33.684) KB





09-02-2020 11:59 مساء
مشاهدة مشاركة منفردة [6]
أبو سجده
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 174
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
قوة السمعة : 230
الاعجاب : 15
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى قيمتها
أخى وأستاذى الفاضل / سليم
السلام عليكم ورحمة الله وبركاته
بأمانه شديدة أرفع لك القبعة إحتراما وتقديرا لهذا التغيير الغير متوقع فقد أصبت بتحويل هذة العمليات الحسابية  من داخل الكود
أخى الكريم *** لقد أضفت فى العمود D على بعض القيم حيث أحتاج الى بعض التعديلات فى الصيغة المدونة من داخل الكود
قد أشرت إليها باللون الأخضر **** فضلا عن أننى قمت بإضافة بعض الأسطر فى بداية ونهاية الكود
من شأنها تسريع عمل الكود وعدم إهتزاز الشاشة رغم وجود إهتزاز طفيف أثناء عمل الكود
فضلا برجاء الإطلاع على المرفق التالى مع مراجعة هذة الاسطر **** جزاكم الله خيرا

 
 
 
  from_formula _to values-By أخى salim.rar   تحميل rar مرات التحميل :(3)
الحجم :(19.305) KB





10-02-2020 09:05 صباحا
مشاهدة مشاركة منفردة [7]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 501
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3854
الاعجاب : 84
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى قيمتها
أولاً اين الاعجاب 
ثانياً استبدل الى هذا الكود

Option Explicit
Sub get_values()
    Dim Sh1 As Worksheet
    Dim rg_B As Range, rg_H As Range
    Dim Rg_All As Range, Nro%
    Dim Ro%, i%, st
 '**********
    Application.Cursor = xlWait
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
'*********
Set Sh1 = Sheets("Sheet1")
Ro = Sh1.Cells(Rows.Count, 2).End(3).Row
Set Rg_All = Sh1.Range("A7:H" & Ro)
Rg_All.Borders.LineStyle = xlNone
Rg_All.Interior.ColorIndex = xlNo
Rg_All.Columns("G:H").ClearContents
For i = 7 To Ro
    Select Case Cells(i, 2)
     Case "متزوج", "ارمله1": st = 2
     Case "متزوج1", "ارمله2": st = 4
     Case "متزوج2": st = 6
     Case Else: st = ""
    End Select
Cells(i, 7) = st
Cells(i, 8) = _
  IIf(Cells(i, 3) = "نقابى", Round(Cells(i, 4) * 0.25, 2), "")
Next
With Sh1.Range("A7:H" & Ro)
.HorizontalAlignment = 1
.InsertIndent 1
.Borders.LineStyle = 1
.Interior.ColorIndex = 20
.Font.Size = 14
.Value = .Value
End With
'**********
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.Cursor = xlDefault
'**************

End Sub






10-02-2020 02:49 مساء
مشاهدة مشاركة منفردة [8]
أبو سجده
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 174
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
قوة السمعة : 230
الاعجاب : 15
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى قيمتها
أولا أعجابى بكم ليس له حدود *** تم إستبدال الكود والامور تسرى على مايرام
جزاكم الله خيرا وبارك فيكم **** تقبل وافر تقديرى






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيف اصنع شيت اكسل لدرجات الطلاب بالمعادلات و يتم ربطه بشيت اخر لطباعة اكثر من شهادة تعبئة تلقائية Mostafa Adel
1 171 Mostafa Adel
كتابة المعادلات بواسطة vba - application- formula احمد شريف
5 349 salim
عمل زر طباعه واخفاء المعادلات بدون حمايه الورقه ابو طيبه
5 319 YasserKhalil
تحويل المعادلات إلى أكواد Convert Formulas To VBA YasserKhalil
24 1895 YasserKhalil
مسح البيانات من كل أوراق العمل ما عدا المعادلات ClearContents Exclude Formulas In All Worksheets YasserKhalil
5 392 YasserKhalil

الكلمات الدلالية
تحويل ، المعادلات ، قيمتها ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:03 صباحا

أعلن هنا
أعلن هنا
أعلن هنا