عادل صادق

السلام عليكم اخواني الكرام اولاً اشكر كل الذين قاموا بالرد او المشاركة في هذا الموضوع ثانياً انا لم اكتب ما كتبت ذماً في احد ولكن حزناً علي ما وصل اليه هذا المنتدي الذي اكن له الكثير من الاحترام وله علي الفضل الكثير ثالثاً انا لم اطلب الرد علي الموضوع الا لأعرف هل ما زال احد يهتم ام ان ما سأكتب سيذهب ادراج الرياح مثل اسئلة الكثير من الاعضاء رابعاً لقد وجدت الحل سهل الي درجة لم اتخيلها وقد يكون هذا الحل موجود في المنتدي ولكن البحث لم يجدي نفعاً في العثور علية ذلك لان عنوان الموضوع هو اهم عنصر اثناء البحث وبالمناسبة اطلب من الاخوة الاعضاء ان تكون عناوين المشاركات جزاً من صلب الموضوع قدر المستطاع فانا شخصياً ارتكبت هذا الخطا عندما اسميت هذة المشاركة (السلام عليكم اخواني الكرام) صحيح اني ادرجت عنوان فرعي ولكن كان لابد ان اقوم بالعكس وهذا هو الحل: ان نضع هذا الكود في الورقة الاولي Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 10 Then Sheets("Sheet2").Select ActiveSheet.Cells(Target.Row, 2).Select End If End Sub قد يكون هناك حل اسهل او اكثر احترافية ولكن هذا ما توصلت الية واذا اردنا ان يعود بنا الكود الي الورقة الاولي ويذهب الي صف جديد تلقائياً حتي نقوم بإدخال البيانات في الصف ألاسفل فنضع هذا الكود في الورقة الثانية Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then Sheets("Sheet1").Select ActiveSheet.Cells(Target.Row + 1, 2).Select End If والحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا ان هدانا الله

انا اسأل وانا اجيب شكراً اخواني الكررررررام علي عدم الرد الذي كان بمثابة حافز لي حتي اجتهد وابحث واحاول إلي أن وصلت إلي ما اريد شكراً وإنا لله وإنا اليه راجعون ولا عزاء في منتدانا الراحل بالمناسبة من يريد الحل الذي توصلت الية برجاء إضافة رد

اخي جرب زيارة هذا الرابط http://www.officena.net/ib/index.php?showtopic=2609

عجيب امر منتدانا دائماً اسئلة ولكن في الغالب بلا جواب اين ذهب المشرفون الكرام والاخوة الاعضاء ارجو ان يكون المانع خير

اعتقد ان هذا غير ممكن خصوصاً اذا كتب الكود مباشرةً في الخلية

أهلاً بكم اخواني واخواتي الاعزاء اعضاء المنتدي الجميل قمت بعمل كود يجعل الاكسيل ينتقل الى ورقة أخرى عند الوقوف علي اي خلية في صف محدد ولمزيد من التوضيح نفترض ان لدينا ملف اكسيل به ورقتين الاولى تسمي A والثانية تسمي B انا احتاج ان اجعل الاكسيل ينتقل الي الورقة B بمجرد الوقوف علي اي خلية في العمود J مثلاً حتي هذه النقطة فالمسأله تتم بشكل جيد ولكن المشكلة انني احتاج ان يذهب الاكسيل الي خلية في العمود B في الورقة B لها نفس الصف الذي وقفت عليه في العمود J في الورقة A ارجو ان يكون السؤال واضح انتظر المساعدة منكم والله ولي التوفيق وهو نعم المولى ونعم النصير

الأخت مسعودة السلام عليكم بالنسبة لسؤالك فأنا شخصيا لا افضل إضافة مسافة للأسماء المعبدة ولكن حتي نجعل الإكسيل يتجاهل المسافة فيمكنك استخدام معادلة الأسم المركب ولكن في هذة الحالة سوف يتعامل الإكسيل مع هذة الإسماء علي انها مركبة حتي لو تم تغيير المدخل لأي اسم اخر لا يحتوي علي اسم معبد

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

