عاطف عبد العليم محمد

 الاخ / المنوفى2006

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

شكرا لك 

اخي هشام جزاك الله خيرا

جزاكما  الله خيرا

محمد هشام.   إيهاب عبد الحميد

واعتذر لكم  ــ سأوضح المطلوب 

ـ لا يهمني البحث في التعليقات

ــ يهمني البحث عن الخانات التي تحتوي على قيم كالآتي =2+5   ( 7 )   ــ  اذا بحث عن 7 فلا تظهر نتيجة 

أذا كانت خلية تحتوي على 7   وخلية أخرى تحتوي على 7 ولكن نتيجة جمع 2+5 مثلا   فعند البحث والاستبدال  يتعامل مع 7 ولا يتعامل مع الخلية التي بها 7 نتيجة جمع 2+5

المطلوب بحث في الورقة النشطة في نطاق محدد

وقد وجدت هذا الكود لتحديد النطاق

Set rng = Application.InputBox("Select a range", "Title Here", Type:=8)

شكرا جزيلا  إيهاب عبد الحميد

لتوضيح المشكلة اكثر    اذا بحث عن 3  فلا مشكلة اذا كانت الخلية تحتوي 3 اما اذا كانت تحتوي على =1+2 فيعطي لم يتمكن من العثور عليها

اذا تفضلت  ــ إن تيسر لك تعديل الكود بحيث يظهر امكانية ادخال input box

القيمة التي يبحث عنها  

القيمة المراد استبدالها

نطاق التغيير  بدلا من جعله في كل الصفحة

حيث لم يجاوبك احد ف اتجرأ على الاجابة

اذا كان لديك نسخة أخرى من الملف backup ف اشتغل عليها و انسخ الشغل الجديد فيها من الملف التالف

او افتح ملف جديد و انقل له كل ما في الملف التالف ممكن  بالنسخ  وحاول بنقل الصفحات اليه 

و اجعل دائما عندك نسخة احتياطية من الملف حدثها يوميا  ــ ابحث عن كود يحفظ لك الملف احتياطيا 

وفقك الله 

اخي محمد هشام.

جزاك الله الف خير

بعتذر لك ظننت ان وصفي للمشكلة من البداية كان كاف

و بعتذر لك مرة اخرى لعدم السرعة في ارفاق الملفات  وعلى كل حال الملف كان كبيرا 

( عدم السرعة بسبب انني انشغلت في البحث عن حل لمشكلة حقيقية أخرى  ولم اجد لها حل حتى في المنتديات الأجنبية ، فتحت بها موضوع جديد  لعلك تتفضل وتمر عليه و تفيدنا مرة أخرى )

والاجابة الاخيرة منكم  اخذت منها ما يفيد حل المشكلة

بارك الله فيكم و شكرا لكم 

ملاحظة 

الملف  وليكن transactionTable (7).xls بيكون مفتوح فعلا

وانا من ملف آخر ( وليكن b2024 ) بنفذ ماكرو ينسخ من  transactionTable (7).xls ويلصق في (  b2024 )

السلام عليكم ورحمة الله وبركاته

فوجئت عند رغبتي بعمل بحث واستبدال  يظهر فقط بحث واستبدال الصيغ وعدم ظهور بحث واستبدال القيم و التعليقات

عند البحث فقط ( بدون بحث واستبدال )   يظهر امكانية البحث عن القيم والمعادلات و التعليقات 

هل من طريقة لتعود ؟

شكرا لكم 

بحث.pdf

اخي هشام  جزاك الله خيرا

الملف المراد فتحه بيكون في التنزيلات  انا بنزله من البنك ولذلك ينزل بنفس الاسم ولكن يزيد 1

كل الحلول لم تفلح معي ، لعلها تحتاج تعديل بسيط لا اعلمه الان ربما احاول لاحقا 

شكرا لك على تعبك وردك

Dim FileName As String
FileName = InputBox("Type in the name of the file you want to open", "Choose file name", "transactionTable (7).xls")

Workbooks(FileName).Activate

لدى هذا الكود  واريد تعديله بحيث يتم ادخال فقط الرقم 7 بدلا من transactionTable (7).xls فيفعل الملف transactionTable (7).xls  او  ادخال 8 فيفعل الملف transactionTable (8).xls  وهكذا 

شكرا لكم

 Dim i As Long
   
    For i = 6 To 125
    Range(Cells(i, "b"), Cells(i, "j")).Font.Color = Cells(i, 3).Interior.Color + 3000000
    Next i

الكود يعمل اذا كانت الخلايا عددها محدود اما اذا  كانت كبيرة فيعمل لعدد محدد ثم يقف ويعطي رسالة خطأ      هل من حل ؟

