اولاً:-نقوم بإختيار تبويب Developer 

ثانياً:- نفتح محرر الاكواد Visual Basic

ثالثاً:-ندرج مديول جديد Insert Module

رابعاً :- نقوم بكتابة الاكواد الاتيه داخل المديول :-

Sub insert_new_row() Dim a As Byte Dim c As Integer [a1].Select a = 2 c = 0 While ActiveCell.Value <> "" c = c + 2 ActiveSheet.Rows(c).Insert shift:=xlDown ActiveCell.Offset(a, 0).Select Wend End Sub  

  

* نقوم بحفظ الاكواد السابقة داخل محرر الاكواد VBE

فبراير 18, 2018

مزيد من المعلومات »

اولاً:-نقوم بإختيار تبويب Developer 

ثانياً:- نفتح محرر الاكواد Visual Basic

ثالثاً:-ندرج مديول جديد Insert Module

رابعاً :- نقوم بكتابة الاكواد الاتيه داخل المديول :-

Sub ترحيل_افقى() Sheets(1).Activate Range("a2:a14").Copy Sheets(2).Activate lr = Range("a" & Rows.Count).End(xlUp).Row Range("a" & lr + 1).Select Selection.PasteSpecial xlPasteValues, Transpose:=True Application.CutCopyMode = False Sheets(1).Select End Sub  

  

* اخيراً لا ننسى ان نقوم بحفظ الاكواد السابقه داخل محرر الاكواد VBE

ديسمبر 29, 2017

مزيد من المعلومات »

اولاً:-نقوم بإختيار تبويب Developer 

ثانياً:- نفتح محرر الاكواد Visual Basic

ثالثاً:-ندرج مديول جديد Insert Module

رابعاً :- نقوم بكتابة الاكواد الاتيه داخل المديول :-

Sub test() x = Range("c2").Value Sheets("sheet1").Activate Range("a4:d" & Cells(Rows.Count, "b").End(xlUp).Row).Copy Sheets(x).Activate lastrow = Range("a" & Rows.Count).End(xlUp).Row Range("a" & lastrow + 1).Select Selection.PasteSpecial xlPasteValues Sheets("sheet1").Activate Range("a4:d10").ClearContents Range("c2").ClearContents Range("c2").Select Application.CutCopyMode = False MsgBox "تم ترحيل البيانات بنجاح الى العميل " & x End Sub  

  

* اخيراً لا ننسى ان نقوم بحفظ الاكواد السابقه داخل محرر الاكواد VBE

نوفمبر 02, 2017

مزيد من المعلومات »

اولاً:-نقوم بفتح تبويب Developer 

ثانياً:- نفتح محرر الاكواد Visual Basic

ثالثاً:-ندرج مديول جديد Insert Module

رابعاً:- نقوم بتحديد الخلايا التى نريد كتابة البيانات النصية بها فى شيت اكسل ونكتب الاكواد التاليه:-

SUB TEST() Range("a1").Value "اسم الطالب"= Range("a2").Value "الشهر"= Range("b2").Value "عربى"= Range("c2").Value "انجليزى"= Range("d2").Value "فرنساوى"= END SUB  

  

* اخيراً لا ننسى ان نقوم بحفظ الاكواد السابقه.

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

اذا اعجبك الفيديو الرجاء عمل شير للفيديو والاشتراك في القناة حتى يصلك كل جديد من موضوعات تخص لغات البرمجة وتعلم المونتاج وبرامج الاوفيس

 

أغسطس 07, 2017

مزيد من المعلومات »

اولاً:- نقوم بفتح تبويب DeveloperTap ثم نفتح محرر الاكود Visual Basic

ثانياً:- نقوم بفتح حدث Workbook_Open

ثالثاً:- نقوم بكتابة الكود الاتى اذا كانت الرساله على شكل ترحيب 

"تنبيه هام",VbYesNo, "اهلاً وسهلاً بك"Msgbox  

  

رابعاً:-نقوم بكتابة الكود الاتى اذا كانت الرساله على شكل سؤال 

"تنبيه هام", VbQuestion+VbYesNo , "هل تريد الدخول الى البرنامج"Msgbox  

  

خامساً:-نقوم بكتابة الكود الاتى اذا كانت الرساله على شكل تعجب

"تنبيه هام", VbExclamation+VbYesNo , "هل تريد استخدام البرنامج"Msgbox  

  

                                     
* اخيراً لا ننسى حفظ الاكواد السابقه قبل البدء فى تطبيق اياً منها .

 

مايو 04, 2017

مزيد من المعلومات »