رحااال

السلام عليكم ورحمة الله وبركاته

هل يمكن ربط متجر بمنصة سلة باكسل أو google sheets

المهم أن يمكن إدارة عدة مخازن ومعرفة العدد في كل مستودع وكذلك الحسابات 

حتى لو كان هناك ادخال يدوي لامانع

المهم برنامج محاسبي فيه مخزون عدة مستودعات

علما أنه في سلة يمكن تصير الطلبات والعملاء والمنتجات كإكسل

وشكرا

تمام شكراً لمن عدل على الموضوع ..

باختصار : لو فيه طريقة إنه يكون ورقة مخصصة لأرقام القائمة السوداء بحيث أقوم بإضافة أي قائمة أرقام جديدة . بيكون شيء رائع جداً

شكراً لكم

تم إرفاق ملف مثال ،،

في المشاركه الرئيسية اول الموضوع

جميع الارقام في العمود  A

أرغب في إزالة جميع الأرقام الموجودة في العمود الآخر من العمود A

يعني مثل البلاك ليست ،،

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

هذا باختصار وشكراً جزيلاً.

والسلام عليكم ورحمة الله وبركاته

وعليكم السلام ورحمة الله وبركاته

صدقت وجزاك الله خير ،، لكن بسبب الاستعجال نسيت السلام

 شكراً

الكود ضبط لكن أحتاج أطبقه في كل مرة، لا يحدث تلقائياً

هل يمكن جعل أي خلية تحتوي رقم متكرر تكون بلون مختلف؟

مثل الصورة المرفقة لكن تكون تلقائية لأن الصورة المرفقة عملتها يدوياً (بمعنى أي رقم يتكرر تتحول الخلية الى اللون المشابه)

وشكراً لكم

أرجو التفاعل المطلوب قالب جاهز

السلام عليكم ورحمة الله وبركاته

مطلوب ملف اكسل  بسيط لتجارة مكونة من عدة أصناف يحسب لي:

- قيمة البضاعة وسعر كل صنف

- قيمة الشحن والرسوم والتخليص الجمركي

- قيمة الحملات التسويقية بحيث تضاف للتكلفة

- مبالغ الاشتراكات الشهرية والسنوية مثلا

- الخسائر والأرباح

أهلاً وسهلاً بك وجزاك الله خيراً..

بالنسبة لحفظ الملفات واحد تلو الآخر فيجري عمله الآن والأمر ياخذ وقت والله المستعان وصلت الملف 35 وبعد الانتهاء ان شاءالله والتطبيق سأعود بالنتيجة 

تم الانتهاء ولله الحمد من الحفظ،، هل يمكن بدل من الدخول في كل ملف لنقل الارقام الى العمود k

أن يتم تطبيق الكود مرتين مرة على k ومرة على عمود آخر 

وذلك بتغيير الحرف k في الكود الى حرف العمود الآخر

وشكرا

تم حل المشكلة ولله الحمد، وشكراً لك وبارك الله فيك

وتم تطبيقها كلها على نفس الملف والعمود أي أن النتيجة لعدة أعمدة على نفس العمود وهذا ممتاز

شكراً

السلام عليكم ورحمة الله وبركاته

أسعد الله مساؤكم جميعاً بكل خير..

أحبابي الغالين .. عندي عدة ملفات إكسل وفي كل ملف اكسل عمود فيه ارقام جوالات المطلوب وأرغب في دمجها في عمود واحد (عمود الأرقام فقط) علماً أنه أحانا الرقم يكون في عمود آخر لكن المهم القاعدة أو الدالة التي نطبق عليها وأقوم بتطبيقها على ما أحتاج

مرفق لكم الملفات للتطبيق

وشكراً

المطلوب دمج عمود الأرقام في كل ملف في عمود واحد بملف واحد.zip

هل يوجد دالة لحذف جميع الخلايا ماعدا التي تحتوي على كلمة معينة مثل "عميل" ؟

حبيبي الأخ محمد

أسعدك الله

الصورة التي ارفقتها في الموضوع هي تتكرر في كل مرة اقوم بالضغط على ازالة المكررات !! يفترض في الاخير يعطيني صفر

