طارق محمود

بعد التفعيل ستجد في آخر قائمة البيانات Data زر جديد لتشغيل أداة السولفر

السلام عليكم

قد يكون الأفضل في هذه الحالة إستخدام السولفر Solver

وهذا احد الأدوات المساعدة المرفقة مع برنامج الإكسل

إن لم يكن مفعلا عندك ، تستطيع تفعيله إذا اتبعت الخطوات الأربع البسيطة بالشكل المرفق

السلام عليكم

يمكنك عمل ذلك باستخدام تحديد الباينات Data Validation
بالملف المرفق ، لايسمح لك بتكرار البيان إذا سبق وضع نفس البيان في العمود B الأصفر 
وأيضا يعطي عند تكرار البيان رسالة تنبيه / تحذير

منع تكرار بيانات في نفس العمود.xlsx

السلام عليكم
تفضل كود سريع

Sub distrib()
[A9999].End(xlUp).Select
Range(ActiveCell, Selection.End(xlUp)).Select
For i = 1 To Selection.Rows.Count Step 2
[B9999].End(xlUp).Offset(1, 0) = Selection(i)
[C9999].End(xlUp).Offset(1, 0) = Selection(i + 1)
Next i
Selection.Clear
[A6].Select
End Sub

أنظر المرفق به الكود مع زر تشغيل

أخي الكريم/ علي محمد علي

جزاك الله خيرا
أصبح وقتي بالعمل والأسرة ضيق .. دعواتك

توزيع بيانات عمود علي عمودين.xlsm

السلام عليكم
الحل الأسرع ، بلا أكواد
إن كان كما لاحظت في اسم الشهرة لابد من وجود حرف معين في النص
مثل ":" أو "["
فلنعمل فلتر علي هذا الحرف ثم تأخذ نسخة وتضعها بعمود "اسم الشهرة"
ثم تغير الفلتر لكيلا يحتوي علي هذا الحرف ثم تأخذ نسخة وتضعها بعمود "الاسم الكامل"
وأخيرا تمسح الأصل

أنظر المرفق

توزيع بيانات عمود علي عمودين.xlsx

السلام عليكم
من باب المشاركة فقط
ردا علي أخونا khalid2117 
السنة الكبيسة ليست بصفة عامة صحيح تقبل القسمة علي 4
لكن لها استثناء إن كانت تقبل القسمة علي 100 ، مثلا  2100 - 2200 - 2300 كلها سنوات بسيطة ، فبراير بها 28 يوم وليس 29
وهذا  الاستثناء له  استثناء وهي السنوات تقبل القسمة علي 400 فهي كبيسة أي أن فبراير بها 29 مثل 2400 - 2800 
ويرجع هذا إلي أن السنة بالضبط  لاتساوي 365.25 يوم كما هو شائع بل إنها 365.2422 

الرجاء إرفاق ملف به المطلوب

السلام عليكم
أخي الكريم
تفضل المرفق به ماطلبت

change colore2.rar

" هـل من الممكـن التعـديل فى الكـود انى استـدعى اسماء الصفحـات ما عــدا صفحة معـينه ولا لأ ؟"

طبعا ممكن ، عدل الكود كالتالي:

Sub Sheets_Name()
For I = 1 To Sheets.Count
If Sheets(I).Name = "AA" Then GoTo 10
ActiveCell.Offset(I, 1) = I
ActiveCell.Offset(I, 2) = Sheets(I).Name
10 Next
End Sub

بفرض أن الشيت الذي لاتود إستدعاء إسمه هو "AA"
لاحظ إضافة السطر 
If Sheets(I).Name = "AA" Then GoTo 10
وكذلك إضافة الرقم 10 للسطر  
10 Next
 

السلام عليكم

اخي الكريم

الكود التالي صغير يمكنك استخدامه لأي ملف

قبل تشغيل الكود ، يجب ان تكون الخلية التي تقف عليها (الخلية النشطة) تقع في مكان يليه عمودين فارغين

Sub Sheets_Name()
For I = 1 To Sheets.Count
ActiveCell.Offset(I, 1) = I
ActiveCell.Offset(I, 2) = Sheets(I).Name
Next
End Sub

سينتج من الكود ارقام الشيتات في عمود واسماؤها في العمود التالي مهما كان عدد الشيتات

السلام عليكم

أخي الكريم تأكد ان الحسابات بالملف اوتوماتيكة بالضغط علي F9

أو للحل الدائم للملف بالذهاب إلي Excel Options  ثم Formulas
ثم Calculation options  ثم تأكد انها Automatic وليست  Manual

السلام عليكم
التجميع يلزمه دالة SUM
مرفق الملف به الدالة في موضع واحد فقط وعليك إكماله علي نفس النسق

المجموع.rar

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

أخي الكريم
مرفق حل سريع بدون أكواد (معادلات فقط)
ولتجنب الأخطاء نقلت صفحة الجرد للملف الرئيسي مع عمل لينكات للصفحة الرئيسية
تفضل المرفق

حسابات العملاء2.rar

