UA-10450183-1

إنتقال للمحتوى

ابحث فى الموقع مع جوجل

بحث مخصص

تأكد من صحة الحديث قبل نشره



بحث عن:

المصحف المعلم

شبكة محترفى أوراكل

<




صورة

هل يمكن ارتباط قيمة من userform مع خلية في الاكسيل


  • قم بتسجيل الدخول للرد
3 رد (ردود) على هذا الموضوع

#1 أبو العقاب

أبو العقاب
  • Members-2
  • 300 مشاركة
  • Gender:Male
  • Interests:الحاسوب والرياضيات

تاريخ المشاركة 15 يونيو 2010 - 01:44 م

السلام عليكم

أخواني في المرفق مثال عند تشغيل البرنامج يظهر userform

أريد ارتباط القيمة التي في userform مع خلية اكسيل لتكن a1 مثلا

بحيث أي تغيير في القيمة من userform يحدث تغييرا في الخلية a1

كيف يحدث ذلك يرحمكم الله

ملفات مرفقة

  • ملف مرفق  Book11.rar   7.28كيلو   42 عدد مرات التحميل

أما آن لليل الظالمين أن ينجلي

#2 طارق محمود

طارق محمود

    مراقب عام

  • مراقب عام
  • 3,577 مشاركة
  • Gender:Male
  • Location:مصر

تاريخ المشاركة 15 يونيو 2010 - 04:09 م

السلام عليكم

في محرر الفيجوال بيزيك
كليك يمين علي الـ userform ثم إظهر الكود الخاص بها
واكتب به الكود التالي:
Private Sub TextBox1_Change()
If TextBox1.Value <> "" Then [A1].Value = TextBox1.Value
End Sub

أحب الصالحين ولست منهم ** لعلي أن أنال بـهم شفـاعـة
وأكره مَن تجارته المعاصي ** ولو كنا سواء في البضاعة

#3 طارق محمود

طارق محمود

    مراقب عام

  • مراقب عام
  • 3,577 مشاركة
  • Gender:Male
  • Location:مصر

تاريخ المشاركة 15 يونيو 2010 - 04:25 م

السلام عليكم
أشعر أنك قد تحتاج إلي تعلم كيفية إدراج أداة من شريط أدوات التحكم (مسطرة القياس
مثلا) لتغيير قيمة خلية ما

وتذكر أنه يمكنك عمل أكثر من أداة مع إرتباط كل منها بخلية غير الأخري

شاهد الفيديو المرفق وستفهم قصدي

ملفات مرفقة

  • ملف مرفق  Control Box.rar   180.71كيلو   85 عدد مرات التحميل

تم تعديل هذه المشاركة بواسطة TareQ M: 15 يونيو 2010 - 04:26 م

أحب الصالحين ولست منهم ** لعلي أن أنال بـهم شفـاعـة
وأكره مَن تجارته المعاصي ** ولو كنا سواء في البضاعة

#4 أبو العقاب

أبو العقاب
  • Members-2
  • 300 مشاركة
  • Gender:Male
  • Interests:الحاسوب والرياضيات

تاريخ المشاركة 15 يونيو 2010 - 05:04 م

مشكور
بارك الله بك
أما آن لليل الظالمين أن ينجلي




0 عضو (أعضاء) يشاهدون هذا الموضوع

0 الأعضاء, 0 الزوار, 0 مجهولين