اما الدالة Right فهي عكس الدالة Left حيث تقوم بارجاع أخر كلمة كتبت في الخلية عن طريق قياس طول النص الاجمالي في الخلية وطرح الكلمات والمسافات الموجودة قبل اخر مسافة قبل الكلمة الاخيرة

اما الدالة Mid فمن اسمها يتضح لنا انها تتعامل مع الجزء الاوسط من النص فعن طريق دمجها مع الدالة Search فهي تقوم بالبحث في النص عن الكلمات والمسافات وتقوم بارجاع الكلمة الموجودة بعد عدد من المسافات محدد مسبقا من قبل المستخدم

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

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

اخواني الكرام السلام عليكم أعتقد أن كل منكم لدية الحق فيما يقول ولكنكم لم تلتقوا عند نقطة واحدة فالمسألة ان الاخ Gelani يتكلم عن الـ Controls التي يمكن تعديل خصائصها عن طريق محرر الفيجوال بيسك ولكن الاخ المالكي يريد شئً اخر وهي النماذج الموجودة داخل الإكسيل وهي نماذج لا ترتبط كثيراً بمحرر الفيجوال بيسك وبالتالي لا يمكن تعديل الخصائص التي يريدها اما الـ Controls والموجودة داخل Controls Toolbox فانها مرتبطة ارتباطاً وثيقاً بالفيجوال وفي إكسيل 2003 فهو فيجوال متطور عن فيجوال 6 حيث يمكن علي سبيل المثال تغيير لون الكتابة علي الازرار وهذة خاصية غير موجودة في فيجوال 6 المهم وحتي لا اطيل عليكم اكثر من ذلك الخلاصة ان النماذج او الزر الذي استخدمة الاخ المالكي لا يمكن تغيير حجم او لون الخط بة وهذا علي حد علمي اما الـ Controls فيمكن تغيير الكثير من خصائصها ولكن طريقة التعامل معها مختلفة

أخي وسام اذهب الي الرابط التالي وستجد الحل ان شاء الله في مشاركات الاخوة http://www.officena.net/ib/index.php?showtopic=695&st=0 شكراً وبالتوفيق

زملائي الاعزاء الاحظ عدم ظهور الإيماءات في المشاركات وتظهر بدلاً منها الأكواد انها مسألة بسيطة ولكنها ملفتة للنظر أرجو من الاخوة المشرفين التوضيح قد تكون المشكلة في متصفحي شكراً (y) :') :( :@ :d :h :o :p

الف مبروك لزميلي العضو , اقصد عضو نادي الـ ...................... متزوجون الف مبروك ياالمهاجر بارك الله لكما وجمع بينكم في الخير

أخي بدران شكراً علي إطرائك سأقوم بشرح الدوال في ردي القادم لاني عدت للمنزل لتوي من العمل وسوف أذهب مرة اخري للعمل انتظر ردي ان شاء الرحمن

تسلم الأيادي أخ محمد وشكراً علي الإهتمام

لك جزيل الشكر مشرفنا العزيز علي صبرك وعظيم ووافر شرحك وجعلة الله في ميزان حسناتك أمين اما عن مشروع الدوال فانا اؤيد اخي المالكي في هذا كل التاييد وجاهز لأي عمل يكلفني به السيد المشرف (y)

الله أكبر هذه شهادة أعتز بها ووسام علي صدري خصوصا من مشرف قدير مثلك أخي علي :d

اخي جرب هذا الكود ضعة في الخلية [ B12 ] في صفحة التقرير العام =IF('الفرع الاول'!D11<>0;'الفرع الاول'!D11;'الفرع الثاني'!D11) ويمكنك بعد ذلك نسخة لبقية الخلايا

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

السلام عليكم مشرفنا العزيز الطريقة التي قدمتها ممتازة وغاية في السهولة ولكني فكرت هل هناك طريقة اخري يتم بها المطلوب. فقمت بعمل المرفق وذلك عن طريق الكود اريد رأيك اخي علي في هذا الكود شكراً http://www.officena.net/ib/index.php?showtopic=10293

المرفق, NameSplinter.zip

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