اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

أحسنت عادل بك فى شرح فكرة تأليف أى كود

وعلى ذلك فلابد أن نتعرف على قاموس مفردات الفيجوال بيزك

أليس كذلك ؟

قام بنشر

السلام عليكم

وعلى ذلك فلابد أن نتعرف على قاموس مفردات الفيجوال بيزك

طبعا اخي فهل تسطيع التحدث مع شخص يتكلم بلغة غير لغتك

الا اذا تعلمت لغته؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

قام بنشر

السلام عليكم

وعلى ذلك فلابد أن نتعرف على قاموس مفردات الفيجوال بيزك

طبعا اخي فهل تسطيع التحدث مع شخص يتكلم بلغة غير لغتك

الا اذا تعلمت لغته؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

طيب يا عادل بك

بعد التحية والسلام

هل نطمع فى وضع قائمة بأهم مفردات لغة الفيجوال بيزك ؟؟

لعلنا بحفظها نستطيع فيما بعد تأليف بعض الأكواد ؟؟

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

أو ليكن موضوع جديد لو أردت

ولكنى أعتقد أن مكانه الطبيعى هنا فى نفس الموضوع

لأنه يخدم نفس الهدف

الف شكر

قام بنشر

السلام عليكم

اخواني الاعزاء

كثير منا يبحث لان يكتب كود و يضغط علي ذر لينفذ امر ما

و تم عمل دورات كثيرة لذلك

اليوم جاءتني فكرة جديدة بطريقة تفاعليه اتمني ان ان يكتب لها النجاح

مارايكم اذا دخلنا مباشرة لما نريد

و ماريده هنا سابدأ فكرته فسوف اطرح شيئ اريد عمله مهما كان بسيطا

و بالتالي شرح طريقة تنفيذه عمليا دون الدخول في مذكرات و مقالات

محاولة مني للاختصار و الدخول في صلب الموضوع

و الكل طبعا مدعو للاسئلة و ايضا مدعو للرد علي الاسئلة و كلما كانت الاسئلة بسيطه

استفاد منها كل من يريد التعلم و ايضا تجعل الرد عليها بسيطا دون الدخول في اشياء

كبيره لايستطيع منها المبتدئ فهم شئ

و في المجمل قد يكون هذا موضوعا مرجعا لكل مبتدئ

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

و لا يخجل احد من سؤاله مهما كان بسيطا فهذا الموضوع اقصد به هذا النوع من الاسئلة

فانا اريد الكل هنا حتي الذي لا يعرف شسئ مطلقا

و الرجاء البساطة في الاسئلة حتي لا يكون هناك الحاجة لوقت طويل للاجابة عليها

و يفقد الموضوع المقصود منه

و الي المشرفين جميعا و سيكون الفيصل في استمرار الموضوع من عدمه هو تفاعلكم جميعا سواء بالاسئلة او بالرد عليه

خالص تحياتي و تقدير

بسم الله

اعتقد اني المقصود بـ" سأبدأ بسؤال تمت الإجابة عنه " عندما سألت عن كيفية عمل زر لعرض نطاق محدد من البيانات

وفكرتك رائعة جدًا يا استاذ فهكذا يكون التعلم أفضل

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

كيف تم وضعه - ماذا كتب فيه ؟؟؟ كل هذا لم أعرفه فبرغم جهدك الوافر واهتمامك معذرة استفاد ملف الأكسيل ولم استفد انا

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

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

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

واعتقد أن مشاركة الأستاذ هشام رقم 21 بداية جميلة وارجو ارفاق جدول يتم وضع به مجموعة من أوامر الفيجول بسيك ووظائفها

وكيفية بدأ الأمر حتى لم لا يعرف شيئا مطلقا

بارك الله فيكم جميعا

قام بنشر

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

لا حظت أني طلبي فيه غلظة قليلا في اسلوب عرضه

ولكني فقط اريد التعلم ولم اقصد السخرية عندما كتبت استفاد ملف الأكسيل ولم استفد انا

ولكن اريد ان يكون الأمر بسيط حتلا لا يتحول الموضوع الى حواربين العارفين ببواطن الأمور ويظل الآخرين في مقاعد المتفرجين

ولتبسيط الأمر اكصر يمكن ارفاق الشرح ببساطة مثل شرح وضع زر للطباعة

1 - نفتح قائمة كذا

2 - نضغط هنا

يظهر زر

نكتب في هذا المكان الكود التالي

ثم نضغط كذا أو نحفظ أو اي اجراء

ولو امكن ارفاق صورة print screen من الشاشة اثناء تنفيذ الأمر

فهذا يراعي مستوى البسطاء ويحقق الإفادة للفرد بعد ذلك يتمكن من تنفيذ الأمر وحده أو ابتكار افكار جديدة تثري النمنتدى

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

لكننا نطمع في التعلم لا اكثر وكل المشتركين بالنتدى لا يبخلون بذلك

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

قام بنشر

السلام عليكم

اخي hema_80

اعتقد اني المقصود بـ" سأبدأ بسؤال تمت الإجابة عنه " عندما سألت عن كيفية عمل زر لعرض نطاق محدد من البيانات

