الاستاذ مجدى
فورم  ترحيل بيانات من داخل الاكسل 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا فورم  ترحيل بيانات من داخل الاكسل 829894
ادارة المنتدي فورم  ترحيل بيانات من داخل الاكسل 103798

فورم  ترحيل بيانات من داخل الاكسل Uoou_u10





 
الرئيسيةالأستاذ التعليمضع التسجيلدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل tota_2012 فمرحبا به


شاطر
 

 فورم ترحيل بيانات من داخل الاكسل

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

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم  ترحيل بيانات من داخل الاكسل Empty
مُساهمةموضوع: فورم ترحيل بيانات من داخل الاكسل   فورم  ترحيل بيانات من داخل الاكسل Avatarالسبت أكتوبر 05, 2019 7:59 am

فورم  ترحيل بيانات من داخل الاكسل

الفيديو


الكود


الكود:
Option Explicit

Function ValidateForm() As Boolean

    txtName.BackColor = vbWhite
    cmbQualification.BackColor = vbWhite
    txtCity.BackColor = vbWhite
    txtState.BackColor = vbWhite
    txtCountry.BackColor = vbWhite
   
    ValidateForm = True
   
    If Trim(txtName.Value) = "" Then
   
        MsgBox "لا يمكن ترك الاسم فارغًا.", vbOKOnly + vbInformation, "Name"
        txtName.BackColor = vbRed
        txtName.Activate
        ValidateForm = False
    ElseIf optMale.Value = False And optFemale.Value = False Then
       
        MsgBox "يرجى اختيار النوع.", vbOKOnly + vbInformation, "Sex"
        ValidateForm = False
       
    ElseIf cmbQualification.Text <> "ثانوى عام" And cmbQualification.Text <> "فنى صناعى" And _
            cmbQualification.Text <> "بكلاريوس" And cmbQualification.Text <> "ماجستير" And _
            cmbQualification.Text <> "الدكتوراه" Then
        MsgBox "يرجى تحديد المؤهل الصحيح من القائمة المنسدلة.", vbOKOnly + vbInformation, "المؤهل"
        cmbQualification.BackColor = vbRed
        cmbQualification.Activate
        ValidateForm = False
    ElseIf Trim(txtCity.Value) = "" Then
        MsgBox "لا يمكن ترك المدينة فارغًا.", vbOKOnly + vbInformation, "City name"
        txtCity.BackColor = vbRed
        txtCity.Activate
        ValidateForm = False
       
    ElseIf Trim(txtState.Value) = "" Then
        MsgBox " لا يمكن ترك الشارع فارغا.", vbOKOnly + vbInformation, "State Name"
        txtState.BackColor = vbRed
        txtState.Activate
        ValidateForm = False
    ElseIf Trim(txtCountry.Value) = "" Then
        MsgBox "لا يمكن ترك الدولة فارغًا.", vbOKOnly + vbInformation, "Country Name"
        txtCountry.BackColor = vbRed
        txtCountry.Activate
        ValidateForm = False
    End If
   
End Function



Function Reset()

    Application.ScreenUpdating = False
   
    txtName.Value = ""
    txtName.BackColor = vbWhite
   
    optMale.Value = False
    optFemale.Value = False
   
    cmbQualification.Text = ""
    cmbQualification.BackColor = vbWhite
   
    txtCity.Value = ""
    txtCity.BackColor = vbWhite
   
    txtState.Value = ""
    txtState.BackColor = vbWhite
   
    txtCountry.Value = ""
    txtCountry.BackColor = vbWhite
   
    Application.ScreenUpdating = True
   

End Function




Private Sub cmbQualification_Change()

End Sub

Private Sub cmdReset_Click()
   
    Dim i As Integer
   
    i = MsgBox("هل تريد مسح البيانات لاعادة تسجيل البيانات?", vbQuestion + vbYesNo + vbDefaultButton2, "Form Reset")
   
    If i = vbYes Then
   
        Call Reset
   
    End If
   
End Sub

Private Sub cmdSave_Click()

    Application.ScreenUpdating = False
   
    Dim iRow As Long
   
    iRow = Sheets("Data").Range("A1048576").End(xlUp).Row + 1
   
    If ValidateForm = True Then
   
        With ThisWorkbook.Sheets("Data")
       
          .Range("A" & iRow).Value = iRow - 1
          .Range("B" & iRow).Value = txtName.Value
          .Range("C" & iRow).Value = IIf(optMale.Value = True, "ذكر", "انثى")
          .Range("D" & iRow).Value = cmbQualification.Text
          .Range("E" & iRow).Value = txtCity.Value
          .Range("F" & iRow).Value = txtState.Value
          .Range("G" & iRow).Value = txtCountry.Value
         
        End With
        Call Reset
    Else
        Application.ScreenUpdating = True
        Exit Sub
    End If
   
        Application.ScreenUpdating = True
       
End Sub

Private Sub optFemale_Click()

End Sub

Private Sub optMale_Click()

End Sub

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم  ترحيل بيانات من داخل الاكسل Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
kh_yh



عدد المساهمات : 11
تاريخ التسجيل : 22/04/2019

فورم  ترحيل بيانات من داخل الاكسل Empty
مُساهمةموضوع: رد: فورم ترحيل بيانات من داخل الاكسل   فورم  ترحيل بيانات من داخل الاكسل Avatarالسبت أكتوبر 05, 2019 10:14 am

بارك الله فيك
عمل رائع
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم  ترحيل بيانات من داخل الاكسل Empty
مُساهمةموضوع: رد: فورم ترحيل بيانات من داخل الاكسل   فورم  ترحيل بيانات من داخل الاكسل Avatarالسبت أكتوبر 05, 2019 10:49 am

الف شكر لك

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم  ترحيل بيانات من داخل الاكسل Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
abdo



عدد المساهمات : 81
تاريخ التسجيل : 18/04/2017

فورم  ترحيل بيانات من داخل الاكسل Empty
مُساهمةموضوع: رد: فورم ترحيل بيانات من داخل الاكسل   فورم  ترحيل بيانات من داخل الاكسل Avatarالثلاثاء أكتوبر 15, 2019 2:27 pm

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

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم  ترحيل بيانات من داخل الاكسل Empty
مُساهمةموضوع: رد: فورم ترحيل بيانات من داخل الاكسل   فورم  ترحيل بيانات من داخل الاكسل Avatarالثلاثاء أكتوبر 15, 2019 4:31 pm

شكرا

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم  ترحيل بيانات من داخل الاكسل Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
ابوبكر عبدالله محمد



عدد المساهمات : 11
تاريخ التسجيل : 14/10/2015

فورم  ترحيل بيانات من داخل الاكسل Empty
مُساهمةموضوع: رد: فورم ترحيل بيانات من داخل الاكسل   فورم  ترحيل بيانات من داخل الاكسل Avatarالخميس أكتوبر 17, 2019 11:28 am

بارك الله فيك
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم  ترحيل بيانات من داخل الاكسل Empty
مُساهمةموضوع: رد: فورم ترحيل بيانات من داخل الاكسل   فورم  ترحيل بيانات من داخل الاكسل Avatarالخميس أكتوبر 17, 2019 11:47 am

وبارك فيك

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم  ترحيل بيانات من داخل الاكسل Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
 
فورم ترحيل بيانات من داخل الاكسل
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: