أخي ali mohamed ali
يبدوا أنك لم تفهم ما أقصد أريد تغيير الصيغة مثلا BLF!$D$2:$D$1000 ب BLF;4 للإختصار بدل تحيد النطاق في الورقة BLF قمت بإنشاء إسم "BLF" و به التحديد المطلوب
أدخل الأسماء ستجد إسم BLF و به تحديد الورقة BLF من A:2 F:100
السلام عليكم
لدي كود vb موجود في كل ورقة عمل و اريد ان اكتبه مرة واحدة في workbook و يعمل مع كل ورقات العمل حتى في حال اضافة ورقة عمل جديدة
الكود
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" Then
Range("C6").Select
ActiveCell.FormulaR1C1 = "NAFTAL EL OUED"
Range("E7").Select
ActiveCell.FormulaR1C1 = "EL-OUED "
Range("F7:G7").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("F2").Select
End If
End Sub
مشكور أخي الكريم
أرجو الا اكون قد اثقلت عليك مازال شيئ واحد
عندي كود vb معاد في كل ورقة عمل هل استطيع أن اكتبه مرة واحدة و يعمل مع كل ورقات العمل
الكود
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" Then
Range("C6").Select
ActiveCell.FormulaR1C1 = "NAFTAL EL OUED"
Range("E7").Select
ActiveCell.FormulaR1C1 = "EL-OUED "
Range("F7:G7").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("F2").Select
End If
End Sub
لو سمحت أيضا أريد تنسيق في خلية بحيث أكتب مثلا 398 تكون على النحو التالي 8 9 3 أي تجعل مسافة بين الارقام على حسب عرض العمود أي عند زيادة في عرض العمود تزيد المسافة آليا
و شكرا
السلام عليكم
لدي برنامج visual basic يعمل في ملف إكسل 2003 لكن عند تحويل الملف إلى إكسل 2010 ظهر به مشكل و لم يعد يعمل
في المرفقات ملفين الأول 2003 الذي يعمل به و الثاني 2010 الذي به المشكل
وفقكم الله
Fiche de paie.rar
السلام عليكم
أريد مقارنة بين جدولين كل واحد في ورقة على حسب العمود الأول بحيث تكون في الورقة 3 الموجود في ورقة 1 و غير موجود في ورقة 2
و في الورقة 4 الموجود في ورقة 2 و غي موجود في ورقة 1
و إن أمكن تكون المقارنة بالمعادلات و الأكواد
مشكورين
أنظر المرفقات
Book1.rar
أخوتي الكرام أبو عيد و حمادة عمر بارك الله فيكم
لقد إشتغل الملف المنزل من أخينا حمادة عمر و بالنسبة لي فأنا أستخدم أوفيس 2010 فرنسي و لا أدري لما لم يشتغل معي كود اخي الفاضل أبو عيد
المهم مشكورين إخوتي الكرام و فيه سؤال آخر عندما أريد تطبيق نفس الكود على عديد من الأوراق هل أقوم بنسخ الكود إلى كل صفحة على حدى أم هناك تعديل على الكود الحالي ليشمل باقي الأوراق
ثانيا وجدت الكود يطبق كلما دخلت الورقة 2 فهل بالإمكان أن يطبق مرة واحدة فقط
و شكرا
أخي الكريم حمادة عمر
نعم يقوم بنسخ مثلا A1:F50 و لصقها في جميع الورقات و في نفس النطاق
وأيضا سيتم اللصق في باقي اوراق العمل جميعها ماعدا ورقة 1 طبعا
أما الإستفسار الأخير فمعذرة فقط أخطأت في التعبير
مثلا بعد التعديل في الورقة 1 و عند الدخول إلى ورقة 2 يقوم الماكرو تلقائيا بنسخ و لصق الخلايا في كل الأوراق و في نفس النطاق مرة واحدة فقط
المرفق به بيانات من A1:F3
معذرة مرة أخرى أخي الكريم و بارك الله فيكم
Book1.rar
السلام عليكم
أريد تشغيل ماكرو تلقائيا عند التنقل إلى الورقة 2 الملف به عدة ورقات و الماكرو يقوم بنسخ خلايا محددة من ورقة 1 و لصقها في جميع الأوراق
مثال يقوم بنسخ A1:F50 و لصقها في جميع الأوراق
أي عند فتح الملف أذهب إلى الورقة 1 و أقوم بالتغييرات في خلايا معينة ثم أنتقل إلى ورقة 2 يشتغل الماكرو و يقوم بنسخ و لصق البيانات
الكود يجب أن يشتغل مرة واحدة كلما دخلت إلى الورقة 2
مشكورين