logo

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



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





07-02-2020 09:02 مساءً
بسم الله الرحمن الرحيم
وبه نستعين
السلام عليكم ورحمة الله وبركاته
فضلا **** لا أمرا أحبتى فى الله
أحتاج إلى رمز
vba لتحويل المعادلات إلى قيمتها ... تبدأ المعادلات دائمًا من G8 إلى H على سبيل المثال.
ونظرًا لأن الأعمدة تحتوي على آلاف الصفوف ، أريد تحويل المعادلات إلى قيمتها في ضربة واحدة من G8
إلى H
أى لأخر صف يحتوى على بيانات
كيف يمكن القيام بذلك بطريقة سهلة وسريعة .... أي مساعدة يمكن أن يقدمها هذا المجتمع المدهش ستكون موضع تقدير كبير.
وافر تقديرى وجزاكم الله خيرا
 
 
  تحويل المعادلات الى قيمتها.xlsb.rar   تحميل rar مرات التحميل :(11)
الحجم :(7.864) KB





look/images/icons/i1.gif تحويل المعادلات إلى قيمتها
  07-02-2020 09:29 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6609
الاعجاب : 1
This macro
CODE

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





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




look/images/icons/i1.gif تحويل المعادلات إلى قيمتها
  08-02-2020 04:33 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10457
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36399
الاعجاب : 66
هل تقصد نسخ المعادلات من خلايا معينة لنطاق معين ؟




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




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

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





look/images/icons/i1.gif تحويل المعادلات إلى قيمتها
  09-02-2020 11:59 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 222
الجنس :
تاريخ الميلاد : 2-2-1965
قوة السمعة : 328
الاعجاب : 0
أخى وأستاذى الفاضل / سليم
السلام عليكم ورحمة الله وبركاته
بأمانه شديدة أرفع لك القبعة إحتراما وتقديرا لهذا التغيير الغير متوقع فقد أصبت بتحويل هذة العمليات الحسابية من داخل الكود
أخى الكريم *** لقد أضفت فى العمود D على بعض القيم حيث أحتاج الى بعض التعديلات فى الصيغة المدونة من داخل الكود
قد أشرت إليها باللون الأخضر **** فضلا عن أننى قمت بإضافة بعض الأسطر فى بداية ونهاية الكود
من شأنها تسريع عمل الكود وعدم إهتزاز الشاشة رغم وجود إهتزاز طفيف أثناء عمل الكود
فضلا برجاء الإطلاع على المرفق التالى مع مراجعة هذة الاسطر **** جزاكم الله خيرا
 
 
  from_formula _to values-By أخى salim.rar   تحميل rar مرات التحميل :(5)
الحجم :(19.305) KB





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

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






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




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حل مشكلة تهنيج المعادلات ف شيت الاكسل zaki123
1 132 zaki123
تحويل المعادلات إلى أكواد Convert Formulas To VBA YasserKhalil
26 5120 YasserKhalil
مطلوب تأمين المعادلات دون تأمين و حماية ورقة العمل صلاح الصغير
6 722 صلاح الصغير
تكرار الرقم مع اكثر من رقم بالمعادلات asd2000
8 857 asd2000
كتابة المعادلات بطريقة vba Application احمد شريف
3 681 salim

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









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

الساعة الآن 08:58 AM