فلسطيني

أخي أين النموذج؟

جاري التنزيل والتجريب مشكور أخي الكريم

أخي غذهب إلى قائمة تنسيق ( format) ثم إلى (sheet) ستظهر لك أسماء الصفحات المخفية حدد الصفحة ثم اضغط على إظهار ( unhide)

أخي الكريم أبسط الطرق قم بتظليل كامل الشيت المطلوب نقله ، ثم اذهب للملف الجديد و ظلل الشيت الجديد أيضا بشكل كلي و قم باللصق فسيتم نقل الشيت كاملا بالقيم والتنسيقات و الصيغ

عودة لموضوع التقريب بشرط أرجو التعرف على الدالتين التاليتين و هما مرتبطتان بالموضوع حتى بعد وصولك للحل فقد تكون الفائدة للآخرين =FLOOR(A1;0.25) =CEILING(A2;0.25)

بارك الله فيك أخي عمر على هذا الجهد الطيب فأنت كالنحلة لا تقع إلا على الطيب ولا تعطي إلا الطيب

ضع الصيغة التالية في c2 ثم اكتب ما تريد في b2 و لا تنسانا من دعوة خالصة بظهر الغيب =IF(B2-INT(B2)<0.5;INT(B2);(IF(B2-INT(B2)=0.5;INT(B2)+0.5;(IF(B2-INT(B2)>0.5;INT(B2)+1)))))

أرجو توضيح ما هيالبيانات التي تريد ربطها و ما هو البرنامج حتى يمكننا مساعدتك يمكنك تجريب استيراد بيانات خارجية من قائمة بيانات

أخي الكريم فكرة رائعة تشكر على مبادرتك إليها و أعتقد أن عدد الزيارات يكفي ليشجعك على البدء فيها حتى وإن لم تجد ردودا بالإضافة لقناعتك بفائدة ما تقوم به أتمنى لك التوفيق

أشكرك أخي أبو مشاري على هذه التحفة و ندعو بالتوفيق لمصمم البرنامج و للدال عليه ؟

نعم يمكنك صنع ذلك واختيار شكل الإيقونة و ذلك من خلال العديد من البرامج التي تقوم بهذه المهمة ومنها برنامج Installer2GO و هذا رابط البرنامج http://dev4pc.com/installer2go_download.html

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

=ifa1="","يستحق";"لا يستحق" جرب هذه الصيغة وحاول التغيير فيها حسب ما تحتاجه أو قمت بالشرح بطرقة أوضح أو من خلال تصميمك للملف وكتابة الشرح داخله

الأمر بسيط أنت قمت بكتابة المعادلات ضع المؤشر في الخلية d1 ثم اكتب =A1*B1 ثم اضغط انتر ثم اسحب المعادلة لجميع خلايا النطاق Dالذي تريد أو قم بكتابة المعادلة في كل خلية كما كتبتها في d1

أرجو تجربة الملف المرفق و هو ملف بسيط ولكن قد يكون هو طلبك countwords.rar

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

أخي الكريم لماذا تصر على أن المجال غير معرف مع أنه معرف باسم Me 1 و قد ذكرت لك خطوات تعريف المجال و هذا الملف المرفق به نفس الطريقة و لكن سميت المجال باسمي range_name.rar

الأخوة الكرام كما هو واضح في ردي السابق قم ببساطة بتسميه المجال الذي تريده

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

هذا يعني أن مستوى أمان الماكرو لديك مرتفع افتح ملف إكسيل ثم من قائمة أدوات ( tolls) اختر ( options) خيارات و من هناك أختر الأمان security ثم أمان الماكرو macro security و اجعله منخفض أو متوسط ثم اغلق الملف و افتح الملف الذي تريده سيعمل بمشيئة الله

أخي الكريم جرب هذا الكود Sub WordCount() cellContents = Trim(ActiveCell .Formula) cellWordCount = 1 prevCharacter = "" For i = 1 To Len(cellContents) nextCharacter = Mid(cellContents, i, 1) If (nextCharacter = " " Or nextCharacter = Chr(10)) And _ (prevCharacter <> " " And prevCharacter <> Chr(10)) Then cellWordCount = cellWordCount 1 End If prevCharacter = nextCharacter Next i If Len(cellContents) = 0 Then cellWordCount = 0 End If MsgBox "عدد الكلمات هو:" Str (cellWordCount) End Sub count_words.rar

الأخ الكريم قد يرجع الأمر لعدة أساب منها ما يتعلق بالخصائص المادية لمكونات الأجهزة ، و منها ما يتعلق بالتعارض بين بعض البرمجيات الموجودة على نفس الأجهزة ، أو أي أسباب أخرى ...!!!!!!!!

أخي الكريم الأمر في غاية البساطة إذهب للرينج b1:b10 مثلا ثم قم بتحديده ثم اذهب إلى قائمة insert ثم name اختر اسم للمجال و ليكن me 5 ثم موافق الان ادخل أي أرقام في المجال الذي تم تحديده و في أي خلية خارج المجال اكتب الصيغة التي تريدها مثلا =sum(me5) أتمنى أن يكون هذا هو حل اللغز

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

أخي الكريم ارفق الملف و إن شاء الله بتعاون الجميع سوف تحل مشكلتك