بالنسبة لزر الخطأ لا يظهر زر الخطأ الأصفر حتى اقوم بما ذكرت ..

أهلاً أبو أحمد ،،

ما تنفع هذه الدالة .. لأنها لن تحذف القائمة التي تم الارسال لها سابقاً

حياك الله أخ محمد

نفس المشكلة بالزر الأيمن تنسيق الخلايا ومن ثم حولتها لأرقام

ونفس المشكلة مرفق الصورة التي تتكرر بالنفس العدد كلما ضغطت على ازالة التكرارات

6 ساعات مضت, أبوأحـمـد said:

نعم صحيح 1= لا يوجد تكرار 

وهذا تعديل للمعادلة لزيادة التأكد

تم إضافة TRIM لحذف الفراغات

اللي اقصده يا أبو أحمد لو سويت سورت ،،، وصارت الرقم واحد فوق وال2 تحت لكن عمود ارقام الجوالات ما تغير مكانه بكذا تلخبطت الامور

فكيف اسوي سورت بحيث يكون كل نتيجة مرتبط بالرقم 

=SUMPRODUCT(((TRIM(RIGHT($A1:$A$1;6)))=TRIM((RIGHT(A1;6))))*1)

 

9 ساعات مضت, أبوأحـمـد said:

إعمل فرز أو تصفية حسب الرقم والعدد أكبر من 1 مكرر احذفه

1- عملت فرز لكن هل الفرز يكون للأرقام 1 . 2 والا للارقام الاساسية كيف اسوي فرز بحيث يكون ارتباط بين الرقم والنتيجة

2- هل الارقام 2 يعني ان الرقم موجود مرتين و3 يعني 3 مرات وهكذا؟   لأنني بحثت عن 3 ووجدته مرتين فقط و4 كذلك

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

السلام عليكم ورحمة الله وبركاته

بخصوص مشكلة ازالة التكرارات ودائماً كلما ضغطت على زر إزالة التكرارات يقول لي تم حذف كذا رقم وبقي كذا رقم ونفس الارقام ما تتغير والتكرارات لازالت ولا أدري ما هو السبب ومافائدة هذا الزر اذا كان لا يحذف الخلايا المكررة .. (مرفق صورة من الرسالة)

كذلك تم تطبيق أحد الدوال التي ذكرها لنا أحد الإخوة، ولكن كيف يمكن إزالة المكرر والتأكد من ذلك اذا كانت آلاف الأرقام؟

الدالة هي : =SUMPRODUCT(((RIGHT($A1:$A$1;6))=(RIGHT(A1;6)))*1)

أرفقت ملف إكسل (مثال)

مثال-أوفيسنا.xlsx

في 7‏/8‏/2023 at 08:19, أبوأحـمـد said:

ربما بعض الأرقام بالمفتاح الدولي وبعضها بدونه

ناتج المعادلة الطبيعي 1 وما زاد هو عدد التكرار

أشكرك أخي الفاضل، لا التكرار بعد التأكد أنها جميعا مطابقة بدون مفتاح دولي

استخدمت نفس الطريقة وظهر لي التكرار بعضها 2 وبعضها 3

الاشكال كيف أزيل هذه التكرارات اذا كان العمود كبير؟ بالآلاف

في 7‏/8‏/2023 at 11:16, ابا اسماعيل said:

بعد اذن الاخ أبوأحـمـد

جرب هذا الكود سيقوم بالتحقق من وجود القيم المكررة في الأعمدة A و B و C وسيقوم بسحب القيم المكررة إلى الأسفل

 

