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

دورة للمبتدئين في عالم البرمجة


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

  • الردود 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

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

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

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

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

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

أخ سالم

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

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

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

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

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

الأخ يحيى

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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



×
×
  • اضف...

Important Information