المتأمل الحسني

أسعد الله أوقات الجميع بكل خير و عيدكم مبارك. تساؤلي: أريد إنشاء 6 أوراق بأسماء في نطاق (a1:a6) و أريد أن ينبهني الكود إلى أسماء الأوراق الموجودة فعلا و إلى أسماء الأوراق التي ليست موجودة مع الشكر للجميع أنشأت هذا الكود ... و أحتاج إضافة أن ينبهني إلى الأوراق التي ليست موجودة و التي سينشئها الكود Sub Ad_sheets() Dim I, t Dim sh As String Dim a(1 To 7) As String Dim xWs As Worksheet a(1) = Sheets("Min").Range("a1") a(2) = Sheets("Min").Range("a2") a(3) = Sheets("Min").Range("a3") a(4) = Sheets("Min").Range("a4") a(5) = Sheets("Min").Range("a5") a(6) = Sheets("Min").Range("a6") [c1:h100] = "" For s = 1 To Application.ActiveWorkbook.Worksheets.Count v = 0 sh = Sheets(s).name For I = 1 To UBound(a) v = v + 1 If Not sh = a(I) Then Range("d" & v) = v Else X = X + 1 Range("c" & I) = I b = b & sh & vbCr Exit For End If Next Next MsgBox b, msg, "ÚÏÏ ÇáæÑÞ ÇáãæÌæÏÉ " & X End Sub

للرفع .. لعلي اجد من يفيدني من الإخوة الأعضاء

سلام الله عليكم و رحمته أيها الكرام في المرفق كود يطبع أسماء ملفات الإكسل التي في مجلد الملف ، و الملفات هي عبارة عن ارقام ، فكيف أستخرج أكبر رقم من الأرقام ؟ * مع ملاحظة أنني لا أريد أن أعتمد على ما طبعه الكود في الورقة بل أريد أن احتسب أكبر رقم قبل أن يكتب الكود أسماء الملفات .. مع شكري للجميع Xlfiles.rar

ببركة الدوال و المشاركات من الفضلاء هنا .. وصلت إلى هذا الكود. CUNT.rar

ما شاء الله يا أبا عبد الله ... الدالة تلبي الغرض تماما.. أسأل الله أن يبارك فيك و يزيدك علما و يصلح لك غواليك الباذخ سليم حاصبيا ألف شكر على الدالة التي وافقت الغرض ,, أرجو الله أن يحفظك و يبارك فيك و فيمن تحب. الحق يقال أن هذا المنتدى مميز بروح التعاون و خدمة أعضائه و غيرهم دون كلل أو ملل ..

أخي الحبيب .. لعل إشكالي لم يتضح لك ، مع أنك متمكن في الداوال فيما يبدو و تستيطع فعل ذلك, سأوضح لك: عندي فاتورة العدد فيها بالحبوب و ليس بالدرزن، و أريد تحويل الحبوب إلى درزن أو نصف درزن أو (0.75)يعني 9 حبات أو (0.25) يعني 3 حبات ، و في حال ما إذا كانت قسمة العدد على 12 لا تساوي هذه الطلبات فأريد أن تأخذ الدالة أقرب الخيارات السابقة مثلا: 14 حبة قسمة 12 = 1.16667 و هذا يعني أن هناك كسور غير مقبولة فأي الأرقام أقرب إلى الأعلى أو الأدنى؟ لو زدنا رقم واحد على ال 14 تكون القسمة :15قسمة 12 =1.25 و هذا المطلوب أما لو كان العدد مثلا 17 فإن المطلوب أن تكون النتيجة:1.5 و هذا يعني أننا أخذنا الأقرب إلى الخيارات اعلاه فجعلنا عدد الحبوب 18 حبة ، و لو نزلنا إلى أن تصير النتيجة 1.25 فسنجعل العدد 15 و هذا يعني أننا خسرنا من العدد حبتين و لكن عندما صعدنا إلى 18 زدنا واحدة فقط.. اشعر بصعوبة حقيقة في إيصال مرادي، و لكن الأخوين:ياسر و سليم فهما طلبي... و ما زالت أحاول على أقلمة الدالة لتلبي المطلوب.. عموما جزاكم الله خيرا على جهدكم جميعا و باختصار أريد الدالة تعمل على محتويات العمود (A) و ليس (B)