Private Sub RemoveDuplicatesAndFillDown()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim colRangeA As Range
    Dim colRangeB As Range
    Dim colRangeC As Range
    Dim cell As Range

    ' تعيين الورقة المستهدفة
    Set ws = ThisWorkbook.Worksheets("التكويد")
    
    ' العثور على آخر صف غير فارغ في العمود C
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    ' تعيين نطاقات الأعمدة A و B و C
    Set colRangeA = ws.Range("A2:A" & lastRow)
    Set colRangeB = ws.Range("B2:B" & lastRow)
    Set colRangeC = ws.Range("C2:C" & lastRow)
    
    ' إلغاء تنسيق الخلايا المحددة
    colRangeA.NumberFormat = "General"
    colRangeB.NumberFormat = "General"
    colRangeC.NumberFormat = "General"
    
    ' إزالة القيم المكررة وسحب القيم إلى الأسفل في الأعمدة A و B
    For Each cell In colRangeA
        If Application.WorksheetFunction.CountIf(colRangeA, cell.Value) > 1 Then
            cell.Offset(1, 0).Resize(lastRow - cell.Row).Value = cell.Value
        End If
    Next cell
    
    For Each cell In colRangeB
        If Application.WorksheetFunction.CountIf(colRangeB, cell.Value) > 1 Then
            cell.Offset(1, 0).Resize(lastRow - cell.Row).Value = cell.Value
        End If
    Next cell
    
    For Each cell In colRangeC
        If Application.WorksheetFunction.CountIf(colRangeC, cell.Value) > 1 Then
            cell.Offset(1, 0).Resize(lastRow - cell.Row).Value = cell.Value
        End If
    Next cell
End Sub

 

ممتاز لكن السؤال كيف أطبق هذا الكود وأين أضعه؟

هل أضعه في خلية واحدة مثلاً؟

السؤال الذي يطرح نفسه ما هو فائدة أيقونة إزالة التكرارات إذن؟ 

اذا كانت لا تقوم بإزالة التكرارات؟

لاحظوا هذه الرسالة تتكرر في كل مرة أقوم بالضغط على "إزالة التكرارات" !!!

والعدد يبقى كما هو 

في 26‏/5‏/2015 at 10:36, ياسر خليل أبو البراء said:

السلام عليكم ورحمة الله وبركاته

إخواني الكرام في المنتدى الحبيب

سبق أن قدمت في موضوع سابق دالة مشابهة لدالة اليوم ، ولكن دالة اليوم مميزة من ناحية سنقوم بسردها بعد قليل

رابط الموضوع المتعلق بشبيهة الدالة

فاصل ونواصل (أصلي تعبت ... )

 

دا شكل الدالة المعرفة

Function GetUnique(R As Range)
    Dim Cl As Range, J As Long
    With CreateObject("System.Collections.ArrayList")
    
        For Each Cl In R.Cells
            If Cl <> "" Then If Not .contains((Cl.Value)) Then .Add (Cl.Value)
        Next
        .Sort
        For J = 1 To R.Count
            .Add ("")
        Next J
        GetUnique = Application.Transpose(.toarray())
    
    End With
End Function

ايه رأيكم في شكلها (أنا شايف إنها شكلها لطيف ...مش كدا يا أبو يوسف)

 

تقوم الدالة المعرفة UDF والتي تسمى GetUnique ، باستخراج القيم الغير مكررة في نطاق أي القيم الفريدة في نطاق ، والجديد والمفيد أنه يمكن ترتيب القيم لتحصل في النهاية على قائمة منقحة ومصححة وخالية من التكرار والفراغات .. كل دا بضربة واحدة (ضربة معلم ..صح يا حوسو)

 

إذاً وظيفة الدالة : الحصول على قيم فريدة اي غير مكررة - ترتيب النتائج ترتيب أبجدي - التخلص من الفراغات الموجودة في القائمة الأصلية

وبالمثال المرفق سيتضح المقال

 

كيفية عمل الدالة :

بفرض أن القيم المراد استخراج القيم الفريدة منها في العمود الأول في النطاق A1:A30

 

نشوف العمود اللي عايزين نستخرج النتائج فيه وليكن العمود G .. اشمعنا العمود دا بالذات ، عشان العمود ده رقم 7 وأنا من عشاق الرقم 7 ومضاعفاته ..

 

نحدد النطاق من أول الخلية G1 لحد G30 قبل ما نكتب المعادلة

حددنا النطاق (برافو عليك يا حوسو) روح بقا لشريط المعادلات (مش ظاهر معاك يبقا أكيد لعبت في إعدادات الإكسيل .. ودي حاجة مش وحشة دي حاجة حلوة ، لأنها دليل إنك عايز تتعلم .. اظهر شريط المعادلات من التبويب View هتلاقي كلمة Formula Bar جنبه مربع علم عليه ..! مش أحسن ما هو اللي يعلم عليك)

 

