اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

  • الردود 240
  • Created
  • اخر رد

Top Posters In This Topic

قام بنشر

السلام عليكم

احى الو البراءهل يمكن مساعدتى فى محاولة فهم الكود

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("b2:b1000")) Is Nothing Then

With Target(1, 2)

.Value = Date

.EntireColumn.AutoFit

End With

End If

End Sub

قام بنشر

السلام عليكم

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

http://hotfile.com/dl/9842600/f5d5622/__.rar

الرابط جربته عدة مرات وهو يعمل جيدا

وللإحتياط الملف المرفق به ارتباط تشعبي للوصول إلى البرنامج

أرجو أن ينال إعجابكم

http.rar

قام بنشر

أخي سالم

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

التجميعة دي رائعة رغم إن حجمها كبير

هدية جميلة من صديق حبيب

بالنسبة لسؤالك حول تحديد خلية في ورقة أخرى

Sheets("Sheet1").Range("A1:B5").copy Destination:=Sheets("Sheet2").Range("E1")

أخي أحمد حافظ

جزاكم الله خيراً على الرابط الذي أعطيتني إياه عبر الإيميل

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

اعذرني إن كنت لا أجيد الرد على استفساراتك

أخوك أبو البراء

قام بنشر

السلام عليكم

شكرا أخي ياسر على التوضيح ولكن الكود لم يشتغل إلا بعد أن كتبت في البداية

worksheets بدلا من sheets وكان كما يلي :

Worksheets("ورقة2").Range("a1:b5").copy Destination:=Sheets("ورقة3").Range("e1")

قام بنشر

السلام عليكم أخي أستاذ سالم جربت كود الترحيل واشتغل تمام ولكن لي سؤال أريد بعد ان يتم الترحيل إلى الورقة 3 يذهب المؤشر إلى تلك الورقة علما بأنني قمت بالترحيل وانا واقف في الورقة الأولى بينما الترحيل يتم من الورقة الثانية إلى الورقة الثالثة اريد أن اذهب فورا بعد عملية الترحيل الى الورقة الثالثة

قام بنشر

أخي خالد

أسعد الله كل أوقاتك

كنت عايز الإيميل الخاص بك

بالنسبة لسؤالك أجاب عنه الأخ سالم وها هو مرة أخرى

نفترض أنك أعطيت الورقة الثالثة الاسم Khaled فيكون الكود كالتالي

Sheets("Khaled").Activate

أو

Sheets("Khaled").Select

جزاكم الله خيراً على التفاعل المثمر أخ سالم

أخوكم أبو البراء

قام بنشر

استراحة الدورة البرمجية

االسلام عليكم إخواني الأحباب

أهديكم برنامج يقوم بحل لعبة السودوكو اليابانية المشهورة

لا تنسونا بالدعاء

sudoku solver.rar

أخوكم أبو البراء

قام بنشر

السلام عليكم

أستاذ خالد حياك الله

لا دروس خصوصية ولا شيء

دروسي أستلهمها من حسن صحبتكم فكلكم والله من حسن الصحبة

ولم يأتيني منكم سوى المسك الطيب وحسن الخلق

فأنا أحبكم في الله

قام بنشر

السلام عليكم

أستاذ ياسر حياك الله

أولا سعيد جدا لأنني تواصلت معك

ثانيا عايزين موضوع الدورة يبقى في الصفحة الأولى دوما

ممكن تنزيل الدرس السادس ؟

قام بنشر

مرحباً بك أخ يحيى في دورتنا المتواضعة

وأرجو أن تتواصل معنا

أخي سالم

الصبر بعض الشيء حتى نتقن ما قد مضى

وياريت لو فيه أي استفسارات أو أسئلة عشان نؤكد المادة العلمية التي تعلمناها

أخوكم أبو البراء

قام بنشر

السلام عليكم

نعم أستاذ ياسر خطوة خطوة وعلى المهلة

وأظن لو أخدنا اختبار شامل لما مضى يكون أفضل

زادكم الله من نعيمه وفضله ونفع بكم البلاد والعباد

قام بنشر (معدل)

تمرين

المطلوب ما يلي :

وضع كود يقوم بما يلي :

- رسالة عند فتح الملف ( أنت تفتح ملف إكسيل ، زر منتدى أوفيسنا لتتعلم أكثر )

- وضع زر عند النقر عليه يقوم بكتابة المعلومات التالية في الشيت1

1- عبارة( منتدى أوفيسنا) في الخلية a1

2- عبارة (دورة للمبتدئين في البرمجة في الخلية) g1

3-عبارة (الدرس الأول) في الخلية e5

على أن يتم اختيار نوع الخط arial الحجم 15

بالتوفيق يا تلاميذ ( وأنا واحد منكم)

تم تعديل بواسطه سالم شباني
قام بنشر

الأخوة المشرفين

جزاكم الله على تثبيت الموضوع

وأرجو أن أكون إن شاء الله عند حسن ظنكم بي

أخ سالم

جزاكم الله خيراً على التفاعل معنا في هذه الدورة وأدعو الله أن يجعل ذلك في ميزان حسناتنا يوم القيامة

ألأخ هادي محمد المأمون

جزاكم الله خيراً على المرور الكريم

وإن لشرف لي وأيما شرف

إن كلماتك وإن قلت لهي دافعة لي للإستمرار في هذا العمل

الأخ يحيى

أرجو منك المواظبة والاستمرار وعمل الواجبات مش معقولة حنعفي الأستاذ هادي وحنعفيك إنت كمان!!!

أخوكم أبو البراء

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه



×
×
  • اضف...

Important Information