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

سليم حاصبيا

Officena Team
  • Content Count

    7,933
  • Joined

  • Last visited

  • Days Won

    198

سليم حاصبيا last won the day on October 17

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

Community Reputation

7,185 Excellent

About سليم حاصبيا

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

Profile Information

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

Recent Profile Visitors

11,385 profile views
  1. قم بهذه التعديلات على الكود كما في الصورة (الغامود ِِA في صحفة التصنيفات فارغ تماما) البيانات في الصفحة " البيان " يجب ان تكون في العامود B ابتداء من الصف رقم 2
  2. مهما كانت الاعداد كبيرة الماكرو بقوم بالواجب بشكل اوتوماتيكي هذا بالاضافة الى اماكنبة زيادة احتمالات الكتابة في شيت التصنيفات (مثلاً يهو / فسيك/ جوجيل الخ...)
  3. تم التعديل على الملف قليلا من حيث المظهر والتنسيق Option Explicit Sub MY_code() Rem Created by Salim Hasbaya On 19/10/2020 Application.ScreenUpdating = False Dim B As Worksheet, Tas As Worksheet Dim arr() Dim i%, t%, col%, p%, n%, Q%, LB% Dim St$, itm As Variant Dim Rg As Range Set B = Sheets("البيان") Set Tas = Sheets("التصنيفات") Set Rg = Tas.Range("B1").CurrentRegion If Rg.Rows.Count = 1 Then GoTo Ma_Lish_Da3wa Set Rg = Rg.Offset(1).Resize(Rg.Rows.Count - 1) LB = B.Cells(Rows.Count, 2).End(3).Row B.Range("D2").CurrentRegion.ClearContents I
  4. لا أعلم ما المشكلة عندك ربما يكون اصدار الاوفيس قديماً عتدي يعمل الماكرو بشكل طبيعي جرب تبدل هذا السطر %Dim i الى #Dim i
  5. ليس من الضروري رفع الملف بكامله (أكثر من 1000 صف) كان يكفي نبذة صغيرة عنه (حوالي 20 صف) لأن الماكرو الذي يعمل على صف واحد يمكنه العمل على الالوف تم معالجة الأمر (مع التتغيير الى البيانات الضغيرة نسبياُ لمشاهذة عمل لماكرو بشكل جيد لأنه ليس من الضروري ان اقرأ اسم كل كتاب و مؤلفه و ما الى ذلك يكفي ان الاجظ الاحرف A / B/ C ان كانت في مكانها الصحيح) يمكنك نسخ الكود الى الملف عندك وتنقيذه مع مراعاة تغيير اسم الصفخة في الماكرو من Salim الى الاسم الذي عندك Sub Salim_Test() Dim Ro As Long, Rg As Range Dim x As Long, t As Long, i As Long, k% With Application
  6. بعد ادن اخي محي الدين و زيادة في اثراء الموضوع هذا الكود Option Explicit Sub test_1() Dim arr(), i%, t%, itm, col% Dim B As Worksheet Dim Tas As Worksheet Set B = Sheets("البيان") Set Tas = Sheets("التصنيفات") B.Range("D2").CurrentRegion.ClearContents Dim Rg As Range Set Rg = Tas.Range("B2:D20") For i = 1 To Rg.Cells.Count If Rg.Cells(i) <> "" Then ReDim Preserve arr(t) arr(t) = Rg.Cells(i) t = t + 1 End If Next t = 2 For i = 2 To 9 For Each itm In arr If InStr(B.Cells(i, 2), itm) Then col = Rg.Find
  7. هذا عمل من الصعب تنفيذه بالمعادلات جرب هذا الكود Option Explicit Sub Extract_Codes() Dim col As Object Dim i% Dim RoB%, RoD% Set col = CreateObject("System.Collections.ArrayList") With Sheets("Sheet2") i = 2 Do Until .Cells(i, 1) = vbNullString If Not col.Contains(.Cells(i, 2).Value) _ And .Cells(i, 2) <> "" _ And IsNumeric(.Cells(i, 2)) Then col.Add .Cells(i, 2).Value End If If Not col.Contains(.Cells(i, 4).Value) _ And .Cells(i, 4) <> "" _ And IsNumeric(.Cells(i, 4)) Then col.Add .Cells(
  8. قلت دون كلمات لا معنى لها هل هناك شركة باسم غشاخخ أو لخخخلث
  9. ضع كل احتمالات الكتابة في عامود واحد (دون فراغات) ودون كلمات لا معنى لها ( الاسهم الزرقاء) و في عامود اخر ما تريد استبداله كما في هذه الصورة
  10. تم وضع ملف جدبد بحتوي على 2 يوزر (يعملان على كل الصفحات) بالضغط على الزر المناسب الازرار موجودة في كل الصفخات 1- اليوزر القديم الذي ارسلته لك في مشاركة سابقة للبحث والتعديل و الجذف والاضافة 2- User جديد يمكن من خلاله البحث عن اي اسم من خلال كتابة الحروف الاولى من الاسم ( جرف أو 2 او 3 او فدر ما نريد ) فيTextBox الأصفر ثم الضغط على Enter تطهر لك في ال ListBox كل الاسماء التي تبدأ بهذه الجروف مع بياناتها تحتار الاسم الذي تربد من حلال الضغط عليه في ListBox فتظهر بياناته في TextBoxes كلها الملف مرفق toukilat 2 Users.xlsm
  11. الخلايا المدمجة ممنوعة لأن الكود الذي سوف يتم وضعه يأخذ أول خلية من النطاف المدمج بالنسبة للأعمدة الباقية الصورة توضح ذلك ايمان تأخذ الرقم 5795 الحرف ج والتاريخ 16/10/2016 اما الباقين اسراء و مشترك مع خرف ع لا يأخذون شيئاً
  12. صديقى انا وضعت لك كود (جسب طلبك) ولست مسؤولاً عن ما يضعه الغير ان كان صحيحاً ام لا
×
×
  • Create New...