السلام عليكم

أخي الكريم
1- جربت أنا الكود لايوجد مشاكل إذا بيانات الفاتورة موجودة وخاصة عمود "كود الصنف"
تحدث أخطاء بالترحيل إذا كانت بيانات الفاتورة غير مكتملة

2- تم تعديل الترحيل ليبدا من رقم الفاتورة حتى خانة الرصيد كما تريد

تفضل المرفق

جديد2.rar

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

جديد.rar

وعليكم السلام 
مازالت غير واضحة تماما
أنظر المرفق لعله ماتريد

افيسنا_اقساط2.rar

وعليكم السلام
أخي الكريم
في المرفق الذي أرسلته أنت وفي صفحة العميل "" محمد عوض على على "" 

ستجد أنك أدخلت بالخلية A10 ,A12  توارخ خاطئة
30/02/2018  و
30/02/2019

فمن المعروف أن شهر فبراير ليس به اليوم 30
عدلها إلي 
28/02/2018 و
28/02/2019
ستجد المعادلة مضبوطة
 

مرفق الملف بعد التعديل

حسابات العملاء2.rar

السلام عليكم
تفضل المرفق به ماطلبت

التسجيل.rar

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

يكون ملف ال vcf الصحيح بهذا الشكل
BEGIN:VCARD
VERSION:3.0
FN:شام
N:;شام;;;
TEL;TYPE=CELL:+491727494306
END:VCARD

والكود تبعك ينتج هذا الشكل
BEGIN: VCARD
VERSION:3.0
FN:أحمد 
TEL;TYPE=CELL;TYPE=VOICE:مفرح
END: VCARD

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

في 10/26/2017 at 21:13, mahbob said:

سلمت يداااك استاذ طارق محمود

أفادك الله بعلمك وجعله في ميزان حسناتك

بعد اذن حضرتك .. لو عاوز بقى مجموع السنه كلها اعمل ايه ؟

السلام عليكم
أخي الكريم
في حال السنة إخترت لك معادلة أخري

تفضل المرفق

مثال2.rar

السلام عليكم
أخي الكريم
بمراجعة سريعة يبدو أن جهاز الهاتف معك غير متوافق 100% مع شكل الـ vcf الناتج
جرب التالي
يوجد بالكود سطر : Print #FileNum, "VERSION:3.0"
بدلا من استيراد .... إعمل تصدير ولو لإسم واحد من هاتفك بصيغة الـ vcf
وافتح الملف الصادر هذا ولاحظ الرقم بعد VERSION: هل هو 3.0

إذا لم يكن عدل ذلك في الكود

أيضا يوجد خطأ بهذا الكود إذ لايقرأ ولايكتب رقم التليفون ... فقط يقرأ الإسم ويكتبه

السلام عليكم
أخي اكريم
المطلوب بسيط لايحتاج أكواد
تفضل المرفق بالمعادلات

مثال1.rar

السلام عليكم
أولا أرجو أن تغفروا لي بعدي عنكم
=============
جائني اليوم علي الخاص سؤال من أحد الأعضاء
وبعد أن جاوبته ، أحببت أن أعرضه علي أحبابي وأصدقائي 
لتعم الفائدة ويشارك من يحب في الموضوع
===================
السؤال
كيف اعمل توزيع عشوائي لاسئلة اختياري في ملف اكسل 
الملف به حوالي 20 سؤال 
انا عايز اطبع العشرين سؤال دول 30 مرة او اكثر او اقل بس يكون توزيع الاسئلة فيهم مختلف وبرده يكون ترتيب الاربع خيارات بالسؤال يختلف 

ملحوظة : الملف المرفق به 20 سؤال على كل سؤال 4 خيارات يعني لو ممكن تعملي ايكونة بالملف اقدر من خلال الضغط عليها مثلا  اغير ترتيب الاسئلة وايضا ترتيب خيارات كل سؤال 
يا ريت لو فيه امكانية تخلى المجال مفتوح لعدد الاسئلة بملف الاكسل يعني ما يكون مقتصر على 20 سؤال بس 
===========================

الإجابة

%e2%80%8f%e2%80%8fاسئلة احياء 2ث ف1.rar

أخي الكريم
سؤالك غير واضح بالمرة
ولكن كرد  عام مثل سؤالك العام
نعم يوجد طريقة لعمل ذلك
==============
لعلك لاحظت أن أسئلتك تظل فترات طويلة بلا إجابة
ألا يعطيك هذا انطباع أن السؤال غير مكتمل
الأفضل دائما ان ترفق ملف به ماتريد 
مثلا في سؤالك الحالي 
ملف به ورقة تحتوي علي الأقل ثلاث أعمدة من البيانات
1- إسم أو رقم ماكينه الانتاج
2- المكاسب
3- الخسائر 
ثم تضيف إن رأيت مايكفي من البيانات
أرجو أن يتسع صدرك وتفهم ما أعني
لابد ألا تكون بخيلا في إعطاء البيانات ليفهم أي أخ يريد المساعدة ماتريده بالتحديد