طارق محمود

السلام عليكم مرحبا بك أخي الكريم غريبة عدم معرفتك بالإكسل مع إن إسمك كله أرقام المهم أخي العزيز صفوف الإكسل لها أرقام 1،2،3، .. هكذا والأعمدة لها حروف A , B , C , D , .. هكذا إن وقفت بالماوس علي مسطرة الصفوف علي الخط الفاصل بين 2،3 مثلا ثم كليك شمال مع سحب عرض الصف لأسفل أو لأعلي تستطيع تعريض الصف كما تريد وكذلك للأعمدة قف بالماوس علي مسطرة الأعمدة علي الخط الفاصل بين B , C مثلا ثم كليك شمال مع سحب عرض العمود لليمين أو لليسار تستطيع تعريض العمود أيضا كما تريد مع ملاحظة ألا يزيد عدد الحروف بالخلية عن 255 وهذا كافي جدا لأي إسم سباعي وليس رباعي

السلام عليكم ممكن إن شاء الله ضع الماكرو الذي تريد داخل حلقة For-Next التالية For i = 1 To Worksheets.Count الماكرو الذي تريد Next i

السلام عليكم لاداعي للدبل كليك فقط من الجدول المحوري نفسه أنت لم تضع مثالا فوضعت من عندي واحد قف علي أي من مجالات مركز التكلفة ثم كليك يمين إختر تنسيق المجال ثم ضع فاصل طباعة بعد كل مركز تكلفة أنظر المرفقات Piv_Table.rar

أثناء عمل الحماية في القائمة التي تظهر لك أول خيارين بها Select locked cells Select Unlocked cells إلغي إختيارهما

السلام عليكم أخي سيد إستعمل هذا الكود بنفس الطريقة السابقة Sub Adj_Date_Format() For Each se In Selection se.Value = Trim(se) se.NumberFormat = "dd/mm/yyyy;@" Next End Sub

مرفق صورة لتوضيع كيفية عمل إلحاق ADD-In

السلام عليكم أخي الكريم إستعمل هذا الكود Sub adjust() R_N = Selection.Rows.Count For Each i In Selection If IsNumeric(i) Then GoTo 100 Let new_i = "" For j = 1 To Len(i) d_i = Mid(i, j, 1) If Asc(d_i) > 57 Or Asc(d_i) < 49 Then d_i = "" new_i = new_i & d_i Next j i.Value = new_i 100 Next i ضعه في ملف آخر كملحق للإكسل نفسه Add-In وليس في الملف وتستطيع إستدعاؤه بأي حرف تحدده ثم تظلل المجال الذي به البيانات وتجري الماكرو

السلام عليكم بعد إذن أخونا أبو البراء كنت منذ زمن قدعملت علي ملف لمثل هذه الحالة عدلت عليه قليلا ليناسب الطلبات تفضل أخي أيمن عسي أن يكون هو المطلوب Time_Sheet.rar

السلام عليكم أخي بوفيصل مرفق ماطلبت مع ملاحظة أنني تركت بياناتك الأصلية في الأعمدة من D إلي K وكونت المعادلات في الأعمدة من M إلي Z وستلاحظ أن بعض الخلايا باللون الأحمر والتي بها نتائج مختلفة عما في بياناتك الأصلية ولكن أرجو أن تكون المعادلات صحيحة وإن كانت طويلة نسبيا تفضل المرفق Projects%20Timeline.rar

السلام عليكم هذا ماهو موجود ، راجع الخلية أكتب فيها كود ستجد أن الإسم يظهر أوتوماتيك في الخلية الأخري ولكني زدت لك القائمة المنسدلة في الخلية الأولي تستطيع إلغاؤها وإن كنت افضل أن تتركها وتستطيع كتابة الكود كتابة ولاتختارها من القائمة المنسدلة

أخي الكريم ممكن استبدال الكودين كالتالي Sub Retur() Worksheets("Welcom").Visible = True Sheets("Welcom").Activate [A1].Select For i = 2 To 7 Sheets(i).Visible = False Next i End Sub Sub NORetur() For i = 2 To 7 Sheets(i).Visible = True Next i Sheets(1).Visible = False Sheets(1).Activate [A1].Select End Sub

السلام عليكم بفرض أن العمود المطلوب هو C:C ضع الشرط التالي =COUNTIF(C:C,C4)<2 في قائمة Data Validation Custom أنظر المرفق مع الشرح بالصور داخله وحاول تكرر في العمود C:C تكرار.rar

