سليم حاصبيا

جرب هذا الملف الورقة الثانية تعالج التناريخ و اورقة الثالثقة المرسل والمرسل اليه Copy of دفتر الصادر.rar

اليك هذا المثال Hid_row.zip كما يمكنكن الذهاب الى هذا العنوان لمزيد ام المعلومات http://www.officena.net/ib/topic/55455-%D8%AD%D8%B0%D9%81-%D8%A7%D9%84%D8%AE%D9%84%D8%A7%D9%8A%D8%A7-%D8%AF%D9%88%D9%86-%D8%A7%D9%84%D8%B5%D9%81%D9%88%D9%81/

هل تريد اخفاء كامل الصف في حال وجدت اي فيمة صفرية في كامل الصف او في عامود معين من الصف هل تريد اخفاء كامل الصف في حال وجدت اي فيمة صفرية في كامل الصف او في عامود معين من الصف

افعل ما يلي 1-افتح اي ملف اكسل 2-اضغط على File>>>>Option>>>>advanced 3-ثم انزل الى خيار display options for this worksheet 4- احذف علامة الصح من جانب show a zero in cells that have zero value 5- Ok

جرب هذا الملف تصريح دخول salim.zip

جرب هذا الكود Sub extract_data() Dim x, i, lr As Integer Dim My_sheet As Worksheet Dim Source_sheet As Worksheet Set Source_sheet = Sheets("البيانات") Set My_sheet = Sheets("ارقام الجلوس") Application.ScreenUpdating = False Application.Calculation = xlCalculationManual My_sheet.Columns(2).ClearContents My_sheet.Columns(5).ClearContents lr = My_sheet.Cells(Rows.Count, 1).End(3).Row x = 1 For i = 2 To lr My_sheet.Range("b" & x).Resize(5, 1) = Application.WorksheetFunction.Transpose(Source_sheet.Range("a" & i).Resize(1, 5)) My_sheet.Range("b" & x + 4).NumberFormat = "m/d/yyyy" My_sheet.Range("e" & x).Resize(5, 1) = Application.WorksheetFunction.Transpose(Source_sheet.Range("a" & i + 1).Resize(1, 5)) My_sheet.Range("e" & x + 4).NumberFormat = "m/d/yyyy" i = i + 1 x = x + 6 Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

اثراءً للموضوع يمكن استعمال هذه المعادلة البسيطة (عدد العمال في الخلية A2) =CHOOSE(IF($A2<7,1,IF($A2<20,2,3)),5,20,100)

اكتب هذه المعادلة في C7 و اسحب نزولاً =SUM('1:12'!F8:AJ8)

جرب هذا لملف Chidren.zip

جرب هذا الملف معلومات الاسرةsalim.zip

جرب هذا الملف و اعطني رأيك 12 salim.zip

جرب هذا الملف قائيمة منسدلة اخفاء عمودsalim.zip

بعد إذن لااساتذة الكرام و حتى لا يتغير التاريخ بعد غلق الملف تم فتحه من جديد و لتسجيل وقت الادخال بالخلية لأول مرة و بطريقة ثابتة اقترح هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = "" Or Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("b2:b100")) Is Nothing Then If Target(1, 0).Value = "" Then Target(1, 0).Value = Time End If End If End Sub

الملف مضروب فيروس و قد رفض الجهاز فتحه

صديقي الملف عندك هو من نوع Word كي تقوم بهذا العمل يجب ان يكون ملف Excel

تم معالحة الامر (القائمة المنسدلة في الخلية L3 مطاطة تستجيب لاي تعديل في البيانات و لا تذكر المكرر الا مرة واحدة) test salim 2.zip

الحل مرفق 23 salim.zip

جرب هذا الملف test salim.zip

جرب ان تستبدل الفاصلة "," بالفاصلة المنقوطة ";" في المعادلة

تفضل اخي هذا الملف مدخلات(1) salim.zip

لعله المطلوب ذكر اثنثى.zip

ربما كان المطلوب هذه المرة مثال _لجدول التقاطعات_معدل salim.zip

فقط Enter

تم معالجة الأمر تعديل salim.zip

حيث ان الماكرو موجود في حدث الصفحة يجب وضعه في الصفحة التي تريد العمل عليها و هو لا يعمل في اي صفحة غيرها اما بالنسبة للسؤال الثاني يجب ان تضيف كلمة Call و بعدها اسم الماكرو المطلوب بدون () و ذلك بعد كلمة Next مباشرة