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

ثانياً :- ندرج يوزرفورم جديد Insert Userform

ثالثاً :- ندرج زر CommandButton

ثم نقوم بالضغط على زر CommandButton  مرتين بزر الماوس الايسر ونكتب الاكواد التاليه :

Private Sub CommandButton2_Click() For Each x In Range("a2:e100") If x = id.Text Then x.Select Exit For End If Next x Range(ActiveCell, ActiveCell.Offset(0, 4)).Delete MsgBox "تم الحذف بنجاح" Me.Name.Text = "" Me.account.Value = "" Me.phone.Value = "" Me.id.Text = "" id.SetFocus  

  

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

أغسطس 09, 2017

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

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

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

ثالثاً:- نقوم بإدراج يوزرفورم جديد وندرج به زر Textbox

ثم نقوم بالضغط عليه مرتين بزر الماوس الايسر ونكتب الاكواد الاتيه :

Private Sub TextBox1_Change() lr = WorksheetFunction.CountIf(Range("a2:A100"), Val(TextBox1.Value)) If TextBox1.Value <> "" And lr = 1 Then TextBox2.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("a2:i100"), 2, 0) TextBox3.Value = Format(WorksheetFunction.VLookup(Val(TextBox1.Value), Range("a2:i100"), 3, 0), "yyyy/mm/dd") TextBox4.Value = Format(WorksheetFunction.VLookup(Val(TextBox1.Value), Range("a2:i100"), 4, 0), "yyyy-mm-dd") TextBox5.Value = CDate(WorksheetFunction.VLookup(Val(TextBox1.Value), Range("a2:i100"), 5, 0)) TextBox6.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("a2:i100"), 6, 0) Else "" =TextBox2.Value ""= TextBox3.Value ""=TextBox4.Value ""=TextBox5.Value ""=TextBox6.Value End If End Sub  

  

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

يوليو 22, 2017

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

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

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

ثالثاً نقوم بإدراج يوزرفورم جديد وندرج به زر CommandButton 

  ثم نضغط عليه مرتين بزر الماوس الايسر ونكتب الاكواد الاتيه بداخله

Private Sub CommandButton1_Click() If Me.TextBox1.Value = "" Then MsgBox :"يجب ادخال الاسم اولا" Exit Sub If Me.TextBox2.Value = "" Then MsgBox :"يجب ادخال السن اولا" Exit Sub If Me.TextBox3.Value = "" Then MsgBox :"يجب ادخال العنوان اولا" Exit Sub If Me.TextBox4.Value = "" Then MsgBox : "يجب ادخال الوظيفة اولا" Exit Sub Sheet1.Activate Dim lastrow As Integer lastrow = [a100].End(xlUp).Row + 1 Cells(lastrow, 1).Value = Me.TextBox1.Value Cells(lastrow, 2).Value = Me.TextBox2.Value Cells(lastrow, 3).Value = Me.TextBox3.Value Cells(lastrow, 4).Value = Me.TextBox4.Value "تم الترحيل البيانات بنجاح"MsgBox ""=TextBox1.Value ""=TextBox2.Value ""=TextBox3.Value ""=TextBox4.Value TextBox1.SetFocus End Sub  

  

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

يوليو 21, 2017

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

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

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

ثالثاً نقوم بإدراج يوزرفورم جديد  Userform 

ونقوم بالضغط عليه مرتين بزر الماوس الايسر حتى نتمكن من كتابة الاكواد الاتيه :

Private Sub UserForm_Initializ() Dim Y As Integer With Sheet1 Rng = .Range("a" & Rows.Count).End(xlUp).Row For Y = 2 To Rng If .Range("a" & i) <> "" Then Me.ComboBox1.AddItem .Range("a" & i) End If Next Y End With End Sub  

  

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

يوليو 21, 2017

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

اولاً:- نفتح محرر الاكواد من خلال الضغط على تبويب  Developer

ثانياً:- ندرج يوزرفورم جديد  Insert UserForm

ثالثاً:-  نقوم بإدراج  CommandButton

رابعاً:- نقوم بالضغط على زر  CommandButton  حتى نتمكن من كتابة الكود بداخله كالتالى :

Private Sub id_Change() x = WorksheetFunction.CountIf(Sheet1.Range("a:a"), Val(Me.id.Value)) Set ws = Application.WorksheetFunction With Me If .id.Value <> "" And x <> 0 Then nam = Application.WorksheetFunction.VLookup(CLng(Me.id.Value). ( Sheet1.Range("lookup"), 2, 0), adress = ws.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 3, 0) phone = ws.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 4, 0). account = ws.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 5, 0). End If End With End Sub  

  

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

أبريل 26, 2017

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

اولاً:- نقوم بفتح محرر الاكواد Developer

ثانياً :- ندرج يوزرفورم جديد  Insert UserForm

ثالثاً :- ندرج زر CommandButton ثم نضغط عليه مرتين بزر الماوس الايسر

خامساً :- نكتب الاكواد التاليه بداخل زر CommandButton

Private Sub CommandButton1_Click() For Each y In Range("a2:e100") If y = Me.textbox1.Text Then y.Select ActiveCell.Offset(0, 1).Value = Me.textbox2.Text ActiveCell.Offset(0, 2).Value = Me.textbox3.Text ActiveCell.Offset(0, 3).Value = Me.textbox4.Text ActiveCell.Offset(0, 4).Value = Me.textbox5.Text End If Next "تم تعديل البيانات بنجاح" MsgBox End Sub  

  

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

أبريل 24, 2017

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

اولاً: نضغط على تبويب  Developer

ثانياً : نقوم بإدراج يوزرفورم جديد Insert UserForm

 ثالثاً : ندرج عدد 2 زر Label على اليوزرفورم

رابعاً : نضغط على اليوزرفورم مرتين بزر الماوس الايسر ونكتب الكود الاتى :

Private Sub Userform Activate Do Label1.Caption = date Label2.Caption = time DoEvents Loop End Sub  

  

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

أبريل 24, 2017

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