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

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


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



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





العمليات الحسابية في عمود

السلام عليكم تحياتي للمنتدى لدي طلب بسيط من فضلكم اريد اجراء عملية القسمة على عمود متلا اريد قسمة جميع ارقام العمود A ..



27-10-2019 12:09 صباحا
ANASS1
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-04-2018
رقم العضوية : 5696
المشاركات : 21
الجنس : ذكر
تاريخ الميلاد : 22-1-1990
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 28
الاعجاب : 6
 offline 

السلام عليكم  تحياتي للمنتدى 
لدي طلب بسيط من فضلكم اريد اجراء عملية القسمة على عمود 
متلا اريد قسمة جميع ارقام العمود A على 100 و النتيجة في نفس العمود 
827WH_Sans titre

جربت هدا الكود لكن لا يعمل 
Dim DV As Long
    DV = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1:A" & DV).Value = Range("A1:A" & DV).Value / 100

شكرا لكم
 
 







27-10-2019 01:01 صباحا
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1396
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6335
الاعجاب : 962
 Online 
look/images/icons/i1.gif العمليات الحسابية في عمود
السلام عليكم-دائما وابدا عند رفع اى مشاركة لابد من رفع ملف معها مدعوم بشرح كافى ووافى للمطلوب مع وضع شكل النتائج المطلوبة وذلك تجنبا لعدم اهدار وقت الأساتذة وايضا لتجربة صحة عمل الكود على الملف...... ولكن يمكنك استخدام هذا الكود
Sub divide()
Const x As Long = 100
Dim cl As Range
Dim rng As Range
Set rng = Sheet1.Range("a2", Range("a65536").End(xlUp)).SpecialCells(xlCellTypeConstants)
For Each cl In rng
cl.Value = cl.Value / x
Next cl
End Sub


ولو كنت تريد تغيير الرقم بقسمته على 100 بمجرد الإدخال فيمكنك استخدام هذا الكود مباشرة بوضعه فى حدث ورقة العمل
Private Sub Worksheet_Change(ByVal Target As Range)
   On Error GoTo sharpExit
  If Not Intersect(Target, Range("a2:a1000 ")) Is Nothing And IsNumeric(Target.Text) Then
     Application.EnableEvents = False
     Target.Value = Target.Value / 100
  End If
sharpExit:
  Application.EnableEvents = True
End Sub


أما اذا كنت تريد ايضا عمل كل هذا بدون أكواد فعليك بإتباع هذه الخطوات الموجودة داخل ملف الوورد:

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
بارك الله فيك وأرجو تقبل ملاحظاتى
 
 
 
  Step 1.docx   تحميل docx مرات التحميل :(2)
الحجم :(43.347) KB


أثارت هذه المشاركة إعجاب: صلاح الصغير، ANASS1،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


27-10-2019 03:22 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23793
الاعجاب : 2466
 offline 
look/images/icons/i1.gif العمليات الحسابية في عمود
بارك الله فيك أخي العزيز علي ومشكور على الحل الرائع

إثراءً للموضوع إليك حل آخر

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

أثارت هذه المشاركة إعجاب: ali mohamed ali، صلاح الصغير، ANASS1، hassona229،




27-10-2019 07:18 صباحا
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 430
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3401
الاعجاب : 294
 offline 
look/images/icons/i1.gif العمليات الحسابية في عمود
ممكن هذا الكود (تستطيع اختيار اي خلية غير D1)

Sub Macro_divide_by100()
With Range("D1")
   .Value = 100: .Copy
    Range("A1").CurrentRegion.PasteSpecial Operation:=5
   .Clear
End With
Application.CutCopyMode = False
End Sub


أثارت هذه المشاركة إعجاب: ali mohamed ali، صلاح الصغير، YasserKhalil، ANASS1،




27-10-2019 04:51 مساء
مشاهدة مشاركة منفردة [4]
ANASS1
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-04-2018
رقم العضوية : 5696
المشاركات : 21
الجنس : ذكر
تاريخ الميلاد : 22-1-1990
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 28
الاعجاب : 6
 offline 
look/images/icons/i1.gif العمليات الحسابية في عمود
السلام عليكم
الاستاذ  ali mohamed ali  ... ظننت ان الصورة ستكون كافية للتوضيح, اعتذر
شكرا جزيلا للجميع على المساعدة لقد تم المطلوب بارك الله فيكم
تحياتي لكم  
 





27-10-2019 06:40 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23793
الاعجاب : 2466
 offline 
look/images/icons/i1.gif العمليات الحسابية في عمود
بارك الله فيك أخي الكريم والحمد لله أن تم المطلوب على خير






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مسابقة للعمليات الحسابية وفورم الاجابة صحيحة وفورم الاجابة خاطئة مجدى يونس
2 22 مجدى يونس
المساعدة فى العمليات الحسابية داخل اليوزر فورم ayman_2000
2 77 ayman_2000
عملية حسابية بالجمع الحسابية في تكست بوكس واحد رمضان بكري
4 76 YasserKhalil
العمليات الحسابية داخل اليوزر فورم ayman_2000
3 160 YasserKhalil
فورم للعمليات الحسابية قسمة وضرب وطرح وجمع مجدى يونس
5 373 مجدى يونس

الكلمات الدلالية
العمليات ، الحسابية ، عمود ،


 







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



الساعة الآن 10:04 صباحا

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