jack305

السلام عليكم

اريد دالة  تجمع  محتوى خلايا  معينة في  خلية واحدة وقد ارفقت مثالا  علما اني استعمل  اوفيس 2007

دالة نص.xlsx

شكرا اخ سليم

.... شكرا على الردود ....شكرا اخ سليم..... هل يمكن ان يشتغل  اوتوماتيكيا دون زر..  الكود يعمل  لكن اريده ان يشتغل اوتوماتيكيا

الكود لا يعمل

ما اريده  اخفاء  واظهار الاعمدة الملونة   ورقة    2اوتوماتيكيا  بشرط  من الورقة 1

b7=0  اذا كان   e اخفاء العمود  

اظهاره اوتوماتيكيا  اذا زال الشرط

e7=0  اذا كان  h اخفاء العمود  

اظهاره اوتوماتيكيا  اذا زال الشرط

h7=0 اذا كان   k اخفاء العمود  

اظهاره اوتوماتيكيا  اذا زال الشرط

j7=0  اذا كان   n اخفاء العمود  

اظهاره اوتوماتيكيا  اذا زال الشرط

m7=0  اذا كان   q اخفاء العمود  

اظهاره اوتوماتيكيا  اذا زال الشرط

M.xlsm

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

اريد حذف الاعمدة  اوتوماتيكيا  و عودتها  اوتوماتيكيا بشرط  اذا كان    b7   في الورقة 3  يساوي 0   يحذف العمود   E 

M.xlsm

شكرا

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

هذه الصفوف لا يمكن لصقها

ها من الممكن  تعديل  هذا الكود ب ليعمل  حيث  عند النقر  بخلية ما  يبدا منها التوليد

و يكون يشمل الاعمدة وشكرا

Sub AutoNumbering()

ActiveCell = ActiveCelltiveCell
NS:
A = Application.InputBox("أدخل أول ر قم في السلسلة التي تريد إنشاؤها", "أول رقم")
B = Application.InputBox("أدخل آخر ر قم في السلسلة التي تريد إنشاؤها", "آخر رقم")

If A = False Or B = False Then
Exit Sub
ElseIf A = "" Or B = "" Then
MsgBox "!تأكد من إدخال الأرقام بشكل صحيح", vbExclamation, "إدخال خاطئ"
Else

If [IV65536] = 1 Then
ActiveCell = A
Else: Columns(4).Rows(65536).End(xlUp).Select
If ActiveCell = "" Then
ActiveCell = A
Else: ActiveCell.Offset(1, 0).Select
Selection = A
End If
End If
ActiveCell.DataSeries xlColumns, , , 1, B
End If

If Application.WorksheetFunction.CountA(Columns(ActiveCell.Column)) = 1 Then
ActiveCell.ClearContents
Beep
If MsgBox("أول رقم في السلسلة أكبر من آخر رقم .. هل تود إعادة المحاولة؟", vbQuestion + vbYesNo, "إدخال خاطئ") = vbNo Then
Exit Sub
Else: GoTo NS
End If
End If

Beep
If MsgBox("هل تود إنشاء سلسلة رقمية أخرى؟", vbYesNo + vbQuestion, "إنشاء سلسلة أخرى") = vbNo Then
Exit Sub

Else: GoTo NS

End If
End Sub

شكرا اخي  الفاضل  الجدول  يعمل   وشكرا  ....

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

السلام عليكم

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

فيه عدد القاعات و عدد الحراس  حيث اذا كان عدد الحراس 3  و عدد القاعات 4

اريد ان  يتكرر عدد  القاعات    

حيث  يوجد 3 من السطر 1

و 3 من السطر 2

و3 من السطر 3

و3 من السطر4

 و ادا  غيرنا احد العددين  يتغير الجدول  تلقائيا  حسب المعطيات

و شكرا  لكم

7.xlsx

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

الترقيم ونهايته  

و شكرا اخي  الفاضل  على جهدك

ما اريده هو عندما   انقر  في   اي خلية  من اي  عمود يبدا  منها توليد الارقام

لقد وجدت  ملفا في  الموقع  ولكن هناك توليد فقط في  عمود واحد ومن الخلية الاولى فقط

ما اريده  هو  بداية التوليد  من الخلية التي  انقر فيها 

مع امكانية التوليد في  اي  عمود   ضمن الجدول

وشكرا

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

ww.xls

نريد حلا  حيث اذا اخترت خيار بالقائمة المنسدلة التي توجد  بالورقة 1 تتغير  القائمة بنفس  الخيار بالورقة الثانية اوتوماتيكيا

لقد ارفقت ورقة عمل و شكرا

0001.xlsx

الرجاء  من الاخوة طريقة للتعديل على هذا الملف

قائمة منسدلة بقائمة المواد 

و في  عمود كل مادة هناك ارقام  من 1 الى 8 

و من 101 الى 108

اريد عندما  اغير المادة تظهر الاسماء المرتبطة بهذه الارقام  و التي  تختلف من مادة لاخرى  

وشكرا 

لقد ارفقت ملفا بالمطلوب

0000.xlsx

 شكرا اخي

رغم عجزي  في تعديله

شكرا اخي الفاضل

السلام عليكم  خبراء  المنتدى خاصة الاخ سليم........لي  طلب  

اريد منك ان  تضع لي كود حذف الفراغ  مع  معطيات السطر

ان  تكون جميع الخلايا  عدا الجدول سوداء

ان يتم تلوين الطور  الثانوي  بلون

و المتوسط بلون اخر والابتدائي  بلون اخر  

لقد ادرجت  لكم  ورقة عمل

و شكرا  على صبركم  

اعانكم الله

1.xlsx

شكرا اخي  لقد اثقلت عليك...

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

الملف  الذي  عدلته لي  بحيث اذا حذفت منه اسما   رتبت القائمة 

اريد ان اجعله كمصدر للبيانات  واقوم  باخد الاسماء  منه  الى ورقة اخرى

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

و كيف اقوم بذللمك ان امكن

اغلب التنسيق الشرطي  الذي اعمل  به هو مثلا الخلية***لا تساوي 0  لون اصفر

او الخلية ***تساوي "" لون احمر  

الخلية***= عدد ما  لون اخضر

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

هل اقوم باضافة كود اخر  ام اعدل  الكود الذي ارفقته

ما هي  طريقة اضافة  تنسيق شرطي الى كود باختصار  اخي   

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

حفظك الله من كل سوء

فقط سؤال....

ان اردت  اضافة تنسيقات شرطية لا يحذفها الكود عند الضغط ......كيف افعل

اخي  الفاضل فضلك دين في  رقبتي  جزاك الله عني  كل خير سيدي الفاضل

 اريد كيفية بحيث  الكود لا يحذف التنسيقات الشرطيةالتي اظيفها  وشكرا

شكرا لك اخي  افاضل  ادامك الله

اخي هل يمكن تعديل الكود واظافة تنسيق شرطي اخر  يقوم بتظليل الخلايا  الفارغة باللون الاسود..................................تفضلا منك اخي

اي  يظهر فقط   الجزء الذي  يحتوي  اسماء    و الباقي  اسود  و شكرا  

اخي  من فضلك اضف الكود على هذه الورقة.

هل من الممكن ان حذفنا اسم تحذف معه جميع المعطيات التي  في  نفس  السطر

9.xlsm

ليس  هذه  الورقة اخي  بل  ورقة  بيانات الحراس

ارفقت صورة

 اخي  الفاضل هل يمكنك وضع  هذا الكود في  هذا الملف  فضلا منك

في  ورقة بيانات الحراس

8.xlsm