بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
samia84
-
Posts
48 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه samia84
-
-
السلام عليكم
أريد مساعدة في حل هذا المشكل
وجدت هذا الملف
ووجدت فيه ما أريدولكن أريد حذف المعادلة التى تحذف الأرقام المكررة من العمود الذي يدمج فيه الجدولينلأنني أجد دائما الحلول في منتدانا الغاليوشكرا مسبقا -
السلام عليكم
هل من رد على هذا الموضوع
وشكرا مسبقا لكم
يا من يساعد كل من يطلب المساعدة
-
السلام عليكم
عندي مشكل على كيفية توزع الألوان على القصاصات
1- هل يكون اللون البني مثلا للقصاصات التي تحمل الأرقام الفردية
و اللون الثاني للتي تحمل الأرقام الزوجية
أو كل لجنة ترتب لوحدها
أو هناك طرقة أخري
وشكرا لكم مسبقا على المساعدة
-
الأخت الفاضلة سامية
يرجى إرفاق ملف بالمطلوب .. سبق أن قدمت في مشاركة سابقة فصل الاسم كل على حدا .. الاسم الأول والثاني والثالث والرابع إلى أي عدد من الأسماء
السلام عليكم
شكرا لك أخي ياسر على هذا الرد
ولكن ماأريده هو فصل الإسم إلي جزئين
اللقب و الإسم
مثل: بن عبد الرحمان آمة الرحمان
يفصل إلى
اللقب: بن عبد الرحمان
الإسم: آمة الرحمان
وشكرا
-
السلام عليكم
شكرا أخي ياسر على هذا الرد و المساعدة
أخي لو تكرمتم وإعطاء كود لفصل الإسم وللقب
وشكرا
-
بسم الله الرحمن الرحيم
وبه نستعين
أخى الكريم
السلام عليكم ورحمته الله وبركاته
وهذا الملف لفصل اللقب عن الاسم
اخي سعيد
بارك الله فيك
ولكن لم أجد الملف لفصل اللقب عن الاسم
وشكرا
-
السلام عليكم
أريد منكم مساعدة في هذا المجال
أريد كود لتلوين خانة عندما تكون فارغة في دفتر التنقيط وهذا بدلالة الإسم
أي عندما أكتب الإسم ولا أكتب النقاط تتلون خانات النقاط بلون
وعندما أكتب النقاط في الخنات الملونة تتحول إلى بيضاء
وشكرا لكم مسبقا على المساعدة
-
السلام عليكم
أبعث لكم الملف وهو جزء من الملف الأصلي لأحد الأساتذة المحترمين
وما أريده هو التعديل على الكود لكي يعمل
وشكرا
والملف مرفق
مع العلم أني قمت بالتغيير في الكود
وأرجو منكم مساعدتي في إصلاح الكود
وشكرا مسبقا
-
السلام عليكم شكرا لكم على الرد
الكود موجود في modules:
Tarhil_car_not
من الملف المرفق سابقا
وهوGESTION DES NOTES _9
وسأرفقه موة ثانية
-
السلام عليكم
شكرا أخي على الإهتمام و الإجابة
أنا في الإنتظار دائما
ولكن الإدارة التى أعمل فيها هي المستعجلة
وشكرا
-
السلام عليكم
هل من مساعدة
أنا في أمس الحاجة إلى هذا الكود
وشكرا مسبقا
-
شكرا لكم ياكبار الأساتذة
شكرا لكم يا من يلبي نداء كل من يحتاج مساعدة
-
شكرا لكم ياكبار الأساتذة
ودمتم عونا لنا دائما
شكرا شكرا
شكرا
-
السلام عليكم
هذا الملف لأحد الزملاء الذي يوجد فيه الكود الذي أريد الشرح له
يوجد في المرفقات
وشكرا
على المساعدة
-
السلام عليكم
لقد وجدت مساعدة كبيرة في منتدانا الغالي وخاصة من كبار أساتذتنا
ولهذا ألجأإليكم في كل مرة لمساعدة
وجدت هذا الكود في أحد برامج الزملاء وفد أعجبني وأريد تطبيقه في برنامجي ولكن لم أنجح
لذا أرجو منكم المساعدة
Sub Rappel_eleves()
On Error Resume Next
Dim MyRange As Range, MyR As Range
Dim r As Integer, N As Integer, M As Integer, MM As Integer, K As Integer, C As Integer, CC As Integer
TT = Application.WorksheetFunction.Match(Range("l2"), Feuil3.Rows("5:5"), 0)
Dim Tab1(8) As Integer
Tab1(1) = TT: Tab1(2) = TT + 1: Tab1(3) = IIf(TT >= 38, "", TT + 2): Tab1(4) = IIf(TT >= 38, TT + 2, TT + 3): _
Tab1(5) = IIf(TT >= 38, TT + 3, TT + 4): Tab1(6) = IIf(TT >= 38, TT + 4, TT + 5): Tab1(7) = IIf(TT >= 38, TT + 5, TT + 6): _
Tab1(8) = IIf(TT >= 38, TT + 6, TT + 7)
Set MyRange = Range("bas_t" & Range("V1"))
kh2_Clears
Application.Calculation = xlCalculationManual
'ÚÏÏ ÇáÓØæÑ ÇáÎÇÑÌÉ Úä äØÇÞ ÇáÇÓÊÏÚÇÁ
N = 7
Application.ScreenUpdating = False
With MyRange
For r = 1 To .Rows.Count
If .Cells(r, 1) = "" Then GoTo 1
If .Cells(r, 6) = Range("d4") Then
M = M + 1
MM = N + M
With Cells(MM, 2)
.Value = M
.AddComment
.Comment.Text Text:="" & r
End With
For K = 1 To 12
C = Choose(K, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
CC = Choose(K, 2, 3, 8, Tab1(1), Tab1(2), Tab1(3), Tab1(4), Tab1(5), Tab1(6), Tab1(8))
If CC = 0 Then Else Cells(MM, C) = .Cells(r, CC)
Next K
End If
1 Next r
End With
'ÊÓØíÑ ÇáÕÝæÝ ÇáãÍÊæíÉ Úáì ÇáÈíÇäÇÊ
With Range("B8:n" & MM)
.Borders.LineStyle = 2
End With
With Range("B8:n" & MM).Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Application.ScreenUpdating = True
Range("g8").Activate
MsgBox "Êã ÇáÇÓÊÏÚÇÁ ÈäÌÇÍ", vbMsgBoxRight, "ÇáÍãÏááå"
On Error GoTo 0
Application.Calculation = xlCalculationAutomatic
End Sub
-
السلام عليكم
شكرا لك أخي حسام عيسى على الرد و المساعدة
أريد أن تعمله بالأكواد ولن أنس جميلك
وشكرا مسبقا
-
شكرا أخي علي الرد
أريد شئ أخر وهو
عند كتابة الحرف الأول تفتح القائمة المنسدلة أليا
وتضهر جميع الأسماء التي تبدأ بذالك الحرف
وشكرا لكم على المساعدة
-
السلام عليكم
عندي سؤال
أريد عندا كتابة أول حرف من إسم موجود في القائمة المنسدلة
تظهر جمع الأسامي التي تبدأ بهذا الحرف
وشكرا
-
السلام عليكم
شكرا لكم على المساعدة وهو المطلوب
دمتم في خدمة العلم
والسلام عليكم
-
السلام عليكم جميعا
أرجوا منكم مساعدتي في هذا المشكل والتمثل في
عندنا في الجزائر عندما يكون شخصا ليس في تاريخ ميلاده الشهر واليوم نكتبه مثلا: بحكم 1998
وعندما أعمل كود لتفكيك التاريخ الى يوم وشهر وسنة لايعطيني نتيجة
ونفس الشئ عندما أعمل كود لحساب السن عند تاريخ معين
وشكرا على المساعدة مسبقا
-
-
السلام عليكم
عندي مشكل على كيفية توزع الألوان على القصاصات
1- هل يكون اللون البني مثلا للقصاصات التي تحمل الأرقام الفردية
و اللون الثاني للتي تحمل الأرقام الزوجية
أو كل لجنة ترتب لوحدها
أو هناك طرقة أخري
وشكرا لكم مسبقا على المساعدة
-
للرفع
-
للرفع
شيت الاستاذ* رجب جاويش
في منتدى الاكسيل Excel
قام بنشر
شكرا على العمل المساعد