ضع المعادلة التالية في شريط المعادلات

=GetUnique(A1:A30)

ومن لوحة المفاتيح اضغط Ctrl + Shift + Enter لأن دي معادلة صفيف ..

 

ومبروك عليك القايمة الجديدة (على أساس إنك متجوز للمرة التانية .. بس القديمة تحلا ولو كانت أحلى ..بلاش نقول وحلة لناخد مخالفة (من خاف سلم))

 

طيب دلوقتي أنا سامع واحد بيقولي إنت ليه بتجبرني إني أرتب القيم (أنا عايز القيم زي ما هي بدون تكرار وبدون فراغات بس الترتيب ميلزمنيش) ..

أرد عليه وأقوله ولا تزعل نفسك يا حبيبي روح لمحرر الأكواد ودور على السطر اللي جاي ده واحذفه أو ضع بجانبة تعليق .. بس خلاص ! مش دي اللي هتزعلنا من بعضنا )

.Sort

وأخيراً تقبلوا تحيات أخوكم أبو البراء

دمتم على طاعة الله

Get Unique UDF Function.rar

ظهر لي الملف كما تشاهد 🙂

في 27‏/4‏/2017 at 11:10, أ / محمد صالح said:

ما شاء الله

أخي خبور خير رائع وجميع أكواده بسيطة وفعالة أعاده الله لنا وسلمه من كل سوء

ولإثراء الموضوع أقدم هذه المعادلة لنفس الغرض

=INDEX($a$2:$a$1000,MATCH(0,COUNTIF($D$1:D1,$a$2:$a$1000),0))

حيث وجود البيانات في العمود a ويتم كتابة المعادلة في الخلية d2 مع الضغط على

Ctrl+shift+enter

لأنها معادلة صفيف array formula

ثم تسحب لأسفل

وفقنا الله جميعا للخير

دمتم في رعاية الله وحفظه

أخي الكريم جربت نفس ما ذكرت وظهر كما بالصورة:

إخواني عندي عمود اكسل كله ارقام جوالات 

أقوم بإزالة الأرقام المكررة عن طريق تحديد العمود ثم بيانات ثم ازالة التكرارات

لكن أتفاجأ أن الرسائل تصل للعملاء مرتين وعند العودة للجدول اجد أن هناك فعلاً ارقام مكررة أي أنه لم يتم إزالة التكرارات كلها فكيف أتأكد من ذلك حتى لا أتسبب بإزعاج وإحراج مع العميل؟

عندي قائمة كبيرة بأرقام جوالات عملائي في اكسل

ولدي قائمة أصغر مأخوذة من القائمة الكبيرة أرسلت لهذه القائمة الصغيرة رسالة

أريد ان أرسل للقائمة الأساسية الكبيرة لكن لا اريد أن تتكرر الرسالة للقائمة الصغيرة، فأرغب باستبعاد هذه القائمة الصغيرة أولا

المطلوب: طريقة حذف مجموعة أرقام من القائمة يعني مثلا ١٠٠٠ رقم اريد حذف ١٠٠ رقم محدد منها 

test.xlsx

السؤال واضح أخي الكريم

ملف يحتوي على بيانات من ضمنها أرقام جوالات ..

أريد الاكسل يستخرج جميع الارقام التي تحتوي على 10 خانات وبدايتها 05

التي هي ارقام الجوالات

وشكراً لك جزيلاً .

السلام عليكم ورحمة الله وبركاته

يوجد لدي أسماء مثلا xxx1 , xxx2 وهكذا 

ارغب بـ تغييرها مثلا الى sss1,sss2 وهكذا

هل خاصية الاستبدال عن طريق ctrl + f  كافية لعمل ذلك وماهي افضل طريقة لذلك

السلام عليكم ورحمة الله وبركاته

يوجد أرقام جوالات مبعثرة في ملف اكسل كبير

هل يوجد أمر مثلاً أقول للإكسل استخرج جميع الأرقام المكونة من 10 خانات وتبدأ بـ 05 أي رقم بهذه المواصفات يستخرجه في عمود واحد ..

وشكراً