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

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


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





كود يتوقف ويحتاج تضبيط

السلام عليكم ملفى يحتاج تعديل لانى قمت بتصميم كل ما كان بالفورم على صفحة والكود يعمل على الفورم تمام بينما عندما نقلته ل ..



27-05-2020 09:53 صباحا
omhamzh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-05-2020
رقم العضوية : 19308
المشاركات : 137
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 225
 offline 

السلام عليكم ملفى يحتاج تعديل
لانى قمت بتصميم كل ما كان بالفورم على صفحة والكود يعمل على الفورم تمام
بينما عندما نقلته للصفحة توقف هل من مساعدة لتشغيل الكود وتوضيح اسباب توقفه
مع الشكر الجزيل
 
 
 
  omhamzh.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(122.911) KB


27-05-2020 10:52 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif كود يتوقف ويحتاج تضبيط
وعليكم السلام 
يرجى توضيح المشكلة بالضبط في الكود لديك
ما هي ورقة العمل التي يتم الترحيل إليها ، ما هي المشكلة في الكود بالضبط ..؟ هل يحدث خطأ بالكود ..أم أن عملية الترحيل لا تتم بشكل صحيح
ولما تلجأ لوضع الأدوات على ورقة العمل .. الأفضل هو استخدام فورم للتعامل مع الأدوات بسهولة أكثر..؟

27-05-2020 06:35 مساء
مشاهدة مشاركة منفردة [2]
omhamzh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-05-2020
رقم العضوية : 19308
المشاركات : 137
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 225
 offline 
look/images/icons/i1.gif كود يتوقف ويحتاج تضبيط
شكرا لردك الكريم استاذ ياسر الموسوعة 
الكود المرفق يعمل على الترحيل من اليست بوكس بالاختيار من الكومبو بوكس
ويعمل على الفورم وعند نقل الليست بوكس والكومبو بوكس الى الشيت بنفس ترتيب عمل الكود
بالضبط وعند الضغط على go
يتم الترحيل الى sheets 
الكود يعطى خطأ احتاج توضيح سبب الخطأ من فضلك مشكور

 
 
 
  omhamzh.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(121.856) KB


04-06-2020 12:49 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif كود يتوقف ويحتاج تضبيط
في الكود المستخدم تم استخدام كلمة Controls للإشارة إلى الكومبوبوكس .. وهذا خطأ لأن الكومبوبوكس ليس على الفورم ، إنما على ورقة العمل وللإشارة في هذه الحالة
ActiveSheet.ComboBox2.Value

ولا أحبذ استخدام الأدوات بهذا الشكل على ورقة العمل .. الفورم مصمم لهذه الأدوات بشكل أفضل

04-06-2020 01:41 صباحا
مشاهدة مشاركة منفردة [4]
omhamzh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-05-2020
رقم العضوية : 19308
المشاركات : 137
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 225
 offline 
look/images/icons/i1.gif كود يتوقف ويحتاج تضبيط
اولا اشكرك من كل قلبى لردك الكريم
ثانيا بعد التعديل استاذى توقف الكود فى هذا السطر
x = ActiveSheet.ComboBox2.Value("ComboBox" & i).Value

بارك الله لك ولكل من تحب
اختك

04-06-2020 09:47 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif كود يتوقف ويحتاج تضبيط
جربي السطر بهذا الشكل
x = ActiveSheet.Shapes("ComboBox" & i).Value

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

If ActiveSheet.OLEObjects("ComboBox" & i).Object.ListIndex <> -1 Then
 x = ActiveSheet.OLEObjects("ComboBox" & i).Object.Value
End If




الكلمات الدلالية
يتوقف ، ويحتاج ، تضبيط ، الشكر ،


 










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

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