من فورم الى خلية في الصفحة

[خالـ(ابوعثمان)ـد]

بسم الله الرحمن الرحيم

في البداية اشكر إخواني القائمين على هذا المنتدى العظيم

على ما يقومون به من جهد جبار للارتقاء بهذا المنتدى

ولخدمة إخوانهم المسلمين

جعله الله في ميزان حسناتهم ورزقهم من حيث لا يحتسبون

وأرجو من لدية قدرة على مساعدتي لحل بعض المشاكل لدي على ملف اكسل لم استطع اكماله

بسبب جهلي في كثير من الأمور في البرمجة، وهى على النحو التالي:

عند فتح ملف الاكسل راح يظهر مباشرة (UserForm1)

وتم ذلك من خلال الأمر:

Sub Auto_Open()

UserForm1.Show

End Sub

والمطلوب هنا عند إدخال رمز الشركة في (TextBox1) يتم وضع قيمتها في الخلية (L2) في الورقة (ورقة1)،

ومن ثم عند إدخال سعر السهم في (TextBox2) يتم وضع قيمتها في الخلية (R2) في الورقة (ورقة1)

ثم بعد الضغط على موافق سيتم إخفاء (UserForm1) وسيظهر (UserForm1) وتم ذلك من خلال الأمر:

Private Sub CommandButton1_Click()

UserForm1.Hide

UserForm2.Show

End Sub

ملاحظة:

*الخلية (L2) لن تقبل الا رموز معينة من خلال امر التحقق من صحة البيانات وهى (AH1:AH63) على (ورقة1).

والمطلوب هنا في (UserForm2) ان تكون القيم على النحو التالي:

(Label15) = الخلية (H4) في الورقة (ورقة1)

(Label16) = الخلية (R4) في الورقة (ورقة1)

(Label17) = الخلية (J7) في الورقة (ورقة1)

(Label18) = الخلية (S10) في الورقة (ورقة1)

(Label19) = الخلية (G10) في الورقة (ورقة1)

(Label20) = الخلية (R12) في الورقة (ورقة1)

(Label21) = الخلية (R14) في الورقة (ورقة1)

(Label22) = الخلية (R16) في الورقة (ورقة1)

(Label23) = الخلية (R18) في الورقة (ورقة1)

(Label24) = الخلية (J12) في الورقة (ورقة1)

(Label25) = الخلية (J14) في الورقة (ورقة1)

(Label26) = الخلية (J16) في الورقة (ورقة1)

(Label27) = الخلية (J18) في الورقة (ورقة1)

اسف على الاطاله وكثرة الطلبات ولكن املي كبير في حل هذه المشاكل في الملف.

حمل الملف من المرفقات

[احمدزمان]

ولقد كرمنا بني آدم

__________.rar

[خالـ(ابوعثمان)ـد]

تحياتي أستاذ احمد

والله العظيم عاجز عن شكرك

بس استاذي الفاضل عند ادخال رمز خاطئ يعطي رسالة خطأ ويتوقف البرنامج

وياليت تشرح الطريقة لكي استفيد ويستفيد غيري

وجزاك الله الف خير

تم تعديل مايو 1, 2009 بواسطه مجردخبل