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

الردود الموصى بها

قام بنشر

عندى ملفين اكسل واحد فيه الاسماء بالانجليزى وواحد الاسماء بالعربى وطبعا رقم اقامة واحد للاسم هنا وهنا عاوز انقل الاسماء العربى الى الملف التانى بس بشرط كل اسمى انجليزى اقصاده فى خليه تانية الاسم بالعربى بنفس رقم الاقامة عندى حوالى 700 اسم وهل ممكن القى برنامج يحول الاسماء الانجليزى لعربى فى نفس الملف

قام بنشر

إحذف من الملفين أسماء العاملين

وإستبدله برمز وليكن إسم01 - إسم 02 ... مثلا

وأي بيانات أخري مثلا العنوان : عنوان01 - عنوان02 - عنوان03 -....

وبذلك لن يكون هناك أسرار تخشي ذيعها

ثم إرفق الملفين

قام بنشر

تمام استاذنا اتعلمت حاجة بس لو حذفت الاسماء الى جبتها من الملف العربى علشان شكل الملف يكون كويس بتروح تانى الاسماء الى ضفتها عن طريق الدالة ايه الحل

قام بنشر

لو بس عشان شكل الملف ، تستطيع جعل لون فونط الكتابة للمساحة المنولة هذه لون خفيف (أزرق باهت - أصفر)

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

وبذلك تكون حصلت علي القيم المطلوبة ولكن المعادلة لن تظل

وحل ثالث ، إن كنت تريد الحفاظ علي المعادلة

بدل ماتنسخ العمودين من الورقة العربي في نفس الورقة الإنجليزي ، إنسخهم في الملف الإنجليزي ولكن في ورقة أخري (لن تظهر في الطباعة)

أو في نفس الورقة ولكن بعد 20 أو 30 عمود لليسار مثلا

قام بنشر

السلام عليكم

بالنسبة لدالة التجميع للمخالفات هي دالة معرفة بكود

وانت حذفت الكود التابع لها فكيف تبغاها تعمل معاك

حط هذا الكود في مودويل وراح تعمل معاك ان شاء الله



Function S(rng)

Dim CellSum As Long

Dim Cell As Range

Application.Volatile

CellSum = 0

Set rng = Intersect(rng.Parent.UsedRange, rng)

For Each Cell In rng

If IsNumeric(Cell) Then

If Not Cell.EntireRow.Hidden And _

Not Cell.EntireColumn.Hidden Then _

CellSum = CellSum + Cell

End If

Next Cell

S = CellSum

End Function

قام بنشر

الف شكر للاستاذ alidroos على تعبه معايا ارجوا من الاخوه تكملت ما بداه مع الاخذ فى الاعتبار التغيرات فى الملف شغل جديد لانى لما عملت اضافات عمل مشكلة مع الغاء اخر صفحة باسم الناتج فى ملف مهم جدا عملتها فى ملف جديد لوحدها

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information