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

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


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


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





كيف تنفذ الكود

السلام عليكم ورحمة الله وبركاته ارجو من حضراتكم المساعدة فى حل مشكلة عدم التنفيذ للكود المرفق [code]PGJyIC8+DQpSYW5nZSgm ..



17-01-2018 12:41 مساء
mohammed gurtuby
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-01-2018
رقم العضوية : 3536
المشاركات : 132
الجنس : ذكر
تاريخ الميلاد : 31-12-1988
الدعوات : 3
قوة السمعة : 197
الاعجاب : 0
 offline 
السلام عليكم ورحمة الله وبركاته
ارجو من حضراتكم المساعدة فى حل مشكلة عدم التنفيذ للكود المرفق

Range("d6:i100").ClearContents
For i = 2 To 100
d = IIf([d3].Value = "Úãíá", 2, 3)
x = WorksheetFunction.CountA(Range("d5:d1000"))
If Sheets(d).Cells(i, 4) = ComboBox1.Value Then
Sheets(1).Cells(6, 4).Offset(1 + x, 0) = Sheets(d).Cells(i, 5)
Sheets(1).Cells(6, 5).Offset(1 + x, 0) = Sheets(d).Cells(i, 6)
Sheets(1).Cells(6, 6).Offset(1 + x, 0) = Sheets(d).Cells(i, 7)
Sheets(1).Cells(6, 7).Offset(1 + x, 0) = Sheets(d).Cells(i, 8)
Sheets(1).Cells(6, 8).Offset(1 + x, 0) = Sheets(d).Cells(i, 9)
For i = 2 To 100
m = IIf([d3].Value = "Úãíá", 4, 5)
x = WorksheetFunction.CountA(Range("d5:d1000"))
If Sheets(m).Cells(i, 4) = ComboBox1.Value Then
Sheets(1).Cells(6, 4).Offset(1 + x, 0) = Sheets(m).Cells(i, 5)
Sheets(1).Cells(6, 9).Offset(1 + x, 0) = Sheets(m).Cells(i, 6)
End If
nexti
'range("d6:i100").Sort key1:=range("d6")order 1:=xlascendingordercustom:=1
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$d$3" Then
ComboBox1.Value = ""
x = cell("d3").Value
ComboBox1.ListFillRange = x
End If
End Sub



d = IIf([d3].Value = "Úãíá", 2, 3)
x = WorksheetFunction.CountA(Range("d5:d1000"))
If Sheets(d).Cells(i, 4) = ComboBox1.Value Then
Sheets(1).Cells(6, 4).Offset(1 + x, 0) = Sheets(d).Cells(i, 5)
Sheets(1).Cells(6, 5).Offset(1 + x, 0) = Sheets(d).Cells(i, 6)
Sheets(1).Cells(6, 6).Offset(1 + x, 0) = Sheets(d).Cells(i, 7)
Sheets(1).Cells(6, 7).Offset(1 + x, 0) = Sheets(d).Cells(i, 8)
Sheets(1).Cells(6, 8).Offset(1 + x, 0) = Sheets(d).Cells(i, 9)
For i = 2 To 100
m = IIf([d3].Value = "Úãíá", 4, 5)
x = WorksheetFunction.CountA(Range("d5:d1000"))
If Sheets(m).Cells(i, 4) = ComboBox1.Value Then
Sheets(1).Cells(6, 4).Offset(1 + x, 0) = Sheets(m).Cells(i, 5)
Sheets(1).Cells(6, 9).Offset(1 + x, 0) = Sheets(m).Cells(i, 6)
End If
nexti
'range("d6:i100").Sort key1:=range("d6")order 1:=xlascendingordercustom:=1
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$d$3" Then
ComboBox1.Value = ""
x = cell("d3").Value
ComboBox1.ListFillRange = x
End If
End Sub



تم تحرير الموضوع بواسطة :Yasser Elaraby
بتاريخ:17-01-2018 01:16 مساء

سبب التعديل : تعديل الكود





17-01-2018 01:08 مساء
مشاهدة مشاركة منفردة [1]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1765
الجنس : ذكر
الدعوات : 19
قوة السمعة : 18570
الاعجاب : 74
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كيف تنفذ الكود
اخى الكريم راجع هذا الرابط لتعرف كيف يتم وضع الكود بشكل صحيح 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
وايضا لابد من ارفاق ملف لفهم المطلوب والعمل عليه



توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيفية اضافه الساعة في اليوزر فورم mossa 203055
1 27 mossa 203055
كيفية تقسيم الباركود في اكثر من تكست بوكس او اكثر من خلية halan550
8 97 YasserKhalil
تحذير : كيف يتم تزوير و التعديل على مواصفات أي جهاز قبل بيعه Mohamed Abdullah
6 1429 Excelawy
اكسل | كيفية فتح ملف اكسل للقراءة فقط والتعديل علية Excel VBA emad ghazi
2 255 كريم نظيم
كيفية عمل ماكرو toytotan
2 96 toytotan

الكلمات الدلالية
تنفذ ، الكود ،


 







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

الساعة الآن 02:39 مساء

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