الشكر موصول شكرا لك و للأستاذ الرائع سليم.... لكن ما زالت الدالة لا تعمل جيدا في العدد 5 المفترض أن يكون ناتج الدالة=0.5 و ليس0.25 لأن الأقرب ال 5 أقرب إلى ال 6 و ليس إلى ال 3 نعم تعديلك ممتاز بخصوص العدد إذا كان 10 فيكون ناتج الدالة =0.75 و ليس كما في دالة الفاضل سليم =1 جزاكم الله خير الجزاء الأخ أبو عبد الباري أشكرك كثيرا على مجهودك الجميل المفيد... نعم الدالة التي ساعدتني بها تعمل في حال إذا كانت الأعداد صحيحة و فيها كسور عشرية,, أما إذا كانت الأعداد صحيحة فلا تعمل الدالة للأسف.. بارك الله فيك و وفقك

لا عدمناك يا رجل .. و لا حرمك الله أجر نفع الناس فقط يوجد ملاحظة واحدة و هي أن الدالة تحول ال 5 إلى 0.25 و المطلوب تحويل ال 5 إلى 0.5 نصف درزن

السلام عليكم أيها الكرام و رحمة الله.. واجهتني مشكلة في كيفية تحويل عدد حبوب إلى درازن.. المطلوب: 1-إذا كان ناتج قسمة العدد الصحيح على 12 = عدد صحيح فهذا لا مشكلة فيه 2- إذا كان ناتج قسمة العدد الصحيح على 12 = عدد صحيح + عدد عشري أو عدد عشري فقط فهذا له ثلاث حالات: الأولى إذا كان العدد العشري =(0.75) فالمطلوب وضع النتيجة كما هي. الثانية إذا كان العدد العشري =(0.5) فالمطلوب وضع النتيجة كما هي. الثالثة إذا كان العدد العشري =(0.25) فالمطلوب وضع النتيجة كما هي. 3- إذا كان ناتج قسمة العدد الصحيح على 12 = عدد صحيح + عدد عشري أكبر أو أقل من الحالات الثلاث أعلاه فالمطلوب زيادة النتيجة حتى تصل إلى الحالات الثلاث: و المرفق يوضح المطلوب من لهذا الكود مع علمي أن في المنتدى عباقرة؟ جزاكم الله خيرا. coun.rar

السلام عليكم... أسعد االله ايامكم جميعا و عيدكم مبارك.. عندما أكتب رقم في ال تكست بوكس بهذا الشكل: 001 يرحله إلى الخلية هكذا: 1 المطلوب أن يرحل الرقم كما هو هكذا: 001 هل هناك حل؟ مع الشكر للجميع

قد تبلغ صفوف البيانات لدي إلى 1000 صف ، و ليس لدي الان إلا قرابة 90 صف و مع هذا يوجد بطء شديد في استدعاء البيانات لعرضها في اللست بوكس ... تُرى ما المشكلة؟ المرفق يوضح أكثر، و شكرا لمن يساعدني ، و رمضانكم مبارك جميعا شيكات.rar

بارك الله في الجميع ... اعتذر عن عدم الرد في حينه.

طاب يومكم أيها الكرام هذا الكود راق لي و قد يكون لديكم معروفا و لكن لا مانع من عرضه ليستفيد منه من يحب شاهدوا المرفق F.rar

شكرا كثيرا لكما أيها الطيبان ... و قد وجدت هذا الكود Public Sub r() On Error Resume Next [A1]= Left([A1], InStr([A1], "\") - 1) END SUB

مساءكم سعيد.. اريد كود ينقل ما بعد علامة (\)من خلية (A1) إلى خلية (B1) مثال: 7162\2111 هذه القيمة في خلية (A1) و أريد أن أنقل ما بعد علامة (\) إلى (B1) مثلا.