اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

03 عضو مميز
  • Posts

    230
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

18 Good

عن العضو عاطف عبد العليم محمد

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    accountant

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. السلام عليكم ورحمة الله وبركاته الموضوع بسيط حاولت البحث عن الحل ولم أفلح عندي عمود فيه ارقام حساب وعمود آخر فيه المبالغ اريد جمع المبالغ لعدة ارقام حساب متوالية مثلا من 1 الى 3 المرفق فيه توضيح و لكن البيانات الفعلية كثيرة ف ارجو ان يكون الرد صالح لذلك و ان امكن بكود يكون افضل شاكرا لكم جمع مشروط.xlsx
  2. جزاكما الله خيرا محمد هشام. إيهاب عبد الحميد واعتذر لكم ــ سأوضح المطلوب ـ لا يهمني البحث في التعليقات ــ يهمني البحث عن الخانات التي تحتوي على قيم كالآتي =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 فلا مشكلة اذا كانت الخلية تحتوي 3 اما اذا كانت تحتوي على =1+2 فيعطي لم يتمكن من العثور عليها اذا تفضلت ــ إن تيسر لك تعديل الكود بحيث يظهر امكانية ادخال input box القيمة التي يبحث عنها القيمة المراد استبدالها نطاق التغيير بدلا من جعله في كل الصفحة
  4. حيث لم يجاوبك احد ف اتجرأ على الاجابة اذا كان لديك نسخة أخرى من الملف backup ف اشتغل عليها و انسخ الشغل الجديد فيها من الملف التالف او افتح ملف جديد و انقل له كل ما في الملف التالف ممكن بالنسخ وحاول بنقل الصفحات اليه و اجعل دائما عندك نسخة احتياطية من الملف حدثها يوميا ــ ابحث عن كود يحفظ لك الملف احتياطيا وفقك الله
  5. اخي محمد هشام. جزاك الله الف خير بعتذر لك ظننت ان وصفي للمشكلة من البداية كان كاف و بعتذر لك مرة اخرى لعدم السرعة في ارفاق الملفات وعلى كل حال الملف كان كبيرا ( عدم السرعة بسبب انني انشغلت في البحث عن حل لمشكلة حقيقية أخرى ولم اجد لها حل حتى في المنتديات الأجنبية ، فتحت بها موضوع جديد لعلك تتفضل وتمر عليه و تفيدنا مرة أخرى ) والاجابة الاخيرة منكم اخذت منها ما يفيد حل المشكلة بارك الله فيكم و شكرا لكم
  6. ملاحظة الملف وليكن transactionTable (7).xls بيكون مفتوح فعلا وانا من ملف آخر ( وليكن b2024 ) بنفذ ماكرو ينسخ من transactionTable (7).xls ويلصق في ( b2024 )
  7. السلام عليكم ورحمة الله وبركاته فوجئت عند رغبتي بعمل بحث واستبدال يظهر فقط بحث واستبدال الصيغ وعدم ظهور بحث واستبدال القيم و التعليقات عند البحث فقط ( بدون بحث واستبدال ) يظهر امكانية البحث عن القيم والمعادلات و التعليقات هل من طريقة لتعود ؟ شكرا لكم بحث.pdf
  8. اخي هشام جزاك الله خيرا الملف المراد فتحه بيكون في التنزيلات انا بنزله من البنك ولذلك ينزل بنفس الاسم ولكن يزيد 1 كل الحلول لم تفلح معي ، لعلها تحتاج تعديل بسيط لا اعلمه الان ربما احاول لاحقا شكرا لك على تعبك وردك
  9. 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 وهكذا شكرا لكم
  10. 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 الكود يعمل اذا كانت الخلايا عددها محدود اما اذا كانت كبيرة فيعمل لعدد محدد ثم يقف ويعطي رسالة خطأ هل من حل ؟
  11. 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
  12. السلام عليكم ورحمة الله وبركاته واسعد الله أيامكم اذا كان لدينا نطاق فيه ألوان الخلايا متعددة هل من كود يحدد لون الخلية وبناء عليه يغير لون النص ليكون لون مختلف مناسب ؟
×
×
  • اضف...

Important Information