السلام عليكم جرب المرفق وكلمة السر هي XYZ وضعت لك كودين في حدث الورقة الأول يفرغ محتويات الخلية B3 بمجرد الدخول للورقة Private Sub Worksheet_Activate() [B3] = "" End Sub والثاني يفحص B3 إذا كانت تحتوي علي كلمة السر يخفي الأزرار المطلوبة وإلا يظهرها Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 2 Or Target.Row <> 3 Then Exit Sub If Target.Value <> "XYZ" Then GoTo 100 ActiveSheet.Shapes("CommandButton2").Visible = False ActiveSheet.Shapes("CommandButton3").Visible = False ActiveSheet.Shapes("CommandButton4").Visible = False ActiveSheet.Shapes("CommandButton5").Visible = False Exit Sub 100 ActiveSheet.Shapes("CommandButton2").Visible = True ActiveSheet.Shapes("CommandButton3").Visible = True ActiveSheet.Shapes("CommandButton4").Visible = True ActiveSheet.Shapes("CommandButton5").Visible = True End Sub تفضل المرفق Cache2.rar

السلام عليكم لم أفهم كتابة الكود؟ بناءا علي ماذا؟

السلام عليكم الأخ مختار أنا مع أخي أبو البراء تماما ولكن لأنك سوبر ولأن هذه أول مشاركاتاك معنا فمرحبا بك بين إخوانك واهلا وسهلا أخي مختار أرجو أن يكون المرفق هو ماتريد وإلا ارفق ملف مختار.rar

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

السلام عليكم تفضل المرفق مع الشرح بداخله data2.rar

السلام عليكم أخي العزيز كحل سريع عملت نسخة بالمعادلات من عمود الأكواد في العمود الأول لأن دالة Vlookup تحتاج أن يكون عمود البحث هو الأول في مجال البحث وجعلت لون الفونط به ضعيف لأنبهك انك تستطيع جعله أبيض تماما مثلا إن كنت لاتريده أن يظهر للمستخدم او بالطباعة أنظر المرفق النظام المحاسبي2.rar

السلام عليكم أخي الكريم بالنسبة لاختيار مادة المدرس + مدرستة يمكن ذلك أيضا باستخدام الدالة VLOOKUP ، المستخدمة كما هو بالخلايا بالمرفق بالنسبة لوضع اى علامة او لون بجانب الاسم الذى تم اختياره لتجنب اختياره فى المره القادمة علي حد علمي لن يصلح هذا بالمعادلات ولكنه ممكن بالأكواد سر هذه العلامة #N/A# أن معادلة دالة VLOOKUP ، التي تنتقي علي أساسها عشوائيا إسم المدرس تستحدث رقما بين RANDBETWEEN(1,83) ولكنها تبحث في مجال $B$3:$C$83 من ورقة الاسماء أي لايزيد عن الخلية 83C والتي تحتوي علي الرقم 81 بينما دالة العشوائية قد تأتي برقم 82 أو 83 للتصليح غير $B$3:$C$83 إلي $B$3:$C$86 أنظر المرفق اختيار الاسماء2.rar

السلام عليكم حسب ماأعلم لايوجد دالة ولكن ممكن عمل مثل هذه الدالة بالأكواد مثلا Function horoof(a As String, b As Boolean) As String z = "" y = "" For i = 1 To Len(a) x = Mid(a, i, 1) If IsNumeric(x) = False Then z = z & x: GoTo 10 y = y & x 10 Next i If b = False Then horoof = y Else horoof = z End Function أو أنظر المرفق صعب التحميل صيغة الدالة للحصول علي الحروف horoof(X,1) للحصول علي الأرقام horoof(X,0) المرفق علي الرابط التالي http://www.4shared.c...GAa/horoof.html

السلام عليكم مرحبا بك أخي الكريم بين إخوانك راجع الرابط http://www.officena.net/ib/index.php?showtopic=33854&view=&hl=%E3%DF%D1%D1&fromsearch=1 أو http://www.officena.net/ib/index.php?showtopic=31534&view=&hl=%E3%DF%D1%D1&fromsearch=1 أو http://www.officena.net/ib/index.php?showtopic=28603&view=&hl=%E3%DF%D1%D1&fromsearch=1 والكثير من المواضيع المشابهة إبحث وستجد في المنتدي مايسرك

السلام عليكم أرجو أن أكون فهمت ماتريد أنظر المرفق باستخدام دالتي INDIRECT ، MATCH سجل الموحده العام2.rar

السلام عليكم إعمل نسخ ثم لصق خاص - Past Special ثم Transpose

السلام عليكم أخي العزيز نفرض أن النطاق المطلوب تطبيق التنسيق عليه هو: A1:N30 وأن العمود الذي تريده أن يتحكم في السطر هو العمود D لعمل ماتريد ظلل المجال كله علي أن يبدأ التظليل من الخلية A1 أي أنها ستكون الخلية النشطة إختر التنسيق الشرطي بنظام المعادلة Formula وليست قيمة الخلية Cell value ضع هذه المعادلة كشرط =$D1<200 ثم ضع في جواب الشرط التنسيق الذي تريد

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