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

أسعد الله أوقات الجميع بكل خير و عيدكم مبارك. تساؤلي: أريد إنشاء 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) مثلا.

شكرا ل أبي حنين على مبادرته الطيبة.. و قد حاولتُ حتى اهتديت إلى طلبي ، مع أني لست خبيرا بالأكواد ، و لكن بفضل الله وصلت إلى بغيتي ، و لتعم الفائدة أرفقت الملف. me.rar

موفق يا رب ، و لا حرمك أجر نفع الناس و لا حرمنا علمك

انظر المرفق: فعلتُ بعضا من المطلوب و بقي : كيف أستدعي فروع الحسابات إلى اللست بوكس؟ me.rar

مرحبا . أبو حنين .. شكرا على المجهود ، و سأوضح طلبي أكثر: كل الحسابات في النطاق رئيسية و تحتها حسابات رئيسية ، و في عمود p بيَّنتُ عدد الحسابات المتفرعة عن الحساب الرئيسي فالإسم االذي في عمود (N) يجب أن يضاف إلى الكومبوبوكس إذا كان يقابله في عمود (p) رقم ، و هذا الرقم يعني تماما عدد الحسابات التي سيعرضها الليست بوكس أرجو أن أكون وضَّحتُ الفكرة ، حتى لا تضيع مجهودات الفضلاء أمثالك .. بارك الله فيك # نوع الحساب رقم ح الإسم عدد الحسابات الفرعية عدد الحسابات الرئيسية رصيد الحساب عملة الحساب 1 ميزانية 1 أصول ثابتة دولار 2 ميزانية 2 أصول متحركة 1 دولار 3 ميزانية 3 خصوم 1 دولار 4 ميزانية 4 متاجرة دولار 5 أرباح و خسائر 5 أرباح دولار 6 ميزانية 201 مال 2 دولار 7 ميزانية 301 موردون 2 دولار 8 ميزانية 20101 نقدا دولار 9 ميزانية 20102 بنوك دولار 10 ميزانية 30101 عملاء الصين دولار 11 ميزانية 30102 عملاء اليمن دولار

السلام عليكم معاشر الخبراء الكرام في المرفق: 1- combobox مطلوب إضافة الحسابات الرئيسية لعرضها من خلاله. 2-listbox مطلوب عرض الحسابات الفرعية إذا تم عرض الحساب الرئيسي في الكومبو بوكس. مع وافر الشكر للجميع سلفا. Book1.rar

شكر الله لك أخي ياسر ، و العفو على تأخر الرد لعدم توفر الوقت الكافي لتصفح الكود و تجريبه..

أرجو من الإخوة مساغدتي في منع كلمة معينة ضمن جملة في خلية وفق شروط في المحلق مع الشكر. Book1.rar

حاضر.. أبشر ... و قد غيرت الإسم إلى العربي... و العفو .

الله يرحم والديك ..

الإخوة الفضلاء : أتسائل هل بالإمكان نسخ البيانات ك " قيم" من غير الدوال ؟