البحث في الأكسيل ... كيف ؟

اخي حسام :

يمكنك عمل ذلك عن طريق وضع الكود التالي عند حدث النقر لزر الامر الذي تريد ,,,,

Private Sub CommandButton1_Click()

Worksheets("Sheet1").Activate

Range("A1").Select

Application.SendKeys ("%ef")

End Sub

وها هو مثال مبسط تطبيق لذلك

ولك التحية (f)

search_excel.zip

- عند الضغط على زر البحث بالمثال لا يقوم بعمل بحث بل يذهب لخليه ويكتب حرف f

فهل تأكدت كرماً من ذلك

وشكراً

نعم اخي الكريم المثال سليم مائه بالمائه حيث قمت بتجربته مره اخرى الان وعمل بالشكل المطلوب ....

بمجرد الضغط على زر بحث يذهب الي أول خليه بورقة العمل ويكتب حرف f

هذا فقط ما يحدث .. وشكراً

نعم اخي حسام ... يحدث ذلك معك لأن نسخة الاوفيس لديك باللغة العربية ... واذا كانت باللغة الانجليزيه لعمل بالشكل المطلوب ,,,

حاول تغيير الواجهة لديك ,,,

- بالنسبه لي فليس هناك مشكله ولكن المستخدمون الآخرون للجهاز يستخدمون الأوفيس بالعربيه واردت عمل زر امر البحث لإنهم مبتدئون في الكمبيوتر

فهل هناك حل من أستخدامها بالعربيه ؟

وشكراً لصبرك

تم عمل تغيير بسيط في الكود لكي يعمل مع كلال الواجهتين العربية والانجليزية,,,,

ها هو الكود بعد التعديل:

Private Sub CommandButton1_Click()

Worksheets("Sheet1").Activate

Range("A1").Select

Application.SendKeys ("^f")

End Sub

وها هو المثال ايضاً بعد التعديل

search_excel.zip

- لن تكفيك كلمات الشكر على هذا التعاون الرائع .. خالص شكري وتقديري

بالفعل نجحت

- تعديل آخير على هذا الموضوع

أريد أن يبدأ تنفيذ الأمر عند الضغط على الزر بتظليل العمود A وبعدها يظهر مربع البحث حيث أكتشفت أن هذا أسهل عند البحث حيث أن الأكسيل حين يجد الخليه المطلوبه ستكون واضحه أكثر وستتميز باللون الأبيض بين العمود المظلل

وشكراً

كلامك سليم اخي حسام ,,,,

ما رأيك اذا قمنا بتظليل ورقة العمل بالكامل وليس العمود A فقط حتى يتسنى لنا البحث في اي مكان في ورقة العمل ........ ما رأيك ؟

ها هو الكود بعد التعديل البسيط لتظليل ورقة العمل بالكامل:

Private Sub CommandButton1_Click()

Worksheets("Sheet1").Activate

Range("A1:IV65536").Select

Application.SendKeys ("^f")

End Sub

واذا اردت تظليل العمود A فقط فها هو الكود ايضاً:

Private Sub CommandButton1_Click()

Worksheets("Sheet1").Activate

Range("A1:A65536").Select

Application.SendKeys ("^f")

End Sub

ولك كل التحية :)

والله لقد أخجلتنا بكرمك الزائد ... ألف ألف ألف شكر يا فنان يا متمكن .

الله يبارك فيك عزيزي