وفكرتك رائعة جدًا يا استاذ فهكذا يكون التعلم أفضل

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

كيف تم وضعه - ماذا كتب فيه ؟؟؟ كل هذا لم أعرفه فبرغم جهدك الوافر واهتمامك معذرة استفاد ملف الأكسيل ولم استفد انا

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

اخي طبعاانا معك و لكنك متتبع غير جيد لانه بالفعل تم شرح هذابداية من المشاركة رقم 4

و هذا هو رابط الصفحة الاولي

اضغــــــــط هنــــــــــــــا

وايضا اي شيئ تريده اسال عنه

اخي يوسف عطا

اخي توجد الكثير من شروحات الفاحوال باسيك سواء بالمنتدي او من خارجه

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

و نحن هنانقوم بشرح اشياء يتم السؤال عنها بعينها و مراد تنفيذها

  • 11 months later...
قام بنشر

للفائدة

لإجراء نسخ أو مسح لمدى معين

لا يستلزم بالضرورةتحديده أولا

فالكود

Private Sub CommandButton2_Click()

Range("A1:A10").Select

Selection.ClearContents

End Sub
يمكن اختصاره ( وتسريعه أيضا ) كما يلى
Private Sub CommandButton2_Click()

Range("A1:A10"). ClearContents

End Sub

و هذا أسلوب مهم لاختصار و تسريع الكود

قام بنشر

السلام عليكم

مشكور اخي كيماس

و قد وجدت عندي ملف pdf يشرح بالغة العربية بدائيات الفاجوال باسيك

ببساطة و قد تفيد المبتدئ للعرف علي هذه اللغة و التي تساعده علي فهم الاكواد

و الشكر لمن كتب و صمم هذا الملف

تحياتي

learn vb6.rar

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

السلام عليكم

الف شكر لكل من الاخ كيماس والاخ عادل

ملف اكثر من رائع

جزاكم الله كل خير

واني قد استفدت كثيرا من هذا المنتدي

:fff: :fff: :fff::clapping: :clapping: :clapping:

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

السلام عليكم

عذرا اخي ياسر لم اري مشاركتك الا الان

ووفقا الله و اياكم لعمل الخير

اخي MAHMOUDFOXMAM

بارك الله فيك هذ هو القصد الاستفاده

اخي alidroos

و بارك الله فيك و لك مائة مثل دعاتك

خالص تحياتي و تقديري

قام بنشر

السلام عليكم

الرجاء من الاستاذ عادل حفظك الله

الاستمرار في هذا الموضوع الى ابعد

الحدود لما له من اثر بالغ الاهمية

في مساعدة اخوانك في فهم هذا الموضوع

والحاجة الماسة له في متطلبات العمل

وفقك الله لما فيه اثراء المنتدى بهكذا

مواضيع قيمة

واعلم (ان زكاة العلم نشره)

  • 1 year later...
  • 3 months later...
  • 4 years later...
قام بنشر
في 6/8/2010 at 10:53, هشام شلبى said:

السلام عليكم

===========

فى اطار نفس الموضوع وقبل الانتقال الى موضوع اخر

اود اضافة بعض الاوامر المرتبطة ب CommandButton1_Click()

هذا زر امر طباعة

 

 

Private Sub CommandButton1_Click()

ActiveWorkbook.PrintOut

End Sub

هذا زر اختيار ورقة معينة ولتكن ورقة4

 

Private Sub CommandButton1_Click()

Sheets(ورقة4").Select

End Sub

امر حفظ

 

Private Sub CommandButton1_Click()

ActiveWorkbook.Save

End Sub

امر خروج

 

Private Sub CommandButton4_Click()

ActiveWorkbook.Close

End Sub

امر كتابة تاريخ اليوم فى خلية محددة

 

Private Sub CommandButton1_Click()

Range("A1") = Now

End Sub

امر معاينة

 

Private Sub CommandButton1_Click()

ActiveWindow.SelectedSheets.PrintPreview

End Sub

امر اظهار فورم

 

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

امر تحديد مدى معين

 

Private Sub CommandButton1_Click()

Columns("D:D").Select

End Sub

امر تحكم فى عرض عمود معين

 

Private Sub CommandButton1_Click()

    Columns("D:D").ColumnWidth = 2.50

End Sub

امر اخفاء عمود

 

Private Sub CommandButton1_Click()

    Columns("F:F").Select

    Selection.EntireColumn.Hidden = True

End Sub

امر تحديد صف

 

Private Sub CommandButton2_Click()

    Rows("8:8").Select

End Sub

امر تحديد عرض صف

 

Private Sub CommandButton2_Click()

    Rows("16:16").RowHeight = 2.24

End Sub

 

 

 

في 6/20/2010 at 01:03, يوسف عطا said:

 

 

عزيزى الغالى

وضعت هذا الكود

 

Private Sub Workbook_Open()

Select.("الشيت")Sheets

Columns("A:I").Select

Selection.EntireColumn.Hidden = True

Range("J5:J5").Select

End Sub

 

ما الخطأ الذى وقعت فيه هذه المرة

ولكنه لم يعمل أى شئ

أليس الكود مثل الكود الذى ذكرته حضرتك منذ أيام بالأعلى ؟؟

 

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