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

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


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





طريقة عمل زر find بكود vba

السلام عليكم ورحمة الله وبركاتة يوزر فورم عبارة عن تكيست بوكس و زر ازاي اعمل بحث عن قيمة محددة زي find what كدة في الت ..



27-04-2020 12:49 مساء
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 

السلام عليكم ورحمة الله وبركاتة 
يوزر فورم عبارة عن تكيست بوكس و زر
ازاي اعمل بحث عن قيمة محددة زي find what كدة  في التكيست بوكس و يذهب الى الخلية في العمود المحدد 
بدل ما يبحث في الشيت كلو عن القيمة بل  يبحث في نطاق عمود محدد لسرعة و سهولة ايجاد القيمة  مثلا في شيت 1 العمود B
يعني اكتب كلمة  مثلا رقم معين في التكيست بوكس  و القيمة دي  موجودة في الشيت في عمود محدد  و اول ما ادوس زر ايجاد القيمة  يغلق الفورم مباشرة ويذهب الى الخلية المراد ايجادة القيمة ويعمل سلكت على الخلية 
صورة لتوضيح المطلوب اتمنى يكون المطلوب كافي 
ولكم جزيل الشكر 
MjIyNjc5MQ26261
 
 
  find زر .xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(18.822) KB


27-04-2020 05:50 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif طريقة عمل زر find بكود vba
وعليكم السلام أخي الكريم فتحي
ارفق ملف لتوفير الوقت والجهد على الأعضاء ممن يريدون المساعدة

27-04-2020 07:40 مساء
مشاهدة مشاركة منفردة [2]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif طريقة عمل زر find بكود vba
MTAwOTk2MQ1818Fin_capصديقي لا لزوم لليوزر في عملك 
جرب هذا الماكرو

Option Explicit
Sub Find_For_Me()
  Dim F_ad$, L_ad$  'First Address,Laste Address
  Dim rg As Range
  Dim Inbox
  Dim m%: m = 1

Range("D1").CurrentRegion.ClearContents
Inbox = InputBox("Find What", "Find Addres", "")
If Inbox = vbNullString Then Exit Sub
Set rg = ActiveSheet.Columns(Range("G2")).Find(Inbox, lookat:=1)
  If rg Is Nothing Then
     MsgBox Inbox & " Not Found"
     Exit Sub
  End If
 F_ad = rg.Address: L_ad = F_ad
 Do
  Range("D" & m) = L_ad
  Set rg = ActiveSheet.Columns(Range("G2")).FindNext(rg)
  L_ad = rg.Address
  m = m + 1

 Loop Until F_ad = L_ad

End Sub


في الصورة المرفقة كيفية تطبيقة
الملف مرفق
 
 
  Find_by_input_box.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(25.428) KB


27-04-2020 07:51 مساء
مشاهدة مشاركة منفردة [3]
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 
look/images/icons/i1.gif طريقة عمل زر find بكود vba
مش دة الي محتاجة خالص الغرض الي انا محتاجة عندي يوزر بحث و محتاج يبحث عن قيمة الي ظهرت في التكيست بوكس  و يبحث في نظاق معين في شيت 1 في عمود b
و مش شرط ارفق ملف اليوزر البحث كامل الفكرة واضحة ,
لو في نص مكتوب في تكيست بوكس 1 و ادوس على زر find يعمل ايجاد في عمود b زي فكرة  find الي بنجبها ب كنترول f 

28-04-2020 12:02 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif طريقة عمل زر find بكود vba
أخي الكريم فتحي (صورة مين دا اللي في بروفايلك)
جرب الكود التالي عله يكون المطلوب
Private Sub CommandButton1_Click()
    Dim x As Range
    With ThisWorkbook.Worksheets("Sheet1")
        Set x = .Columns(2).Find(What:=TextBox1.Value, LookAt:=xlWhole)
        If Not x Is Nothing Then Application.Goto x: Unload Me
    End With
End Sub

28-04-2020 12:08 صباحا
مشاهدة مشاركة منفردة [5]
هاوي برمجه
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-01-2020
رقم العضوية : 17767
المشاركات : 33
الدولة : المملكة العربية السعودية
الجنس : ذكر
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 183
 offline 
look/images/icons/i1.gif طريقة عمل زر find بكود vba
شكرا استاذ ياسر ما تخليناش تكتب حاقه ~~ 😂

 يا فتحي قول دي صورة واحد صاحبي ما تعرفهوش 😂 يبقى في الصباحية هقولك 🤦🏻‍♂️🤦🏻‍♂️


سلام 👋 يا صاحبي


 

28-04-2020 01:07 صباحا
مشاهدة مشاركة منفردة [6]
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 
look/images/icons/i1.gif طريقة عمل زر find بكود vba
اشكرك جدا يا استاذ ياسر هو دة المطلوب 
الكود تمام جدا شغالة 100%
ربنا يباركلك يارب  
هههههههههههههههه صورة من شخصيات والت ديزني  




الكلمات الدلالية
طريقة ، find ، بكود ،


 










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

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