اذهب الي المحتوي
أوفيسنا

سليم حاصبيا

أوفيسنا
  • Posts

    8,723
  • تاريخ الانضمام

  • Days Won

    262

كل منشورات العضو سليم حاصبيا

  1. التنسيق الشرطي يا اخي مختار انت نسيت دوره في اللعبة ده ولّا أيــــه؟؟؟...
  2. السلام عليكم اخواني في المنتدى كما هو موضح من العنوان اليكم هذه الائحة المنسدلة العجيبة LIST FROM 3 COLUMNS.rar
  3. تم التعديل على الملف حسب الرغبة وزيادة حبّتين weekday 1.rar
  4. اليك هذا الملف تستطيع ان تملأه و تضغط على الرز المناسب اظهار التاريخ.rar
  5. 1- حدد السطور المناسبة 2-اضغط CRTL+1 للمسافة تساوي 1/ CRTL+2 للمسافة تساوي 1.5/ CRTL+3 للمسافة تساوي 2 وهكذا
  6. استاذ محمد من هذه النّاحية كل الحق معك لكن هل نستطيع مثلاً ان نعرف اذا كان صاحب السؤال قد قام بتحميل الاجابة أولا
  7. تمت معالجة الخطأ ارجو ان ينال اعجابك (الارقم و التواريخ عشوائية) يمكنك التغيير Book 11.rar
  8. استاذ احمد اليك هذا الملف ربما يفيدك و يمكنك البناء على اساسه Book100.rar
  9. هذا شيء طبيعي لأن الملف يحتوي على ماكرو و من واجب الاكسل تحذريك يمكنك ازالة هذا الشيء(و لا انصحك بذلك الا اذا كنت واثقاً من ان كل الماكروات موثوق بها) وذلك: 1-اضغط على Developer 2- اختيار Macro security 3- اختيار البند الرابع من تبويب macro setting - حيث يوجد العبارة enable macro 4- ثم موافق
  10. استاذ احمد تم التعديل على الملف مرة ثانية ليتناسب مع الحاجة انظر الى الورقة 1(3) Monthly Plan 2.rar
  11. تم التعديل على الملف Monthly Plan 1.rar
  12. اخواني و أصدقائي في هذا الصرح الكبير لي عتب على بعض الاعضاء (اشدد على كلمة بعض)الذين يستميتون في طلب امر ما أو حل بعض المسائل العالقة تحت شعار( ضروري جداً و هام للغاية و عاجل ...)الى ما هنالك من الحاح. فقط يضعون السؤال و ( يا دار ما دخلك شر) أحيانا لا يطلعون على الرد حتى.. أو يحمّلون الرد دون ان تعرف اذا كان صاحب العلاقة (السائل)قد قام بالتحميل اولا (حيث ان السائل لا يضع تعليقاً على الرد) لذا لدي اقتراح للإدارة الموقّرة ان تدرج لائحة بأسماء من قام بتحميل موضوع ما وليس فقط عدد التحميلات .اذا كان هذا ممكناً أو ادراج ملاحظة اذا كان صاحب السؤال قد قام بتحميل الرد على الموضوع (في هذه الحالة دون قائمة المحمّلين) لا أعرف اذا كان احد من أعضاء المنتدى يشاركني هذا الرأي و لكني أجزم ان هناك البعض
  13. على أي اساس تريد بناء هذا المصفوفة (يوجد منطق معين او عشوائياً ؟)
  14. تم التعديل بحيث تنقل كل البيانات الى الاوراق الصحيحة دون فراغات (salim)ترحيل بيانات.rar
  15. كود رائع يا بن مصر الرائع لكن من اجل لفت نظرك فقط الى حاجة بسيطة و سهلة حتى يجري الأمر بسرعة اكبر بكثير و لمنع ارتجاج الشاشة يجب ان تضيف سطرين الى الكود فقط Application.screen updating = false Application.screen updating = true Sub copyandremoveblankorduplicate() Dim ws, ws1, ws2 As Worksheet Dim lr, lr1, lr2, lrc, lrcr As Long Set ws = ThisWorkbook.Sheets(1) Set ws1 = ThisWorkbook.Sheets(2) Set ws2 = ThisWorkbook.Sheets(3) lr = ws.Cells(Rows.Count, 3).End(xlUp).Row lr1 = ws1.Cells(Rows.Count, 7).End(xlUp).Row lr2 = ws2.Cells(Rows.Count, 7).End(xlUp).Row ws.Range("C4:C" & lr + 1).ClearContents ws1.Range("G4:G" & lr1).Copy Destination:=ws.Range("C4") lrc = ws.Cells(Rows.Count, 3).End(xlUp).Row + 1 ws2.Range("G4:G" & lr2).Copy Destination:=ws.Range("C" & lrc) Application.CutCopyMode = False lrcr = ws.Cells(Rows.Count, 3).End(xlUp).Row Application.ScreenUpdating = False For x = lrcr To 5 Step -1 If Application.WorksheetFunction.CountIf(Range("C4:C" & x), Range("C" & x).Text) > 1 Or ws.Range("C" & x).Text = "" Then Range("C" & x).EntireRow.Delete End If Next x Application.ScreenUpdating = True End Sub انظر الى الكود كيف يصبح و جربه بنفسك و قارن السرعة عدم المؤاخذهة (لفت نظر مش اكثر)
  16. حاول تغيير المعادلة في الورقة غير مشمول الى المعادلة التّالية (مغ الضغط على CTL+shift+enter) اي بتعديل مكان وجود كلمة غير مشمول الى اخر المعادلة =IF(AND(OR(B2='البيانات الرئيسية'!$B$2:$B$10),OR(C2='البيانات الرئيسية'!$C$2:$C$10),OR(D2='البيانات الرئيسية'!$D$2:$D$10),OR(E2='البيانات الرئيسية'!$E$2:$E$10)),"","غير مشمول")
×
×
  • اضف...

Important Information