أكاديمية الصقر للتدريب

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


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تحديد قيمة في ComboBox1

عند تحديد قيمة في ComboBox1 والتي مأخوذة من العمود الأول من Worksheet نريد ان تظهر القيمة المقابلة له في TextBox1 ، والت ..


موضوع مغلق


15-02-2022 09:44 مساء
أبو سند بن التهامي
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-02-2022
رقم العضوية : 23806
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 15-3-1972
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
 offline 

عند تحديد قيمة في ComboBox1 والتي مأخوذة من العمود الأول من Worksheet نريد ان تظهر القيمة المقابلة له في TextBox1 ، والتي مأخوذة من العمود الثاني من نفس الشيت، ونريد كذلك ملئ قيمة العمود الثاني من Worksheetمن خلال TextBox1.
 
 
 
  1.xlsm   تحميل xlsm مرات التحميل :(9)
الحجم :(19.026) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Private Sub ComboBox1_Change()
    Dim x, ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sh1")
    x = Application.Match(Val(Me.ComboBox1.Value), ws.Columns(1), 0)
    If Not IsError(x) Then
        Me.TextBox1.Value = ws.Cells(x, 2).Value
    End If
End Sub

Private Sub TextBox1_AfterUpdate()
    Dim x, v, ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sh1")
    v = Me.ComboBox1.Value
    If v = Empty Then Exit Sub
    If Not IsEmpty(Me.TextBox1.Value) Then
        x = Application.Match(Val(v), ws.Columns(1), 0)
        If Not IsError(x) Then ws.Cells(x, 2).Value = Me.TextBox1.Value
    End If
End Sub
عرض الإجابة




16-02-2022 09:09 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تحديد قيمة في ComboBox1
السلام عليكم أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Private Sub ComboBox1_Change()
    Dim x, ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sh1")
    x = Application.Match(Val(Me.ComboBox1.Value), ws.Columns(1), 0)
    If Not IsError(x) Then
        Me.TextBox1.Value = ws.Cells(x, 2).Value
    End If
End Sub

Private Sub TextBox1_AfterUpdate()
    Dim x, v, ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sh1")
    v = Me.ComboBox1.Value
    If v = Empty Then Exit Sub
    If Not IsEmpty(Me.TextBox1.Value) Then
        x = Application.Match(Val(v), ws.Columns(1), 0)
        If Not IsError(x) Then ws.Cells(x, 2).Value = Me.TextBox1.Value
    End If
End Sub



الكلمات الدلالية
تحديد ، قيمة ، ComboBox1 ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:29 مساء