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

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


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





استبدال قيم الى قيم رقميه

السلام عليكم ورحمة الله وبركاته اريد المساعده من اخواني بهذا الملف وجزاكم الله خيرا لمشاهدة الروابط يلزمك التسجيل في أ ..



18-07-2020 03:15 صباحا
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 


السلام عليكم ورحمة الله وبركاته
اريد المساعده من اخواني بهذا الملف
وجزاكم الله خيرا
MjgxNDQxMQ8282Untitled

 
 
  استبدال قيم.rar   تحميل rar مرات التحميل :(14)
الحجم :(10.71) KB


18-07-2020 04:32 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif استبدال قيم الى قيم رقميه
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim a, lr As Long, i As Long, j As Long
    With ActiveSheet
        lr = .Cells(Rows.Count, 1).End(xlUp).Row
        a = .Range("A2:B" & lr).Value
        For i = LBound(a) To UBound(a)
            For j = LBound(a, 2) To UBound(a, 2)
                If a(i, j) <> "غ" Then a(i, j) = Val(Trim(Replace(a(i, j), "ــــــ", vbNullString)))
            Next j
        Next i
        .Range("O2").Resize(UBound(a), UBound(a, 2)).Value = a
    End With
End Sub


18-07-2020 04:44 صباحا
مشاهدة مشاركة منفردة [2]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif استبدال قيم الى قيم رقميه
جزاك الله خيرا استاذ ياسر

18-07-2020 04:51 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif استبدال قيم الى قيم رقميه
وجزيت خيراً بمثل ما دعوت لي وزيادة

18-07-2020 05:24 صباحا
مشاهدة مشاركة منفردة [4]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif استبدال قيم الى قيم رقميه
جرب هذا الكود (بعد اذن اخي ياسر)و ذلك اثراء للموضوع

Option Explicit
Sub Test()
Dim i%, Ro%, st
With Sheets("البيانات")
  Ro = .Range("a2").CurrentRegion.Rows.Count
  .Range("O2").CurrentRegion.ClearContents
For i = 2 To Ro + 1
  st = Replace(.Range("A" & i), "ـ", "")
  st = Replace(st, Chr(10), "")
  st = Replace(st, Chr(13), "")
.Range("O" & i) = st
Next
For i = 2 To Ro + 1
  st = Replace(.Range("B" & i), "ـ", "")
  st = Replace(st, Chr(10), "")
  st = Replace(st, Chr(13), "")
.Range("P" & i) = st
Next
End With
End Sub


 

18-07-2020 02:55 مساء
مشاهدة مشاركة منفردة [5]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif استبدال قيم الى قيم رقميه
تسلم اخي الفاضل استاذ سليم . . .جزاك الله خيرا

18-07-2020 06:32 مساء
مشاهدة مشاركة منفردة [6]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif استبدال قيم الى قيم رقميه
ربما يكون هذا الكود اسرع للبيانات الكثيرة

Option Explicit

Sub Test()

Dim i%, Ro%, k%, st$, Ar As Variant
 Ar = Array(220, 13, 10, 32)
With Sheets("البيانات")
  Ro = .Range("a2").CurrentRegion.Rows.Count
  .Range("O2").CurrentRegion.ClearContents
For i = 2 To Ro + 1
  st = .Range("A" & i)
    For k = 0 To 3
      st = Replace(st, Chr(Ar(k)), "")
    Next
  .Range("O" & i) = st
Next

For i = 2 To Ro + 1
  st = .Range("B" & i)
    For k = 0 To 3
      st = Replace(st, Chr(Ar(k)), "")
    Next
  .Range("P" & i) = st
Next

End With
End Sub




الكلمات الدلالية
استبدال ، رقميهالسلام ،


 










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

الساعة الآن 06:25 صباحا