Sub fontcolor()
      Dim i As Integer
   
    For i = 1 To 10
          Cells(i, 1).Font.Color = Cells(i, 1).Interior.Color + 1000000
    Next i
End Sub

السلام عليكم ورحمة الله وبركاته

واسعد الله أيامكم 

اذا كان لدينا  نطاق فيه ألوان الخلايا متعددة 

هل من كود يحدد لون الخلية  وبناء عليه يغير لون النص ليكون لون مختلف مناسب ؟

أ / محمد صالح   شكرا جزيلا لك  قد جربت الحلول التي ذكرها الاخوة  وما صلحت  ولم أشأ أن اقول ذلك تأدبا   على كل حال لقد انتهت المشكلة بحل آخر 

ولكم جميعا جزيل الشكر 

الأخ الكريم /ابراهيم الحداد

الأخ الكريم / محمد حسن المحمد

الأخ الكريم / محمد يوسف ابو يوسف

جزاكم  الله خيرا  ولكن الحل المطلوب ان يكون بأكواد 

وارجو ان يتم تجربته اولا على الملف المرفق                                                                                                                                                        

شكر الله لكم 

السلام عليكم ورحمة الله وبركاته

بالمرفق بالعمود a  تواريخ منسوخة من موقع البنك 06/07/2023 واريد ان تكون مثل 2023/07/06

حاولت بتغيير الصيغة ولم افلح

اتصور ان الحل تفكيك التاريخ لثلاث قيم السنة والشهر واليوم  ثم اعادة تجميعه

ارجو التفضل بالحل بكود

وفقكم الله

تواريخ البنك.xlsx

اخي الكريم حسونة حسين

لدى اكواد اخرى للأعمدة الاخرى ولذلك اريده فقط يعمل في العمود a فجعلته هكذا 

 If Target.Column = 1 Then
 kh_Show_UFormChang1.Show
 End If
ولكن اعطاني رسالة  comile error

expexted function or variable

السلام عليكم ورحمة الله وبركاته

عندي كود مقتبس من احد عمالقة الموقع ـ جزاه الله خيرا 

وهو يعمل بدون مشكلة  واردت ان يعمل بالضغط المزدوج على اي خلية في العمود

فوضعت الكود في حدث الورقة ـ فيظهر الفورم ولكن غير مفعل 

ارجو التكرم بالافادة عن الحل

Option Explicit
'======================================================
'======================================================
'  kh_SetAddrss متغيرات
' ( اولا : اسم ورقة البيانات (افتراضي
' ( ثانيا : نطاق صف رؤوس اعمدة البيانات (افتراضي
'''''''''''''''''''''''''''''''''''''''''''''''''
' ( ثالثا : عمود التسلسل  (اختياري
'   اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم
'   تلقائيا في عمود معين سجل عنوان راس  العمود
'======================================================
'======================================================
Sub kh_Show_UFormChang1()
On Error GoTo 1
With UFormChang
    .kh_SetAddrss "دليل الحسابات", "a3:c3"
    .Show
End With
1:
If err Then MsgBox "تاكد من صحة ادخال المتغيرات الاساسية في  : " & vbCr & vbCr & "kh_SetAddrss", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "استخدام خاطىء"
On Error GoTo 0
End Sub

lionheart

جزاك الله خيرا

وفقك الله

محي الدين ابو البشر

جزاك الله خيرا

وفقك الله

كنت حاولت بهذه الطريقة ولم تفلح معي

انا كتبت الطلب بصورة مبسطة  والواقع انه اصعب قليلا

شكرا لك

السلام عليكم ورحمة الله وبركاته

شهركم مبارك

اريد كود به يضاف للخلية مثلا c3   يجمع الخلية c2  التي تحتوى على نص  و الخلية c1 التي تحتوى على تاريخ 

مثلا خلية c2 فيها  النص ( سحب نقدي )  و الخلية c1  فيها 2023/01/01    اريد الخلية c3   تصبح ( سحب نقدي بتاريخ 2023/01/01 ) 

كود وليس معادلة

مع جزيل الشكر 

أخي محي الدين ابو البشر

جزاك الله خيرا ورحم الله والديك

رائع اخي Mohamed Hicham

بارك الله فيك 

لو تكرمت تعديل بحيث أحدد انا النطاق مثلا من a1 الى a10

السلام عليكم

ممكن التكرم بكود او دالة لحذف الحروف الانجليزية من الخلايا ( الخلايا تحتوي على كلمات عربي و أخرى انجليزي ) 

السلام عليكم ورحمة الله وبركاته 

تعودت على التعامل مع محرر الاكواد وكانت النوافذ بالشكل التالي

  و تغيرت واصبحت بالشكل التالي

كيف اجعلها كما كانت ؟

جزاكم الله خيرا 

جزاك الله خيرا ورحم الله والديك