Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

سليم حاصبيا

Officena Team
  • Content Count

    8,697
  • Joined

  • Days Won

    258

سليم حاصبيا last won the day on May 13

سليم حاصبيا had the most liked content!

Community Reputation

8,370 Excellent

About سليم حاصبيا

  • Rank
    فريق الموقع
  • Birthday 03/08/1985

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    استاذ ثانوي
  • Location
    beiruth
  • Interests
    eXCEL

Recent Profile Visitors

12,875 profile views
  1. جرب هذا الملف 1-تسمية اوراق العمل دائماً باللغة الاجنبية وأرفض من الآن وصاعداً اي ملف اسماء صفحاته باللغة العربية لما يسبب هذا الشيء من اضطراب في الكود اضافة الى صعوبة نسخة ولصقة لظهور احرف غريبة فية (عند البعض طبعاً) مع احترامي الشديد للغتنا العربية (لغة القرآن الكريم) لكنها لا تصلح لوضع اكواد الـــ VBA (نسبة الأحطاء 70% حسب الدّراسات) 2- من المفروض اضافة القليل من البيانات في الأوراق العمل ولا تتكل على من يريد المساعدة للقيام بذلك 3- تم وضع بعض المعادلات التي تساعد في ادراج النتائج (دون ظهور الأصفار) 4- الصف رقم 6 في الاوراق Bay و Inport يجب ان يبقى فارغاً الكو
  2. تم التعديل كما تريد (مع تلوين الاجابة الصحيحة في حال اختيارها) Salim_Questions.xlsm
  3. الملف كما يجب ان يكون Questions_perfect.xlsm
  4. مع هذه الكمية الهائلة من الخلايا المدمجة لا يمكن لاي كود ان يعمل بسهولة فما الغاية من دمج الاعمدة من H الى AX (27 عامود) مثلا من اجل كتابة 4 كلمات "بماذا يكنى الهدهد والثعلب" كما في الصورة 1 اضافة الى دمح الخلايا في اماكن اخرى مثلاً من E12 الى K13 (صفين من الخلايا و 7 أعمدة ) اجل كتابة "الاجابة رقم 1" يجب ان يكون الملف كما في الصفحة Salim الصورة رقم 2 ( الخلايا من I5 الى L5 في "الصفحة Salim" ليست مدمحة حتى وان كانت تبدو كذلك) الملف كما يجب ان يكون مرفق Questions.xlsm
  5. اذا كان تم تم المطلوب اضغط افضل اجابة لاغلاقه ولا تنس الضغط على اعجاب ايضاً
  6. اولاً - من يتظر الى الصورة يعزف عن المساعدة لكثرة الألوان المزركشة في الملف التي تبهر النظر من جهة و تزيد من حجمه دون جدوى من جهة اخرى ثانيا- الضورة لا تعطي نتيجة للمساعدة حيث لا امكانية من كتابة اي معادلة او كود على الصورة لذا ازل الالوان وارفع الملف نفسه و عندما تحصل على الاجالة لوّن كما نريد
  7. الكود (اذا كانت البيانات كبيرة جداً 100000 ضف ربما يأحذ وقتاً ليس بالقليل) Option Explicit Sub AL_in_One() Dim A As Worksheet, R As Worksheet Dim Rg_To_Copy As Range, F_rg As Range Dim Max_ro%, Adr1%, Adr2% Dim Boldate As Boolean, BolF3 As Boolean Dim BolF4 As Boolean Set A = Sheets("ALL") Set R = Sheets("Repport") R.Range("A8").CurrentRegion.Clear Max_ro = A.Cells(Rows.Count, 1).End(3).Row Set F_rg = A.Range("B2").Resize(Max_ro).Find(R.Range("C3"), lookat:=1) If Not F_rg Is Nothing Then Adr1 = F_rg.Row: Adr2 = Adr1 Do Boldate = IsDate(A.Rang
  8. جرب هذا الملف 1- اكتب ما تريد في الــ TextBox1 واضغط Enter 2 -لحذف صنف قم بتضليله في الــ ListBox1 واضغط الزر المناسب الكود Private Sub DeL_It_Click() Dim FND As Range Dim lr%, Ro1%, Ro2%, i% Dim t% Dim my_rg As Range Dim Sh As Worksheet t = Me.ListBox1.ListIndex If t <= 0 Then Exit Sub Set Sh = Sheets("ارشيف العمليات") lr = Sh.Cells(Rows.Count, 1).End(3).Row With Me.ListBox1 Set FND = Sh.Range("D1:D" & lr).Find(Me.ListBox1.List(t, 3), lookat:=1) If FND Is Nothing Then Exit Sub Ro1 = FND.Row: Ro2 = Ro1 End With Do
  9. لا حاجة للكود في هذا الملف تكفي المعادلات Badawi.xlsx
  10. اظن انه ليس هناك حاجة لاستعمال البوزرفورم (فقط اضغط الزر GO في الصفحة Target ) الكود Option Explicit Sub AL_in_One() Dim T As Worksheet Dim Sh As Worksheet Dim arr(), itm Dim Max_ro%, k% Dim Adr1%, Adr2% Dim F_rg As Range arr = Array("First", "Second", "Third") Set T = Sheets("Target") T.Range("A1").CurrentRegion.Offset(1).Clear k = 2 For Each itm In arr Set Sh = Sheets(itm) Max_ro = Sh.Cells(Rows.Count, 2).End(3).Row Set F_rg = Sh.Range("o2").Resize(Max_ro).Find("*", lookat:=1) If Not F_rg Is Nothing Then Adr1 = F_rg.Row: Adr2 = Adr1 Do T.Range("B" &
  11. جرب هذا الملف 1-القائمة المنسدلة في الخلية K4 دينامبكية اي انها تدرج كل الاسماء من D7 الى D50 دون تكرار 2- المعادلات محمية لعدم الكتابة عليها عن طريق الحطأ Sasa fathi.xlsx
  12. سبب المشاكل كلها هي الخلايا المدمحة (تم ازالة ما يعيق منها عمل الماكرو) Hid_col_1.xlsm
×
×
  • Create New...

Important Information